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

⟦1f9667fe8⟧ Q1_Text, reclen=79

    Length: 1106 (0x452)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »TP1«

Derivation

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

Text

/* MILION TESTPROGRAM 780713 */                                                
                                                                               
DCL CH CHAR(7);                                                                
                                                                               
   PUT FILE(D) SKIP EDIT('RÄKNAREN HAR NU VÄRDET')(A(40));                     
                                                                               
   DO I=1 TO 1000;                                                             
      CH=I;                                                                    
      CALL LOAD(CH,7);                                                         
      DO J=1 TO 25;END;                                                        
      GET SKIP LIST(CH);                                                       
   END;                                                                        
                                                                               
END;