|
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: 2291 (0x8f3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »BOKK«
└─⟦3e550eca6⟧ Bits:30008695 DDMQ1-0135_DUBBEL
└─⟦this⟧ »BOKK«
└─⟦b4c020431⟧ Bits:30008687 DDMQ1-0127_VERFIL
└─⟦this⟧ »BOKK«
└─⟦bcdd51fb7⟧ Bits:30008685 DDMQ1-0125_Denna_diskette
└─⟦this⟧ »BOKK«
DCL 1 BOK,
2 KONTONR CHAR(4),
2 TEXT CHAR(25);
DCL BKONTO FILE;
DCL RUB1 CHAR(50) INITIAL('M S T E N H A R D T A B');
DCL RUB2 CHAR(50) INITIAL('UPPLÄGGNING AV KONTONUMMER ');
DCL RUB3 CHAR(10) INITIAL('PER');
DCL DAT CHAR(8);
PUT FILE (DISPLAY) SKIP LIST('ANGE DATUM');
GET LIST (DAT);
OPEN BKONTO;
PUT SKIP(2) EDIT(RUB1)(A(50)) (RUB2)(A(50)) (RUB3)(A(5)) (DAT)(A(10));
DCL A CHAR(2);
START: PUT FILE(DISPLAY) SKIP LIST('ANGE KONTONUMMER ');
GET LIST(KONTONR);
IF(KONTONR ='9999') THEN GO TO SLUT;
PUT FILE(DISPLAY) SKIP LIST('ANGE TEXT TILLKONTONUMRET ');
GET LIST(TEXT);
PUT SKIP(2) EDIT(KONTONR)(A(10)) (TEXT)(A(30));
PUT FILE(DISPLAY) SKIP LIST('OM RÄTT, SVARA "OK" ');
GET LIST(A);
IF(A ¬= 'OK') THEN GO TO START;
CALL SEOF(BKONTO);
WRITE FILE(BKONTO) FROM(BOK);
CLOSE BKONTO;
OPEN BKONTO;
GO TO START;
SLUT: END;