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

⟦d0a625fe8⟧ Q1_Text, reclen=79

    Length: 1264 (0x4f0)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »OFBRBER«

Derivation

└─⟦651a288b5⟧ Bits:30008768 50001583
    └─⟦this⟧ »OFBRBER«

Text

DCL DAGANT BINARY,                                                             
    GRADDAG BINARY,                                                            
    AARFBR FIXED(4,1),                                                         
    SVAR CHAR(1);                                                              
LOOP:PUT FILE(D) SKIP EDIT('ÅRSFBR  :')(A(42));                                
    GET SKIP LIST(AARFBR);                                                     
    PUT FILE(D) EDIT(AARFBR)(P'--ZV,9')('DAGANT  :')(A(44));                   
    GET SKIP LIST(DAGANT);                                                     
    PUT FILE(D) EDIT(DAGANT)(P'--Z')('GRADDAG :')(A(43));                      
    GET SKIP LIST(GRADDAG);                                                    
    PUT FILE(D) EDIT(GRADDAG)(P'---Z')('WFBR    :')(A(34))                     
    ((0.2*DAGANT/365+0.8*GRADDAG/4140)*AARFBR)                                 
    (P'------ZV,99999');                                                       
    GET SKIP LIST(SVAR);                                                       
    GO TO LOOP;                                                                
    END;