|
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: 3792 (0xed0)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »DUBBEL«
└─⟦3e550eca6⟧ Bits:30008695 DDMQ1-0135_DUBBEL
└─⟦this⟧ »DUBBEL«
DCL 1 FAK,
2 FAKT CHAR(10),
2 DATUM CHAR(8),
2 DEBET CHAR(10) INIT(' '),
2 KREDIT CHAR(10) INIT(' '),
2 BELOPP CHAR(10) INIT(' '),
2 TEXT CHAR(20) INIT(' ');
DCL FAKFILE FILE;
DCL RUB1 CHAR(30) INIT('M S T E N H A R D T A B');
DCL RUB2 CHAR(10) INIT ('PROGR:MS1');
DCL RUB3 CHAR(40) INIT ('D U B B U E L B E T K O N T R O L L ');
DCL RUB4 CHAR(45) INIT ('FAKTURANR DATUM DEBET KREDIT');
DCL RUB5 CHAR(5) INIT ('TEXT');
PUT SKIP EDIT(RUB1)(A(36));
PUT EDIT(RUB2)(A(23))(RUB3)(A(40));
PUT SKIP(2) EDIT(RUB4)(A(50))(RUB5)(A(5));
OPEN FAKFILE;
LOOP1: KREDIT=' '; DEBET=' ';BELOPP=' ';
PUT FILE(DISP) SKIP LIST('FAKTURANUMMER, OM SLUT SLUT ');
GET LIST (FAKT);
IF (FAKT ='SLUT ') THEN GO TO SLUT;
PUT FILE(DISP) SKIP LIST('DATUM');
GET LIST(DATUM);
PUT FILE(DISP) SKIP LIST('TEXT ');
GET LIST (TEXT);
PUT FILE(DISP) SKIP LIST('BELOPP, OM DEBET=K7, OM KREDIT=K6 ');
XX: GET LIST (BELOPP);
CALL KEYFUN(I);
IF (I=138) THEN GO TO K;
IF (I=139) THEN GO TO D;
GO TO XX;
K: KREDIT = BELOPP;
GO TO LOPPA;
D: DEBET=BELOPP;
LOPPA:
PUT SKIP EDIT(FAKT)(A(13)) (DATUM)(A(10));
PUT EDIT(DEBET)(A(12)) (KREDIT) (A(15));
PUT EDIT(TEXT)(A(20));
CALL SEOF(FAKFILE);
WRITE FILE(FAKFILE) FROM (FAK);
CLOSE FAKFILE;
OPEN FAKFILE;
GO TO LOOP1;
SLUT: END;