2 ! MAINTAINS PAYROLL FUND FILE 5 ! PROGRAM NAME: "MPRFD" - BY JAC 10 OPEN "DK1:PAYROL.FND" AS FILE 1% 15 DIM #1%,F$(20%)=32%,F%(0%) 18 OPEN "LP:" FOR OUTPUT AS FILE 2%, MODE 66% 20 PRINT "ENTER 'D' TO DELETE OR 'I' TO INSERT A FUND." 22 INPUT "I OR D";A$ 25 IF A$="D" THEN 125 28 IF A$<>"I" THEN 22 30 PRINT "ENTER:" 35 INPUT " FUND CODE-2 CH WITH LZ ";F1$ 45 INPUT " DESCRIPTION(30 CH OR LESS) ";D$ 50 IF LEN(D$)>30% THEN D$=LEFT(D$,30%) ELSE D$=D$+SPACE$(30%-LEN(D$)) 60 PRINT 65 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$ 80 IF T$="N" THEN 30 82 IF T$<>"Y" THEN 75 85 F%(0%)=F%(0%)+1%:F$(F%(0%))=F1$+D$: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 137 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% 155 INPUT "ARE THERE MORE UPDATES? - Y OR N";T$ 160 IF T$="Y" THEN 22 162 IF T$<>"N" THEN 155 170 GOSUB 250:PRINT #2%,CHR$(129%):PRINT #2%,TAB(15%);"MASTER FUND FILE":PRINT #2% 175 PRINT #2%," FUND CODE";TAB(20%);"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(6%);F1$;TAB(20%);D$ 195 NEXT K% 200 PRINT #2%:PRINT #2%," NUMBER OF FUNDS",F%(0%) 205 PRINT #2%,CHR$(129%):CLOSE 1%,2% 210 STOP 250 FOR K%=1% TO F%(0%)-1% 255 B%=VAL(LEFT(F$(K%+1%),2%)):IF VAL(LEFT(F$(K%),2%))<=B% THEN 290 260 T$=F$(K%+1%):F$(K%+1%)=F$(K%) 265 FOR J%=K% TO 2% STEP -1% 270 IF VAL(LEFT(F$(J%-1%),2%))<=B% THEN F$(J%)=T$:GOTO 290 275 F$(J%)=F$(J%-1%) 280 NEXT J% 285 F$(1%)=T$ 290 NEXT K% 291 RETURN 295 END