Address File

Developer(s): George W. Miller
Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.

Related Products

Related Articles

The user of the Timex-Sinclair computer can store and work with data files, even though some commands for handling data...

Related Content

Image Gallery

Address File

Source Code

   1 REM "ADDFILE"
   2 REM  GEORGE W. MILLER
   3 REM  COMPUTE MAG. MAR. 1983
   4 REM 
   5 REM  START PROGRAM BY                ENTERING GOTO 35
   6 REM 
  10 DIM L(1)
  11 DIM S$(1,30)
  12 DIM T$(1,30)
  13 DIM N$(100,30)
  14 DIM A$(100,30)
  15 DIM C$(100,25)
  16 DIM P$(100,12)
  17 DIM Z$(100,5)
  25 LET L=0
  30 LET N=0
  35 GOTO 5000
  40 LET CHANGE=500
  42 LET ENTER=1000
  44 LET LIST=1500
  46 LET SEARCH=2000
  47 LET N=L
  49 CLS 
  50 PRINT AT 0,10;":FUNCTION:"
  52 PRINT 
  54 PRINT TAB 5;"ENTER %C FOR CHANGE MODE"
  55 PRINT 
  56 PRINT TAB 5;"ENTER %E FOR ENTRY MODE"
  57 PRINT 
  59 PRINT TAB 5;"ENTER %L FOR LIST MODE"
  60 PRINT 
  61 PRINT TAB 5;"ENTER %S FOR SEARCH MODE"
  62 PRINT 
  63 PRINT TAB 5;"ENTER STOP...TO STOP"
  65 INPUT B$
  67 IF B$="C" THEN GOTO CHANGE
  68 IF B$="E" THEN GOTO ENTER
  69 IF B$="L" THEN GOTO LIST
  70 IF B$="S" THEN GOTO SEARCH
  71 IF B$="STOP" THEN STOP 
  75 GOTO 49
 113 PRINT 
 500 CLS 
 510 PRINT AT 0,12;"CHANGE MODE"
 512 PRINT 
 513 PRINT TAB 5;"ENTER NUMBER TO CHANGE"
 514 INPUT C
 515 CLS 
 516 PRINT N$(C,1 TO 30)
 517 PRINT A$(C,1 TO 30)
 518 PRINT C$(C,1 TO 25)
 519 PRINT Z$(C,1 TO 5)
 520 PRINT P$(C,1 TO 12)
 524 PRINT AT 10,5;"ENTER CORRECT NAME"
 525 INPUT Y$
 530 LET N$(C,1 TO 30)=Y$
 535 PRINT AT 10,5;"ENTER CORRECT ADDRESS"
 540 INPUT H$
 545 LET A$(C,1 TO 30)=H$
 550 PRINT AT 10,5;"ENTER CORRECT CITY"
 555 INPUT G$
 560 LET C$(C,1 TO 25)=G$
 562 PRINT AT 10,5;"ENTER CORRECT ZIP CODE"
 563 INPUT Z$(C)
 564 PRINT AT 10,5;"ENTER CORRECT PHONE NUMBER"
 565 INPUT P$(C)
 570 GOTO 49
