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

⟦75b277d06⟧ Q1_Text, reclen=79

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

Derivation

└─⟦ff53f924a⟧ Bits:30008653 DDMQ1-0093_Nya_bokforingssystemet_II_original
    └─⟦this⟧ »KLIPP1«

Text

/*FÖRSTA RADEN*/                                                               
/*KLIPP KLIPPER AV SAMFIL DÄR KONTON MED NR 9999 BÖRJAR. KÖRS EFTER            
ATT PRSLUT (AVSLUTNING AV VISSA PROJEKT) KÖRTS.  KLART: 780531   PROGR:TD */   
DCL 1 SAM,2 SSTR,3 SKO FIXED(4),3 SAVD FIXED(2),3 SPROJ FIXED(4),              
2 SAD(12) FIXED(11,2),2 SAK(12) FIXED(11,2);                                   
DCL SAMFIL FILE;                                                               
OPEN SAMFIL;                                                                   
CALL SEOF(SAMFIL);                                                             
IF UNSPEC(SAMFIL)=0 THEN GO TO UT;                                             
UNSPEC(SAMFIL)=0;                                                              
SKO=9999;                                                                      
ON ERROR GO TO UT;READ KEY(SKO)FILE(SAMFIL)INTO(SAM);                          
UNSPEC(SAMFIL)=UNSPEC(SAMFIL)-1;                                               
IF UNSPEC(SAMFIL)<0 THEN UNSPEC(SAMFIL)=0;                                     
CLOSE SAMFIL;                                                                  
UT:END;