File

Source Code

   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