|
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: 4819 (0x12d3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »REG«
└─⟦175e012ba⟧ Bits:30008648 DDMQ1-0088_BARKABY_FLYGKLUBB_OK_LKPG
└─⟦this⟧ »REG«
└─⟦57af864d8⟧ Bits:30008678 DDMQ1-0118_TGG
└─⟦this⟧ »REG«
└─⟦80c6630e0⟧ Bits:30008619 DDMQ1-0060_FORM_REG_for_strukturen
└─⟦this⟧ »REG«
└─⟦ce91c199d⟧ Bits:30008680 DDMQ1-0120_BARKABY_LKPG_TGGNAMN_DINDEX
└─⟦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 F CHAR(2);
DCL NAMNREG FILE;
OPEN NAMNREG;
START:
PUT FILE(DISPLAY) SKIP LIST(' ANGE "C" OM DET GÄLLER ÄNDRINGAR ANNARS RET ');
GET SKIP LIST(A);
ST: IF(A='C') THEN GO TO LETA;
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;
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));
PUT FILE(DISP) SKIP LIST('HAR DU SKRIVIT RÄTT SVARA "OK" '); GET LIST(F);
IF(F ¬= 'OK')THEN GO TO ST;
IF(A = 'C') THEN GO TO REW;
CALL SEOF(NAMNREG);
WRITE FILE(NAMNREG) FROM(ADRESSREG); CLOSE NAMNREG; OPEN NAMNREG;
GO TO LAES;
REW: REWRITE FILE(NAMNREG) FROM(ADRESSREG); GO TO START;
SLUT:
PUT SKIP LIST('SKREV SISTA LOPNR ',NR);
END;