Commodore vic-1540 User Manual page 66

160 GOTO104
170 OPENS,8,5,"80=INDEX,S M"
175 FORI=1TO664:PRINT#5,I$<I);CHR*<13);
180 PR I NT" WUUHMKHDM»l»ftUR IT! IHIII" I; I $ < I >
185 NEXT:CLOSES
196 G0T074
200 REM ***********************
201 REM * MflSTER FILE DELETE *
202 REM *********************+*
210 PR I NT" ZtiM ■ " •■
212 PRINT" MflSTER FILE DELETE"
214 PRINT" " PRINT
220 INPUT"iRECORD NO. = 031153", F
230 IFF=QTHEN260
'235 IFI*<F)O"1"THEN220
240 I * < F) =" /" ■ PR I NT" WKECORD NO." F;" DELETES"
250 GOTO220
260 OPENS,8,5,"SO:INDEX,£,1*1"
265 FOR I=1T0664: PR I NT#5,1 i- (I); CHR* < 13 >;
276 PR I NT" *!lS»M?I»W»*Si»lJH IT! IllSai" I; I $ < I)
275 NEXT:CLOSES
280 GOTG50
300 REM ***********************
301 REM * FILE SEflRCH *
302 REM ***********************
310 PRINT ".KM -";
312 PRINT" SEflRCH
314 PRINT" ": PRINT
320 INPUT"1RECORD NO. = SIIIB'SF
321 IFF=0THEN50
322 IFI$(F)O"1"THEN320
325 GOSUB5100
360 PRINT"NRME = ";FB*<1)
370 PRINT"flDDRESS = ";FB*<2>
330 PRINT"ZIP = ";FB$<3>
382 PRINT"TEL = ";FB$<4>
383 PP. I NT "COMMENT = ";FB$<5)
385 PR I NT" "
390 GOTO320
59