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

⟦ee8fa3108⟧ Q1_Text, reclen=79

    Length: 711 (0x2c7)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »FILEA«

Derivation

└─⟦6f667a457⟧ Bits:30008598 DDMQ1-0030_10_CHAR_INCH_PRINTER_RUNTIME_MODIFICATION_TEN_TENIO
    └─⟦this⟧ »FILEA«

Text

DCL CSL FILE;DCL PRNT FILE;DCL BUF CHAR(63);                                   
START:OPEN CSL;OPEN PRNT;                                                      
SWITCH=0;                                                                      
LOOP:READ FILE(CSL)INTO(BUF);PUT FILE(DISPLAY)SKIP LIST(UNSPEC(CSL));          
IF(SUBSTR(BUF,1,6)='PINT  ')THEN DO;SWITCH=1;END;                              
IF(SWITCH=1)THEN DO;WRITE FILE(PRNT)FROM(BUF);END;                             
IF(SUBSTR(BUF,1,7)¬='PRINTER')THEN GOTO LOOP;                                  
CLOSE PRNT;END;