A computerized filing system for your videotape library.
Appears on
Capital Area Timex Sinclair User Group’s Library Tape.
Gallery
Source Code
10 DIM A$(100,32) 11 LET R1=0 19 GO SUB 9700 20 BORDER 1: PAPER 6: INK 0 22 LET K$="--------------------------------" 25 CLS 40 GO SUB 9600 70 PAPER 6: INK 0: PRINT AT 2,7;" VIDEO TAPE FILE " 80 PRINT AT 5,1;"TO\::ENTER\::PROGRAMS";TAB 26;"-\::1" 90 PRINT AT 7,1;"TO\::SEE\::PROGRAMS";TAB 26;"-\::2" 100 PRINT AT 9,1;"TO\::SAVE\::DATA\::ON\::TAPE";TAB 26;"-\::3" 110 PRINT AT 11,1;"TO\::CLEAR\::ALL\::DATA ";AT 11,26;"-\::4" 120 PRINT AT 13,1;"TO\::PRINT\::DATA\::";TAB 26;"-\::5" 130 PRINT AT 15,1;"TO\::SORT\::DATA\::";TAB 26;"-\::6" 140 PRINT AT 18,1;"IF PROGRAM STOPS-ENTER GOTO 20" 150 INK 0: PRINT AT 21,1;"DO NOT ENTER 'RUN'!!!!!!!!!!!!" 180 INPUT "ENTER ONE OF ABOVE ";B 250 CLS 260 GO TO 1000*B 1000 FOR N=R1+1 TO 100 1010 PRINT AT 1,8;"FILE NUMBER ";N 1020 PRINT AT 5,5;" WHAT IS THE TITLE?" 1025 PRINT AT 6,5;"(20 CHARACTERS MAX)" 1030 PRINT 1040 PRINT AT 10,1;"TITLE: "; 1055 1060 INPUT B$ 1065 PRINT B$ 1070 IF B$="" THEN GO TO 1500 1080 LET A$(N, TO 20)=B$ 1110 1120 PRINT AT 5,5;"WHAT'S THE PROGRAM SUBJECT?" 1126 PRINT AT 6,5;"( 7 CHARACTERS MAX)" 1130 PRINT AT 12,1;"SUBJECT: "; 1135 1140 INPUT B$ 1142 PRINT B$ 1145 IF LEN B$>7 THEN GO TO 1135 1150 LET A$(N,22 TO 28)=B$ 1260 PRINT AT 5,5;"WHAT IS THE TAPE NUMBER? " 1270 PRINT AT 6,5;"( 3 CHARACTERS MAX.)" 1275 PRINT AT 14,1;"TAPE NO.: "; 1280 INPUT B$ 1285 PRINT B$ 1290 IF LEN B$>3 THEN GO TO 1275 1320 LET A$(N,30 TO 32)=B$ 1340 GO SUB 9000 1351 1355 1365 1390 NEXT N 1510 CLS 1520 LET R1=N-1 1530 1540 GO TO 20 1999 STOP 2000 2010 CLS 2030 FOR N=1 TO 42 2035 BEEP .02,.005*N 2040 PRINT "\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::"; 2050 NEXT N 2060 PRINT AT 2,8;" PROGRAM DATA " 2070 PRINT AT 5,1;"TO\::SEE\::ALL\::PROGRAM\::DATA";TAB 28;"-\::1" 2080 PRINT AT 7,1;"TO\::CHANGE\::PROGRAM\::NAME";TAB 28;"-\::2" 2090 PRINT AT 9,1;"TO\::SEE\::ITEM\::DATA";TAB 28;"-\::3" 2100 PRINT AT 11,1;"TO\::EDIT\::DATA\::ITEMS";TAB 28;"-\::4" 2180 INPUT "ENTER ONE OF ABOVE :::";B 2190 2230 2250 CLS 2260 GO TO B*200+2100 2300 2310 FOR N=1 TO R1 2320 2340 2350 LET X$=" VIDEO TITLE SUBJECT NO." 2360 IF N<=1 THEN PRINT X$ 2365 PRINT K$ 2370 2380 PRINT A$(N) 2382 2384 2386 2388 NEXT N 2390 GO SUB 9000 2395 GO TO 20 2500 PRINT AT 10,0;" WHAT IS THE PROGRAM NAME?" 2505 2510 INPUT B$ 2515 2520 FOR N=1 TO R1 2525 2530 IF A$(N, TO LEN B$)=B$ THEN GO TO 2560 2540 NEXT N 2542 CLS 2546 PRINT "PROGRAM NAME NOT IN FILE :::" 2548 GO SUB 9000 2550 GO TO 20 2660 2662 CLS 2666 PRINT " VIDEO TITLE SUBJECT NO." 2668 2670 PRINT K$ 2672 2674 PRINT A$(N) 2678 PRINT AT 20,0;"IS THIS THE PROGRAM YOU ARE LOOKING FOR? Y/N" 2679 2680 INPUT Y$ 2682 2683 IF Y$(1)="N" THEN GO TO 2540 2684 2685 2686 PRINT "WHAT IS THE NEW NAME?" 2687 2688 INPUT B$ 2689 2690 LET A$(N, TO 20)=B$ 2691 2692 2693 PRINT Z$ 2694 2695 PRINT A$(N) 2696 2697 GO SUB 9000 2699 GO TO 20 2700 CLS 2705 PRINT AT 10,1;"WHAT IS THE PROGRAM NAME?" 2710 2715 INPUT B$ 2720 2725 IF LEN B$>20 THEN GO TO 2710 2730 FOR N=1 TO R1 2735 IF A$(N, TO LEN B$)=B$ THEN GO TO 2760 2740 NEXT N 2745 2750 PRINT TAB 16-((LEN B$)/2);B$ 2755 GO TO 2544 2760 CLS 2765 PRINT ,,,,"PROGRAM:";TAB 9;A$(N, TO 20) 2770 PRINT ,,"SUBJECT: ";TAB 9;A$(N,22 TO 28) 2780 PRINT ,,"TAPE NO.";TAB 10;A$(N,30 TO 32) 2790 GO SUB 9000 2820 GO TO 20 2900 CLS 2905 PRINT AT 10,1;" WHAT IS THE PROGRAM NAME?" 2910 2915 INPUT B$ 2920 2925 IF LEN B$>20 THEN GO TO 2910 2930 FOR N=1 TO R1 2935 IF A$(N, TO LEN B$)=B$ THEN GO TO 2950 2940 NEXT N 2945 GO TO 2745 2950 CLS 2955 PRINT " VIDEO TITLE SUBJECT NO." 2960 PRINT K$;A$(N) 2965 PRINT ,,,,"<1> SUBJECT","<2> TAPE NO.": INPUT "CHOOSE ONE";B 2975 GO TO 8500+(200*B) 2999 GO TO 2999 3000 3002 CLS 3006 PRINT AT 10,10;"FILE NAME?" 3010 3020 INPUT C$ 3030 PRINT AT 12,0;"PREPARE THE RECORDER AND THEN PRESS ENTER :::" 3050 SAVE C$ 3060 3070 CLS 3080 GO TO 20 4000 4010 CLS 4020 RUN 5000 PRINT AT 10,0;"SET UP PRINTER AND PRESS ENTER." 5010 INPUT B$ 5020 FOR N=1 TO R1 5030 LPRINT 5040 IF N<=1 THEN LPRINT " VIDEO TITLE SUBJECT NO." 5050 LPRINT "--------------------------------" 5060 LPRINT A$(N) 5070 NEXT N 5080 GO TO 20 6000 PRINT AT 8,0;"SORT BY?" 6010 PRINT ,"TITLE (1)" 6020 PRINT ,"SUBJECT (2)" 6040 PRINT ,"TAPE NO. (4)" 6055 INPUT "ENTER ONE OF ABOVE";B$ 6070 IF B$="1" THEN LET A=1 6080 IF B$="1" THEN LET B=20 6090 IF B$="2" THEN LET A=22 6100 IF B$="2" THEN LET B=28 6130 IF B$="4" THEN LET A=30 6140 IF B$="4" THEN LET B=32 6200 CLS 6210 LET N=R1 6220 LET N=INT (N/2) 6230 IF N=0 THEN GO TO 20 6240 LET J=1 6250 LET K=R1-N 6260 LET I=J 6270 LET L=I+N 6280 IF A$(I,A TO B)<A$(L,A TO B) THEN GO TO 6350 6290 LET B$=A$(I) 6300 LET A$(I)=A$(L) 6310 LET A$(L)=B$ 6320 LET I=I-N 6330 IF I<1 THEN GO TO 6350 6340 GO TO 6270 6350 LET J=J+1 6360 IF J>K THEN GO TO 6220 6370 GO TO 6260 8650 PRINT " VIDEO TITLE SUBJECT NO." 8660 PRINT " VIDEO TITLE SUBJECT NO." 8680 GO TO 20 8700 PRINT ,,"WHAT IS THE NEW SUBJECT?" 8710 8720 INPUT B$ 8730 8740 IF LEN B$>7 THEN GO TO 8710 8750 LET A$(N,22 TO 28)=B$ 8760 GO TO 8660 8900 PRINT ,,"WHAT IS THE NEW TAPE NO." 8910 8920 INPUT B$ 8930 8940 IF LEN B$>3 THEN GO TO 8910 8950 LET A$(N,30 TO 32)=B$ 8960 GO TO 8660 9000 INPUT INK 8;"PRESS <ENTER> TO CONTINUE";I$ 9010 LET I$=INKEY$ 9015 IF I$<>CHR$ 13 THEN GO TO 9010 9020 BEEP .05,2: BEEP .05,9: BEEP .05,20 9025 CLS : RETURN 9600 FOR I=1 TO 21 9605 BEEP .04,.005*I 9610 PAPER 0: INK 7: PRINT "\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ " 9615 NEXT I 9620 RETURN 9700 LET Z$="VIDEO TAPE FILE " 9705 LET P=-1+15-LEN Z$/2 9720 FOR C=1 TO LEN Z$ 9730 LET CP=P+C 9740 FOR L=15 TO 20 9745 BEEP .007,L-10: BEEP .007,60-L 9750 PRINT AT L-1,CP;" "; 9760 PRINT AT L,CP;Z$(C); 9770 NEXT L 9780 NEXT C 9790 RETURN 9998 SAVE "VIDEO FILE" 9999 CLS : PRINT AT 10,6;"REWIND TO VERIFY": PAUSE 240: VERIFY "VIDEO FILE"