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$
\n1000 FOR N=R1+1 TO T
\n1010 SCROLL 
\n1020 PRINT "NO.";N;" LAST NAME?"
\n1030 SLOW 
\n1040 INPUT X$
\n1050 FAST 
\n1055 IF X$="" THEN GOTO 1900
\n1057 LET L$(N)=X$
\n1060 SCROLL 
\n1070 PRINT L$(N)
\n1080 SCROLL 
\n1090 SCROLL 
\n1100 SCROLL 
\n1110 PRINT "FIRST NAME?"
\n1120 SLOW 
\n1130 INPUT F$(N)
\n1140 FAST 
\n1150 SCROLL 
\n1160 PRINT F$(N)
\n1170 SCROLL 
\n1180 SCROLL 
\n1200 SCROLL 
\n1210 PRINT "ADDRESS?"
\n1220 SLOW 
\n1230 INPUT A$(N)
\n1240 FAST 
\n1250 SCROLL 
\n1260 PRINT A$(N)
\n1270 SCROLL 
\n1280 SCROLL 
\n1300 SCROLL 
\n1310 PRINT "CITY/TOWN?"
\n1320 SLOW 
\n1330 INPUT C$(N)
\n1340 FAST 
\n1350 SCROLL 
\n1360 PRINT C$(N)
\n1370 SCROLL 
\n1380 SCROLL 
\n1400 SCROLL 
\n1410 PRINT "STATE?"
\n1420 SLOW 
\n1430 INPUT S$(N)
\n1440 FAST 
\n1450 SCROLL 
\n1460 PRINT S$(N)
\n1470 SCROLL 
\n1480 SCROLL 
\n1500 SCROLL 
\n1510 PRINT "ZIP CODE?"
\n1520 SLOW 
\n1530 INPUT Z$(N)
\n1540 FAST 
\n1550 SCROLL 
\n1560 PRINT Z$(N)
\n1570 SCROLL 
\n1580 SCROLL 
\n1600 SCROLL 
\n1610 PRINT "TELEPHONE NO.?"
\n1620 SLOW 
\n1630 INPUT T$(N)
\n1640 FAST 
\n1650 SCROLL 
\n1660 PRINT T$(N)
\n1670 SCROLL 
\n1680 SCROLL 
\n1700 SCROLL 
\n1710 PRINT "REMARKS?"
\n1720 SLOW 
\n1730 INPUT R$(N)
\n1740 FAST 
\n1750 SCROLL 
\n1760 PRINT R$(N)
\n1770 SCROLL 
\n1780 SCROLL 
\n1800 NEXT N
\n1810 GOTO 100
\n1900 LET R1=N-1
\n1910 SLOW 
\n1920 GOTO 100
\n2000 CLS 
\n2005 SLOW 
\n2010 PRINT AT 11,2;"DO YOU WANT TO SEE THE WHOLE";AT 12,14;"FILE?"
\n2020 LET I$=INKEY$
\n2030 IF I$="" THEN GOTO 2020
\n2040 IF I$="Y" THEN GOTO 2500
\n2050 IF I$="N" THEN GOTO 2100
\n2060 GOTO 2020
\n2100 FAST 
\n2110 CLS 
\n2120 PRINT AT 11,5;"WHAT IS THE LAST NAME?"
\n2130 SLOW 
\n2140 INPUT I$
\n2145 FAST 
\n2150 FOR N=1 TO R1
\n2160 LET X$=L$(N)
\n2170 IF I$=X$( TO LEN I$) THEN GOTO 2300
\n2180 NEXT N
\n2185 CLS 
\n2190 PRINT AT 11,6;"NAME NOT IN FILE?";AT 21,0;"PRESS ENTER TO CONTINUE :::::"
\n2195 SLOW 
\n2200 INPUT I$
\n2210 GOTO 100
\n2300 FAST 
\n2310 CLS 
\n2320 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)
\n2330 PRINT AT 21,0;"IS THIS THE CORRECT NAME?"
\n2335 SLOW 
\n2340 LET Y$=INKEY$
\n2350 IF Y$="" THEN GOTO 2340
\n2360 IF Y$="Y" THEN GOTO 2600
\n2370 IF Y$="N" THEN GOTO 2180
\n2380 GOTO 2340
\n2500 FAST 
\n2510 CLS 
\n2520 FOR N=1 TO R1
\n2530 FAST 
\n2535 CLS 
\n2540 PRINT "CUSTOMER NO.";N;" OF ";R1,,,,,
\n2550 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 :::"
\n2560 SLOW 
\n2570 INPUT I$
\n2580 NEXT N
\n2590 GOTO 100
\n2600 FAST 
\n2610 PRINT AT 21,0;"DO YOU WANT TO EDIT?       "
\n2620 SLOW 
\n2630 LET Y$=INKEY$
\n2640 IF Y$="" THEN GOTO 2630
\n2650 IF Y$="N" THEN GOTO 100
\n2660 IF Y$="Y" THEN GOTO 2700
\n2670 GOTO 2630
\n2700 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"
\n2710 PRINT AT 21,0;"WHICH ONE DO YOU WISH TO EDIT?"
\n2720 LET Y$=INKEY$
\n2730 IF Y$="" THEN GOTO 2720
\n2740 IF CODE Y$<29 OR CODE Y$>36 THEN GOTO 2720
\n2750 GOTO 2800+(VAL Y$*10)
\n2810 PRINT AT 19,0;"OLD LAST NAME IS";TAB 32;L$(N);TAB 32;"INPUT NEW INFO :::            "
\n2815 INPUT L$(N)
\n2817 GOTO 2900
\n2820 PRINT AT 19,0;"OLD FIRST NAME IS";TAB 32;F$(N);TAB 32;"INPUT NEW INFO :::            "
\n2825 INPUT F$(N)
\n2827 GOTO 2900
\n2830 PRINT AT 19,0;"OLD ADDRESS IS";TAB 32;A$(N);TAB 32;"INPUT NEW INFO :::            "
\n2835 INPUT A$(N)
\n2837 GOTO 2900
\n2840 PRINT AT 19,0;"OLD CITY/TOWN IS";TAB 32;C$(N);TAB 32;"INPUT NEW INFO :::            "
\n2845 INPUT C$(N)
\n2847 GOTO 2900
\n2850 PRINT AT 19,0;"OLD STATE IS";TAB 32;S$(N);TAB 32;"INPUT NEW INFO :::            "
\n2855 INPUT S$(N)
\n2857 GOTO 2900
\n2860 PRINT AT 19,0;"OLD ZIP CODE IS";TAB 32;Z$(N);TAB 32;"INPUT NEW INFO :::            "
\n2865 INPUT Z$(N)
\n2867 GOTO 2900
\n2870 PRINT AT 19,0;"OLD PHONE NO. IS";TAB 32;T$(N);TAB 32;"INPUT NEW INFO :::            "
\n2875 INPUT T$(N)
\n2877 GOTO 2900
\n2880 PRINT AT 19,0;"OLD REMARKS ARE";TAB 32;R$(N);TAB 32;"INPUT NEW INFO :::            "
\n2885 INPUT R$(N)
\n2900 FAST 
\n2910 CLS 
\n2920 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)
\n2930 GOTO 2610
\n2999 GOTO 2999
\n3000 RUN 
\n4000 FAST 
\n4010 PRINT "WHAT IS THE NAME OF THE FILE?"
\n4015 SLOW 
\n4020 INPUT B$
\n4030 PRINT ,,,,"PREPARE THE RECORDER AND THEN","PRESS ENTER ::::"
\n4035 INPUT X$
\n4040 SAVE B$
\n4050 GOTO 100