\n1000 CLS 
\n1010 FOR X=N+1 TO 100
\n1015 IF X=100 THEN GOTO 1142
\n1020 LET L=X
\n1030 CLS 
\n1040 PRINT AT 0,10;"    ENTRY MODE"
\n1050 PRINT AT 2,10;"LAST ENTRY WAS : ";X-1
\n1052 PRINT 
\n1055 PRINT "ENTER NAME"
\n1060 INPUT N$(X)
\n1070 PRINT 
\n1075 PRINT "ENTER ADDRESS"
\n1080 INPUT A$(X)
\n1090 PRINT 
\n1095 PRINT "ENTER CITY"
\n1100 INPUT C$(X)
\n1105 PRINT 
\n1107 PRINT "ENTER ZIP CODE"
\n1108 INPUT Z$(X)
\n1109 PRINT 
\n1110 PRINT "ENTER PHONE NUMBER"
\n1111 INPUT P$(X)
\n1112 PRINT 
\n1115 PRINT "ANOTHER ENTRY?? (Y/N)"
\n1130 INPUT F$
\n1138 IF F$<>"Y" THEN GOTO 47
\n1140 NEXT X
\n1142 PRINT 
\n1145 PRINT "          LIST FILLED"
\n1147 PAUSE 200
\n1150 GOTO 47
\n1500 CLS 
\n1505 PRINT AT 20,12;"LIST MODE"
\n1510 FOR V=1 TO L
\n1515 SCROLL 
\n1520 PRINT N$(V);V
\n1521 SCROLL 
\n1522 PRINT A$(V)
\n1523 SCROLL 
\n1524 PRINT C$(V)
\n1525 SCROLL 
\n1526 PRINT Z$(V)
\n1527 SCROLL 
\n1528 PRINT P$(V)
\n1529 SCROLL 
\n1530 PRINT 
\n1532 NEXT V
\n1540 PAUSE 200
\n1550 GOTO 49
\n2000 CLS 
\n2020 PRINT AT 0,12;"SEARCH MODE"
\n2021 PRINT 
\n2022 PRINT "SEARCH NAME(N) OR CITY(C)??"
\n2023 INPUT V$
\n2033 FAST 
\n2034 IF V$="N" THEN GOTO 2050
\n2036 PRINT "ENTER CITY AND STATE"
\n2037 PRINT "NOTE: SPELLING MUST BE EXACT"
\n2038 INPUT T$(1,1 TO 25)
\n2039 FOR S=1 TO L
\n2040 IF C$(S,1 TO 25)=T$(1,1 TO 25) THEN GOTO 2160
\n2041 NEXT S
\n2042 SLOW 
\n2043 PRINT TAB 5;"      END OF LIST"
\n2044 PAUSE 30000
\n2045 GOTO 47
\n2047 PRINT 
\n2050 PRINT "ENTER NAME FOR SEARCH"
\n2055 PRINT 
\n2060 INPUT S$(1,1 TO 30)
\n2062 FAST 
\n2063 FOR S=1 TO L
\n2065 IF N$(S,1 TO 30)=S$(1,1 TO 30) THEN GOTO 2160
\n2070 NEXT S
\n2100 PRINT 
\n2110 PRINT ,"NAME NOT FOUND"
\n2115 PAUSE 30000
\n2117 SLOW 
\n2120 GOTO 47
\n2140 PRINT N$(S)
\n2141 PRINT A$(S)
\n2142 PRINT C$(S)
\n2143 PRINT Z$(S)
\n2144 PRINT P$(S)
\n2145 SLOW 
\n2146 PAUSE 30000
\n2150 GOTO 47
\n2160 PRINT N$(S)
\n2161 PRINT A$(S)
\n2162 PRINT C$(S)
\n2163 PRINT Z$(S)
\n2164 PRINT P$(S)
\n2165 GOTO 2041
\n5000 PRINT "********************************"
\n5005 PRINT "*                              *"
\n5006 PRINT "*                              *"
\n5007 PRINT "*                              *"
\n5008 PRINT "*                              *"
\n5009 PRINT "*                              *"
\n5010 PRINT "*                              *"
\n5011 PRINT "*                              *"
\n5012 PRINT "********************************"
\n5013 REM FILE NAME
\n5015 PRINT AT 4,5;"   ADDRESS FILE"
\n5020 PAUSE 300
\n5021 CLS 
\n5022 PRINT "THIS PROGRAM WILL STORE UP TO"
\n5023 PRINT 
\n5024 PRINT "100 NAMES, ADDRESSES AND PHONE"
\n5025 PRINT 
\n5026 PRINT "NUMBERS, AND WILL SEARCH BY NAME"
\n5027 PRINT 
\n5028 PRINT "OR CITY"
\n5029 PAUSE 500
\n5030 GOTO 38
\n5035 CLEAR 
\n5040 SAVE "1000%6"
\n5050 RUN 
Scroll to Top