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

⟦76fd6cb3f⟧ Q1_Text, reclen=79

    Length: 790 (0x316)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »LN«

Derivation

└─⟦3dd001c96⟧ Bits:30008706 DDMQ1-0146_PROGRAMMERS_DISK_TILLHÖR_HS
    └─⟦this⟧ »LN«

Text

DCL A CHAR (4);                                                                
DCL B CHAR (4);                                                                
IGEN: PUT FILE(D) EDIT ('ANGE VÄRDET  ')(A(37));                               
GET SKIP LIST (A);                                                             
IF A='SLUT' THEN GO TO UT;                                                     
B= LN(A);                                                                      
PUT FILE (DISPLAY) SKIP LIST (B);                                              
GO TO IGEN;                                                                    
UT: END;