|
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: 3555 (0xde3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »RESRÄKN1«
└─⟦2d3ae9df8⟧ Bits:30008654 DDMQ1-0094_Nya_bokforingssystemet_I_LMC_MSAB_COPY_Skriv_BOKRUT_780220_TD
└─⟦this⟧ »RESRÄKN1«
/*FÖRSTA RADEN*/
/*BALRÄKN UTSKRIFT AV BALANSRÄKNING
KLART: XXXXXX PROGR:TD */
DCL 1 SAM1(15),2 SKO1 FIXED(4),2 SMNR1 FIXED(2),2 BUD1 CHAR(1),
2 SAVD1 FIXED(2),2 SPROJ1 FIXED(4),2 SAD1 FIXED(11,2),2 SAK1 FIXED(11,2),
2 HJKOD1 CHAR(1);
DCL 1 SAM2(200),2 SKO2 FIXED(4),2 SMNR2 FIXED(2),2 BUD2 CHAR(1),
2 SAVD2 FIXED(2),2 SPROJ2 FIXED(4),2 SAD2 FIXED(11,2),2 SAK2 FIXED(11,2),
2 HJKOD2 CHAR(1);
DCL 1 SAM,2 SKO FIXED(4),2 SMNR FIXED(2),2 BUD CHAR(1),2 SAVD FIXED(2),
2 SPROJ FIXED(4),
2 SAD FIXED(11,2),2 SAK FIXED(11,2),2 HJKOD CHAR(1);
DCL 1 KTO,2 KONTO FIXED(4),2 TEXT CHAR(34);
DCL 1 DATREC,2 DAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1);
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(1);
XDAG='XXXXXX ';XMNR=0;
DCL DATFIL FILE,KTOTX FILE,S CHAR(1),RAD FIXED(2),SIDA FIXED(4),IND FIXED(1),
SAMFIL FILE,NI FIXED(1),KOKLTOT(2) FIXED(12,2),
XPROJ FIXED(4),XKO FIXED(4),XAVD FIXED(2),XDAT FIXED(4),PD FIXED(12,2),
PK FIXED(12,2),AD FIXED(12,2),AK FIXED(12,2),KD FIXED(12,2),KK FIXED(12,2),
TD FIXED(12,2),TK FIXED(12,2),REG FIXED(1),DEL FIXED(1),RECNR BINARY,
JUMP FIXED(1),C CHAR(20) INIT('--------------9V.99'),
CC CHAR(20)INIT('-----------9V.99***'),
CCC CHAR(20)INIT('-------------9V.99*'),
KIB FIXED(12,2);
OPEN KTOTX;OPEN DATFIL;OPEN SAMFIL;
READ FILE(DATFIL)INTO(DATREC);IF DAG='XXXXXX' THEN GO TO SLUT;
DO I=1 TO 14;XSK(I)=SK(I);END;
REWRITE FILE(DATFIL)FROM(XDATREC);
PUT FILE(D) SKIP EDIT(' ')(A(37))('*** BALANSRÄKNING ***')
(A(74))('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37));
GET SKIP LIST(S);
TAB:PUT FILE(D)SKIP EDIT('VILKEN NIVÅ?')(A(36));
GET SKIP LIST(NI);IF NI<1öNI>4 THEN GO TO TAB;
JUMP=0;RAD=5;SIDA=0;IND=1;
RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('BALANSRÄKNING NIVÅ ')(A)(NI)(A(4))
('AVSEENDE MÅNAD ')(A)(MON)(A(5))
(' DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2)EDIT
('KTO')(A(6))('BENÄMNING')(A(35))('MÅN DEB')(A(16))('MÅN KRE')(A(16))
('UTG. SALDO')(A)SKIP;
RAD=45;
TOTALT: