10 PRINT"[147]":Z=0
20 FOR I=1TO10:PRINT"                    [193]":NEXT
30 PRINT"        NOTES ON USING READ/WRITE"
40 FORI=1TO2000:NEXT
41 PRINT""
50 PRINT"'READ/WRITE' IS A PROGRAM DEVELOPED TO"
51 PRINT"WRITE YOUR FAVORITE RECIPES TO A DISK"
52 PRINT"AND THEN RECALL THEM TO YOUR SCREEN"
53 PRINT"OR PRINTER."
54 PRINT""
55 PRINT"'READ/WRITE' IS MENU DRIVEN AND SIMPLE"
56 PRINT"TO USE. IT IS ALSO IN BASIC AND"
57 PRINT"THEREFORE EASY TO MODIFY TO SUIT "
58 PRINT"YOUR NEEDS."
60 GOSUB500
62 PRINT"WHEN YOU DOWNLOADED 'RECIPE.LBR' FROM"
63 PRINT"Q-LINK OVER 50 RECIPE FILES WERE"
64 PRINT"INCLUDED. THESE FILES ARE ASSIGNED"
65 PRINT"CONSECUTIVE NUMBERS WHICH ARE KEPT"
66 PRINT"IN A FILE CALLED 'INDEX'. THIS INDEX"
67 PRINT"MAY BE VIEWED BY USING THE 'VIEW"
68 PRINT"INDEX' OPTION OF THE MAIN MENU."
69 PRINT""
70 PRINT"A SECONDARY MENU WILL THEN PROMPT YOU"
71 PRINT"FOR A VIEW OR SEARCH OPTION. A 'VIEW'"
72 PRINT"IS A VIEW OF THE ENTIRE CONTENTS OF"
73 PRINT"THE INDEX. 'SEARCH' WILL FURTHER ASK"
74 PRINT"FOR A SEARCH PATTERN. FOR INSTANCE IF"
75 PRINT"YOU DESIRE A CAKE RECIPE SIMPLY INPUT"
76 PRINT"THE WORD CAKE. THEN ANY RECIPE TITLE"
77 PRINT"WITH THE WORD CAKE ANYWHERE IN IT "
78 PRINT"WILL BE BROUGHT UP FOR REVIEW."
79 PRINT""
80 PRINT"AT ANY TIME THESE RECIPES MAY BE"
81 PRINT"SENT TO THE PRINTER"
82 PRINT"":GOSUB500
83 PRINT"AT THE 'READ FILE' OPTION OF THE MAIN"
84 PRINT"MENU, FILES ARE ACCESSED BY THEIR "
85 PRINT"INDEX NUMBER. THIS SAVES HAVING TO"
86 PRINT"WRITE THE ENTIRE NAME OF EACH RECIPE"
87 PRINT"DESIRED."
88 PRINT""
89 PRINT"THE 'WRITE TO FILE' OPTION HAS"
90 PRINT"A SIMPLE WORD PROCESSOR GEARED"
91 PRINT"FOR THIS PROGRAM. IN THIS MODE IT IS"
92 PRINT"NOT NECESSARY TO USE THE CARRIAGE"
93 PRINT"RETURN AT THE END OF EACH LINE OF"
94 PRINT"TEXT, SIMPLY CONTINUE TYPING AND"
95 PRINT"ALTHOUGH THE LINE MAY BREAK IN THE"
96 PRINT"MIDDLE OF A WORD ON YOUR 40 COLUMN"
97 PRINT"SCREEN, IT WILL ONLY BREAK ON A"
98 PRINT"SRACE WHEN PRINTED ON YOUR 80 COLUMN"
99 PRINT"PRINTER."
100 PRINT""
101 IF Z=1THEN1030
105 PRINT"P TO PRINT NOTES"
106 PRINT"ANY KEY TO EXIT[146]"
110 GETA$:IFA$=""THEN110
115 IF A$="P"THEN1000
120 END
499 STOP
500 IFZ=1THEN600
501 PRINT"HIT ANY KEY TO CONTINUE[146]"
(null)(null)
GETA$:IFA$=""THEN502
(null)(null)
PRINT"[147]"
600 RETURN
1000 OPEN1,4
1010 CMD1
1020 Z=1:GOTO30
1030 PRINT#1:CLOSE1