|
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: 2212 (0x8a4)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »X3«
└─⟦94d9f3bc1⟧ Bits:30008571 DDMQ1-0006_Div_konverteringspgm_LMC
└─⟦this⟧ »X3«
DCL SAMFIL FILE,RECNR BINARY;OPEN SAMFIL;
RECNR=0;
IN1:ON ENDFILE GO TO IN2;READ FILE(SAMFIL)INTO(SAM1);RECNR=UNSPEC(SAMFIL);
DO I=1 TO 40;SAM3=SAM1(I);
XAVD3=SAVD3;XKO3=SKO3;XPROJ3=SPROJ3;
DO J=1 TO 12;XAD3(J)=SAD3(J);XAK3(J)=SAK3(J);END;
XSAM1(I)=XSAM3;
END;
REWRITE FILE(SAMFIL)FROM(XSAM1);
GO TO IN1;
IN2:UNSPEC(SAMFIL)=RECNR;
IN2B:ON ENDFILE GO TO IN3;READ FILE(SAMFIL)INTO(SAM2);RECNR=UNSPEC(SAMFIL);
DO I=1 TO 7;SAM3=SAM2(I);
XAVD3=SAVD3;XKO3=SKO3;XPROJ3=SPROJ3;
DO J=1 TO 12;XAD3(J)=SAD3(J);XAK3(J)=SAK3(J);END;
XSAM2(I)=XSAM3;
END;
REWRITE FILE(SAMFIL)FROM(XSAM2);
GO TO IN2B;
IN3:UNSPEC(SAMFIL)=RECNR;
IN3B:ON ENDFILE GO TO UT;READ FILE(SAMFIL)INTO(SAM3);
XAVD3=SAVD3;XKO3=SKO3;XPROJ3=SPROJ3;
DO J=1 TO 12;XAD3(J)=SAD3(J);XAK3(J)=SAK3(J);END;
REWRITE FILE(SAMFIL)FROM(XSAM3);
GO TO IN3B;
UT:END;