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

⟦bf10fd4a4⟧ Q1_Text, reclen=79

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

Derivation

└─⟦651a288b5⟧ Bits:30008768 50001583
    └─⟦this⟧ »FILSKRI1«

Text

/* FILSKRIV ÄR LIST PROGRAM SOM LISTART ROT- & SEGMENT-FILERNA PRG JÅ */       
                                                                               
DCL 1 STR,                                                                     
      2 NSEG BINARY,                                                           
      2 FILA CHAR(10),                                                         
      2 ID CHAR(10),                                                           
      2 DATA CHAR(47);                                                         
                                                                               
DCL FIL FILE;                                                                  
                                                                               
PUT FILE(D) SKIP EDIT('FIL SOM SKA SKRIVAS UT')(A(39));                        
CALL KFILE(FIL);                                                               
OPEN FIL;                                                                      
LOOP:ON ENDFILE GO TO SLUT;                                                    
READ FILE(FIL) INTO(STR);                                                      
PUT SKIP EDIT(UNSPEC(FIL))(P'----9',X(6))                                      
(NSEG)(P'----9',X(5))(FILA)(A(15))(ID)(A(15))(DATA)(A);                        
GO TO LOOP;                                                                    
                                                                               
SLUT:END;