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

⟦822b5e580⟧ Q1_Text, reclen=79

    Length: 1501 (0x5dd)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »RESTOREA«

Derivation

└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
    └─⟦this⟧ »RESTOREA«

Text

/* RESTORE INVOICING DEMONSTRATION FILE PROGRAM */                             
DCL CLENTMA  FILE, STOCKFL FILE;                                               
DCL 1 CLENTMAS_REC,2 CACCT CHAR(6),2 NAME(4) CHAR(30),2 BALANCE FLOAT(8);      
DCL 1 STOCK,2 STOCKNO CHAR(6),2 DES CHAR(30),2 UNIT CHAR(6),                   
       2 M_UNITPRICE(4) FLOAT (5), 2 ON_HAND FLOAT(5);                         
DCL   Y CHAR (3);                                                              
ASK:  PUT FILE(DISPLAY) SKIP LIST ('RESTORE WHICH FILE A)CLENT B)STOCK: ');    
    CALL OUTPUT(1,2);  GET SKIP LIST (Y); IF INDEX(Y,'A')=1 THEN GOTO RECL;    
    IF INDEX(Y,'B')=1 THEN GOTO REST; IF INDEX(Y,'END')=1 THEN GOTO ZZZ;       
   GOTO ASK;                                                                   
RECL: OPEN CLENTMA;                                                            
READM:  ON ENDFILE GOTO ASK;READ FILE(CLENTMA) INTO(CLENTMAS_REC);             
    IF BALANCE=6000 THEN GOTO READM;                                           
    BALANCE=6000;  REWRITE FILE(CLENTMA) FROM (CLENTMAS_REC); GOTO READM;      
REST:  OPEN STOCKFL;                                                           
READT: ON ENDFILE GOTO ASK; READ FILE(STOCKFL) INTO (STOCK);                   
     IF ON_HAND=9000 THEN GOTO READT;                                          
    ON_HAND=9000; REWRITE FILE(STOCKFL) FROM (STOCK);  GOTO READT;             
ZZZ: END;