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

⟦f23b652b7⟧ Q1_Text, reclen=79

    Length: 1817 (0x719)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »ETIKINB«

Derivation

└─⟦9fc91e1bc⟧ Bits:30008738 DDMQ1-0180_TEXT_ORD_JOBBET_PLUGGET
    └─⟦this⟧ »ETIKINB«

Text

A=0;                                                                           
B=0;                                                                           
ST: A=A+1;                                                                     
PUT SKIP (3);                                                                  
DO I = 1 TO 4;                                                                 
PUT EDIT ('UTVECKLINGS AB SERVISEN')(A(36));                                   
END;                                                                           
PUT SKIP (1);                                                                  
DO I = 1 TO 4;                                                                 
PUT EDIT ('INGEMARSGATAN 2')(A(36));                                           
END;                                                                           
PUT SKIP (1);                                                                  
DO I = 1 TO 4;                                                                 
PUT EDIT ('113 54 STOCKHOLM')(A(36));                                          
END;                                                                           
PUT SKIP (1);                                                                  
DO I = 1 TO 4;                                                                 
PUT EDIT ('MONTER NR 81')(A(36));                                              
END;                                                                           
IF (A=50) THEN GO TO SLUT;                                                     
GO TO ST;                                                                      
SLUT: END;