|
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: 3002 (0xbba)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »IBIN1«
└─⟦755e43167⟧ Bits:30008640 DDMQ1-0079_MSAB_BALANS_KONV_KPLANB
└─⟦this⟧ »IBIN1«
└─⟦ecd18d2d3⟧ Bits:30008638 DDMQ1-0077_KOPIA_KPLANB_BALANS_KONV
└─⟦this⟧ »IBIN1«
DCL 1 KPL,
2 KONTO CHAR(4),
2 STK CHAR(1),
2 BEN CHAR(34),
2 ACD(12) FIXED(10,2),
2 ACK(12) FIXED(10,2),
2 IB FIXED(11,2);
DCL KPLAN FILE,SVAR CHAR(4),X FIXED(1),
R1 CHAR(20) INIT('KONTO'),
R2 CHAR(20) INIT('ING.BALANS ÄR NU:'),
R3 CHAR(20) INIT('NY ING.BALANS:'),
R4 CHAR(1) INIT('"'),
NYSALDO FIXED(10,2),L1 FIXED(2),L2 FIXED(2);
OPEN KPLAN;X=0;
PUT FILE(D) EDIT('FÖRSTA KONTO SOM SKA UPPDATERAS:')(A(37))
('TRYCK RETURN OM FRÅN BÖRJAN')(A(37));GET SKIP LIST(SVAR);
IF SVAR¬=' ' THEN DO;GO TO LETA;FEL:PUT FILE(D) SKIP EDIT(SVAR)(A(5))
('FINNS EJ.')(A(32))('SKRIV NYTT KONTONR:')(A(20));GET SKIP LIST(SVAR);
LETA:ON ERROR GO TO FEL;READ KEY(SVAR) FILE(KPLAN) INTO(KPL);X=1;END;
START:
IF X=0 THEN DO;ON ENDFILE GO TO UT;READ FILE(KPLAN) INTO(KPL);GO TO UT2;UT:
X=2;UT2:END;IF X=2 THEN GO TO SLUT;X=0;L1=(INDEX(BEN,' '))-1;L2=36-L1;
IF (L1=0) THEN DO;L1=34;L2=2;END;
IGEN:PUT FILE(D) SKIP EDIT(R1)(A(6))(KONTO)(A(31))(R4)(A(1))(BEN)(A(L1))
(R4)(A(L2))(R2)(A(18))(IB)(P'---------9V.99',X(6))(R3)(A(15));
GET SKIP LIST(NYSALDO);IF NYSALDO=999999 THEN GO TO SLUT;
PUT FILE(D) EDIT(NYSALDO)(P'------------9V.99',X(43));
PUT FILE(D) LIST('OK? SKRIV "NEJ" ANNARS: ');
GET SKIP LIST(SVAR);
IF (SUBSTR(SVAR,1,3)='NEJ') THEN GO TO IGEN;
IB=NYSALDO;REWRITE FILE(KPLAN) FROM(KPL);
GO TO START;
SLUT:END;