Index TOC Go to Main Index

A General Listing Program

using

GW-Basic

1 ' Programmed by Joe Sixpack for his family and the world in 1994? 1995
2 ' Lister can be used to contain any almanackish information.  ie the tallest
3 ' mountains, longest rivers, population, distances, names, classifications,
4 ' foreign languages, special dictionaries or thesaurus. The list is endless.
5 ' There are available about 62-72 lists available using upper and lower case
6 ' plus numbers & punctuation.  A reference table for the various lists could
7 ' be coded with a ? for example & would page in 4 screens if completely full.
8 ' This version of Lister and all the other data dependent programs uses
9 ' inline data to  run. No writing or reading of outside files are used.
10 '
11 DATA "1?", "                           H E L P   S C R E E N          11-30"
12 DATA "1?", " "
13 DATA "1?", "                 Pressing 2,T,t list of things to do"
14 DATA "1?", "                          D,d   list of things done"
15 DATA "1?", "                          R,r   BUSINESS, personal rolodex"
16 DATA "1?", "                          E,e   list of EMERGENCY phone numbers"
17 DATA "1?", "                          G,g   list of grocery items needed"
18 DATA "1?", "                          A,a   list of Anniversary & Birthdays"
19 DATA "1?", "                          C,c   appointments & Calendar  "
20 DATA "1?", "                          F,f   bird feeding amounts   "
21 DATA "1?", "                          7     1997 CALENDER
22 DATA "1?", "             There are only 4 commands besides the above keys"
23 DATA "1?", "                              Space bar...CLS"
24 DATA "1?", "                              F1..........Help"
25 DATA "1?", "                              F2..........Edit"
26 DATA "1?", "                              F7..........Exit"
27 DATA "1?", "                                    That's it!    ...dad"
28 DATA "1?", " "
29 DATA "1?", " "
30 '
31 DATA "2Tt", "***** The To Do List *****                               30-42"
32 DATA "2Tt", " "     
33 DATA "2Tt", "Take my watches to repair shops.
34 DATA "2Tt", "get a new hose for birds
35 DATA "2Tt", " "
36 DATA "2Tt", "fix light switch
37 DATA "2Tt", "weatherstrip back of front door
38 DATA "2Tt", "set up bird dish sink in back yard with hose connections
39 DATA "Dd", " "
40 DATA "2Tt", "Install front door handle and lock.
41 DATA "2Tt", "replace 3-way light switches in front room lamps
42 '
43 DATA "Gg", "  *****  The Grocery List *****                           42-62"
44 DATA "Gg", "
45 DATA "Gg", "_______item_______________  _cost_
46 DATA "Gg", "Honey Wheat Berry Bread      2.60
47 DATA "Zz", "Alta-Dena Raw Milk           1.00
48 DATA "Gg", "Cream of Mushroom soup (4)   3.20
49 DATA "Gg", "Jack's Desert Honey 5# can   6.50
50 DATA "Zz", "Cat food for the cat         2.50
51 DATA "Gg", "Salad dressing (yogurt)      2.50
52 DATA "Gg", "Hamburger 1#                 2.50
53 DATA "Gg", "Chicken                      3.50
54 DATA "Gg", "Beer                         2.00
55 DATA "Gg", "Ham slice (farmer john)      2.50
56 DATA "Zz", "Breakfast cereal             3.50
57 DATA "Zz", "Eggs, 1 dozen                2.00
58 DATA "Zz", "Cheese 2# cheddar mild       6.00
59 DATA "Zz", "Cream of Chicken soup (4)    3.20
60 DATA "Zz", "Cracker Jacks 10 oz.         1.50
61 DATA "Zz", "Carrots 5# bag               2.00
62 '
63 DATA "AaBb", "_______Anniversary & Birthday  Dates________       AaBb 62-81"
64 DATA "AaBb", "March 22,    1937  Bill ****                birthday"
65 DATA "AaBb", "April 9,     1916  Hedy's                   birthday"
66 DATA "AaBb", "April 1,     1991  Vick's & Joe *****    anniversary"
67 DATA "AaBb", "April 15,    1946  Norbert & ******'s    anniversary"
68 DATA "AaBb", "April 16,    1952  Richard & Kathryn's   anniversary"
69 DATA "AaBb", "May 23,      1921  ******'s                 birthday"
70 DATA "AaBb", "June 27,     1969  ****'s                   birthday"
71 DATA "AaBb", "June 28,     1966  Victoria *****           birthday"
72 DATA "AaBb", "July 29,     1965  Joseph *****             birthday"
73 DATA "AaBb", "July 5,      1919  Grandpa's - 1995 RIP"
74 DATA "AaBb", "August 25,   1925  Kay's                    birthday"
75 DATA "AaBb", "September 3, 1968  **** & ********'s     anniversity"
76 DATA "AaBb", "September 6, 1997  Stephanie's & ?     marriage date"
77 DATA "AaBb", "October 22,  1924  Richard *******          birthday 2003 RIP"
78 DATA "AaBb", "October 23,  1922  Norbert's **********'s   birthday"
79 DATA "AaBb", "October 27,  1931  ********'s               birthday"
80 DATA "AaBb", "December 1,  1936  ****'s                   birthday"
81 '
82 DATA "Ee", "        EMERGENCY DATA   TYPE E                           81-95"
83 DATA "Ee", " "
84 DATA "Ee", "Emergency Phone Numbers
85 DATA "Ee", "     Police.......nnn-nnnn                    "
86 DATA "Ee", "     Fire.........nnn-nnnn                    "
87 DATA "Ee", "     Ambulance....nnn-nnnn                    "
88 DATA "Ee", "     Something....nnn-nnnn                    "
89 DATA "Ee", " "
90 DATA "Ee", "Credit Cards - Information & Lost or Stolen Cards"
91 DATA "Ee", "    American Express(US)                   1-800-528-4800"
92 DATA "Ee", "    Diners Club/Carte Blanche (US, Canada) 1-800-525-9135"
93 DATA "Ee", "    Master Card (US, Canada)               1-800-999-0454"
94 DATA "Ee", "    VISA (US, Canada)                      1-800-336-8472"
95 '
96 DATA "Cc", "                    ***** Calendar & Appointments *****  95-103"
97 DATA "Cc", " "
98 DATA "Cc", "Jan 1, 1997  - Don't forget **** at Ontario airport - 8:00pm"
99 DATA "Cc", "Jan 5, 1997 - temp tooth fell out                              "
100 DATA "Cc", "Jan 23, 1997 - dental appointment @ 10:30 am - ******s        "
101 DATA "Cc", "Mar 26, 1997 (wednesday 8:00pm channel 28) Lincoln Performing Arts 'La Bohme'"
102 DATA "Cc", "Sep 6, 1997 - Stephanie's tentative wedding date (stay alive!)"
103 '
104 DATA "r", "      ***** Personal Rolodex *****                  Pp  103-119"
105 DATA "R", "      ***** Business Rolodex *****                  Pp  103-119"
106 DATA "Rr"," "
107 DATA "r", "Blastname, first  & first       h(906) 466-nnnn"
108 DATA "r", "Blast, First E.                 h(715) 743-nnnn"
109 DATA "r", "Blast, First & first            h(310) 326-nnnn"
110 DATA "R", "Botanic Gardens, South Coast -  w(310) 544-nnnn"
111 DATA "R", "  Clast, first of S.C.B.G.      h(310) 841-nnnn"
112 DATA "R", "Klast, first   C.P.A.           w(310) 530-nnnn"
113 DATA "R", "Llast, first & first            h(805) 933-nnnn"
114 DATA "R", "Slast, Efirst   Esq.             (310) 320-nnnn"
115 DATA "R", "Slast   D.D.S., first     )      (310) 532-nnnn"
116 DATA "R", "State Farm Ins. - first last    w(310) 534-nnnn"
117 DATA "R", "Wlast, Dfirst, Hair Dresser     w(310) 378-nnnn"
118 '
119 '
120 DATA "Ff", "***** Feeding instructions for the Birds *****     Ff 119-137"
121 DATA "Ff", "                                                       "
122 DATA "Ff", "Senegals....................4         = 2 birds        "
123 DATA "Ff", "Societies...................seed      = 9 birds        "
124 DATA "Ff", "Pipsqueak...................3         = 1 bird         "
125 DATA "Ff", "Lovebirds...................6         = 6 birds        "
126 DATA "Ff", "Devil & Spouse..............6         = 2 birds        "
127 DATA "Ff", "Hooded parrots..............3         = 2 birds        "
128 DATA "Ff", "Kakarikis...................3         = 2 birds        "
129 DATA "Ff", "Zebra finches...............seed      = 8 birds        "
130 DATA "Ff", "Joe, Abelard & Heliouse.....6+seed    = 3 birds        "
131 DATA "Ff", "Quack & Can-Can.............6         = 2 birds        "
132 DATA "Ff", "Black-Wing Lories...........6         = 2 birds        "
133 DATA "Ff", "Pileateds...................4+seed    = 2 birds        "
134 DATA "Ff", "King........................3+seed    = 1 bird         "
135 DATA "Ff", "Goldiqueets.................7 ea/cage = 8 birds        "
136 DATA "Ff", "Parrotlets..................2 ea      = 8 birds        "
137 DATA "Ff", "Loose Wuvity bird...........1 ea      = 1 bird         "
138 DATA "7","                        1 9 9 7   C A L E N D A R         138-177
139 DATA "7","
140 DATA "7","         JANUARY                  FEBRUARY                MARCH
141 DATA "7","
142 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
143 DATA "7","            1  2  3  4                        1    30 31              1
144 DATA "7","   5  6  7  8  9 10 11      2  3  4  5  6  7  8     2  3  4  5  6  7  8
145 DATA "7","  12 13 14 15 16 17 18      9 10 11 12 13 14 15     9 10 11 12 13 14 15
146 DATA "7","  19 20 21 22 23 24 25     16 17 18 19 20 21 22    16 17 18 19 20 21 22
147 DATA "7","  26 27 28 29 30 31        23 24 25 26 27 28       23 24 25 26 27 28 29
148 DATA "7","
149 DATA "7","
150 DATA "7","         APRIL                    MAY                     JUNE
151 DATA "7","
152 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
153 DATA "7","         1  2  3  4  5                  1  2  3     1  2  3  4  5  6  7
154 DATA "7","   6  7  8  9 10 11 12      4  5  6  7  8  9 10     8  9 10 11 12 13 14
155 DATA "7","  13 14 15 16 17 18 19     11 12 13 14 15 16 17    15 16 17 18 19 20 21
156 DATA "7","  20 21 22 23 24 25 26     18 19 20 21 22 23 24    22 23 24 25 26 27 28
157 DATA "7","  27 28 29 30              25 26 27 28 29 30 31    29 30
158 DATA "7","                        1 9 9 7   C A L E N D A R
159 DATA "7","
160 DATA "7","         JULY                     AUGUST                  SEPTEMBER
161 DATA "7","
162 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
163 DATA "7","         1  2  3  4  5     31              1  2        1  2  3  4  5  6
164 DATA "7","   6  7  8  9 10 11 12      3  4  5  6  7  8  9     7  8  9 10 11 12 13
165 DATA "7","  13 14 15 16 17 18 19     10 11 12 13 14 15 16    14 15 16 17 18 19 20
166 DATA "7","  20 21 22 23 24 25 26     17 18 19 20 21 22 23    21 22 23 24 25 26 27
167 DATA "7","  27 28 29 30 31           24 25 26 27 28 29 30    28 29 30
168 DATA "7","
169 DATA "7","
170 DATA "7","         OCTOBER                  NOVEMBER                DECEMBER
171 DATA "7","
172 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
173 DATA "7","            1  2  3  4     30                 1        1  2  3  4  5  6
174 DATA "7","   5  6  7  8  9 10 11      2  3  4  5  6  7  8     7  8  9 10 11 12 13
175 DATA "7","  12 13 14 15 16 17 18      9 10 11 12 13 14 15    14 15 16 17 18 19 20
176 DATA "7","  19 20 21 22 23 24 25     16 17 18 19 20 21 22    21 22 23 24 25 26 27
177 DATA "7","  26 27 28 29 30 31        23 24 25 26 27 28 29    28 29 30 31
178 DATA "end of data",
179 '============================ end of data ======================
180 'ProgramStartsHere:
181 GOSUB 185 'FunctionKeyAssignments
182 GOSUB 189 'ScreenPainter
183 GOSUB 199 'SearchThruDatafile
184 END
185  'FunctionKeyAssignment:
186 KEY 1, "1": KEY 2, CHR$(234): KEY 3, "": KEY 4, "": KEY 5, ""
187 KEY 6, "" : KEY 7, CHR$(224): KEY 8, "": KEY 9, "": KEY 10, ""
188 RETURN
189  'ScreenPainter:
190 VIEW PRINT:KEY OFF
191 LOCATE ,,0,1,0:CLS 'makes cursor invisible
192 PRINT LEFT$(TIME$,5);TAB(22);"Joseph Sixpack's     basic lister";
193 PRINT TAB(71)DATE$;
194 PRINT "Lists:  2ToDone, 7, Emer, Groc, Rr-olo, Ann&Birth, Calen, Feed";
195 LOCATE 25,1
196 PRINT "Commands:  CLS=spacebar,  F1=help,  F2=edit,  F7=exit";
197 VIEW PRINT 4 TO 24
198 RETURN
199 '

 'SearchThruDataFile:
