2 ! MAINTAINS "GLFILE.FND"
5 ! PROGRAM NAME:"MTNFND" - BY JAC
10 OPEN "DK1:GLFILE.FND" AS FILE 1%
15 DIM #1%,F$(20%)=32%,F%(0%)
20 PRINT "ENTER 'D' TO DELETE OR 'I' TO INSERT A FUND"
25 INPUT "I OR D";A$:IF A$="D" THEN 125
26 IF A$<>"I" THEN 25
30 PRINT "ENTER:"
35 INPUT "  FUND CODE WITH LZ          ";F1$:IF LEN(F1$)<>2% THEN 35
45 PRINT "  FUND DESCRIPTION"
50 INPUT "     MUST BE 30 CHAR. OR LESS";D$
55 IF LEN(D$)>30% THEN D$=LEFT(D$,30%) ELSE D$=D$+SPACE$(30%-LEN(D$))
60 PRINT:PRINT "THE NEW FILE ENTRY APPEARS AS FOLLOWS:"
70 T$=F1$+"-"+D$:PRINT:PRINT T$:PRINT
75 INPUT "IS IT CORRECT? - Y OR N";T$:IF T$="N" THEN 30
80 IF T$<>"Y" THEN 75
85 F%(0%)=F%(0%)+1%:F$(F%(0%))=F1$+D$
90 FOR K%=1% TO F%(0%)-1%
95 A%=VAL(LEFT(F$(K%),2%)):B%=VAL(LEFT(F$(K%+1%),2%))
100 IF A%<=B% THEN 111
105 T$=F$(K%+1%):F$(K%+1%)=F$(K%)
106 FOR J%=K% TO 2% STEP -1%
107 IF VAL(LEFT(F$(J%-1%),2%))<=B% THEN F$(J%)=T$:GOTO 111
108 F$(J%)=F$(J%-1%)
109 NEXT J%
110 F$(1%)=T$
111 NEXT K%
120 GOTO 155
125 INPUT "ENTER FUND CODE               ";F1%
130 FOR K%=1% TO F%(0%)
135 IF VAL(LEFT(F$(K%),2%))<>F1% THEN 150
138 IF K%=F%(0%) THEN 145
140 F$(J%)=F$(J%+1%) FOR J%=K% TO F%(0%)-1%
145 F%(0%)=F%(0%)-1%:GOTO 155
150 NEXT K%
152 PRINT "UNABLE TO FIND CODE - FAILURE TO DELETE."
155 INPUT "ARE THERE MORE UPDATES? - Y OR N";T$
160 IF T$="Y" THEN 25
162 IF T$<>"N" THEN 155
165 OPEN "LP:" FOR OUTPUT AS FILE 2%
170 PRINT #2%,TAB(18%);"MASTER FUND FILE";TAB(45%);DATE$(0%):PRINT #2%
175 PRINT #2%,TAB(16%);"FUND CODE";TAB(35%);"FUND DESCRIPTION":PRINT #2%
180 FOR K%=1% TO F%(0%)
185 F1$=LEFT(F$(K%),2%):D$=RIGHT(F$(K%),3%)
190 PRINT #2%,TAB(20%);F1$;TAB(35%);D$:PRINT #2%
195 NEXT K%
200 PRINT #2%:PRINT #2%,TAB(20%);"NUMBER OF FUNDS",F%(0%)
205 PRINT #2%,CHR$(12%):CLOSE 1%,2%
210 END