Mini Data Base

   5 REM "DBAS%E"
  10 LET A$=CHR$ 111
 100 FAST 
 110 CLS 
 120 PRINT AT 1,10;"MINI DATA BASE"
 130 PRINT AT 4,0;"TO ENTER DATA";TAB 30;1
 140 PRINT AT 6,0;"TO DELETE DATA";TAB 30;2
 150 PRINT AT 8,0;"TO EDIT DATA";TAB 30;3
 160 PRINT AT 10,0;"TO SEARCH FOR DATA";TAB 30;4
 170 PRINT AT  12,0;"TO SAVE DATA ON TAPE";TAB 30;5
 200 SLOW 
 210 PRINT AT 21,6;" ENTER ONE OF ABOVE";AT 21,6;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% "
 220 LET Y$=INKEY$
 230 IF CODE Y$<29 OR CODE Y$>34 THEN GOTO 210
 240 FAST 
 250 CLS 
 260 GOTO VAL Y$*1000
\n1000 REM %D%A%T%A% %E%N%T%R%Y
\n1010 CLS 
\n1020 PRINT 
\n1030 PRINT "SUBJECT?"
\n1035 SLOW 
\n1040 INPUT B$
\n1045 PRINT ,,B$
\n1050 IF B$="" THEN GOTO 100
\n1060 LET A$=A$+B$+CHR$ 67
\n1070 PRINT ,,"ITEM NO. 1?"
\n1080 INPUT B$
\n1085 PRINT ,,B$
\n1090 LET A$=A$+B$+CHR$ 68
\n1100 PRINT ,,"ITEM NO. 2?"
\n1110 INPUT B$
\n1115 PRINT ,,B$
\n1120 LET A$=A$+B$+CHR$ 69
\n1130 PRINT ,,"ITEM NO. 3?"
\n1140 INPUT B$
\n1145 PRINT ,,B$
\n1150 LET A$=A$+B$+CHR$ 70
\n1400 PRINT ,,"LAST ITEM?"
\n1410 INPUT B$
\n1415 PRINT ,,B$
\n1416 PAUSE 100
\n1420 LET A$=A$+B$+CHR$ 111
\n1430 GOTO 1000
\n2000 REM %D%E%L%E%T%E% %D%A%T%A% %B%L%O%C%K
\n2010 PRINT AT 10,0;"ENTER KEYWORD OF DATA TO BE     DELETED :::"
\n2020 SLOW 
\n2030 INPUT C$
\n2040 FAST 
\n2050 FOR N=1 TO LEN A$-LEN C$+1
\n2060 IF A$(N TO N+LEN C$-1)=C$ THEN GOTO 2200
\n2070 NEXT N
\n2080 CLS 
\n2090 PRINT AT 10,0;"DATA NOT IN FILE :::"
\n2100 PAUSE 500
\n2120 GOTO 100
\n2200 FOR A=N TO 1 STEP -1
\n2210 IF CODE A$(A)=111 THEN GOTO 2230
\n2220 NEXT A
\n2230 FOR B=N TO LEN A$
\n2240 IF CODE A$(B)=111 THEN GOTO 2260
\n2250 NEXT B
\n2260 CLS 
\n2270 PRINT ,,A$(A+1 TO B-1)
\n2280 PRINT ,,"IS THIS THE DATA BLOCK YOU WANT DELETED?"
\n2290 PAUSE 40000
\n2300 IF INKEY$="N" THEN GOTO 2070
\n2310 LET A$=A$(  TO A)+A$(B+1 TO LEN A$)
\n2320 GOTO 100
\n3000 REM %E%D%I%T% %D%A%T%A\: 
\n3010 PRINT ,,"ENTER KEYWORD?"
\n3020 SLOW 
\n3030 INPUT C$
\n3040 FAST 
\n3050 FOR N=1 TO LEN A$-LEN C$+1
\n3060 IF A$(N TO N+LEN C$-1)=C$ THEN GOTO 3100
\n3070 NEXT N
\n3080 GOTO 2080
\n3100 FOR A=N TO 1 STEP -1
\n3120 IF CODE A$(A)=111 THEN GOTO 3140
\n3130 NEXT A
\n3140 FOR B=N TO LEN A$
\n3150 IF CODE A$(B)=111 THEN GOTO 3170
\n3160 NEXT B
\n3170 LET D$=A$(A+1 TO B-1)
\n3175 GOTO 3800
\n3180 FOR I=1 TO LEN D$
\n3190 IF CODE D$(I)=67 THEN GOTO 3210
\n3200 NEXT I
\n3210 CLS 
\n3220 PRINT ,,"SUBJECT IS ";D$( TO I-1)
\n3230 PRINT ,,"ENTER NEW SUBJECT OR PRESS ENTERFOR NO CHANGE?"
\n3240 SLOW 
\n3250 INPUT E$
\n3260 IF E$="" THEN LET E$=D$( TO I-1)
\n3265 LET D$=E$+D$(I TO LEN D$)
\n3270 FAST 
\n3275 LET F$=E$+CHR$ 67
\n3280 CLS 
\n3290 LET C=I+1
\n3300 FOR I=C TO LEN D$
\n3310 IF CODE D$(I)=68 THEN GOTO 3330
\n3320 NEXT I
\n3330 PRINT ,,"ITEM 1 IS ";D$(C TO I-1)
\n3340 PRINT ,,"ENTER NEW ITEM OR PRESS ENTER   FOR NO CHANGE?"
\n3350 SLOW 
\n3360 INPUT E$
\n3370 IF E$="" THEN LET E$=D$(C TO I-1)
\n3380 LET F$=F$+E$+CHR$ 68
\n3390 FAST 
\n3400 CLS 
\n3410 LET C=I+1
\n3420 FOR I=C TO LEN D$
\n3430 IF CODE D$(I)=69 THEN GOTO 3450
\n3440 NEXT I
\n3450 PRINT ,,"ITEM 2 IS ";D$(C TO I-1)
\n3460 PRINT ,,"ENTER NEW ITEM OR PRESS ENTER   FOR NO CHANGE?"
\n3465 SLOW 
\n3470 INPUT E$
\n3480 IF E$="" THEN LET E$=D$(C TO I-1)
\n3490 LET F$=F$+E$+CHR$ 69
\n3500 FAST 
\n3510 CLS 
\n3520 LET C=I+1
\n3530 FOR I=C TO LEN D$
\n3540 IF CODE D$(I)=70 THEN GOTO 3560
\n3550 NEXT I
\n3560 PRINT ,,"ITEM 3 IS ";D$(C TO I-1)
\n3575 SLOW 
\n3580 INPUT E$
\n3590 IF E$="" THEN LET E$=D$(C TO I-1)
\n3600 LET F$=F$+E$+CHR$ 70
\n3610 FAST 
\n3620 CLS 
\n3630 LET C=I+1
\n3640 PRINT ,,"LAST ITEM IS ";D$(C TO LEN D$)
\n3650 PRINT ,,"ENTER NEW ITEM OR PRESS ENTER   FOR NO CHANGE?"
\n3655 SLOW 
\n3660 INPUT E$
\n3670 IF E$="" THEN LET E$=D$(C TO LEN D$)
\n3680 LET F$=F$+E$
\n3690 FAST 
\n3700 CLS 
\n3710 LET A$=A$( TO A)+F$+A$(B TO LEN A$)
\n3720 GOTO 100
\n3800 CLS 
\n3810 PRINT ,,D$
\n3820 PRINT ,,,,"IS THIS THE CORRECT DATA BLOCK?"
\n3830 PAUSE 40000
\n3840 IF INKEY$="Y" THEN GOTO 3180
\n3850 GOTO 3070
\n4000 REM %K%E%Y%W%O%R%D% %S%E%A%R%C%H% 
\n4010 CLS 
\n4020 PRINT AT 10,0;"ENTER KEYWORD OR PHRASE?"
\n4030 SLOW 
\n4040 INPUT C$
\n4050 FAST 
\n4060 CLS 
\n4070 FOR N=1 TO LEN A$-LEN C$+1
\n4080 IF A$(N TO N+LEN C$-1)=C$ THEN GOTO 4200
\n4090 NEXT N
\n4100 PRINT AT 10,0;"NOT IN FILE :::"
\n4120 PAUSE 500
\n4130 GOTO 100
\n4200 LET NN=N
\n4205 FOR A=N TO 1 STEP -1
\n4210 IF A$(A)=CHR$ 111 THEN GOTO 4230
\n4220 NEXT A
\n4230 FOR B=N TO LEN A$
\n4240 IF A$(B)=CHR$ 111 THEN GOTO 4300
\n4250 NEXT B
\n4300 LET D$=A$(A TO B)
\n4310 FOR N=1 TO LEN D$
\n4320 IF CODE D$(N)=67 THEN GOTO 4340
\n4330 NEXT N
\n4340 GOSUB 4800
\n4350 FOR N=1 TO LEN D$
\n4360 IF CODE D$(N)=63 THEN GOTO 4380
\n4370 NEXT N
\n4380 GOSUB 4800
\n4390 FOR N=1 TO LEN D$
\n4400 IF CODE D$(N)=69 THEN GOTO 4420
\n4410 NEXT N
\n4420 GOSUB 4800
\n4430 FOR N=1 TO LEN D$
\n4440 IF CODE D$(N)=70 THEN GOTO 4460
\n4450 NEXT N
\n4460 GOSUB 4800
\n4700 PRINT D$(2 TO LEN D$)
\n4705 PAUSE 40000
\n4710 IF INKEY$="Z" THEN COPY 
\n4720 CLS 
\n4730 FOR N=NN+1 TO LEN A$-LEN C$+1
\n4740 GOTO 100
\n4799 STOP 
\n4800 PRINT D$(2 TO N-1)
\n4810 PRINT 
\n4820 LET D$=D$(N TO LEN D$)
\n4830 RETURN 
\n5000 REM % %S%A%V%E% %D%A%T%A% %O%N% %C%A%S%S%E%T%T%E% 
\n5010 PRINT ,,"ENTER FILE NAME, PREPARE","RECORDER AND PRESS ENTER:::"
\n5020 SLOW 
\n5030 INPUT Z$
\n5040 SAVE Z$
\n5050 GOTO 100
\n5060 CLEAR 
\n5070 SAVE "1025%3"
\n5080 RUN