Commodore 2031 - Page 94

2170 FOR II=1 TO RR:IF K$(II)<>RR$ THEN NEXT:GOTO 2300
2175 CR=RR%(II):GOSUB 300
2180 FOR I=1 TO NF:PRINT I;”)”FH$(I)”:”,F$(I):NEXT:PRINT
2190 INPUT “ANY MODS N”;A$:IF LEFT$(A$,1)<>”Y” THEN 2220
2195 INPUT “WHICH FIELD”;A
2200 PRINT “ “F$(A):PRINT “”;:INPUT F$(A)=VAL(F$(A))
2210 FF=1:GOTO 2190
2220 IF FF=0 THEN 2160
2222 IF A=1 THEN K1$(II)=F$(A)
2225 GOSUB 200
2230 GOTO 2160
2300 PRINT “RECORD NOT PRESENT”
2305 INPUT “DO YOU WISH TO ADD”;A$:IF LEFT$(A$,1)<>”Y” THEN 2160
2310 PRINT “**** ADD RECORD ****”
2312 IF FR>NR THEN 2500
2315 CR=FR:FR=FR+1:RR=RR+1
2320 FOR I=1 TO NF:PRINT FH$(I);:INPUT F$(I):F(I)=VAL(F$(I)):NEXT
2330 GOSUB 200
2340 K1$(RR)=F$(1):RR%(RR)=CR
2350 GOTO 2160
2400 REM CLOSE RANDOM FILE
2405 GOSUB 1400
2410 OPEN 4,8,4,”@”+STR$(DD)+”:”+LEFT$(F$+SP$,10)+”.KEY01,U,W”
2420 GOSUB 1000:IF E THEN 3900
2430 PRINT#4,RR;M$
2440 FOR I=1 TO RR:PRINT#4,K1$(I);M$;RR%(I);M$;:NEXT
2445 GOSUB 1000:IF E THEN 3900
2450 CLOSE 4
2455 GOSUB 1000:IF E THEN 3900
2490 END
2500 PRINT “THE FILE IS FULL, NO ADDITIONAL RECORDS MAY BE ADDED”
2510 GOTO 2160
3900 PRINT E,EM$:STOP
4000 FOR DI=0 TO NR:PRINT K1$(DI):NEXT:RETURN
90