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

⟦3aa282715⟧ Q1_Text, reclen=79

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

Derivation

└─⟦ff53f924a⟧ Bits:30008653 DDMQ1-0093_Nya_bokforingssystemet_II_original
    └─⟦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 SAD(12) FIXED(11,2),2 SAK(12) FIXED(11,2);                                   
DCL SAMFIL FILE;                                                               
OPEN SAMFIL;                                                                   
ST:ON ENDFILE GO TO UT;                                                        
READ FILE(SAMFIL)INTO(SAM);                                                    
PUT SKIP EDIT(SKO)(A(6))(SAVD)(A(4))(SPROJ)(A(4));                             
DO I=1 TO 8;PUT EDIT(SAD(I))(P'---------9V.99');END;                           
PUT SKIP EDIT(' ')(A(14));DO I=1 TO 8;PUT EDIT(SAK(I))(P'---------9V.99');END; 
PUT SKIP EDIT('')(A(14));DO I=9 TO 12;PUT EDIT(SAD(I))(P'---------9V.99');END; 
PUT SKIP EDIT('')(A(14));DO I=9 TO 12;PUT EDIT(SAK(I))(P'---------9V.99');END; 
PUT SKIP;GO TO ST;                                                             
UT:END;