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

⟦067b430eb⟧ Q1_Text, reclen=79

    Length: 790 (0x316)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »J«

Derivation

└─⟦9e403ec87⟧ Bits:30008765 50001610
    └─⟦this⟧ »J«

Text

                                                                               
DCL J BINARY,                                                                  
    I BINARY;                                                                  
LOOP:                                                                          
   GET SKIP LIST(I);                                                           
   GET SKIP LIST(J);                                                           
   CALL OUTPUT(I,J);                                                           
   GO TO LOOP;                                                                 
                                                                               
END;