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

⟦f89c7a796⟧ Q1_Text, reclen=79

    Length: 1185 (0x4a1)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »HS2«

Derivation

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

Text

IGEN: PUT FILE (DISPLAY) SKIP LIST ('ANGE Z1  ');                              
DCL Z1 CHAR (4);                                                               
DCL ZN1 CHAR (6);                                                              
GET SKIP LIST (Z1);                                                            
IF (Z1='SLUT') THEN GO TO UT;                                                  
PUT SKIP LIST ('Z1= ',Z1);                                                     
IF (Z1>1) THEN PUT SKIP LIST ('Z1 ÄR FÖR STOR');                               
IF (Z1>1) THEN GO TO IGEN;                                                     
IF (Z1='0.00') THEN ZN1=0.5000;                                                
IF (Z1='0.01') THEN ZN1=0.5040;                                                
IF (Z1='0.02') THEN ZN1=0.5080;                                                
PUT SKIP LIST (ZN1);                                                           
GO TO IGEN;                                                                    
UT: END;