File

       4 FAST 
       5 LET T=100
      10 DIM L$(T,16)
      20 DIM F$(T,12)
      30 DIM A$(T,16)
      40 DIM C$(T,16)
      50 DIM S$(T,2)
      60 DIM Z$(T,5)
      70 DIM T$(T,12)
      80 DIM R$(T,12)
      90 LET R1=0
     100 FAST 
     102 CLS 
     105 PRINT "   \:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':"
     110 PRINT "   \: %N%A%M%E% %A%N%D% %A%D%D%R%E%S%S% %P%R%O%G%R%A%M\ :"
     115 PRINT "   \:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
     120 PRINT ,,,,,,,,,,"    TO ENTER OR ADD DATA  - 1"
     130 PRINT "    TO SEE OR CHANGE DATA - 2"
     140 PRINT "    TO CLEAR FILE         - 3"
     150 PRINT "    TO SAVE FILE ON TAPE  - 4"
     160 PRINT AT 19,6;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,6;"\: ";AT 20,25;"\ :";AT 21,6;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
     170 PRINT AT 20,7;"ENTER ONE OF ABOVE"
     180 PRINT AT 20,7;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E"
     190 SLOW 
     200 LET I$=INKEY$
     210 IF CODE I$<29 OR CODE I$>32 THEN GOTO 170
     215 FAST 
     220 CLS 
     230 GOTO 1000*VAL I$
    1000 FOR N=R1+1 TO T
    1010 SCROLL 
    1020 PRINT "NO.";N;" LAST NAME?"
    1030 SLOW 
    1040 INPUT X$
    1050 FAST 
    1055 IF X$="" THEN GOTO 1900
    1057 LET L$(N)=X$
    1060 SCROLL 
    1070 PRINT L$(N)
    1080 SCROLL 
    1090 SCROLL 
    1100 SCROLL 
    1110 PRINT "FIRST NAME?"
    1120 SLOW 
    1130 INPUT F$(N)
    1140 FAST 
    1150 SCROLL 
    1160 PRINT F$(N)
    1170 SCROLL 
    1180 SCROLL 
    1200 SCROLL 
    1210 PRINT "ADDRESS?"
    1220 SLOW 
    1230 INPUT A$(N)
    1240 FAST 
    1250 SCROLL 
    1260 PRINT A$(N)
    1270 SCROLL 
    1280 SCROLL 
    1300 SCROLL 
    1310 PRINT "CITY/TOWN?"
    1320 SLOW 
    1330 INPUT C$(N)
    1340 FAST 
    1350 SCROLL 
    1360 PRINT C$(N)
    1370 SCROLL 
    1380 SCROLL 
    1400 SCROLL 
    1410 PRINT "STATE?"
    1420 SLOW 
    1430 INPUT S$(N)
    1440 FAST 
    1450 SCROLL 
    1460 PRINT S$(N)
    1470 SCROLL 
    1480 SCROLL 
    1500 SCROLL 
    1510 PRINT "ZIP CODE?"
    1520 SLOW 
    1530 INPUT Z$(N)
    1540 FAST 
    1550 SCROLL 
    1560 PRINT Z$(N)
    1570 SCROLL 
    1580 SCROLL 
    1600 SCROLL 
    1610 PRINT "TELEPHONE NO.?"
    1620 SLOW 
    1630 INPUT T$(N)
    1640 FAST 
    1650 SCROLL 
    1660 PRINT T$(N)
    1670 SCROLL 
    1680 SCROLL 
    1700 SCROLL 
    1710 PRINT "REMARKS?"
    1720 SLOW 
    1730 INPUT R$(N)
    1740 FAST 
    1750 SCROLL 
    1760 PRINT R$(N)
    1770 SCROLL 
    1780 SCROLL 
    1800 NEXT N
    1810 GOTO 100
    1900 LET R1=N-1
    1910 SLOW 
    1920 GOTO 100
    2000 CLS 
    2005 SLOW 
    2010 PRINT AT 11,2;"DO YOU WANT TO SEE THE WHOLE";AT 12,14;"FILE?"
    2020 LET I$=INKEY$
    2030 IF I$="" THEN GOTO 2020
    2040 IF I$="Y" THEN GOTO 2500
    2050 IF I$="N" THEN GOTO 2100
    2060 GOTO 2020
    2100 FAST 
    2110 CLS 
    2120 PRINT AT 11,5;"WHAT IS THE LAST NAME?"
    2130 SLOW 
    2140 INPUT I$
    2145 FAST 
    2150 FOR N=1 TO R1
    2160 LET X$=L$(N)
    2170 IF I$=X$( TO LEN I$) THEN GOTO 2300
    2180 NEXT N
    2185 CLS 
    2190 PRINT AT 11,6;"NAME NOT IN FILE?";AT 21,0;"PRESS ENTER TO CONTINUE :::::"
    2195 SLOW 
    2200 INPUT I$
    2210 GOTO 100
    2300 FAST 
    2310 CLS 
    2320 PRINT F$(N);TAB 32;L$(N);TAB 32;A$(N);TAB 32;C$(N);TAB 32;S$(N);"  ";Z$(N);"  ";T$(N);TAB 32;,,R$(N)
    2330 PRINT AT 21,0;"IS THIS THE CORRECT NAME?"
    2335 SLOW 
    2340 LET Y$=INKEY$
    2350 IF Y$="" THEN GOTO 2340
    2360 IF Y$="Y" THEN GOTO 2600
    2370 IF Y$="N" THEN GOTO 2180
    2380 GOTO 2340
    2500 FAST 
    2510 CLS 
    2520 FOR N=1 TO R1
    2530 FAST 
    2535 CLS 
    2540 PRINT "CUSTOMER NO.";N;" OF ";R1,,,,,
    2550 PRINT F$(N);TAB 32;L$(N);TAB 32;A$(N);TAB 32;C$(N);TAB 32;S$(N);"  ";Z$(N);"  ";T$(N);TAB 32;,,R$(N);AT 21,0;"PRESS ENTER TO CONTINUE :::"
    2560 SLOW 
    2570 INPUT I$
    2580 NEXT N
    2590 GOTO 100
    2600 FAST 
    2610 PRINT AT 21,0;"DO YOU WANT TO EDIT?       "
    2620 SLOW 
    2630 LET Y$=INKEY$
    2640 IF Y$="" THEN GOTO 2630
    2650 IF Y$="N" THEN GOTO 100
    2660 IF Y$="Y" THEN GOTO 2700
    2670 GOTO 2630
    2700 PRINT AT 11,0;"1 - LAST NAME","5 - STATE","2 - FIRST NAME","6 - ZIP CODE","3 - ADDRESS","7 - PHONE NO.","4 - CITY/TOWN","8 - REMARKS"
    2710 PRINT AT 21,0;"WHICH ONE DO YOU WISH TO EDIT?"
    2720 LET Y$=INKEY$
    2730 IF Y$="" THEN GOTO 2720
    2740 IF CODE Y$<29 OR CODE Y$>36 THEN GOTO 2720
    2750 GOTO 2800+(VAL Y$*10)
    2810 PRINT AT 19,0;"OLD LAST NAME IS";TAB 32;L$(N);TAB 32;"INPUT NEW INFO :::            "
    2815 INPUT L$(N)
    2817 GOTO 2900
    2820 PRINT AT 19,0;"OLD FIRST NAME IS";TAB 32;F$(N);TAB 32;"INPUT NEW INFO :::            "
    2825 INPUT F$(N)
    2827 GOTO 2900
    2830 PRINT AT 19,0;"OLD ADDRESS IS";TAB 32;A$(N);TAB 32;"INPUT NEW INFO :::            "
    2835 INPUT A$(N)
    2837 GOTO 2900
    2840 PRINT AT 19,0;"OLD CITY/TOWN IS";TAB 32;C$(N);TAB 32;"INPUT NEW INFO :::            "
    2845 INPUT C$(N)
    2847 GOTO 2900
    2850 PRINT AT 19,0;"OLD STATE IS";TAB 32;S$(N);TAB 32;"INPUT NEW INFO :::            "
    2855 INPUT S$(N)
    2857 GOTO 2900
    2860 PRINT AT 19,0;"OLD ZIP CODE IS";TAB 32;Z$(N);TAB 32;"INPUT NEW INFO :::            "
    2865 INPUT Z$(N)
    2867 GOTO 2900
    2870 PRINT AT 19,0;"OLD PHONE NO. IS";TAB 32;T$(N);TAB 32;"INPUT NEW INFO :::            "
    2875 INPUT T$(N)
    2877 GOTO 2900
    2880 PRINT AT 19,0;"OLD REMARKS ARE";TAB 32;R$(N);TAB 32;"INPUT NEW INFO :::            "
    2885 INPUT R$(N)
    2900 FAST 
    2910 CLS 
    2920 PRINT F$(N);TAB 32;L$(N);TAB 32;A$(N);TAB 32;C$(N);TAB 32;S$(N);"  ";Z$(N);"  ";T$(N);TAB 32;,,R$(N)
    2930 GOTO 2610
    2999 GOTO 2999
    3000 RUN 
    4000 FAST 
    4010 PRINT "WHAT IS THE NAME OF THE FILE?"
    4015 SLOW 
    4020 INPUT B$
    4030 PRINT ,,,,"PREPARE THE RECORDER AND THEN","PRESS ENTER ::::"
    4035 INPUT X$
    4040 SAVE B$
    4050 GOTO 100