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

⟦75d81f34f⟧ Q1_Text, reclen=79

    Length: 1027 (0x403)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »FILEA«

Derivation

└─⟦5ffc76ae2⟧ Bits:30008736 DDMQ1-0178_TELEFON_TIPS_BARKABY
    └─⟦this⟧ »FILEA« 
└─⟦e0722960d⟧ Bits:30008733 DDMQ1-0175
    └─⟦this⟧ »FILEA«

Text

START:                                                                         
GET SKIP LIST(X);                                                              
GET SKIP LIST(Y);                                                              
GET SKIP LIST(Z);                                                              
PUT SKIP LIST(X,Y,Z);                                                          
A=X+Y+Z;                                                                       
PUT SKIP LIST(A);                                                              
PUT SKIP LIST(X/A,Y/A,Z/A);                                                    
PUT SKIP LIST(16*X/A,16*Y/A,16*Z/A);                                           
                                                                               
GO TO START;                                                                   
END;