|
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: 1975 (0x7b7)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »IBUT1«
└─⟦755e43167⟧ Bits:30008640 DDMQ1-0079_MSAB_BALANS_KONV_KPLANB
└─⟦this⟧ »IBUT1«
└─⟦ecd18d2d3⟧ Bits:30008638 DDMQ1-0077_KOPIA_KPLANB_BALANS_KONV
└─⟦this⟧ »IBUT1«
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,
R1 CHAR(20) INIT('KONTO'),
R2 CHAR(20) INIT('ING.BALANS ÄR NU:'),
R3 CHAR(20) INIT('NY ING.BALANS:'),
R4 CHAR(1) INIT('"'),
SVAR CHAR(4),NYSALDO FIXED(10,2),L1 FIXED(2),L2 FIXED(2);
OPEN KPLAN;
START:ON ENDFILE GO TO SLUT;
READ FILE(KPLAN) INTO(KPL);
PUT SKIP EDIT(R1)(A(6))(KONTO)(A(31))(BEN)(A(38))
(R2)(A(18))(IB)(P'---------9V.99',X(6));
GO TO START;
SLUT:END;