200 LET KP$=INKEY$:IF KP$= "" THEN 200  'looooooooooop
201 LET C=0
202   IF KP$=CHR$(224) THEN 212
203   IF KP$=" " THEN 180
204   IF KP$=CHR$(234) THEN LOCATE,,1,0,7:LIST 228-
205 RESTORE
206 READ ALPHA$, NAMES$
207   IF INSTR(ALPHA$, KP$)>0 THEN PRINT NAMES$
208   IF INSTR(ALPHA$, KP$)>0 THEN LET C=C+1
209   IF C=20 THEN GOSUB 218
210   IF ALPHA$ = "end of data" THEN 200
211   GOTO 206    '^^^^^^^^^^^^^^^^^^^^^^^^^Loop thru data lines
212  'SignOff:
213 CLS : PRINT : PRINT : PRINT
214 PRINT TAB(23) "Lister program terminated."
215 PRINT
216 PRINT TAB(23) " Thank you for using me."
217 FOR I = 1 TO 40000!: NEXT: VIEW PRINT: CLS:LOCATE,,1,0,7: RUN"mnu-main
218  'ScreenScrollPauser:
219  'PRINT "     Press any key to scroll listings"
220   KP$=INKEY$:IF KP$="" THEN 220    'loooooooooooooop
221   LET C=0
222   RETURN
223 'EmbeddedCommands&LastThings:
224 '        SAVE "LISTER.BAS",A   'Uses the INSTR(N,A$,B$)function
225 '        renum ,,
226 '        locate ,,1,0,7  :'   changes cursor to a block
227 '
228 VIEW PRINT:CLS:LIST    1-11   'notes
229 VIEW PRINT:CLS:LIST   11-30   'help screen
230 VIEW PRINT:CLS:LIST   30-42   'to do
231 VIEW PRINT:CLS:LIST   42-62   'grocery list
232 VIEW PRINT:CLS:LIST   62-81   'birthday & anniversary
233 VIEW PRINT:CLS:LIST   81-95   'emergency
234 VIEW PRINT:CLS:LIST   95-103  'Calendar and appointments
235 VIEW PRINT:CLS:LIST  103-119  'personal & business rolodex
236 VIEW PRINT:CLS:LIST  119-137  'bird feeding instructions
237 VIEW PRINT:CLS:LIST  138-177  '1997 calendar
238 '
239 VIEW PRINT:CLS:LIST  179-184  'Program
240 VIEW PRINT:CLS:LIST  185-190  'FunctionKeys
241 VIEW PRINT:CLS:LIST  190-201  'ScreenPainter
242 VIEW PRINT:CLS:LIST  201-215  'SearchThruDataFile
243 VIEW PRINT:CLS:LIST  215-222  'SignOff
244 VIEW PRINT:CLS:LIST  222-228  'ScreenScrollPauser
245 VIEW PRINT:CLS:LIST  228-     'EmbeddedCommands&LastThings˙
246 '   SAVE "LISTER.BAS",A


TOP Index TOC Back to Main Index
Hosted by www.Geocities.ws

1