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

⟦400987312⟧ Q1_Text, reclen=79

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

Derivation

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

Text

/*FÖRSTA RADEN*/                                                               
/*KLIPP2  KLIPPER AV NYKTOTX DÄR BUDGETAR BÖRJAR,SAMT DÖPER OM FILERNA         
KÖRS AUTOM. EFTER ATT "NYÅR" HAR KÖRTS                                         
KLART:780709   PROGR:TD*/                                                      
DCL 1 DUM,2 A CHAR(3),2 X CHAR(1),2 B CHAR(50);                                
DCL NYKTOTX FILE,INF CHAR(128);                                                
OPEN NYKTOTX;                                                                  
CALL SEOF(NYKTOTX);                                                            
IF UNSPEC(NYKTOTX)=0 THEN GOTO UT;                                             
UNSPEC(NYKTOTX)=0;                                                             
ON ERROR GOTO UT;                                                              
READ KEY('B')FILE(NYKTOTX)INTO(DUM)KEYTO(X);                                   
UNSPEC(NYKTOTX)=UNSPEC(NYKTOTX)-1;                                             
CLOSE NYKTOTX;                                                                 
INF='DISK R KTOTX FDKTOTX DISK R NYKTOTX KTOTX SORT KTOTX SAMSORT';            
CALL LOAD(INF,70);                                                             
GOTO SLUT;                                                                     
UT:                                                                            
SLUT:END;