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

⟦c58246913⟧ Q1_Text, reclen=79

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

Derivation

└─⟦7bb65a061⟧ Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
    └─⟦this⟧ »KLIPP21« 
└─⟦aeb45b905⟧ Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
    └─⟦this⟧ »KLIPP21« 
└─⟦cfd478037⟧ Bits:30008627 DDMQ1-0066_MSAB_ref_ex_Bokf_system_NFK_diskett_2_2_781120_side0
    └─⟦this⟧ »KLIPP21« 
└─⟦d1c33ffd3⟧ Bits:30008583 DDMQ1-0017_Bokforingssystem_kallkod_Msab_790411
    └─⟦this⟧ »KLIPP21« 
└─⟦d4a65d31f⟧ Bits:30008722 DDMQ1-0163_MSAB_Bokf_pgm_i_PL1_781112_TD
    └─⟦this⟧ »KLIPP21« 
└─⟦f4c608b16⟧ Bits:30008624 DDMQ1-0064_LMC_Kopia_Generall_pgm_for_bokforing_Endast_PL1-vers_781105_B
    └─⟦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           GENERELLT PGM.                
KLART:781104   PROGR:TD*/                                                      
DCL 1 DUM,2 A CHAR(3),2 X CHAR(1),2 B CHAR(51);                                
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;