Source Code
10 DIM A$(10,32)
11 LET R1=0
12 LET Z$="%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-"
20 FAST
25 CLS
30 POKE 16418,0
40 FOR N=1 TO 96
50 PRINT "% % % % % % % % ";
60 NEXT N
70 PRINT AT 2,5;" PROGRAM TAPE FILE "
80 PRINT AT 5,1;"%T%O% %E%N%T%E%R% %P%R%O%G%R%A%M%S";TAB 26;"%-% %1"
90 PRINT AT 7,1;"%T%O% %S%E%E% %P%R%O%G%R%A%M%S";TAB 26;"%-% %2"
100 PRINT AT 9,1;"%T%O% %S%A%V%E% %D%A%T%A% %O%N% %T%A%P%E";TAB 26;"%-% %3"
110 PRINT AT 11,1;"%T%O% %C%L%E%A%R% %A%L%L% %D%A%T%A";AT 11,26;"%-% %4"
120 PRINT AT 13,1;"%T%O% %P%R%I%N%T% %D%A%T%A% ";TAB 26;"%-% %5"
130 PRINT AT 15,1;"%T%O% %S%O%R%T% %D%A%T%A% ";TAB 26;"%-% %6"
180 PRINT AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:";AT 22,4;"ENTER ONE OF ABOVE :::";AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:"
190 SLOW
200 LET B$=INKEY$
210 IF B$="" THEN GOTO 180
220 IF CODE B$<29 OR CODE B$>34 THEN GOTO 180
230 FAST
240 POKE 16418,2
250 CLS
260 GOTO 1000*VAL B$
\n1000 FOR N=R1+1 TO 100
\n1010 GOSUB 9000
\n1020 PRINT "WHAT IS THE PROGRAM NAME?"
\n1030 SCROLL
\n1040 PRINT "PROGRAM NO. ";N;" (8 CHAR. MAX.)"
\n1050 SCROLL
\n1055 SLOW
\n1060 INPUT B$
\n1065 FAST
\n1070 IF B$="" THEN GOTO 1500
\n1080 LET A$(N, TO 8)=B$
\n1090 PRINT A$(N)
\n1100 GOSUB 9000
\n1110 SCROLL
\n1120 PRINT "WHAT IS THE PROGRAM SUBJECT?"
\n1125 SCROLL
\n1126 PRINT "(6 CHAR MAX)"
\n1130 SCROLL
\n1135 SLOW
\n1140 INPUT B$
\n1142 FAST
\n1145 IF LEN B$>6 THEN GOTO 1135
\n1150 LET A$(N,10 TO 15)=B$
\n1160 PRINT A$(N)
\n1170 GOSUB 9000
\n1190 PRINT "WHAT IS THE COUNTER LOCATION?"
\n1195 SCROLL
\n1196 PRINT "(6 CHAR MAX)"
\n1200 SCROLL
\n1205 SLOW
\n1210 INPUT B$
\n1212 FAST
\n1214 IF LEN B$>6 THEN GOTO 1205
\n1220 SCROLL
\n1230 LET A$(N,17 TO 22)=B$
\n1240 PRINT A$(N)
\n1250 GOSUB 9000
\n1260 PRINT "TAPE NO./SIDE? ";N;" (4 CHAR. MAX.)"
\n1270 SCROLL
\n1275 SLOW
\n1280 INPUT B$
\n1285 FAST
\n1290 IF LEN B$>4 THEN GOTO 1275
\n1300 SCROLL
\n1320 LET A$(N,24 TO 27)=B$
\n1330 PRINT A$(N)
\n1340 GOSUB 9000
\n1350 PRINT "MISC. INFO. OR CODE ?"
\n1351 SCROLL
\n1352 PRINT "(4 CHAR MAX)"
\n1355 SLOW
\n1360 INPUT B$
\n1365 FAST
\n1370 IF LEN B$>4 THEN GOTO 1355
\n1374 IF LEN B$=4 THEN GOTO 1390
\n1376 FOR I=1 TO 4-LEN B$
\n1380 LET B$=" "+B$
\n1385 NEXT I
\n1390 SCROLL
\n1400 LET A$(N,29 TO 32)=B$
\n1410 PRINT A$(N)
\n1420 NEXT N
\n1500 FAST
\n1510 CLS
\n1520 LET R1=N-1
\n1530 SLOW
\n1540 GOTO 20
\n1999 STOP
\n2000 FAST
\n2010 CLS
\n2020 POKE 16418,0
\n2030 FOR N=1 TO 192
\n2040 PRINT "% % % % ";
\n2050 NEXT N
\n2060 PRINT AT 2,8;" PROGRAM DATA "
\n2070 PRINT AT 5,1;"%T%O% %S%E%E% %A%L%L% %P%R%O%G%R%A%M% %D%A%T%A";TAB 28;"%-% %1"
\n2080 PRINT AT 7,1;"%T%O% %C%H%A%N%G%E% %P%R%O%G%R%A%M% %N%A%M%E";TAB 28;"%-% %2"
\n2090 PRINT AT 9,1;"%T%O% %S%E%E% %I%T%E%M% %D%A%T%A";TAB 28;"%-% %3"
\n2100 PRINT AT 11,1;"%T%O% %E%D%I%T% %D%A%T%A% %I%T%E%M%S";TAB 28;"%-% %4"
\n2180 PRINT AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:";AT 22,4;"ENTER ONE OF ABOVE :::";AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:"
\n2190 SLOW
\n2200 LET B$=INKEY$
\n2210 IF B$="" THEN GOTO 2180
\n2220 IF CODE B$<29 OR CODE B$>32 THEN GOTO 2180
\n2230 FAST
\n2240 POKE 16418,2
\n2250 CLS
\n2260 GOTO (VAL B$*200)+2100
\n2300 SLOW
\n2310 FOR N=1 TO R1
\n2320 SCROLL
\n2340 SCROLL
\n2350 PRINT "NAME SUBJECT C/L T/NO MISC"
\n2360 SCROLL
\n2365 PRINT Z$
\n2370 SCROLL
\n2380 PRINT A$(N)
\n2382 SCROLL
\n2384 SCROLL
\n2386 SCROLL
\n2388 NEXT N
\n2390 PRINT "PRESS ENTER TO CONTINUE :::"
\n2392 INPUT B$
\n2395 GOTO 20
\n2500 PRINT AT 10,0;"WHAT IS THE PROGRAM NAME?"
\n2505 SLOW
\n2510 INPUT B$
\n2515 FAST
\n2520 FOR N=1 TO R1
\n2525 FAST
\n2530 IF A$(N, TO LEN B$)=B$ THEN GOTO 2560
\n2540 NEXT N
\n2542 CLS
\n2544 GOSUB 9000
\n2546 PRINT "PROGRAM NAME NOT IN FILE :::"
\n2547 GOSUB 9000
\n2548 GOSUB 9800
\n2550 GOTO 20
\n2660 FAST
\n2662 CLS
\n2664 GOSUB 9000
\n2666 PRINT "NAME SUBJECT C/L T/NO. MISC"
\n2668 SCROLL
\n2670 PRINT Z$
\n2672 SCROLL
\n2674 PRINT A$(N)
\n2676 GOSUB 9000
\n2678 PRINT AT 20,0;"IS THIS THE CORRECT PROGRAM NAME?"
\n2679 SLOW
\n2680 INPUT Y$
\n2682 FAST
\n2683 IF Y$(1)="N" THEN GOTO 2540
\n2684 SCROLL
\n2685 SCROLL
\n2686 PRINT "WHAT IS THE CORRECT NAME?"
\n2687 SLOW
\n2688 INPUT B$
\n2689 FAST
\n2690 LET A$(N, TO 8)=B$
\n2691 SCROLL
\n2692 SCROLL
\n2693 PRINT Z$
\n2694 SCROLL
\n2695 PRINT A$(N)
\n2696 SCROLL
\n2697 SCROLL
\n2698 GOSUB 9800
\n2699 GOTO 20
\n2700 CLS
\n2705 PRINT AT 10,1;"WHAT IS THE PROGRAM NAME?"
\n2710 SLOW
\n2715 INPUT B$
\n2720 FAST
\n2725 IF LEN B$>8 THEN GOTO 2710
\n2730 FOR N=1 TO R1
\n2735 IF A$(N, TO LEN B$)=B$ THEN GOTO 2760
\n2740 NEXT N
\n2745 SCROLL
\n2750 PRINT TAB 16-((LEN B$)/2);B$
\n2755 GOTO 2544
\n2760 CLS
\n2765 PRINT ,,,,"PROGRAM -";TAB 24;A$(N, TO 8)
\n2770 PRINT ,,"SUBJECT -";TAB 24;A$(N,10 TO 15)
\n2775 PRINT ,,"CTR. LOC. -";TAB 24;A$(N,17 TO 22)
\n2780 PRINT ,,"TP. NO/SD -";TAB 24;A$(N,24 TO 27)
\n2785 PRINT ,,"MISC. -";TAB 24;A$(N,29 TO 32)
\n2815 GOSUB 9800
\n2820 GOTO 20
\n2900 CLS
\n2905 PRINT AT 10,1;"WHAT IS THE PROGRAM NAME?"
\n2910 SLOW
\n2915 INPUT B$
\n2920 FAST
\n2925 IF LEN B$>6 THEN GOTO 2910
\n2930 FOR N=1 TO R1
\n2935 IF A$(N, TO LEN B$)=B$ THEN GOTO 2950
\n2940 NEXT N
\n2945 GOTO 2745
\n2950 CLS
\n2955 PRINT "NAME SUBJECT C/L T/NO. MISC"
\n2960 PRINT Z$;A$(N)
\n2965 PRINT ,,,,"<1> MISC","<3> CTR LOC","<2> SUBJECT","<4> TP NUM/SD",,,,"CHOOSE ONE?"
\n2967 SLOW
\n2970 INPUT B$
\n2972 FAST
\n2974 IF CODE B$<29 OR CODE B$>32 THEN GOTO 2967
\n2975 GOTO 8500+(100*VAL B$)
\n2999 GOTO 2999
\n3000 FAST
\n3002 CLS
\n3006 PRINT AT 10,10;"FILE NAME?"
\n3010 SLOW
\n3020 INPUT C$
\n3030 PRINT AT 12,0;"PREPARE THE RECORDER AND THEN PRESS ENTER :::"
\n3040 INPUT B$
\n3050 SAVE C$
\n3060 FAST
\n3070 CLS
\n3080 GOTO 20
\n4000 FAST
\n4010 CLS
\n4020 RUN
\n5000 PRINT AT 10,0;"SET UP PRINTER AND PRESS ENTER."
\n5010 INPUT B$
\n5020 FOR N=1 TO R1
\n5030 LPRINT
\n5040 LPRINT "NAME SUBJECT C/L T/NO. MISC"
\n5050 LPRINT "--------------------------------"
\n5060 LPRINT A$(N)
\n5070 NEXT N
\n5080 GOTO 20
\n6000 PRINT AT 8,0;"SORT BY?"
\n6010 PRINT ,"NAME (1)"
\n6020 PRINT ,"SUBJECT (2)"
\n6030 PRINT ,"CTR. LOC. (3)"
\n6040 PRINT ,"TP NUM/SD (4)"
\n6050 PRINT ,"MISC. (5)"
\n6055 SLOW
\n6060 LET B$=INKEY$
\n6065 IF CODE B$<29 OR CODE B$>33 THEN GOTO 6060
\n6066 FAST
\n6070 IF B$="1" THEN LET A=1
\n6080 IF B$="1" THEN LET B=8
\n6090 IF B$="2" THEN LET A=10
\n6100 IF B$="2" THEN LET B=15
\n6110 IF B$="3" THEN LET A=17
\n6120 IF B$="3" THEN LET B=22
\n6130 IF B$="4" THEN LET A=24
\n6140 IF B$="4" THEN LET B=27
\n6150 IF B$="5" THEN LET A=29
\n6160 IF B$="5" THEN LET B=32
\n6200 CLS
\n6210 LET N=R1
\n6220 LET N=INT (N/2)
\n6230 IF N=0 THEN GOTO 20
\n6240 LET J=1
\n6250 LET K=R1-N
\n6260 LET I=J
\n6270 LET L=I+N
\n6280 IF A$(I,A TO B)<A$(L,A TO B) THEN GOTO 6350
\n6290 LET B$=A$(I)
\n6300 LET A$(I)=A$(L)
\n6310 LET A$(L)=B$
\n6320 LET I=I-N
\n6330 IF I<1 THEN GOTO 6350
\n6340 GOTO 6270
\n6350 LET J=J+1
\n6360 IF J>K THEN GOTO 6220
\n6370 GOTO 6260
\n8600 PRINT ,,"WHAT IS THE NEW <MISC> INFO?"
\n8610 SLOW
\n8620 INPUT B$
\n8630 FAST
\n8640 IF LEN B$>4 THEN GOTO 8610
\n8650 LET A$(N,29 TO 32)=B$
\n8660 PRINT ,,"NAME PART NO. COST IT/UN IN/S";Z$;A$(N)
\n8670 GOSUB 9800
\n8680 GOTO 20
\n8700 PRINT ,,"WHAT IS THE NEW STUBJECT?"
\n8710 SLOW
\n8720 INPUT B$
\n8730 FAST
\n8740 IF LEN B$>6 THEN GOTO 8710
\n8750 LET A$(N,10 TO 15)=B$
\n8760 GOTO 8660
\n8800 PRINT ,,"WHAT IS THE NEW COUNTER?"
\n8810 SLOW
\n8820 INPUT B$
\n8830 FAST
\n8840 IF LEN B$>6 THEN GOTO 8810
\n8842 GOSUB 8000
\n8844 IF LEN B$<6 THEN GOSUB 8100
\n8850 LET A$(N,17 TO 22)=B$
\n8860 GOTO 8660
\n8900 PRINT ,,"WHAT IS THE NEW TAPE NO./SIDE?"
\n8910 SLOW
\n8920 INPUT B$
\n8930 FAST
\n8940 IF LEN B$>4 THEN GOTO 8910
\n8950 LET A$(N,24 TO 27)=B$
\n8960 GOTO 8660
\n9000 FOR I=1 TO 10
\n9010 SCROLL
\n9020 NEXT I
\n9030 RETURN
\n9800 PRINT AT 21,0;"PRESS ENTER TO CONTINUE :::"
\n9810 INPUT B$
\n9820 CLS
\n9830 RETURN
\n9998 SAVE "TAPE FIL%E"
\n9999 RUN
