|
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: 1106 (0x452) Types: Q1_Text, reclen=79 Notes: q1file Names: »SAMUT1«
└─⟦327e6707a⟧ Bits:30008675 DDMQ1-0115_Nya_bokf_systemet_II_LMC_MSAB_JAB_FEB_MAR_APR └─⟦this⟧ »SAMUT1«
/*FÖRSTA RADEN*/ /*SAMUT DUMPAR SAMFIL KLART: XXXXXX PROGR:TD */ DCL 1 SAM,2 SKO FIXED(4),2 SAVD FIXED(2),2 SPROJ FIXED(4), 2 SMNR FIXED(2),2 BUD CHAR(1), 2 SAD FIXED(11,2),2 SAK FIXED(11,2),2 HJKOD CHAR(1); DCL SAMFIL FILE; OPEN SAMFIL; ST:ON ENDFILE GO TO UT; READ FILE(SAMFIL)INTO(SAM); PUT SKIP EDIT(SKO)(P'ZZZZ9 ')(SAVD)(P'Z9 ')(SPROJ)(P'ZZZ9 ')(SMNR) (P'Z9 ')(BUD)(A(3))(SAD)(P'----------9V.99')(SAK)(P'------------9V.99',X(2)) (HJKOD)(A);GO TO ST; UT:END;