|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5135 (0x140f)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »REG«
└─⟦32c2b473d⟧ Bits:30008620 DDMQ1-0061_ETIK_a_H_S
└─⟦this⟧ »REG«
└─⟦bdadc555d⟧ Bits:30008724 DDMQ1-0165_LITE_KOPIA_BOLAG_NYCKELTA
└─⟦this⟧ »REG«
DCL 1 ADRESSREG,
2 NR CHAR(5),
2 FNAMN CHAR(8),
2 ENAMN CHAR(16),
2 FIRMA CHAR(20),
2 AVD CHAR(15),
2 ADR CHAR(20),
2 BOX CHAR(10),
2 POST CHAR(18),
2 TEL CHAR(11),
2 CODE(7) CHAR(2);
DCL KLART CHAR(5);
DCL A CHAR(1);
DCL NAMNREG FILE;
OPEN NAMNREG;
START:
PUT FILE(DISPLAY) SKIP LIST(' G=GAMMALT C=ANDR. EL. SLUT ');
GET SKIP LIST(A);
PUT FILE(DISPLAY) SKIP LIST('1 FOR LISTA 2 EJ LIST ');
GET SKIP LIST(B);
IF(A='C') THEN GO TO LETA;
CALL SEOF(NAMNREG);
GO TO LAES;
LETA:
PUT FILE(DISPLAY) SKIP LIST('KUNDNR ');
GET SKIP LIST(NR);
READ KEY(NR) FILE(NAMNREG) INTO (ADRESSREG);
LAES: PUT FILE(DISPLAY) SKIP LIST('FORNAMN ');
GET SKIP LIST(FNAMN);
KLART= SUBSTR(FNAMN,1,5);
IF(KLART='KLART') THEN GO TO SLUT;
PUT FILE(DISPLAY) SKIP LIST('NR ');
GET SKIP LIST(NR);
PUT FILE(DISPLAY) SKIP LIST('EFTERNAMN ');
GET SKIP LIST(ENAMN);
PUT FILE(DISPLAY) SKIP LIST('FIRMANAMN ');
GET SKIP LIST(FIRMA);
PUT FILE(DISPLAY) SKIP LIST('AVD ');
GET SKIP LIST(AVD);
PUT FILE(DISPLAY) SKIP LIST('BOX NR ');
GET SKIP LIST(BOX);
PUT FILE(DISPLAY) SKIP LIST('ADRESS ');
GET SKIP LIST(ADR);
PUT FILE(DISPLAY) SKIP LIST('POSTADR ');
GET SKIP LIST(POST);
PUT FILE(DISPLAY) SKIP LIST('TEL.NR ');
GET SKIP LIST(TEL);
PUT FILE(DISPLAY) SKIP LIST('CODE.NR ');
DO I=1 TO 7;
GET SKIP LIST(CODE(I));
END;
IF(A = 'C') THEN GO TO REW;
WRITE FILE(NAMNREG) FROM (ADRESSREG);
GO TO GOON;
REW: REWRITE FILE(NAMNREG) FROM (ADRESSREG);
GOON:
IF(B=2) THEN GO TO LAES;
PUT SKIP(2) LIST(NR,FNAMN,ENAMN,FIRMA,AVD,BOX,ADR,POST,TEL);
PUT LIST(' ',CODE(1),' ',CODE(2),' ',CODE(3),' ',CODE(4));
PUT LIST(' ',CODE(5),' ',CODE(6),' ',CODE(7));
IF(A = 'C') THEN GO TO START;
GO TO LAES;
SLUT: IF(A ¬= 'C') THEN CLOSE NAMNREG;
PUT SKIP LIST('SKREV SISTA LOPNR ',NR);
END;