2 ! MAINTAINS "PAYROL.DED"
5 ! PROGRAM NAME:"MTNDED" - BY JAC
10 OPEN "DK1:PAYROL.DED" AS FILE 1%
15 DIM #1%,D$(30%)=32%,D%(0%):N%=D%(0%)
20 OPEN "LP:" FOR OUTPUT AS FILE 2%, MODE 66%
25 PRINT "ENTER 'D' TO DELETE OR 'I' TO INSERT A DEDUCTION."
28 INPUT "'I' OR 'D'";A$
30 IF A$="D" THEN 105
32 IF A$<>"I" THEN 28
35 PRINT "ENTER"
40 INPUT "   DEDUCTION CODE-2 CH WITH LZ";C1$
45 INPUT "   DESCRIPTION(22 CH OR LESS) ";D1$
50 IF LEN(D1$)>22% THEN D1$=LEFT(D1$,22%) ELSE D1$=D1$+SPACE$(22%-LEN(D1$))
55 INPUT "   FUND CODE-2 CH WITH LZ     ";F$
65 INPUT "   BUDGET CODE(6 CH WITH LZ)  ";B$
75 PRINT
80 PRINT "THE NEW FILE ENTRY WILL APPEAR AS FOLLOWS:"
85 T$=C1$+"-"+D1$+"-"+F$+"-"+B$:PRINT T$
90 PRINT:INPUT "IS IT CORRECT? - Y OR N";T$
95 IF T$="N" THEN 35
98 IF T$<>"Y" THEN 90
100 N%=N%+1%:D$(N%)=C1$+D1$+F$+B$:GOTO 140
105 INPUT "ENTER DEDUCTION CODE WITH LZ  ";C1$
110 FOR K%=1% TO N%
115 IF LEFT(D$(K%),2%)<>C1$ THEN 125
116 IF K%=N% THEN 122
120 D$(J%)=D$(J%+1%) FOR J%=K% TO N%-1%
122 N%=N%-1%:GOTO 140
125 NEXT K%
140 INPUT "ARE THERE MORE UPDATES? - Y OR N";T$
145 IF T$="Y" THEN 28
148 IF T$<>"N" THEN 140
155 PRINT #2%,CHR$(129%):PRINT #2%,TAB(20%);"DEDUCTION FILE";TAB(45%);DATE$(0%)
160 PRINT #2%:PRINT #2%,TAB(27%);"DEDUCTION"
170 PRINT #2%,"   D E C R I P T I O N       CODE";TAB(46%);"EXPENSE CODE":PRINT #2%
175 GOSUB 300
180 FOR K%=1% TO N%
185 T$=D$(K%):C1$=LEFT(T$,2%):D1$=MID(T$,3%,22%)
190 F$=MID(T$,25%,2%):B$=RIGHT(T$,27%)
195 C$="000-"+F$+"-0-0000-"+LEFT(B$,4%)+"."+RIGHT(B$,5%)
200 PRINT #2%,"   ";D1$;TAB(30%);C1$;TAB(42%);C$
205 NEXT K%
210 PRINT #2%:PRINT #2%,"   NUMBER OF DEDUCTIONS",N%
215 PRINT #2%,CHR$(129%):D%(0%)=N%:CLOSE 1%,2%
220 STOP
300 FOR K%=1% TO N%-1%
305 B$=LEFT(D$(K%+1%),2%):IF LEFT(D$(K%),2%)<=B$ THEN 340
310 T$=D$(K%+1%):D$(K%+1%)=D$(K%)
315 FOR J%=K% TO 2% STEP -1%
320 IF LEFT(D$(J%-1%),2%)<=B$ THEN D$(J%)=T$:GOTO 340
325 D$(J%)=D$(J%-1%)
330 NEXT J%
335 D$(1%)=T$
340 NEXT K%
345 RETURN
350 END