|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3160 (0xc58)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »PAYROL_S«
└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
└─⟦this⟧ »PAYROL_S«
/* JURY-RIGGED PAYROLL Governing Program - 03/05/78 */
DCL ANS CHAR(1);
/* ---- Custom Alloy PAYROLL - Version : 1.1 ---- */
BEG: PUT FILE(D) SKIP EDIT('Do You Want')(A(17))('1)TAX File Routines')
(A(47))('2)EMPLOYEE File Routines')(A(47))
('3)DEDUCTION File Routines')(A(47))
('4)DEPARTMNT File Routines')(A(47))
('5)PAYROLL ')(A(47))('6)CHECK RECONCILIATION')(A(49))
('ENTER CHOICE : ')(A);
RE: GET SKIP LIST(ANS);
IF (ANS = 'E') THEN GOTO EOP;
IF (ANS = '1') THEN GOTO CALL1;
IF (ANS = '2') THEN GOTO CALL2;
IF (ANS = '3') THEN GOTO CALL3;
IF (ANS = '4') THEN GOTO CALL4;
IF (ANS = '5') THEN GOTO CALL5;
IF (ANS = '6') THEN GOTO CALL6;
GOTO RE;
CALL1: CALL TYPIST('TAXPGM┣0d┫',7);
GOTO EOP;
CALL2: CALL TYPIST('EMPPGM_A┣0d┫',9);
GOTO EOP;
CALL3: CALL TYPIST('DDNPGM┣0d┫',7);
GOTO EOP;
CALL4: CALL TYPIST('DPTPGM┣0d┫',7);
GOTO EOP;
CALL5: CALL TYPIST('PAYPGM_A┣0d┫',9);
GOTO EOP;
CALL6: CALL TYPIST('CHKREC┣0d┫',7);
GOTO EOP;
EOP: END;