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

⟦af0c20d74⟧ Q1_Text, reclen=80

    Length: 560 (0x230)
    Types: Q1_Text, reclen=80
    Notes: q1file
    Names: »FILEA«

Derivation

└─⟦9feab8cf4⟧ Bits:30008633 DDMQ1-0072
    └─⟦this⟧ »FILEA«

Text

DCL SKIPER CHAR(4) INIT('SKIP');                                                
HELL:PUT FILE (D)LIST (SKIPER);GOTO HELL;END;                                   
DO I=1 TO 10;DO J=1 TO 10;DO K=1 TO 10;DO L=1 TO 10;                            
C=SUBSTR('7410852963',I,1) CAT SUBSTR('ABCDEFGHIJ',J,1);                        
C=C CAT SUBSTR('adsqewuoil',K,1) CAT SUBSTR('!@#$%┣1f┫&*()',L,1);                  
WRITE FILE(S1) FROM(C);                                                         
END;END;END;END;CLOSE S1;END;