Mini Data Base

Gallery

Source Code

   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
1000 REM %D%A%T%A% %E%N%T%R%Y
1010 CLS 
1020 PRINT 
1030 PRINT "SUBJECT?"
1035 SLOW 
1040 INPUT B$
1045 PRINT ,,B$
1050 IF B$="" THEN GOTO 100
1060 LET A$=A$+B$+CHR$ 67
1070 PRINT ,,"ITEM NO. 1?"
1080 INPUT B$
1085 PRINT ,,B$
1090 LET A$=A$+B$+CHR$ 68
1100 PRINT ,,"ITEM NO. 2?"
1110 INPUT B$
1115 PRINT ,,B$
1120 LET A$=A$+B$+CHR$ 69
1130 PRINT ,,"ITEM NO. 3?"
1140 INPUT B$
1145 PRINT ,,B$
1150 LET A$=A$+B$+CHR$ 70
1400 PRINT ,,"LAST ITEM?"
1410 INPUT B$
1415 PRINT ,,B$
1416 PAUSE 100
1420 LET A$=A$+B$+CHR$ 111
1430 GOTO 1000
2000 REM %D%E%L%E%T%E% %D%A%T%A% %B%L%O%C%K
2010 PRINT AT 10,0;"ENTER KEYWORD OF DATA TO BE     DELETED :::"
2020 SLOW 
2030 INPUT C$
2040 FAST 
2050 FOR N=1 TO LEN A$-LEN C$+1
2060 IF A$(N TO N+LEN C$-1)=C$ THEN GOTO 2200
2070 NEXT N
2080 CLS 
2090 PRINT AT 10,0;"DATA NOT IN FILE :::"
2100 PAUSE 500
2120 GOTO 100
2200 FOR A=N TO 1 STEP -1
2210 IF CODE A$(A)=111 THEN GOTO 2230
2220 NEXT A
2230 FOR B=N TO LEN A$
2240 IF CODE A$(B)=111 THEN GOTO 2260
2250 NEXT B
2260 CLS 
2270 PRINT ,,A$(A+1 TO B-1)
2280 PRINT ,,"IS THIS THE DATA BLOCK YOU WANT DELETED?"
2290 PAUSE 40000
2300 IF INKEY$="N" THEN GOTO 2070
2310 LET A$=A$(  TO A)+A$(B+1 TO LEN A$)
2320 GOTO 100
3000 REM %E%D%I%T% %D%A%T%A\: 
3010 PRINT ,,"ENTER KEYWORD?"
3020 SLOW 
3030 INPUT C$
3040 FAST 
3050 FOR N=1 TO LEN A$-LEN C$+1
3060 IF A$(N TO N+LEN C$-1)=C$ THEN GOTO 3100
3070 NEXT N
3080 GOTO 2080
3100 FOR A=N TO 1 STEP -1
3120 IF CODE A$(A)=111 THEN GOTO 3140
3130 NEXT A
3140 FOR B=N TO LEN A$
3150 IF CODE A$(B)=111 THEN GOTO 3170
3160 NEXT B
3170 LET D$=A$(A+1 TO B-1)
3175 GOTO 3800
3180 FOR I=1 TO LEN D$
3190 IF CODE D$(I)=67 THEN GOTO 3210
3200 NEXT I
3210 CLS 
3220 PRINT ,,"SUBJECT IS ";D$( TO I-1)
3230 PRINT ,,"ENTER NEW SUBJECT OR PRESS ENTERFOR NO CHANGE?"
3240 SLOW 
3250 INPUT E$
3260 IF E$="" THEN LET E$=D$( TO I-1)
3265 LET D$=E$+D$(I TO LEN D$)
3270 FAST 
3275 LET F$=E$+CHR$ 67
3280 CLS 
3290 LET C=I+1
3300 FOR I=C TO LEN D$
3310 IF CODE D$(I)=68 THEN GOTO 3330
3320 NEXT I
3330 PRINT ,,"ITEM 1 IS ";D$(C TO I-1)
3340 PRINT ,,"ENTER NEW ITEM OR PRESS ENTER   FOR NO CHANGE?"
3350 SLOW 
3360 INPUT E$
3370 IF E$="" THEN LET E$=D$(C TO I-1)
3380 LET F$=F$+E$+CHR$ 68
3390 FAST 
3400 CLS 
3410 LET C=I+1
3420 FOR I=C TO LEN D$
3430 IF CODE D$(I)=69 THEN GOTO 3450
3440 NEXT I
3450 PRINT ,,"ITEM 2 IS ";D$(C TO I-1)
3460 PRINT ,,"ENTER NEW ITEM OR PRESS ENTER   FOR NO CHANGE?"
3465 SLOW 
3470 INPUT E$
3480 IF E$="" THEN LET E$=D$(C TO I-1)
3490 LET F$=F$+E$+CHR$ 69
3500 FAST 
3510 CLS 
3520 LET C=I+1
3530 FOR I=C TO LEN D$
3540 IF CODE D$(I)=70 THEN GOTO 3560
3550 NEXT I
3560 PRINT ,,"ITEM 3 IS ";D$(C TO I-1)
3575 SLOW 
3580 INPUT E$
3590 IF E$="" THEN LET E$=D$(C TO I-1)
3600 LET F$=F$+E$+CHR$ 70
3610 FAST 
3620 CLS 
3630 LET C=I+1
3640 PRINT ,,"LAST ITEM IS ";D$(C TO LEN D$)
3650 PRINT ,,"ENTER NEW ITEM OR PRESS ENTER   FOR NO CHANGE?"
3655 SLOW 
3660 INPUT E$
3670 IF E$="" THEN LET E$=D$(C TO LEN D$)
3680 LET F$=F$+E$
3690 FAST 
3700 CLS 
3710 LET A$=A$( TO A)+F$+A$(B TO LEN A$)
3720 GOTO 100
3800 CLS 
3810 PRINT ,,D$
3820 PRINT ,,,,"IS THIS THE CORRECT DATA BLOCK?"
3830 PAUSE 40000
3840 IF INKEY$="Y" THEN GOTO 3180
3850 GOTO 3070
4000 REM %K%E%Y%W%O%R%D% %S%E%A%R%C%H% 
4010 CLS 
4020 PRINT AT 10,0;"ENTER KEYWORD OR PHRASE?"
4030 SLOW 
4040 INPUT C$
4050 FAST 
4060 CLS 
4070 FOR N=1 TO LEN A$-LEN C$+1
4080 IF A$(N TO N+LEN C$-1)=C$ THEN GOTO 4200
4090 NEXT N
4100 PRINT AT 10,0;"NOT IN FILE :::"
4120 PAUSE 500
4130 GOTO 100
4200 LET NN=N
4205 FOR A=N TO 1 STEP -1
4210 IF A$(A)=CHR$ 111 THEN GOTO 4230
4220 NEXT A
4230 FOR B=N TO LEN A$
4240 IF A$(B)=CHR$ 111 THEN GOTO 4300
4250 NEXT B
4300 LET D$=A$(A TO B)
4310 FOR N=1 TO LEN D$
4320 IF CODE D$(N)=67 THEN GOTO 4340
4330 NEXT N
4340 GOSUB 4800
4350 FOR N=1 TO LEN D$
4360 IF CODE D$(N)=63 THEN GOTO 4380
4370 NEXT N
4380 GOSUB 4800
4390 FOR N=1 TO LEN D$
4400 IF CODE D$(N)=69 THEN GOTO 4420
4410 NEXT N
4420 GOSUB 4800
4430 FOR N=1 TO LEN D$
4440 IF CODE D$(N)=70 THEN GOTO 4460
4450 NEXT N
4460 GOSUB 4800
4700 PRINT D$(2 TO LEN D$)
4705 PAUSE 40000
4710 IF INKEY$="Z" THEN COPY 
4720 CLS 
4730 FOR N=NN+1 TO LEN A$-LEN C$+1
4740 GOTO 100
4799 STOP 
4800 PRINT D$(2 TO N-1)
4810 PRINT 
4820 LET D$=D$(N TO LEN D$)
4830 RETURN 
5000 REM % %S%A%V%E% %D%A%T%A% %O%N% %C%A%S%S%E%T%T%E% 
5010 PRINT ,,"ENTER FILE NAME, PREPARE","RECORDER AND PRESS ENTER:::"
5020 SLOW 
5030 INPUT Z$
5040 SAVE Z$
5050 GOTO 100
5060 CLEAR 
5070 SAVE "1025%3"
5080 RUN