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

⟦6502f4f0a⟧ Q1_Text, reclen=79

    Length: 1580 (0x62c)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »SKRIV«

Derivation

└─⟦bcdd51fb7⟧ Bits:30008685 DDMQ1-0125_Denna_diskette
    └─⟦this⟧ »SKRIV«

Text

DCL 1 VER,                                                                     
    2 KOSTST CHAR(4)INIT('    '),                                              
    2 VENR  CHAR(6),                                                           
    2 DATUM  CHAR(6)                                                           
     2 DEBET CHAR(4) INITIAL('    '),                                          
    2 KREDIT CHAR(4) INITIAL('    '),                                          
    2 BELOPP FIXED(11,2),                                                      
    2 VTEXT CHAR(20),                                                          
    2 KOD CHAR(2)INITIAL('  ');                                                
DCL VERIFILE FILE;  DCL VERFIL FILE;                                           
OPEN VERIFILE;  OPEN VERFIL;                                                   
START:   ON ENDFILE GO TO SLUT;                                                
PUT FILE(DISP) SKIP; ON ERROR GO TO BAD;                                       
READ FILE(VERIFILE) INTO(VER);                                                 
WRITE FILE(VERFIL) FROM(VER);                                                  
GO TO START;                                                                   
BAD: IF(ONCODE = 2) THEN GO TO START;                                          
SLUT:     CLOSE VERFIL;                                                        
                                    END;