|
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: 3476 (0xd94)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »BUDGUT1«
└─⟦7bb65a061⟧ Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
└─⟦this⟧ »BUDGUT1«
└─⟦aeb45b905⟧ Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
└─⟦this⟧ »BUDGUT1«
└─⟦cfd478037⟧ Bits:30008627 DDMQ1-0066_MSAB_ref_ex_Bokf_system_NFK_diskett_2_2_781120_side0
└─⟦this⟧ »BUDGUT1«
└─⟦d1c33ffd3⟧ Bits:30008583 DDMQ1-0017_Bokforingssystem_kallkod_Msab_790411
└─⟦this⟧ »BUDGUT1«
└─⟦d4a65d31f⟧ Bits:30008722 DDMQ1-0163_MSAB_Bokf_pgm_i_PL1_781112_TD
└─⟦this⟧ »BUDGUT1«
└─⟦f4c608b16⟧ Bits:30008624 DDMQ1-0064_LMC_Kopia_Generall_pgm_for_bokforing_Endast_PL1-vers_781105_B
└─⟦this⟧ »BUDGUT1«
/*FÖRSTA RADEN*/
/*BUDGUT UTSKRIFT AV BUDGET GENERELLT PGM.
KLART: 781104 PROGR:TD */
DCL 1 KTO,2 BSTR,3 KONTO FIXED(4),3 XZ CHAR(1),3 KAVD CHAR(3),
2 KBUD(12) FIXED(7);
DCL 1 DATREC,2 XDAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),
2 CO FIXED(1);
DCL DATFIL FILE,KTOTX FILE,S CHAR(1),RAD FIXED(2),SIDA FIXED(4),IND FIXED(1),
DAG CHAR(6),BUDSUM FIXED(7,1),
XKO FIXED(4),XAVD CHAR(3),
RECNR BINARY,
JUMP FIXED(1),C CHAR(19)INIT('--------------9V.99'),
CC CHAR(19)INIT('-----------9V.99***'),
CCC CHAR(19)INIT('-------------9V.99*'),
KOSVAR CHAR(4),KIB FIXED(13,2);
OPEN DATFIL;OPEN KTOTX;
READ FILE(DATFIL)INTO(DATREC);IF XDAG='XXXXXX' THEN GO TO SLUT;
DAG=XDAG;XDAG='XXXXXX';
REWRITE FILE(DATFIL)FROM(DATREC);
PUT FILE(D) SKIP EDIT(' ')(A(37))('*** UTSKRIFT AV BUDGET ***')
(A(74))('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37));
GET SKIP LIST(S);
PUT FILE(D)SKIP EDIT(' ')(A(43))('*** UTSKRIFT PÅGÅR ***')(A(68));
KIB=0;RECNR=0;JUMP=0;RAD=5;SIDA=0;IND=1;
RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('UTSKRIFT AV BUDGET 1000-TAL KRONOR.')(A)
(' (kkr) DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2)EDIT
('KTO')(A(5))('AVD')(A(6))('MÅNAD 1')(A(7));DO I=2 TO 12;PUT EDIT(I)
(P'ZZZZZZZZ9');END;PUT EDIT(' TOT')(A)SKIP;RAD=45;
ST:IF RAD<12 THEN GO TO RUB;
ON ERROR GO TO SLUT;READ KEY('B')FILE(KTOTX)INTO(KTO)KEYTO(XZ);
IF RECNR>=UNSPEC(KTOTX) THEN GO TO UT;RECNR=UNSPEC(KTOTX);
PUT SKIP EDIT(KONTO)(A(6))(KAVD)(A(3));RAD=RAD-1;KIB=0;
KOSVAR=KONTO;
DO I=1 TO 12;BUDSUM=KBUD(I)/10;
IF VERIFY(SUBSTR(KOSVAR,1,1),'3')THEN BUDSUM=-BUDSUM;
PUT EDIT(BUDSUM)(P'------9V.9');KIB=KIB+BUDSUM;
END;
PUT EDIT(KIB)(P'--------9V.9');
IF VERIFY(SUBSTR(KOSVAR,1,1),'3') THEN PUT EDIT(' KRE')(A);
ELSE PUT EDIT(' DEB')(A);
GO TO ST;
UT:PUT SKIP(RAD-5);
SLUT:CALL LOAD('BOKRUT',6);END;