Name and Address Program

Gallery

Source Code

   4 FAST 
   5 LET T=5
  10 DIM P$(T,25)
  20 DIM M$(T,16)
  30 DIM D$(T,6)
  40 DIM N$(T,4)
  80 DIM R$(T,30)
  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"
 155 PRINT AT 15,1;"%N%E%V%E%R% %E%N%T%E%R% %R%U%N%-%E%N%T%E%R% %G%O%T%O% %1%0%2"
 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;" PROJECT ? (25)"
1030 SLOW 
1040 INPUT X$
1050 FAST 
1055 IF X$="" THEN GOTO 1900
1057 LET P$(N)=X$
1060 SCROLL 
1070 PRINT P$(N)
1080 SCROLL 
1090 SCROLL 
1100 SCROLL 
1110 PRINT "MAGAZINE ? (16)"
1120 SLOW 
1130 INPUT M$(N)
1140 FAST 
1150 SCROLL 
1160 PRINT M$(N)
1170 SCROLL 
1180 SCROLL 
1200 SCROLL 
1210 PRINT "MONTH/YR ? (6)"
1220 SLOW 
1230 INPUT D$(N)
1240 FAST 
1250 SCROLL 
1260 PRINT D$(N)
1270 SCROLL 
1280 SCROLL 
1300 SCROLL 
1310 PRINT "PAGE NO.? (4)"
1320 SLOW 
1330 INPUT N$(N)
1340 FAST 
1350 SCROLL 
1360 PRINT N$(N)
1370 SCROLL 
1380 SCROLL 
1400 SCROLL 
1710 PRINT "REMARKS ? (30)"
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 PROJECT ?"
2130 SLOW 
2140 INPUT I$
2145 FAST 
2150 FOR N=1 TO R1
2160 LET X$=P$(N)
2170 IF I$=X$( TO LEN I$) THEN GOTO 2300
2180 NEXT N
2185 CLS 
2190 PRINT AT 11,6;"PROJECT NOT IN FILE?";AT 21,0;"PRESS ENTER TO CONTINUE :::::"
2195 SLOW 
2200 INPUT I$
2210 GOTO 100
2300 FAST 
2310 CLS 
2320 PRINT M$(N);TAB 32;P$(N);TAB 32;D$(N);TAB 32;N$(N);TAB 32;,,R$(N)
2330 PRINT AT 21,0;"IS THIS THE CORRECT PROJECT ?"
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 "PROJECT NO.";N;" OF ";R1,,,,,
2550 PRINT M$(N);TAB 32;P$(N);TAB 32;D$(N);TAB 32;N$(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 - PROJECT","2 - MAGAZINE","3 - MONTH/YR","4 - PAGE NO.","5 - 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 PROJECT IS";TAB 32;P$(N);TAB 32;"INPUT NEW INFO :::            "
2815 INPUT P$(N)
2817 GOTO 2900
2820 PRINT AT 19,0;"OLD MAGAZINE IS";TAB 32;M$(N);TAB 32;"INPUT NEW INFO :::            "
2825 INPUT M$(N)
2827 GOTO 2900
2830 PRINT AT 19,0;"OLD MONTH/YR IS";TAB 32;D$(N);TAB 32;"INPUT NEW INFO :::            "
2835 INPUT D$(N)
2837 GOTO 2900
2840 PRINT AT 19,0;"OLD PAGE NO. IS";TAB 32;N$(N);TAB 32;"INPUT NEW INFO :::            "
2845 INPUT N$(N)
2847 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 M$(N);TAB 32;P$(N);TAB 32;D$(N);TAB 32;N$(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
4060 CLEAR 
4070 SAVE "1032%9"
4080 RUN