Index TOC

The GW-BASIC Help File

using

GW-BASIC

0 ' programmed by Joseph_Sixpack for his family and the world in 1994? 1995
1 ' GW-BASIC help file is a self explanatory LISTER program of GWBASIC keywords
2 ' and functions as well as some other tips and examples related to using the
3 ' BASIC programming language.
4 ' There are available about 62-72 lists of topics using upper and lower case
5 ' plus numbers & punctuation.  A reference table for the various lists could
6 ' be coded with a ? for example & would page in 4 screens if completely full.
7 ' (deleted some stuff here..
8 ' (          )
9 ' (          )
10 DATA "1?", "         Press the first letter of any function or statement once
11 DATA "1?", "         or twice for help on that function or statement.
12 DATA "1?", "
13 DATA "1?", "         ie:  press 'C' or 'c' for help on the COS(x) function.
14 DATA "1?", "              press 'I' or 'i' for help on the INSTR$() function.
15 DATA "1?", "
16 DATA "1?", "         There are only 4 commands besides the letter keys.
17 DATA "1?", "
18 DATA "1?", "                              Space bar...CLS"
19 DATA "1?", "                              F1..........Help"
20 DATA "1?", "                              F2..........Edit"
21 DATA "1?", "                              F7..........Exit"
22 DATA "1?", "
23 DATA "1?", "                                    That's it!    ...dad       10-25"
24 DATA "1?", "
25 DATA "1?", "
26 DATA "Aa", "----------------------------------
27 DATA "Aa", "ABS(n)  Returns the absolute value of the numeric expression n
28 DATA "Aa", "----------------------------------
29 DATA "Aa", "ASC(x$) Returns the value of the first letter in x$
30 DATA "Aa", "        ranges:  uppercase values are:  65-90
31 DATA "Aa", "                 lowercase values are:  97-122
32 DATA "Aa", "                 numbers 0-9 are     :  48-57
33 DATA "Aa", "        see also CHR$() for ASCII to string conversion
34 DATA "Aa", "----------------------------------
35 DATA "Aa", "ATN(x)  Returns arctangent x radians (from -pi/2 to pi/2)
36 DATA "Aa", "          Note1:  single precision value returned unless GWBASIC
37 DATA "Aa", "                  executed with /d switch.
38 DATA "Aa", "          Note2:  multiply by pi/180 to convert from RADIANS to
39 DATA "Aa", "                  DEGREES example:  pi=4*atn(1): atn(45*pi/180)
40 DATA "Aa", "---------------------------------
41 DATA "Aa", "AUTO [line number],[increment]
42 REM
43 DATA "Bb", "---------------------------------                           48-64
44 DATA "Bb", "BEEP    Sounds 800 Hz for 1/4 second
45 DATA "Bb", "        Notes:  BEEP =  = PRINT CHR$(7)
46 DATA "Bb", "
47 DATA "Bb", "---------------------------------
48 DATA "Bb", "BLOAD   filename [,offset]
49 DATA "Bb", "        loads an image file into memory (be careful)
50 DATA "Bb", "see also DEF SEG
51 DATA "Bb", "
52 DATA "Bb", "---------------------------------
53 DATA "Bb", "BSAVE filename,offset,length    (execute a DEF SEG before BSAVE)
54 DATA "Bb", "        saves portions of user memory
55 DATA "Bb", " example: 10 DEF SEG=&HB800          <--screen buffer segment
56 DATA "Bb", "          20 BSAVE'picture',0,16384  <--saves buffer in picture
57 DATA "Bb", "
58 REM
59 DATA "Cc", "------------------------------                         Cc 66-84
60 DATA "Cc", "CALL numvar[(variables)]     calls an assembly subroutine
61 DATA "Cc", "        numvar = starting point in memory
62 DATA "Cc", "        variables = variables/constants ( ),( ), that are passed
63 DATA "Cc", "        to the routine.
64 DATA "Cc", "
65 DATA "Cc", "
66 DATA "Cc", "
67 DATA "Cc", "
68 DATA "Cc", "
69 DATA "Cc", "
70 DATA "Cc", "
71 DATA "Cc", "
72 DATA "Cc", "
73 DATA "Cc", "
74 DATA "Cc", "
75 DATA "Cc", "
76 DATA "Dd", "--------------------------------------
77 DATA "Dd", "                                              81-    "
78 DATA "Dd", "
79 DATA "Dd", "
80 DATA "Dd", "
81 DATA "Dd", "
82 DATA "Dd", "
83 DATA "Dd", "
84 DATA "Dd", "
85 DATA "Dd", "
86 DATA "Dd", "
87 DATA "Dd", "
88 DATA "Dd", "
89 DATA "Dd", "
90 REM
91 DATA "Ee", "Cc 94-101           *****                         *****         "
92 DATA "Ee", "
93 DATA "Ee", "
94 DATA "Ee", "
95 DATA "Ee", "
96 DATA "Ee", "
97 DATA "Ee", "
98 REM
99 DATA "Ff", "      ***** fffffffffffffffff *****                   Pp  102-117"
100 DATA "Ff", "
101 DATA "Ff", "
102 DATA "Ff", "
103 DATA "Ff", "
104 DATA "Ff", "
105 DATA "Ff", "
106 DATA "Ff", "
107 DATA "Ff", "
108 DATA "Ff", "
109 DATA "Ff", "
110 DATA "Ff", "
111 DATA "Ff", "
112 DATA "Ff", "
113 '
114 REM
115 DATA "Gg", "***** gggggggggggggggggggggggggggggggggg *****     Gg 119-   "
116 DATA "Gg", "                                                       "
117 DATA "Gg", "
118 DATA "Gg", "
119 DATA "Gg", "
120 DATA "Gg", "
121 DATA "Gg", "
122 DATA "Gg", "
123 DATA "Gg", "
124 DATA "Gg", "
125 DATA "Gg", "
126 DATA "Gg", "
127 DATA "Gg", "
128 DATA "Gg", "
129 DATA "Gg", "
130 DATA "Gg", "
131 DATA "Gg", "
132 DATA "Gg", "
133 DATA "7","                        1 9 9 7   C A L E N D A R
134 DATA "7","         JANUARY                  FEBRUARY                MARCH
135 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
136 DATA "7","            1  2  3  4                        1    30 31              1
137 DATA "7","   5  6  7  8  9 10 11      2  3  4  5  6  7  8     2  3  4  5  6  7  8
138 DATA "7","  12 13 14 15 16 17 18      9 10 11 12 13 14 15     9 10 11 12 13 14 15
139 DATA "7","  19 20 21 22 23 24 25     16 17 18 19 20 21 22    16 17 18 19 20 21 22
140 DATA "7","  26 27 28 29 30 31        23 24 25 26 27 28       23 24 25 26 27 28 29
141 DATA "7","
142 DATA "7","
143 DATA "7","         APRIL                    MAY                     JUNE
144 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
145 DATA "7","         1  2  3  4  5                  1  2  3     1  2  3  4  5  6  7
146 DATA "7","   6  7  8  9 10 11 12      4  5  6  7  8  9 10     8  9 10 11 12 13 14
147 DATA "7","  13 14 15 16 17 18 19     11 12 13 14 15 16 17    15 16 17 18 19 20 21
148 DATA "7","  20 21 22 23 24 25 26     18 19 20 21 22 23 24    22 23 24 25 26 27 28
149 DATA "7","  27 28 29 30              25 26 27 28 29 30 31    29 30
150 DATA "7","
151 DATA "7","         JULY                     AUGUST                  SEPTEMBER
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     31              1  2        1  2  3  4  5  6
154 DATA "7","   6  7  8  9 10 11 12      3  4  5  6  7  8  9     7  8  9 10 11 12 13
155 DATA "7","  13 14 15 16 17 18 19     10 11 12 13 14 15 16    14 15 16 17 18 19 20
156 DATA "7","  20 21 22 23 24 25 26     17 18 19 20 21 22 23    21 22 23 24 25 26 27
157 DATA "7","  27 28 29 30 31           24 25 26 27 28 29 30    28 29 30
158 DATA "7","
159 DATA "7","
160 DATA "7","         OCTOBER                  NOVEMBER                DECEMBER
161 DATA "7","   S  M  T  W  T  F  S      S  M  T  W  T  F  S     S  M  T  W  T  F  S
162 DATA "7","            1  2  3  4     30                 1        1  2  3  4  5  6
163 DATA "7","   5  6  7  8  9 10 11      2  3  4  5  6  7  8     7  8  9 10 11 12 13
164 DATA "7","  12 13 14 15 16 17 18      9 10 11 12 13 14 15    14 15 16 17 18 19 20
165 DATA "7","  19 20 21 22 23 24 25     16 17 18 19 20 21 22    21 22 23 24 25 26 27
166 DATA "7","  26 27 28 29 30 31        23 24 25 26 27 28 29    28 29 30 31
167 REM
168 DATA "end of data",
169 '
170 KEY 1, "1": KEY 2, "": KEY 3, "": KEY 4, "": KEY 5, ""
171 KEY 6, "": KEY 7, "": KEY 8, "": KEY 9, "": KEY 10, ""
172 REM
173 VIEW PRINT
174 LOCATE ,,0,1,0:CLS
175 KEY OFF: LOCATE 25, 1
176 PRINT "Commands:  Space bar=CLS, F1=help, F2=edit, F7=exit";
177 LOCATE 1, 1
178 PRINT TAB(14);"Welcome to the Four Files of the Apocalypse 'HELP FILE'";
179 PRINT TAB(2)LEFT$(TIME$,5);TAB(70) DATE$;
180 VIEW PRINT 4 TO 23
181 LET SEARCH$ = INKEY$: IF SEARCH$ = "" THEN 181: 'requires 1 keystroke
182 LET COUNT = 0
183 IF SEARCH$ = "" THEN 193
184 IF SEARCH$ = " " THEN 172
185 IF SEARCH$ = "" THEN 206
186 RESTORE
187 READ ALPHA$, NAMES$
188 IF INSTR(ALPHA$, SEARCH$) > 0 THEN PRINT NAMES$
189 IF INSTR(ALPHA$, SEARCH$) > 0 THEN LET COUNT = COUNT + 1
190 IF COUNT > 16 THEN GOSUB 198
191 IF ALPHA$ = "end of data" THEN 181
192 GOTO 187
193 CLS : PRINT : PRINT : PRINT
194 PRINT TAB(16); "Four Files of the Apocalypse HELP FILE program terminated."
195 PRINT
196 PRINT TAB(27); "   Thank you for using me."
197 FOR I = 1 TO 40000!: NEXT: VIEW PRINT: CLS:LOCATE,,1,0,7: RUN"MNU-MAIN
198 '              ***  Scroll stop if screen is full ***
199   PRINT "Press space bar/letter key once or twice to scroll listings or clear screen."
200   IF INKEY$ = "" THEN 200
201   LET COUNT = 0
202   RETURN
203 '        SAVE "HELP-FFA.BAS",A : '   USES THE INSTR(N,A$,B$)FUNCTION
204 '        renum ,,
205 '        locate ,,1,0,7  :'   changes cursor to a block
206 LOCATE,,1,0,7:END


TOP Index TOC
Hosted by www.Geocities.ws

1