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

⟦534f3e5fb⟧ Q1_Text, reclen=79

    Length: 474 (0x1da)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »TEST«

Derivation

└─⟦da7d9b920⟧ Bits:30008616 DDMQ1-0057_Daliga_spar_35_44
    └─⟦this⟧ »TEST«

Text

DCL A CHAR(1);                                                                 
DCL AA CHAR(1);                                                                
GET LIST(A,B);GET LIST(AA,C);                                                  
IF(A = ' ') THEN PUT LIST('DET GICK ');                                        
PUT SKIP LIST(A,B,AA,C); END;