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

⟦1c577996f⟧ Q1_Text, reclen=79

    Length: 2291 (0x8f3)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »KTOTXR_S«

Derivation

└─⟦cd9c00c3f⟧ Bits:30008718 DDMQ1-0159_KTOTXREN
    └─⟦this⟧ »KTOTXR_S«

Text

/* KTOTXREN RENSAR EN KONTOTEXTFIL FRÅN BUDGET REC & NOLLSTÄLLER IB            
PRG JÅ 800103 */                                                               
                                                                               
DCL 1 FIL1_STR,                                                                
      2 KTOTX  FILE,                                                           
    1 FIL2_STR,                                                                
      2 K FILE,                                                                
    1 STR,                                                                     
      2 TKO FIXED(4),                                                          
      2 TYP CHAR(1),                                                           
      2 DIV CHAR(38),                                                          
      2 IB FIXED(13),                                                          
    VERSION CHAR(37) INIT('KTOTXREN Version 1.1           800103');            
                                                                               
        OPEN KTOTX;                                                            
        FIL2_STR=FIL1_STR;                                                     
        PUT FILE(D) SKIP EDIT(VERSION)(A(74));                                 
                                                                               
LOOP:   ON ENDFILE GO TO EXIT;                                                 
        READ FILE(KTOTX) INTO(STR);                                            
        IF TYP='A' THEN DO;                                                    
           IB=0;                                                               
           WRITE FILE(K) FROM(STR);                                            
        END;                                                                   
        GO TO LOOP;                                                            
                                                                               
EXIT:   CLOSE K;                                                               
                                                                               
END;