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