2 ! MAINTAINS PROGRAM FILE!
5 ! PROGRAM NAME:"MTNPGM" - BY JAC
10 OPEN "DK1:GLFILE.PGM" AS FILE 1%
15 DIM #1%,P$(300%)=32%,P%(0%):P%=P%(0%)
20 PRINT "PROGRAM UPDATE PROGRAM":PRINT
25 PRINT "ENTER A 'D' TO DELETE A PROGRAM CODE OR"
30 PRINT "AN 'I' TO INSERT A NEW PROGRAM CODE."
35 INPUT "'D' OR 'I'";A$:IF A$="I" THEN 75
37 IF A$<>"D" THEN 35
40 INPUT "ENTER THE PROGRAM CODE";A%
45 FOR K%=1% TO P%
50 IF A%<>VAL(LEFT(P$(K%),4%)) THEN 65
52 IF K%=P% THEN 60
55 P$(J%)=P$(J%+1%) FOR J%=K% TO P%-1%
60 P%=P%-1%:GOTO 90
65 NEXT K%
70 PRINT "UNABLE TO FIND CODE - FAILURE TO DELETE.":GOTO 90
75 INPUT "ENTER THE PROGRAM CODE WITH LEADING ZEROS";L1$:IF LEN(L1$)<>4% THEN 75
80 INPUT "ENTER THE DESCRIPTION(28 CH OR LESS)     ";D$
81 IF LEN(D$)>28% THEN D$=LEFT(D$,28%) ELSE D$=D$+SPACE$(28%-LEN(D$))
82 PRINT "FILE ENTRY APPEARS AS:":PRINT L1$;"-";D$
83 INPUT "IS IT CORRECT? - Y OR N";A$:IF A$="N" THEN 75
84 IF A$<>"Y" THEN 83
85 P%=P%+1%:P$(P%)=L1$+D$
90 INPUT "MORE UPDATES? - Y OR N";A$:IF A$="Y" THEN 35
92 IF A$<>"N" THEN 90
95 P%=P%-1%:GOSUB 250
98 OPEN "LP:" FOR OUTPUT AS FILE 2%,MODE 66%
100 J%=1%:L%=0%:P%=P%+1%:GOSUB 205
105 FOR K%=1% TO P%
110 PRINT #2%,TAB(20%);LEFT(P$(K%),4%);TAB(35%);RIGHT(P$(K%),5%):PRINT #2%
115 L%=L%+2%:IF L%<52% THEN 125
120 J%=J%+1%:L%=0%:GOSUB 200
125 NEXT K%
130 PRINT #2%,TAB(15%);"NUMBER OF PROGRAM CODES",P%
135 P%(0%)=P%:CLOSE 1%,2%
140 STOP
200 PRINT #2%,CHR$(129%)
205 PRINT #2%,TAB(15%);"PROGRAM CODE LISTING";TAB(45%);DATE$(0%);TAB(60%);"PAGE ";J%
210 PRINT #2%:PRINT #2%,TAB(20%);"CODE";TAB(35%);"D E S C R I P T I O N":PRINT #2%
215 RETURN
250 FOR K%=1% TO P%
255 B%=VAL(LEFT(P$(K%+1%),4%)):IF VAL(LEFT(P$(K%),4%))<=B% THEN 290
260 T$=P$(K%+1%):P$(K%+1%)=P$(K%)
265 FOR J%=K% TO 2% STEP -1%
270 IF VAL(LEFT(P$(J%-1%),4%))<=B% THEN P$(J%)=T$:GOTO 290
275 P$(J%)=P$(J%-1%)
280 NEXT J%
285 P$(1%)=T$
290 NEXT K%
295 RETURN
300 END