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

⟦48f2068b7⟧ Q1_Text, reclen=79

    Length: 1659 (0x67b)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »BOK«

Derivation

└─⟦755e43167⟧ Bits:30008640 DDMQ1-0079_MSAB_BALANS_KONV_KPLANB
    └─⟦this⟧ »BOK« 
└─⟦7d57c527f⟧ Bits:30008641 DDMQ1-0080_LMC_RESULTAT_for_MSAB
    └─⟦this⟧ »BOK« 
└─⟦ecd18d2d3⟧ Bits:30008638 DDMQ1-0077_KOPIA_KPLANB_BALANS_KONV
    └─⟦this⟧ »BOK«

Text

                                                                               
DCL 1 KPL,                                                                     
2 KONTO CHAR(4),                                                               
2 STK CHAR(1),                                                                 
2 BEN CHAR(34),                                                                
2 ACD(12) FIXED(10,2),                                                         
2 ACK(12) FIXED(10,2),                                                         
2 IB FIXED(11,2);                                                              
DO I=1 TO 12;ACD(I)=0;ACK(I)=0;END;  PUT SKIP(2);                              
DCL KPLAN FILE;OPEN KPLAN;CALL SEOF(KPLAN);                                    
START: PUT FILE(D) SKIP LIST('ANGE KONTONUMMER ');                             
GET SKIP LIST(KONTO);                                                          
IF KONTO='SLUT' THEN GO TO SLUT;                                               
PUT FILE(D) SKIP LIST('ANGE TEXT TILL KONTONUMRET           ');                
GET SKIP LIST(BEN);                                                            
PUT FILE(D) SKIP LIST('INGÅENDE BALANS '); GET SKIP LIST(IB);                  
PUT EDIT(KONTO)(A(8))(BEN)(A(36))(IB)(P'--------9V.99')SKIP(2);                
WRITE FILE(KPLAN) FROM(KPL);CLOSE KPLAN;OPEN KPLAN;CALL SEOF(KPLAN);           
GO TO START;                                                                   
SLUT:END;