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

⟦28bfa747e⟧ Q1_Text, reclen=79

    Length: 1501 (0x5dd)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »SAMÖVER«

Derivation

└─⟦2d3ae9df8⟧ Bits:30008654 DDMQ1-0094_Nya_bokforingssystemet_I_LMC_MSAB_COPY_Skriv_BOKRUT_780220_TD
    └─⟦this⟧ »SAMÖVER«

Text

/*FÖRSTA RADEN*/                                                               
/*                                                                             
KLART: XXXXXX   PROGR:TD */                                                    
DCL 1 SAM,2 SSTR,3 SKO FIXED(4),3 SAVD FIXED(2),3 SPROJ FIXED(4),              
3 SMNR FIXED(2),3 BUD CHAR(1),                                                 
2 SAD FIXED(11,2),2 SAK FIXED(11,2),2 HJKOD CHAR(1);                           
                                                                               
DCL 1 XSAM,2 XKO FIXED(4),2 XMNR FIXED(2),2 XBUD CHAR(1),2 XAVD FIXED(2),      
2 XPROJ FIXED(4),                                                              
2 XAD FIXED(11,2),2 XAK FIXED(11,2),2 XJKOD CHAR(1);                           
DCL SAMFIL FILE;OPEN SAMFIL;                                                   
ST:ON ENDFILE GO TO UT;                                                        
READ FILE(SAMFIL)INTO(XSAM);                                                   
SKO=XKO;SAVD=XAVD;SPROJ=XPROJ;SMNR=XMNR;BUD=XBUD;SAD=XAD;SAK=XAK;HJKOD=' ';    
PUT FILE(D)SKIP LIST(UNSPEC(SAMFIL));                                          
REWRITE FILE(SAMFIL)FROM(SAM);                                                 
GO TO ST;                                                                      
UT:END;