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

⟦3fabb9ed1⟧ Q1_Text, reclen=79

    Length: 948 (0x3b4)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »FIL2«

Derivation

└─⟦22252c168⟧ Bits:30008711 DDMQ1-0151_Programmers_Disk_Copy
    └─⟦this⟧ »FIL2« 
└─⟦23915e280⟧ Bits:30008593 DDMQ1-0026
    └─⟦this⟧ »FIL2« 
└─⟦3dd001c96⟧ Bits:30008706 DDMQ1-0146_PROGRAMMERS_DISK_TILLHÖR_HS
    └─⟦this⟧ »FIL2«

Text

IGEN: GET SKIP LIST (D1);                                                      
PUT SKIP LIST (D1);                                                            
IF (D1=10) THEN GO TO SLUT;                                                    
PUT FILE (DISPLAY) LIST (D1);                                                  
D2=D1+2;                                                                       
IF (D2<10) THEN GO TO HIT;                                                     
PUT FILE (DISPLAY) LIST (D2);                                                  
GO TO IGEN;                                                                    
HIT: PUT FILE (DISPLAY) LIST ('BRAVO' ,D2);                                    
GO TO IGEN;                                                                    
SLUT: END;