10 ! PRE-PAYROLL COMPUTATION PROGRAM FOR SUPPLEMENTARY PAYROLL! 11 ! PROGRAM NAME:"PRCSB" - BY CWR 15 OPEN "DK1:PAYROL.TPS" AS FILE 1% 20 OPEN "DK1:PAYROL.TCF" AS FILE 6% !TIME CARDS 25 DIM #6%,T$(500%)=64%,T%(0%) 30 OPEN "DK1:PAYROL.PLF" AS FILE 7% ! PRELIST 35 DIM #7%,L$(200%)=64%,L%(0%) 40 OPEN "DK1:PAYROL.PAF" AS FILE 8% !ADJUSTMENTS 45 DIM #8%,A$(100%)=64%,A%(0%) 50 T%=T%(0%):L%=L%(0%):A%=A%(0%) 60 T1%=1%:L1%=1%:A1%=1% 70 PRINT #1%,T%+L%+A% 100 GOSUB 1000:GOSUB 1100:GOSUB 1200 110 IF E1%<=E2% AND E1%<=E3% AND E1%<>9999% THEN PRINT #1%,"2,"+T$(T1%):T1%=T1%+1%:GOSUB 1000:GOTO 110 120 IF E2%<=E1% AND E2%<=E3% AND E2%<>9999% THEN PRINT #1%,"3,"+L$(L1%):L1%=L1%+1%:GOSUB 1100:GOTO 110 130 IF E3%<=E1% AND E3%<=E2% AND E3%<>9999% THEN PRINT #1%,"4,"+A$(A1%):A1%=A1%+1%:GOSUB 1200:GOTO 110 140 IF E1%=9999% AND E2%=E1% AND E3%=E1% THEN 6000 ELSE 110 1000 IF T1%>T% THEN E1%=9999%:GOTO 1020 1010 E1%=VAL(MID(T$(T1%),25%,4%)) 1020 RETURN 1100 IF L1%>L% THEN E2%=9999%:GOTO 1120 1110 E2%=VAL(MID(L$(L1%),16%,4%)) 1120 RETURN 1200 IF A1%>A% THEN E3%=9999%:GOTO 1220 1210 E3%=VAL(MID(A$(A1%),16%,4%)) 1220 RETURN 6000 PRINT "# OF TIME CARDS = ";T% 6010 PRINT "# FO PRELIST ITEMS = ";L% 6020 PRINT "# OF ADJUSTMENTS = ";A% 6040 PRINT #1%,CHR$(26%) 6050 CLOSE 1%,6%,7%,8% 6060 END