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

⟦612ad0142⟧ Q1_Text, reclen=79

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

Derivation

└─⟦23915e280⟧ Bits:30008593 DDMQ1-0026
    └─⟦this⟧ »FILEB« 
└─⟦5ffc76ae2⟧ Bits:30008736 DDMQ1-0178_TELEFON_TIPS_BARKABY
    └─⟦this⟧ »ETIKFRAS« 
└─⟦c226ca115⟧ Bits:30008601 DDMQ1-0035_Programmers_Disk_77-08-23
    └─⟦this⟧ »ETIKFRAS« 
└─⟦e0722960d⟧ Bits:30008733 DDMQ1-0175
    └─⟦this⟧ »ETIKFRAS«

Text

A=0;                                                                           
ST: A=A+1;                                                                     
PUT SKIP (4);                                                                  
DO I = 1 TO 4;                                                                 
PUT EDIT ('NÄSTA BYTE AV BLÄCKPATRON')(A(36));                                 
END;                                                                           
PUT SKIP (2);                                                                  
DO I = 1 TO 4;                                                                 
PUT EDIT ('VECKA....................')(A(36));                                 
END;                                                                           
IF (A=50) THEN GO TO SLUT;                                                     
GO TO ST;                                                                      
SLUT: END;