|
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: »ALTB1«
└─⟦7bb65a061⟧ Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
└─⟦this⟧ »ALTB1«
└─⟦aeb45b905⟧ Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
└─⟦this⟧ »ALTB1«
└─⟦cfd478037⟧ Bits:30008627 DDMQ1-0066_MSAB_ref_ex_Bokf_system_NFK_diskett_2_2_781120_side0
└─⟦this⟧ »ALTB1«
└─⟦d1c33ffd3⟧ Bits:30008583 DDMQ1-0017_Bokforingssystem_kallkod_Msab_790411
└─⟦this⟧ »ALTB1«
└─⟦d4a65d31f⟧ Bits:30008722 DDMQ1-0163_MSAB_Bokf_pgm_i_PL1_781112_TD
└─⟦this⟧ »ALTB1«
└─⟦f4c608b16⟧ Bits:30008624 DDMQ1-0064_LMC_Kopia_Generall_pgm_for_bokforing_Endast_PL1-vers_781105_B
└─⟦this⟧ »ALTB1«
/*FÖRSTA RADEN*/
/*ALTB BYTER ORDNING I RECORD I SAMFIL: AVD,KO; BLIR:KO,AVD;
GENERELLT PGM. KLART: 781104 PROGR:TD */
DCL 1 SAM1(40),2 SKO1 FIXED(4),2 SAVD1 CHAR(3),
2 SAD1(12) FIXED(11,2),2 SAK1(12) FIXED(11,2);
DCL 1 XSAM1(40),2 XAVD1 CHAR(3),2 XKO1 FIXED(4),
2 XAD1(12) FIXED(11,2),2 XAK1(12) FIXED(11,2);
DCL 1 SAM2(7),2 SKO2 FIXED(4),2 SAVD2 CHAR(3),
2 SAD2(12) FIXED(11,2),2 SAK2(12) FIXED(11,2);
DCL 1 XSAM2(7),2 XAVD2 CHAR(3),2 XKO2 FIXED(4),
2 XAD2(12) FIXED(11,2),2 XAK2(12) FIXED(11,2);
DCL 1 SAM3,2 SKO3 FIXED(4),2 SAVD3 CHAR(3),
2 SAD3(12) FIXED(11,2),2 SAK3(12) FIXED(11,2);
DCL 1 XSAM3,2 XAVD3 CHAR(3),2 XKO3 FIXED(4),
2 XAD3(12) FIXED(11,2),2 XAK3(12) FIXED(11,2);
DCL SAMFIL FILE,RECNR BINARY;
SHIFT:PROC;
SAVD3=XAVD3;SKO3=XKO3;
DO J=1 TO 12;SAD3(J)=XAD3(J);SAK3(J)=XAK3(J);END;
RETURN;END;
OPEN SAMFIL;RECNR=0;
IN1:ON ENDFILE GO TO IN2;READ FILE(SAMFIL)INTO(XSAM1);RECNR=UNSPEC(SAMFIL);
DO I=1 TO 40;XSAM3=XSAM1(I);
CALL SHIFT;
SAM1(I)=SAM3;
END;
REWRITE FILE(SAMFIL)FROM(SAM1);
GO TO IN1;
IN2:UNSPEC(SAMFIL)=RECNR;
IN2B:ON ENDFILE GO TO IN3;READ FILE(SAMFIL)INTO(XSAM2);RECNR=UNSPEC(SAMFIL);
DO I=1 TO 7;XSAM3=XSAM2(I);
CALL SHIFT;
SAM2(I)=SAM3;
END;
REWRITE FILE(SAMFIL)FROM(SAM2);
GO TO IN2B;
IN3:UNSPEC(SAMFIL)=RECNR;
IN3B:ON ENDFILE GO TO UT;READ FILE(SAMFIL)INTO(XSAM3);
CALL SHIFT;
REWRITE FILE(SAMFIL)FROM(SAM3);
GO TO IN3B;
UT:END;