5 REM ..... QUIKDOC3 (c) 1981 FutureSoft ......
10 REM .... Ver. 2.1    10/22/81 ....
20 FF$=CHR$(12)
21 LF$=CHR$(138)
25 L$="###      %                              %   ###   %%"
30 RESTORE
40 READ S1
45 READ F$
50 READ S2
60 READ P$
100 REM . . .start mainline . . . 
105 LPRINT FF$
106 LPRINT STRING$(20,ASC(LF$))
107 LPRINT "                    Operator's Guide for ";P$
108 LPRINT " "
109 LPRINT "                    Data Entry/Filing System "
110 LPRINT STRING$(15,LF$)
115 LPRINT "                    (c) 1981  FutureSoft"
150 GOSUB 5000
160 LPRINT "          Table of Contents      "
162 LPRINT " ":LPRINT " ":LPRINT " "
163 LPRINT "               Section   1.0    Using Your New Progam"
164 LPRINT " ":LPRINT " "
165 LPRINT "                         1.1    First Time Use"
166 LPRINT " ":LPRINT " "
167 LPRINT "               Section   2.0   ";P$;" Record Layout"
168 LPRINT " ":LPRINT " "
169 LPRINT "               Section   3.0   Adding, Updating and Deleting Records "
170 LPRINT  " ":LPRINT " "
171 LPRINT "                         3.1   Adding Records"
172 LPRINT " ":LPRINT " "
173 LPRINT "                         3.2   Getting Records"
174 LPRINT " ":LPRINT " "
175 LPRINT "                         3.2.1     Deleting Records"
176 LPRINT  " ":LPRINT " "
177 LPRINT "                         3.2.2     Updating or Changing Records"
178 LPRINT " ":LPRINT " "
179 LPRINT "                         3.3   Ending Program "
190 GOSUB 5000
200 REM . . . . page 1
201 LPRINT "       1.0   Using Your New Program "
202 LPRINT " "
203 LPRINT "     Your new program will let you Add, Locate & Update, "
204 LPRINT " and Delete from your File.  This file is the File that you "
205 LPRINT "named when you created your program.  This file "
206 LPRINT "is ";F$;"."
207 LPRINT " "
208 LPRINT "     1.1  First Time Use "
210 LPRINT " "
211 LPRINT "     The first time you use ";P$;", you will be asked "
212 LPRINT "how big you want your file to be.  Your Program will use"
213 LPRINT "this information to make sure that you don't run out "
214 LPRINT "of room in the middle of using your program."
215 LPRINT  " "
216 LPRINT "     You should enter the MAXIMUM NUMBER of RECORDS that "
217 LPRINT "you want to have in your file.  If you don't know exactly,"
218 LPRINT "then enter a number which you are sure will be enough "
219 LPRINT "space for all of your records.  If there is not enough "
220 LPRINT "room on your particular disk or diskette for a file that "
221 LPRINT "is as big as you want, then the program will tell you."
222 LPRINT " "
223 LPRINT "Your program will then display : "
224 LPRINT  " "
225 LPRINT "     WHICH DISK DO YOU WANT THE DATA File to reside on ? "
226 LPRINT " "
227 LPRINT "You should enter: "
228 LPRINT  "" 
229 LPRINT "The diskette or disk Drive Number or Code that you wish "
230 LPRINT "to use to store your Data File on.  On some systems, this"
231 LPRINT "will Drive Code will be a number and in others, it will be"
232 LPRINT "a letter.  Consult your particular computers manual to "
233 LPRINT "find out the proper type of drove codes used."
234 LPRINT " "
235 LPRINT "The system will delay for several seconds for some internal "
236 LPRINT "processing."
237 LPRINT " "
238 LPRINT "NOTE:  Make sure that there is a diskette or disk in the "
239 LPRINT "       drive that you specified for your file.  If there "
240 LPRINT "       isn't, then your program may hang up or abort"
241 LPRINT "       requiring you to start over again."
250 GOSUB 5000
300 REM PAGE 2
301 LPRINT " "
302 LPRINT "     2.0  ";P$;"  Record Layout "
303 LPRINT " "
304 LPRINT "     ";P$;" will allow you to Add, Locate and Update, "
305 LPRINT "or Delete records from the file named ";F$;".  The "
306 LPRINT "record in your file has ";S2;" fields.  A field is one "
307 LPRINT "item of information in your file.  So, your program ";P$
308 LPRINT "has ";S2;" distinct items of information contained in "
309 LPRINT "each one of your records."
310 LPRINT " "
311 LPRINT "The form of your record will be displayed on your computer"
312 LPRINT "screen, and will look like this: "
315 REM . . . print screen area . . . .
317 LPRINT " ":LPRINT " "
320  FOR X = 1 TO S1-S2
330       READ Z1,Z1$,Z2,Z2$,Z3$,Z4$
340       LPRINT " "
350       LPRINT Z1$
360  NEXT X
365  LPRINT " "
370  LPRINT "Fig. 1.0  - ";P$;" Screen and Record Layout"
375 GOSUB 5000
400 REM. . . page 3
401 LPRINT "     Each field in your record can only contain a certain "
402 LPRINT "number of characters.  Some fields will only allow a number "
403 LPRINT "to be entered into them.  Listed below are the fields which "
404 LPRINT "are included in your record, along with the maximum length"
405 LPRINT "allowed for each field.  Also listed is the type of field, "
406 LPRINT "either numeric (number field only) or alphanumeric (character"
407 LPRINT "or number field).  "
408 LPRINT " "
409 LPRINT "        Record Fields for ";P$
410 LPRINT " "
412 LPRINT "Number   Description                     Length   Type"
413 LPRINT "-------  ------------------------------- -------- ----"
414    LC=37
415 FOR X = 1 TO S2
416       READ Z1,Z1$,Z2,Z2$,Z3$,Z4$,Z5$
417      LC=LC-2
418      IF LC<0 THEN LPRINT " ":LPRINT "          ";P$;" Record Fields ":GOSUB 5000
419     LPRINT " "
420     LPRINT USING L$;X,Z5$,Z2,Z2$
430 NEXT X
440 LPRINT " ":LPRINT " "
450  LPRINT "          ";P$;"  Record Fields "
460  GOSUB 5000
500 REM . . . next page . . .
501 LPRINT "      3.0    Adding, Updating and Deleting Records "
502 LPRINT " "
503 LPRINT "     When your ";P$;" program begins running, you will see "
504 LPRINT "    the screen input form as shown in Figure 1.0.  At the "
505 LPRINT "bottom of the screen will be displayed the functions you can"
506 LPRINT "perform.  "
507 LPRINT " "
508 LPRINT "The display will be: "
509 LPRINT " "
510 LPRINT "     <A>dd Record, <G>et Record, <E>nd Program -  "
511 LPRINT " "
512 LPRINT "You should enter either an A, G, or E.  Make sure that you "
513 LPRINT "have the shift on your keyboard on so that all letters will be "
514 LPRINT "entered as capital letters."
515 LPRINT ""
600 OPEN "I",1,"QXDOC3"
601 LC=35
605    IF EOF(1) THEN 700
610 LINE INPUT #1, A$: IF A$="" THAEN A$=" "
611    LC=LC-1
612 IF LC<0 THEN GOSUB 5000
615    LPRINT A$
620  GOTO 605
700 LPRINT FF$
710 RUN "QUIKMENU"
5000 REM . . . .HEADER . . . . .
5010     LC=50
5020     PG=PG+1
5030     LPRINT FF$
5040     LPRINT " "
5050     LPRINT " "
5060     LPRINT "Operator's Instructions for ";P$;"           Page -  ";PG
5070     LPRINT " "
5080     LPRINT " "
5090  RETURN
