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

⟦d7e95e7bb⟧ Q1_Text, reclen=79

    Length: 948 (0x3b4)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »C_INIT_S«

Derivation

└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
    └─⟦this⟧ »C_INIT_S«

Text

/* This Program Initializes Control File To -1- December 28th, 1977 */         
                                                                               
DCL CONTROL FILE;                                                              
DCL 1 CONTROL_REC,                                                             
      2 CHECK_NO        FIXED(5) INIT(1),                                      
      2 CHECK_DATE      CHAR(6) INIT('000000'),                                
      2 CHECK_FILLER    CHAR(31) INIT(' ');                                    
                                                                               
    OPEN CONTROL;                                                              
    WRITE FILE(CONTROL) FROM(CONTROL_REC);                                     
    CLOSE CONTROL;                                                             
    END;