1 ! PRINT SALARY PAYMENT SCHEDULE
2 ! PROGRAM NAME: SALARY  BY CWR
10 DATA 16,"3 YEAR",40,"B.A.",64,"B.A. + 9",88,"B.A. + 18"
11 DATA 16,"B.A. + 27",40,"M.A.",64,"M.A. + 9",88,"M.A. + 18"
12 F$="BASE  12 MON  190 D"
13 F1$="##### ####.## ###.##"
20 READ P%(I%),G1$(I%) FOR I%=1% TO 8%
30 OPEN "SALARY.FIL" AS FILE 1%:DIM #1%,A(8%,16%)
40 OPEN "LP:" AS FILE 2%,MODE(194%)
100 INPUT "PRINT,INPUT"A$
110 IF A$="PRINT" THEN 300 ELSE IF A$<>"INPUT" THEN 9999
120 INPUT "SALARY GROUP ";G$
130 FOR I%=1% TO 8%
140 IF G$=G1$(I%) THEN 160
150 NEXT I%:GOTO 100
160 PRINT G1$(I%);:INPUT " STARTING WITH (1-16)",J%
170 FOR K%=J% TO 16%
180 PRINT USING "### - ####",K%,A(I%,K%);:INPUT " ",I$
185 IF LEN(I$)=0% THEN 200
190 IF I$="END" THEN 120
195 A(I%,K%)=VAL(I$)
200 NEXT K%:GOTO 120
300 A%=1% : GOSUB 9300 : GOSUB 9000
310 A%=5% : GOSUB 9300 : GOSUB 9000
320 PRINT #2%,CHR$(128%):GOTO 100
9000 FOR I%=1% TO 16%
9010 A=A(A%,I%):PRINT #2%,TAB(Q%);:IF A=0 THEN PRINT #2%,USING "###  -  "+F1$,I%;:GOTO 9030
9020 PRINT #2%,USING "###  -  "+F1$,I%,A,A/12%-.005,A/190%-.005;
9030 FOR J%=A%+1% TO A%+3%
9040 A=A(J%,I%):PRINT #2%,TAB(Q%-12%+P%(J%));
9045 IF A=0 THEN 9060
9050 PRINT #2%,USING "  * "+F1$,A,A/12%-.005,A/190%-.005;
9060 NEXT J%
9065 PRINT #2%:NEXT I%
9080 RETURN
9300 PRINT #2% FOR I%=1% TO 6%
9310 PRINT #2%,TAB(Q%+P%(I%));G1$(I%); FOR I%=A% TO A%+3%
9320 PRINT #2%:PRINT #2%:PRINT #2%,TAB(Q%);"SER/YR";
9330 PRINT #2%,TAB(Q%-7%+P%(I%));F$;FOR I%=A% TO A%+3%
9340 PRINT #2%:PRINT #2%:RETURN
9999 PRINT "END OF RUN":CLOSE 1%,2%
10000 END