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

⟦8585f8e13⟧ Q1_Text, reclen=79

    Length: 869 (0x365)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »HSR«

Derivation

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

Text

DCL Z1 CHAR (4);                                                               
DCL ZN1 CHAR (6);                                                              
IGEN: PUT FILE (DISPLAY) SKIP LIST ('       Z1 ?    ');                        
GET SKIP LIST (Z1);                                                            
IF (Z1='SLUT') THEN GO TO UT;                                                  
IF (Z1='0.01') THEN PUT SKIP LIST (Z1);                                        
IF (Z1='0.02') THEN ZN1=0.5080;                                                
IF (Z1='0.03') THEN ZN1=0.5120;                                                
PUT SKIP LIST (ZN1);                                                           
GO TO IGEN;                                                                    
UT: END;