DataMuseum.dk

Presents historical artifacts from the history of:

Q1 computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Q1 computer

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦322f54ca6⟧ Q1_Text, reclen=79

    Length: 1106 (0x452)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »SAMUT1«

Derivation

└─⟦327e6707a⟧ Bits:30008675 DDMQ1-0115_Nya_bokf_systemet_II_LMC_MSAB_JAB_FEB_MAR_APR
    └─⟦this⟧ »SAMUT1« 

Text

/*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;