2 ! MAINTAINS BUDGET CODE FILE.
5 ! PROGRAM NAME:"MTNBDT" - BY JAC
10 OPEN "DK1:GLFILE.BDT" AS FILE 1%:DIM #1%,B$(600%)=32%,B%(0%)
15 PRINT "BUDGET CODE UPDATE PROGRAM":PRINT:B%=B%(0%)
20 PRINT "ENTER A 'D' TO DELETE A BUDGET CODE OR AN 'I' TO"
30 PRINT "INSERT A NEW BUDGET CODE."
35 INPUT "'D' OR 'I'";A$:IF A$="I" THEN 75
40 IF A$<>"D" THEN 35
45 INPUT "ENTER THE BUDGET CODE AS 6 DIGITS WITH NO DECIMAL";A
50 GOTO 60 IF A=VAL(LEFT(B$(K%),6%)) FOR K%=1% UNTIL K%>B%
55 IF K%>B% THEN PRINT "UNABLE TO FIND CODE - FAILURE TO DELETE.":GOTO 110
60 B%=B%-1%:IF K%=B% THEN 110
65 B$(J%)=B$(J%+1%) FOR J%=K% TO B%
70 GOTO 110
75 INPUT "ENTER CODE AS 6 DIGIT WITH LEADING ZERO BUT NO DECIMAL";B$
80 IF LEN(B$)<>6% THEN 75
85 INPUT "ENTER THE DESCRIPTION(21 CH OR LESS)";D$
90 IF LEN(D$)>21% THEN D$=LEFT(D$,21%) ELSE D$=D$+SPACE$(21%-LEN(D$))
95 PRINT "FILE ENTRY APPEARS AS:":PRINT B$;"-";D$
100 INPUT "IS IT CORRECT? - Y OR N";A$:IF A$="N" THEN 75
105 IF A$<>"Y" THEN 100 ELSE B%=B%+1%:B$(B%)=B$+D$
110 INPUT "MORE UPDATES? - Y OR N";A$:IF A$="Y" THEN 35
115 IF A$<>"N" THEN 110
120 DIM J(600%),I%(600%)
125 OPEN "DK1:GLFILE.BD1" AS FILE 2%:DIM #2%,B1$(600%)=32%
130 J(K%)=VAL(LEFT(B$(K%),6%)) FOR K%=1% TO B%
135 I%(K%)=K% FOR K%=1% TO B%
140 FOR K%=1% TO B%-1%:IF J(K%)<=J(K%+1%) THEN 165
145 T=J(K%+1%):J(K%+1%)=J(K%):T1%=I%(K%+1%):I%(K%+1%)=I%(K%)
150 FOR J%=K% TO 2% STEP -1%
155 IF J(J%-1%)<=T THEN J(J%)=T:I%(J%)=T1%:GOTO 165
160 J(J%)=J(J%-1%):I%(J%)=I%(J%-1%):NEXT J%:J(1%)=T:I%(1%)=T1%
165 NEXT K%
170 B1$(K%)=B$(I%(K%)) FOR K%=1% TO B%
175 B$(K%)=B1$(K%) FOR K%=1% TO B%
180 CLOSE 2%:KILL "DK1:GLFILE.BD1":J%=0%
185 OPEN "LP:" FOR OUTPUT AS FILE 2%,MODE 66%:GOSUB 250
190 FOR K%=1% TO B%
195 PRINT #2%,TAB(15%);LEFT(B$(K%),4%);".";MID(B$(K%),5%,2%);TAB(30%);
200 PRINT #2%,MID(B$(K%),7%,21%):PRINT #2%:L%=L%+2%
205 IF L%>=52% THEN GOSUB 250
210 NEXT K%
215 PRINT #2%,TAB(15%);"NUMBER OF BUDGET CODES",B%:B%(0%)=B%
220 PRINT #2%,CHR$(129%):CLOSE 1%,2%:STOP
250 PRINT #2%,CHR$(129%):PRINT #2%,TAB(10%);"BUDGET CODE LISTING";:J%=J%+1%
255 PRINT #2%,TAB(35%);DATE$(0%);TAB(55%);"PAGE ";J%:PRINT #2%
258 PRINT #2%,TAB(16%);"BUDGET"
260 PRINT #2%,TAB(17%);"CODE";TAB(30%);"D E S C R I P T I O N":PRINT #2%
265 L%=0%:RETURN
270 END