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

⟦76acb7db7⟧ Q1_Text, reclen=79

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

Derivation

└─⟦94d9f3bc1⟧ Bits:30008571 DDMQ1-0006_Div_konverteringspgm_LMC
    └─⟦this⟧ »Ö1«

Text

DCL INFIL FILE,UTFIL FILE,TRY BINARY,S CHAR(255);                              
CALL KFILE(INFIL);CALL KFILE(UTFIL);                                           
OPEN INFIL;OPEN UTFIL;TRY=0;                                                   
ST:ON ERROR GOTO FEL;ON ENDFILE GOTO SLUT;                                     
READ FILE(INFIL)INTO(S);                                                       
WRITE FILE(UTFIL)FROM(S);                                                      
GOTO ST;                                                                       
FEL:TRY=TRY+1;IF TRY<5 THEN DO;                                                
UNSPEC(INFIL)=UNSPEC(INFIL)-1;                                                 
END;                                                                           
PUT SKIP LIST('LÄSFEL TYP',ONCODE,'  I INFILEN');                              
IF TRY>4 THEN TRY=0;                                                           
GOTO ST;                                                                       
SLUT:CLOSE UTFIL;                                                              
END;