home *** CD-ROM | disk | FTP | other *** search
/ Colossal Cookbook / ColossalCookbook.cdr / sw / chefs / chefs.bas next >
BASIC Source File  |  1987-04-22  |  48KB  |  1,534 lines
  1. 10 ON ERROR GOTO 130
  2. 20 LDDSKB$= "LOAD DISKETTE CONTAINING RECIPE FILE IN UNIT B"
  3. 30 VERSION$="CHEFS1.51"
  4. 40 SERIAL%=100
  5. 50 PDATE$="2-24-83"
  6. 60 PRSPBAR$="PRESS SPACE BAR to continue"
  7. 70 KEY OFF
  8. 80 NRMLPRT$="Y"
  9. 90 WKFIL$="N"
  10. 100 COPYSIG$="FIND"
  11. 110 OUTUNIT$="B"
  12. 120 GOTO 5430
  13. 130 IF ERR=27 THEN 170
  14. 140 IF ERR=53 THEN 15230
  15. 150 IF ERR=61 THEN 13560
  16. 160 ON ERROR GOTO 0
  17. 170 CLS
  18. 180 PRINT "CHECK PRINTER:"
  19. 190 PRINT "   Is power turned on?"
  20. 200 PRINT "   Ready light on?"
  21. 210 PRINT "   Out of paper?"
  22. 220 PRINT
  23. 230 PRINT "PRESS SPACE BAR TO CONTINUE"
  24. 240 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 240
  25. 250 RESUME
  26. 260 CLS
  27. 270 PRINT "CHEFS program terminated"
  28. 280 CLOSE
  29. 290 END
  30. 300 GOTO 5890
  31. 310 REM-subroutine-print copy of recipe on line printer
  32. 320 PRINT "Improper entry to line printer subroutine"
  33. 330 STOP
  34. 340 CLS
  35. 350 IF PRINTFIL$="Y" GOTO 400
  36. 360 PRINT "SET UP LINE PRINTER"
  37. 370 PRINT
  38. 380 PRINT "PRESS SPACE BAR TO CONTINUE"
  39. 390 SPACEBAR$=INKEY$: IF SPACEBAR$=""THEN 390
  40. 400 CLS
  41. 410 PRINT
  42. 420 PRINT
  43. 430 COLOR 23
  44. 440 PRINT "Printing recipe"
  45. 450 COLOR 7
  46. 460 IF NRMLPRT$="N" GOTO 480
  47. 470 IF LEFT$(RECL1$,5)= "(cont" GOTO 590
  48. 480 LPRINT SPC(27)                  "CHEFS"
  49. 490 LPRINT
  50. 500 LPRINT
  51. 510 LPRINT
  52. 520 LPRINT "Recipe #  ";RECNO%,"Keywords:  ";KYWD1$;",";KYWD2$;",";KYWD3$
  53. 530 LPRINT "Recipe Name:  ";RECNAM$
  54. 540 LPRINT "Source:  ";RECSRC$
  55. 550 REM - LPRINT "Status:  ";RECSTUS$
  56. 560 LPRINT
  57. 570 LPRINT
  58. 580 LPRINT RECL1$
  59. 590 LPRINT RECL2$
  60. 600 LPRINT RECL3$
  61. 610 LPRINT RECL4$
  62. 620 LPRINT RECL5$
  63. 630 LPRINT RECL6$
  64. 640 LPRINT RECL7$
  65. 650 LPRINT RECL8$
  66. 660 LPRINT RECL9$
  67. 670 LPRINT RECL10$
  68. 680 LPRINT RECL11$
  69. 690 IF NRMLPRT$="N" GOTO 710
  70. 700 IF LEFT$(RECL12$,5)= "(cont" GOTO 730
  71. 710 LPRINT RECL12$
  72. 720 LPRINT CHR$(12)
  73. 730 IF PRINTFIL$="Y" GOTO 890
  74. 740 CLS
  75. 750 PRINT
  76. 760 PRINT
  77. 770 PRINT "PRINTOUT LOOK OK?"
  78. 780 PRINT "     Yes- continue with program"
  79. 790 PRINT "     No - reprint this recipe after I've adjusted printer"
  80. 800 PRINT
  81. 810 PRINT "ADJUST PRINTER if necessary BEFORE entering Y/N"
  82. 820 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 820
  83. 830 IF CHOICE1$="N" GOTO 430
  84. 840 IF CHOICE1$="n" GOTO 430
  85. 850 IF CHOICE1$="Y" GOTO 890
  86. 860 IF CHOICE1$="y" GOTO 890
  87. 870 PRINT "WRONG INPUT - Enter Y or N"
  88. 880 GOTO 820
  89. 890 RETURN
  90. 900 REM-SUBROUTINE-Display recipe on screen
  91. 910 PRINT "Improper entry to Display subroutine"
  92. 920 STOP
  93. 930 CLS
  94. 940 PRINT "Recipe #  ";RECNO%; SPC(5) "Keywords  : ";KYWD1$;",";KYWD2$;",";KYWD3$
  95. 950 PRINT "Recipe Name:  ";RECNAM$
  96. 960 PRINT "Source:  ";RECSRC$
  97. 970 PRINT
  98. 980 REM - 1570 PRINT "Status:   ";RECSTUS$
  99. 990 PRINT RECL1$
  100. 1000 PRINT RECL2$
  101. 1010 PRINT RECL3$
  102. 1020 PRINT RECL4$
  103. 1030 PRINT RECL5$
  104. 1040 PRINT RECL6$
  105. 1050 PRINT RECL7$
  106. 1060 PRINT RECL8$
  107. 1070 PRINT RECL9$
  108. 1080 PRINT RECL10$
  109. 1090 PRINT RECL11$
  110. 1100 PRINT RECL12$
  111. 1110 RETURN
  112. 1120 REM - Subroutine - Find recipe using keywords
  113. 1130 PRINT "Improper entry to find-rec-using-kywds subroutine"
  114. 1140 STOP
  115. 1150 IF FIRST1$="N" GOTO 1200
  116. 1160 COLOR 23
  117. 1170 PRINT "Looking for recipe using keywords"
  118. 1180 COLOR 7
  119. 1190 FIRST1$="N"
  120. 1200 KYWDCNT%=0
  121. 1210 KYWDMTCH%=0
  122. 1220 MTCHFND$="N"
  123. 1230 IF EOF (1) GOTO 4780
  124. 1240 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$
  125. 1250 IF SCHKYWD1$="" GOTO 1330
  126. 1260 KYWDCNT%=KYWDCNT% + 1
  127. 1270 IF SCHKYWD1$=KYWD1$ GOTO 1310
  128. 1280 IF SCHKYWD1$=KYWD2$ GOTO 1310
  129. 1290 IF SCHKYWD1$=KYWD3$ GOTO 1310
  130. 1300 GOTO 1330
  131. 1310 KYWDMTCH%=KYWDMTCH% + 1
  132. 1320 GOTO 1330
  133. 1330 IF SCHKYWD2$="" GOTO 1400
  134. 1340 KYWDCNT%=KYWDCNT% + 1
  135. 1350 IF SCHKYWD2$=KYWD1$ GOTO 1390
  136. 1360 IF SCHKYWD2$=KYWD2$ GOTO 1390
  137. 1370 IF SCHKYWD2$=KYWD3$ GOTO 1390
  138. 1380 GOTO 1400
  139. 1390 KYWDMTCH%=KYWDMTCH% + 1
  140. 1400 IF SCHKYWD3$="" GOTO 1470
  141. 1410 KYWDCNT%=KYWDCNT% +  1
  142. 1420 IF SCHKYWD3$=KYWD1$ GOTO 1460
  143. 1430 IF SCHKYWD3$=KYWD2$ GOTO 1460
  144. 1440 IF SCHKYWD3$=KYWD3$ GOTO 1460
  145. 1450 GOTO 1470
  146. 1460 KYWDMTCH%=KYWDMTCH% + 1
  147. 1470 IF KYWDCNT%=KYWDMTCH% GOTO 1490
  148. 1480 GOTO 1150
  149. 1490 MTCHFND$="Y"
  150. 1500 RETURN
  151. 1510 REM-Start of section (H) - Create a file of recipes
  152. 1520 CLS : PRINT
  153. 1530 OUTEOF$="N"
  154. 1540 PRINT SPC(10)   "Create A File Of Recipes"
  155. 1550 OPEN "RECFIL" FOR OUTPUT AS #2
  156. 1560 PRINT
  157. 1570 PRINT
  158. 1580 PRINT "ENTER # TO BE ASSIGNED TO THE FIRST RECIPE"
  159. 1590 INPUT "nnnn"; RECNO%
  160. 1600 REM-Start of section (H1) Enter a recipe
  161. 1610 RECSTUS$="1"
  162. 1620 CLS
  163. 1630 PRINT
  164. 1640 PRINT "ENTER RECIPE NAME"
  165. 1650 INPUT RECNAM$
  166. 1660 PRINT
  167. 1670 PRINT
  168. 1680 PRINT "ENTER RECIPE SOURCE"
  169. 1690 INPUT RECSRC$
  170. 1700 PRINT
  171. 1710 PRINT
  172. 1720 PRINT
  173. 1730 PRINT "DO YOU WISH TO ASSIGN KEYWORDS TO THIS RECIPE? (Y/N)"
  174. 1740 ASNKYWDS$=INKEY$: IF ASNKYWDS$="" THEN 1740
  175. 1750 IF ASNKYWDS$="N" GOTO 2240
  176. 1760 IF ASNKYWDS$="n" GOTO 2240
  177. 1770 IF ASNKYWDS$="Y" GOTO 1810
  178. 1780 IF ASNKYWDS$="y" GOTO 1810
  179. 1790 PRINT "WRONG INPUT - Enter Y or N"
  180. 1800 GOTO 1740
  181. 1810 GOSUB 10110
  182. 1820 INPUT "KYWD1";KYWD1$
  183. 1830 INPUT "KYWD2";KYWD2$
  184. 1840 INPUT "KYWD3";KYWD3$
  185. 1850 REM-Enter Recipe Description
  186. 1860 CLS
  187. 1870 PRINT
  188. 1880 PRINT "ENTER RECIPE (12 lines maximum, ENTER each line separately"
  189. 1890 INPUT "L1     ";RECL1$
  190. 1900 INPUT "L2     ";RECL2$
  191. 1910 INPUT "L3     ";RECL3$
  192. 1920 INPUT "L4     ";RECL4$
  193. 1930 INPUT "L5     ";RECL5$
  194. 1940 INPUT "L6     ";RECL6$
  195. 1950 INPUT "L7     ";RECL7$
  196. 1960 INPUT "L8     ";RECL8$
  197. 1970 INPUT "L9     ";RECL9$
  198. 1980 INPUT "L10    ";RECL10$
  199. 1990 INPUT "L11    ";RECL11$
  200. 2000 INPUT "L12    ";RECL12$
  201. 2010 IF LEFT$(RECL12$,4)="cont" GOTO 6730
  202. 2020 GOSUB 930
  203. 2030 PRINT
  204. 2040 PRINT
  205. 2050 PRINT "NEXT ACTION DESIRED"
  206. 2060 PRINT "   A - Store this recipe in the file
  207. 2070 PRINT "   B - Go back to make changes before storing"
  208. 2080 PRINT "   C - Forget this recipe and return to MENU"
  209. 2090 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2090
  210. 2100 IF CHOICE1$="A" GOTO 2290
  211. 2110 IF CHOICE1$="a" GOTO 2290
  212. 2120 IF CHOICE1$="B" GOTO 2180
  213. 2130 IF CHOICE1$="b" GOTO 2180
  214. 2140 IF CHOICE1$="C" GOTO 2210
  215. 2150 IF CHOICE1$="c" GOTO 2210
  216. 2160 PRINT "WRONG INPUT - Enter A, B or C"
  217. 2170 GOTO 2090
  218. 2180 REPCHG$="Y"
  219. 2190 GOSUB 6760
  220. 2200 GOTO 2010
  221. 2210 CLOSE 2
  222. 2220 GOTO 5890
  223. 2230 REM-Set keywords to blank
  224. 2240 KYWD1$=" "
  225. 2250 KYWD2$=" "
  226. 2260 KYWD3$=" "
  227. 2270 GOTO 1860
  228. 2280 REM-Store this recipe on disk file
  229. 2290 IF LEFT$(RECL12$,5)="(cont" GOTO 6620
  230. 2300 CONTSIG$="N"
  231. 2310 PRINT #2, RECNO%;",";RECSTUS$;",";KYWD1$;",";KYWD2$;",";KYWD3$;",";RECNAM$;",";RECSRC$;",";RECL1$;",";RECL2$;",";RECL3$;",";RECL4$;",";RECL5$;",";RECL6$;",";RECL7$;",";RECL8$;",";RECL9$;",";RECL10$;",";RECL11$;",";RECL12$
  232. 2320 IF CONTSIG$="Y" GOTO 6650
  233. 2330 CLS
  234. 2340 PRINT "ANOTHER RECIPE?  (Y/N)"
  235. 2350 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2350
  236. 2360 IF CHOICE1$="Y" GOTO 2440
  237. 2370 IF CHOICE1$="y" GOTO 2440
  238. 2380 IF CHOICE1$="N" GOTO 2420
  239. 2390 IF CHOICE1$="n" GOTO 2420
  240. 2400 PRINT "WRONG INPUT - Enter Y or N"
  241. 2410 GOTO 2350
  242. 2420 CLOSE 2
  243. 2430 GOTO 300
  244. 2440 RECNO%=RECNO% + 1
  245. 2450 GOTO 1610
  246. 2460 REM - Start of section (D) - Scan recipes in file
  247. 2470 CLS
  248. 2480 PRINT SPC(10)   "Scan Recipes In File"
  249. 2490 PRINT
  250. 2500 PRINT
  251. 2510 PRINT PRSPBAR$
  252. 2520 OPEN "RECFIL" FOR INPUT AS #1
  253. 2530 GOTO 13710
  254. 2540 IF EOF (1) GOTO 2820
  255. 2550 INPUT #1, RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$
  256. 2560 GOSUB 930
  257. 2570 PRINT "NEXT ACTION DESIRED"
  258. 2580 PRINT "     A - Scan further"
  259. 2590 PRINT "     B - Print copy this recipe, stop scan, return to MENU"
  260. 2600 PRINT "     C - Print copy this recipe, scan further"
  261. 2610 PRINT "     D - Stop scan and return to MENU"
  262. 2620 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2620
  263. 2630 IF CHOICE1$="A" GOTO 2540
  264. 2640 IF CHOICE1$="a" GOTO 2540
  265. 2650 IF CHOICE1$="B" GOTO 2750
  266. 2660 IF CHOICE1$="b" GOTO 2750
  267. 2670 IF CHOICE1$="C" GOTO 2780
  268. 2680 IF CHOICE1$="c" GOTO 2780
  269. 2690 IF CHOICE1$="D" GOTO 2800
  270. 2700 IF CHOICE1$="d" GOTO 2800
  271. 2710 IF CHOICE1$="Y" GOTO 15090
  272. 2720 IF CHOICE1$="y" GOTO 15090
  273. 2730 PRINT "WRONG INPUT - Enter A,B,C or D"
  274. 2740 GOTO 2620
  275. 2750 GOSUB 340
  276. 2760 CLOSE 1
  277. 2770 GOTO 5890
  278. 2780 GOSUB 340
  279. 2790 GOTO 2540
  280. 2800 CLOSE 1
  281. 2810 GOTO 5890
  282. 2820 REM - Input EOF
  283. 2830 CLOSE 1
  284. 2840 CLS
  285. 2850 PRINT "We have reached the end of this file of recipes"
  286. 2860 PRINT
  287. 2870 PRINT "HOW WOULD YOU LIKE TO PROCEED?"
  288. 2880 PRINT "     A - Scan another file"
  289. 2890 PRINT "     B - Return to Menu"
  290. 2900 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2900
  291. 2910 IF CHOICE1$="A" GOTO 2970
  292. 2920 IF CHOICE1$="a" GOTO 2970
  293. 2930 IF CHOICE1$="B" GOTO 3000
  294. 2940 IF CHOICE1$="b" GOTO 3000
  295. 2950 PRINT "WRONG INPUT - Enter A or B"
  296. 2960 GOTO 2900
  297. 2970 REM - Get ready to scan another file
  298. 2980 CLOSE #1
  299. 2990 GOTO 2470
  300. 3000 REM - Return to Menu
  301. 3010 CLOSE #1
  302. 3020 GOTO 300
  303. 3030 REM-Start of section (F) - Print entire file
  304. 3040 CLS
  305. 3050 PRINT SPC(10)"Print Entire File"
  306. 3060 PRINT
  307. 3070 PRINT
  308. 3080 PRINT LDDSKB$
  309. 3090 PRINT
  310. 3100 PRINT
  311. 3110 PRINT PRSPBAR$
  312. 3120 PRINTFIL$="N"
  313. 3130 OPEN "RECFIL" FOR INPUT AS #1
  314. 3140 IF EOF (1) GOTO 3200
  315. 3150 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$
  316. 3160 GOSUB 340
  317. 3170 PRINTFIL$="Y"
  318. 3180 GOTO 3140
  319. 3190 REM-Input EOF
  320. 3200 CLOSE #1
  321. 3210 CLS
  322. 3220 PRINT "We have reached the end of this file of recipes"
  323. 3230 PRINT
  324. 3240 PRINT "HOW WOULD YOU LIKE TO PROCEED?"
  325. 3250 PRINT "     A - Print another file"
  326. 3260 PRINT "     B - Return to Menu"
  327. 3270 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 3270
  328. 3280 IF CHOICE1$="A" GOTO 3040
  329. 3290 IF CHOICE1$="a" GOTO 3040
  330. 3300 IF CHOICE1$="B" GOTO 3340
  331. 3310 IF CHOICE1$="b" GOTO 3340
  332. 3320 PRINT "WRONG INPUT - Enter A or B"
  333. 3330 GOTO 3270
  334. 3340 CLOSE 1
  335. 3350 GOTO 5890
  336. 3360 REM - Start of section (A) Finding a recipe
  337. 3370 CLS
  338. 3380 PRINT
  339. 3390 PRINT SPC(10)"Finding A Recipe"
  340. 3400 PRINT
  341. 3410 PRINT
  342. 3420 GOTO 3440
  343. 3430 CLS
  344. 3440 PRINT "WHICH METHOD DO YOU WISH TO USE TO FIND THE RECIPE?"
  345. 3450 PRINT "     A - Recipe #"
  346. 3460 PRINT "     B - Keywords"
  347. 3470 PRINT "     C - Scan through file"
  348. 3480 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 3480
  349. 3490 IF CHOICE1$="A" GOTO 3580
  350. 3500 IF CHOICE1$="a" GOTO 3580
  351. 3510 IF CHOICE1$="B" GOTO 4250
  352. 3520 IF CHOICE1$="b" GOTO 4250
  353. 3530 IF CHOICE1$="C" GOTO 2470
  354. 3540 IF CHOICE1$="c" GOTO 2470
  355. 3550 PRINT "WRONG INPUT - Enter A,B or C"
  356. 3560 GOTO 3480
  357. 3570 REM - Start of section - Find recipe using recipe #
  358. 3580 CLS
  359. 3590 OPEN "RECFIL" FOR INPUT AS #1
  360. 3600 CLS
  361. 3610 PRINT "ENTER # OF RECIPE TO BE FOUND"
  362. 3620 INPUT "(nnnn)";INRECNO%
  363. 3630 MTCHFND$="N"
  364. 3640 CLS
  365. 3650 PRINT
  366. 3660 COLOR 23
  367. 3670 PRINT "Looking for Recipe # "; INRECNO%
  368. 3680 COLOR 7
  369. 3690 IF EOF (1) GOTO 4130
  370. 3700 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$
  371. 3710 IF RECNO%=INRECNO% GOTO 3740
  372. 3720 GOTO 3690
  373. 3730 REM - Have found matching #
  374. 3740 MTCHFND$="Y"
  375. 3750 GOSUB 930
  376. 3760 IF LEFT$(RECL12$,5)="(cont" GOTO 11090
  377. 3770 COLOR 23
  378. 3780 PRINT "Above match found"
  379. 3790 COLOR 7
  380. 3800 PRINT "NEXT ACTION DESIRED"
  381. 3810 PRINT "     A - Find another recipe"
  382. 3820 PRINT "     B - Print this recipe, Return to MENU"
  383. 3830 PRINT "     C - Print this recipe, Find another recipe"
  384. 3840 PRINT "     E - Return to MENU"
  385. 3850 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 3850
  386. 3860 IF CHOICE1$="A" GOTO 4000
  387. 3870 IF CHOICE1$="a" GOTO 4000
  388. 3880 IF CHOICE1$="B" GOTO 4030
  389. 3890 IF CHOICE1$="b" GOTO 4030
  390. 3900 IF CHOICE1$="C" GOTO 4080
  391. 3910 IF CHOICE1$="c" GOTO 4080
  392. 3920 IF CHOICE1$="D" GOTO 3980
  393. 3930 IF CHOICE1$="d" GOTO 3980
  394. 3940 IF CHOICE1$="E" GOTO 4110
  395. 3950 IF CHOICE1$="e" GOTO 4110
  396. 3960 IF CHOICE1$="Y" GOTO 14760
  397. 3970 IF CHOICE1$="y" GOTO 14760
  398. 3980 PRINT "WRONG INPUT - Enter A,B,C or E"
  399. 3990 GOTO 3850
  400. 4000 CLOSE #1
  401. 4010 GOTO 3370
  402. 4020 REM - Print this recipe, Return to MENU"
  403. 4030 PRINTFIL$="N"
  404. 4040 GOSUB 340
  405. 4050 CLOSE #1
  406. 4060 GOTO 5890
  407. 4070 REM - Print this recipe, Find next recipe
  408. 4080 PRINTFIL$="N"
  409. 4090 GOSUB 340
  410. 4100 GOTO 4000
  411. 4110 CLOSE #1
  412. 4120 GOTO 5890
  413. 4130 IF MTCHFND$="N" GOTO 4210
  414. 4140 CLS
  415. 4150 PRINT "We have reached the end of this file of recipes"
  416. 4160 PRINT
  417. 4170 PRINT "PRESS SPACE BAR to return to MENU"
  418. 4180 SPACEBAR$=INKEY$: IF SPACEBAR$="" THEN 4180
  419. 4190 CLOSE #1
  420. 4200 GOTO 300
  421. 4210 CLS
  422. 4220 PRINT "No match was found using ";INRECNO%
  423. 4230 GOTO 4160
  424. 4240 REM - Find recipe using keywords
  425. 4250 CLS
  426. 4260 OPEN "RECFIL" FOR INPUT AS #1
  427. 4270 GOSUB 10120
  428. 4280 INPUT "KYWD1";SCHKYWD1$
  429. 4290 INPUT "KYWD2";SCHKYWD2$
  430. 4300 INPUT "KYWD3";SCHKYWD3$
  431. 4310 FIRST1$="Y"
  432. 4320 GOSUB 1150
  433. 4330 GOSUB 930
  434. 4340 COLOR 23
  435. 4350 PRINT "Above match found"
  436. 4360 COLOR 7
  437. 4370 PRINT "NEXT ACTION DESIRED"
  438. 4380 PRINT "     A - Find next recipe using same keywords"
  439. 4390 PRINT "     B - Print copy this recipe, Return to MENU"
  440. 4400 PRINT "     C - Print copy this recipe, Find next rec. using same keywords
  441. 4410 PRINT "     E - Return to MENU"
  442. 4420 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 4420
  443. 4430 IF CHOICE1$="A" GOTO 4570
  444. 4440 IF CHOICE1$="a" GOTO 4570
  445. 4450 IF CHOICE1$="B" GOTO 4640
  446. 4460 IF CHOICE1$="b" GOTO 4640
  447. 4470 IF CHOICE1$="C" GOTO 4690
  448. 4480 IF CHOICE1$="c" GOTO 4690
  449. 4490 IF CHOICE1$="D" GOTO 4550
  450. 4500 IF CHOICE1$="d" GOTO 4550
  451. 4510 IF CHOICE1$="E" GOTO 4730
  452. 4520 IF CHOICE1$="e" GOTO 4730
  453. 4530 IF CHOICE1$="Y" GOTO 14760
  454. 4540 IF CHOICE1$="y" GOTO 14760
  455. 4550 PRINT "WRONG INPUT - Enter A,B,C or E"
  456. 4560 GOTO 4420
  457. 4570 COLOR 23
  458. 4580 PRINT "Looking for next recipe using same keywords"
  459. 4590 COLOR 7
  460. 4600 GOSUB 1190
  461. 4610 GOSUB 930
  462. 4620 GOTO 4340
  463. 4630 REM - Print copy this recipe, Exit program
  464. 4640 PRINTFIL$="N"
  465. 4650 GOSUB 340
  466. 4660 CLOSE #1
  467. 4670 GOTO 5890
  468. 4680 REM - Print copy this recipe, Find next recipe using same keywords
  469. 4690 PRINTFIL$="N"
  470. 4700 GOSUB 340
  471. 4710 GOTO 4570
  472. 4720 REM - Exit program
  473. 4730 CLOSE #1
  474. 4740 SCHKYWD1$=" "
  475. 4750 SCHKYWD2$=" "
  476. 4760 SCHKYWD3$=" "
  477. 4770 GOTO 5890
  478. 4780 REM - Input EOF - Search using keywords
  479. 4790 IF MTCHFND$="Y" GOTO 5210
  480. 4800 CLS
  481. 4810 COLOR 23
  482. 4820 PRINT "No match found using"
  483. 4830 COLOR 7
  484. 4840 PRINT; SCHKYWD1$
  485. 4850 PRINT; SCHKYWD2$
  486. 4860 PRINT; SCHKYWD3$
  487. 4870 PRINT
  488. 4880 PRINT "HOW DO YOU WISH TO PROCEED?"
  489. 4890 PRINT "     A - Search this file again using different keywords"
  490. 4900 PRINT "     B - Search another file using same keywords"
  491. 4910 PRINT "     C - Look at each recipe in this file"
  492. 4920 PRINT "     D - Return to MENU"
  493. 4930 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 4930
  494. 4940 IF CHOICE1$="A" GOTO 5050
  495. 4950 IF CHOICE1$="a" GOTO 5050
  496. 4960 IF CHOICE1$="B" GOTO 5080
  497. 4970 IF CHOICE1$="b" GOTO 5080
  498. 4980 IF CHOICE1$="C" GOTO 5150
  499. 4990 IF CHOICE1$="c" GOTO 5150
  500. 5000 IF CHOICE1$="D" GOTO 5180
  501. 5010 IF CHOICE1$="d" GOTO 5180
  502. 5020 PRINT "WRONG INPUT - Enter A,B,C, or D"
  503. 5030 GOTO 4930
  504. 5040 REM - Search this file again using different keywords
  505. 5050 CLOSE #1
  506. 5060 GOTO 4260
  507. 5070 REM - Search another file using same keywords
  508. 5080 CLOSE #1
  509. 5090 CLS
  510. 5100 PRINT "Search another file using same keywords"
  511. 5110 OPEN "RECFIL" FOR INPUT AS #1
  512. 5120 GOSUB 1150
  513. 5130 GOTO 4330
  514. 5140 REM - Look at each recipe in this file
  515. 5150 CLOSE #1
  516. 5160 GOTO 2520
  517. 5170 REM - Return to MENU
  518. 5180 CLOSE #1
  519. 5190 GOTO 5890
  520. 5200 REM - Input EOF - Using keywords - Match found
  521. 5210 CLOSE #1
  522. 5220 CLS
  523. 5230 PRINT "We have reached the end of this file of recipes"
  524. 5240 PRINT
  525. 5250 PRINT "HOW WOULD YOU LIKE TO PROCEED?"
  526. 5260 PRINT "     A - Search another file using the same keywords"
  527. 5270 PRINT "     B - Go to MENU"
  528. 5280 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 5280
  529. 5290 IF CHOICE1$= "A" GOTO 5080
  530. 5300 IF CHOICE1$= "a" GOTO 5080
  531. 5310 IF CHOICE1$= "B" GOTO 5180
  532. 5320 IF CHOICE1$="b" GOTO 5180
  533. 5330 PRINT "Wrong input - Enter A or B"
  534. 5340 GOTO 5280
  535. 5350 REM - Scan selected types of recipes
  536. 5360 CLS
  537. 5370 PRINT
  538. 5380 PRINT SPC(10) "Scan Selected Types Of Recipes"
  539. 5390 PRINT
  540. 5400 PRINT
  541. 5410 GOTO 4260
  542. 5420 REM - DISPLAY TITLE SCREEN
  543. 5430 CLS: PRINT SPC(10) SPC(1) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(7) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) SPC(7) CHR$(219) CHR$(219) CHR$(219) CHR$(219);
  544. 5440 PRINT CHR$(219) CHR$(219) SPC(7) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219)
  545. 5450 PRINT SPC(10) CHR$(219) SPC(13) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(12) CHR$(219) SPC(12) CHR$(219)
  546. 5460 PRINT SPC(10) CHR$(219) SPC(13) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(12) CHR$(219) SPC(12) CHR$(219)
  547. 5470 PRINT SPC(10) CHR$(219) SPC(13) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(12) CHR$(219) SPC(12) CHR$(219)
  548. 5480 PRINT SPC(10) CHR$(219) SPC(13)CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) SPC(6) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) SPC(8) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219);
  549. 5490 PRINT SPC(9) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219)
  550. 5500 PRINT SPC(10) CHR$(219) SPC(13) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(12) CHR$(219) SPC(19) CHR$(219)
  551. 5510 PRINT SPC(10) CHR$(219) SPC(13) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(12) CHR$(219) SPC(19) CHR$(219)
  552. 5520 PRINT SPC(10) CHR$(219) SPC(13) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(12) CHR$(219) SPC(19) CHR$(219)
  553. 5530 PRINT SPC(11) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) SPC(6) CHR$(219) SPC(6) CHR$(219) SPC(7) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) SPC(6) CHR$(219);
  554. 5540 PRINT SPC(12) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219)
  555. 5550 PRINT
  556. 5560 PRINT
  557. 5570 PRINT SPC(10);
  558. 5580 COLOR 1
  559. 5590 PRINT  "C";
  560. 5600 COLOR 7
  561. 5610 PRINT "ANNON" SPC(8);
  562. 5620 COLOR 1
  563. 5630 PRINT "H";
  564. 5640 COLOR 7
  565. 5650 PRINT "IGH-" SPC(9);
  566. 5660 COLOR 1
  567. 5670 PRINT "E";
  568. 5680 COLOR 7
  569. 5690 PRINT "PICUREAN" SPC(4);
  570. 5700 COLOR 1
  571. 5710 PRINT "F";
  572. 5720 COLOR 7
  573. 5730 PRINT "ILE" SPC(9);
  574. 5740 COLOR 1
  575. 5750 PRINT "S";
  576. 5760 COLOR 7
  577. 5770 PRINT "YSTEM"
  578. 5780 PRINT SPC(26) "TECHNOLOGY"
  579. 5790 PRINT
  580. 5800 PRINT
  581. 5810 PRINT
  582. 5820 PRINT SPC(60) "Copyright (C) 1982"
  583. 5830 PRINT SPC(60) "J. W. Cannon"
  584. 5840 PRINT
  585. 5850 PRINT
  586. 5860 PRINT SPC(10) "PRESS SPACE BAR TO CONTINUE"
  587. 5870 CHOICE1$=INKEY$ : IF CHOICE1$="" THEN 5870
  588. 5880 GOTO 300
  589. 5890 REM - DISPLAY MENU
  590. 5900 CLS
  591. 5910 PRINT
  592. 5920 PRINT SPC(25) "CHEFS MENU"
  593. 5930 PRINT
  594. 5940 PRINT
  595. 5950 PRINT "WHAT WOULD YOU LIKE TO DO?"
  596. 5960 PRINT SPC(5) "A - FIND a recipe"
  597. 5970 PRINT SPC(5) "B - ADD a recipe"
  598. 5980 PRINT
  599. 5990 PRINT SPC(5) "C - SCAN all recipes in file"
  600. 6000 PRINT SPC(5) "D - SCAN selected types of recipes"
  601. 6010 PRINT SPC(5) "E - SCAN recipe names"
  602. 6020 PRINT SPC(5) "F - SCAN keywords assigned to recipes"
  603. 6030 PRINT
  604. 6040 PRINT SPC(5) "G - PRINT all recipes in file"
  605. 6050 PRINT SPC(5) "H - PRINT recipe names/keywords"
  606. 6060 PRINT
  607. 6070 PRINT SPC(5) "K - CHANGE/DELETE a recipe"
  608. 6080 PRINT SPC(5) "L - MERGE recipe files together"
  609. 6090 PRINT SPC(5) "M - COPY a file of recipes"
  610. 6100 PRINT SPC(5) "N - CREATE a beginning file of recipes"
  611. 6110 PRINT
  612. 6120 PRINT SPC(5) "W - Miscellaneous"
  613. 6130 PRINT SPC(5) "X - Exit this program"
  614. 6140 CHOICE1$=INKEY$ : IF CHOICE1$="" THEN 6140
  615. 6150 IF CHOICE1$="A" GOTO 3370
  616. 6160 IF CHOICE1$="a" GOTO 3370
  617. 6170 IF CHOICE1$="B" GOTO 6460
  618. 6180 IF CHOICE1$="b" GOTO 6460
  619. 6190 IF CHOICE1$="C" GOTO 2470
  620. 6200 IF CHOICE1$="c" GOTO 2470
  621. 6210 IF CHOICE1$="D" GOTO 5350
  622. 6220 IF CHOICE1$="d" GOTO 5350
  623. 6230 IF CHOICE1$="E" GOTO 14350
  624. 6240 IF CHOICE1$="e" GOTO 14350
  625. 6250 IF CHOICE1$="F" GOTO 10200
  626. 6260 IF CHOICE1$="f" GOTO 10200
  627. 6270 IF CHOICE1$="G" GOTO 3040
  628. 6280 IF CHOICE1$="g" GOTO 3040
  629. 6290 IF CHOICE1$="H" GOTO 10700
  630. 6300 IF CHOICE1$="h" GOTO 10700
  631. 6310 IF CHOICE1$="K" GOTO 7770
  632. 6320 IF CHOICE1$="k" GOTO 7770
  633. 6330 IF CHOICE1$="L" GOTO 11540
  634. 6340 IF CHOICE1$="l" GOTO 11540
  635. 6350 IF CHOICE1$="M" GOTO 12340
  636. 6360 IF CHOICE1$="m" GOTO 12340
  637. 6370 IF CHOICE1$="N" GOTO 1520
  638. 6380 IF CHOICE1$="n" GOTO 1520
  639. 6390 IF CHOICE1$="W" GOTO 11150
  640. 6400 IF CHOICE1$="w" GOTO 11150
  641. 6410 IF CHOICE1$="X" GOTO 260
  642. 6420 IF CHOICE1$="x" GOTO 260
  643. 6430 PRINT "WRONG INPUT - Enter A,B,C,D,E,F,G,H,J or X"
  644. 6440 GOTO 6140
  645. 6450 REM - ADD A RECIPE TO THE FILE
  646. 6460 CLS
  647. 6470 PRINT
  648. 6480 PRINT "          Add A Recipe To The File"
  649. 6490 OPEN "RECFIL" FOR INPUT AS #1
  650. 6500 PRINT
  651. 6510 PRINT
  652. 6520 COLOR 23
  653. 6530 PRINT "Looking for next available recipe #"
  654. 6540 COLOR 7
  655. 6550 IF EOF(1) GOTO 6580
  656. 6560 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$
  657. 6570 GOTO 6550
  658. 6580 CLOSE 1
  659. 6590 RECNO%=RECNO% + 1
  660. 6600 OPEN "RECFIL" FOR APPEND AS #2
  661. 6610 GOTO 1610
  662. 6620 RECL12$="(continued in next recipe record)"
  663. 6630 CONTSIG$="Y"
  664. 6640 GOTO 2310
  665. 6650 RECNO%=RECNO% + 1
  666. 6660 CLS
  667. 6670 PRINT
  668. 6680 PRINT "ENTER NEXT PART OF RECIPE DESCRIPTION"
  669. 6690 RECL1$="(continued from previous recipe description)"
  670. 6700 CONTSIG$="N"
  671. 6710 PRINT "L1     (continued from previous recipe description)"
  672. 6720 GOTO 1900
  673. 6730 RECL12$="(continued in next recipe record)"
  674. 6740 GOTO 2020
  675. 6750 REM - Subroutine - Change recipe record
  676. 6760 CLS
  677. 6770 PRINT "The present recipe information will be displayed for you "
  678. 6780 PRINT "one item at a time.  If you do not wish to change a particular"
  679. 6790 PRINT "item, press ENTER to proceed and that item will not be changed."
  680. 6800 PRINT
  681. 6810 PRINT "If you do wish to change the item, enter the revised information"
  682. 6820 PRINT "as prompted, following the same rules as for the original input."
  683. 6830 PRINT
  684. 6840 PRINT "It will be necessary to process every item in this fashion."
  685. 6850 PRINT
  686. 6860 PRINT
  687. 6870 PRINT
  688. 6880 PRINT "PRESS SPACE BAR TO CONTINUE"
  689. 6890 CHOICE1$=INKEY$: IF CHOICE1$="" GOTO 6890
  690. 6900 CLS
  691. 6910 PRINT "REC # "; RECNO%
  692. 6920 IF RECNOCHG$="Y" GOTO 13310
  693. 6930 INPUT "New Recipe #: ";NRECNO%
  694. 6940 IF NRECNO%=0 GOTO 6970
  695. 6950 RECNO%=NRECNO%
  696. 6960 RECNOCHG$="Y"
  697. 6970 PRINT "KYWD1 : "; KYWD1$
  698. 6980 IF KW1CHG$="Y" GOTO 13450
  699. 6990 INPUT "New KYWD1 : ";NKYWD1$
  700. 7000 IF NKYWD1$="" GOTO 7030
  701. 7010 KYWD1$=NKYWD1$
  702. 7020 KW1CHG$="Y"
  703. 7030 PRINT "KYWD2 : "; KYWD2$
  704. 7040 IF KW2CHG$="Y" GOTO 13470
  705. 7050 INPUT "New KYWD2 : "; NKYWD2$
  706. 7060 IF NKYWD2$="" GOTO 7090
  707. 7070 KYWD2$=NKYWD2$
  708. 7080 KW2CHG$="Y"
  709. 7090 PRINT "KYWD3 : ";KYWD3$
  710. 7100 IF KW3CHG$="Y" GOTO 13490
  711. 7110 INPUT "New KYWD3 : "; NKYWD3$
  712. 7120 IF NKYWD3$="" GOTO 7150
  713. 7130 KYWD3$=NKYWD3$
  714. 7140 KW3CHG$="Y"
  715. 7150 PRINT "Recipe Name : ";RECNAM$
  716. 7160 IF RNAMCHG$="Y" GOTO 13510
  717. 7170 INPUT "New Recipe Name : "; NRECNAM$
  718. 7180 IF NRECNAM$="" GOTO 7210
  719. 7190 RECNAM$=NRECNAM$
  720. 7200 RNAMCHG$="Y"
  721. 7210 PRINT "Recipe Source : "; RECSRC$
  722. 7220 IF RSRCCHG$="Y" GOTO 13530
  723. 7230 INPUT "New Recipe Source : "; NRECSRC$
  724. 7240 IF NRECSRC$="" GOTO 7270
  725. 7250 RECSRC$=NRECSRC$
  726. 7260 RSRCCHG$="Y"
  727. 7270 PRINT "RECL1 : "; RECL1$
  728. 7280 INPUT "New RECL1 : "; NRECL1$
  729. 7290 IF NRECL1$="" GOTO 7310
  730. 7300 RECL1$=NRECL1$
  731. 7310 PRINT "RECL2 : ";RECL2$
  732. 7320 INPUT "New RECL2 : "; NRECL2$
  733. 7330 IF NRECL2$="" GOTO 7350
  734. 7340 RECL2$=NRECL2$
  735. 7350 PRINT "RECL3 : "; RECL3$
  736. 7360 INPUT "New RECL3 : "; NRECL3$
  737. 7370 IF NRECL3$="" GOTO 7390
  738. 7380 RECL3$=NRECL3$
  739. 7390 PRINT "RECL4 : "; RECL4$
  740. 7400 INPUT "New RECL4 : "; NRECL4$
  741. 7410 IF NRECL4$="" GOTO 7430
  742. 7420 RECL4$=NRECL4$
  743. 7430 PRINT "RECL5 : "; RECL5$
  744. 7440 INPUT "New RECL5 : "; NRECL5$
  745. 7450 IF NRECL5$="" GOTO 7470
  746. 7460 RECL5$=NRECL5$
  747. 7470 PRINT "RECL6 : "; RECL6$
  748. 7480 INPUT "New RECL6 : "; NRECL6$
  749. 7490 IF NRECL6$="" GOTO 7510
  750. 7500 RECL6$=NRECL6$
  751. 7510 PRINT "RECL7 : "; RECL7$
  752. 7520 INPUT "New RECL7 : "; NRECL7$
  753. 7530 IF NRECL7$="" GOTO 7550
  754. 7540 RECL7$=NRECL7$
  755. 7550 PRINT "RECL8 : "; RECL8$
  756. 7560 INPUT "New RECL8 : "; NRECL8$
  757. 7570 IF NRECL8$="" GOTO 7590
  758. 7580 RECL8$=NRECL8$
  759. 7590 PRINT "RECL9 : "; RECL9$
  760. 7600 INPUT "New RECL9 : "; NRECL9$
  761. 7610 IF NRECL9$="" GOTO 7630
  762. 7620 RECL9$=NRECL9$
  763. 7630 PRINT "RECL10 : "; RECL10$
  764. 7640 INPUT "New RECL10 : "; NRECL10$
  765. 7650 IF NRECL10$="" GOTO 7670
  766. 7660 RECL10$=NRECL10$
  767. 7670 PRINT "RECL11 : "; RECL11$
  768. 7680 INPUT "New RECL11 : "; NRECL11$
  769. 7690 IF NRECL11$="" GOTO 7710
  770. 7700 RECL11$=NRECL11$
  771. 7710 PRINT "RECL12 : "; RECL12$
  772. 7720 INPUT "New RECL12 : "; NRECL12$
  773. 7730 IF NRECL12$="" GOTO 7750
  774. 7740 RECL12$=NRECL12$
  775. 7750 RETURN
  776. 7760 REM - CHANGE OR DELETE A RECIPE
  777. 7770 CLS
  778. 7780 RECNOCHG$="N"
  779. 7790 KW1CHG$="N"
  780. 7800 KW2CHG$="N"
  781. 7810 KW3CHG$="N"
  782. 7820 RNAMCHG$="N"
  783. 7830 RSRCCHG$="N"
  784. 7840 REPCHG$="N"
  785. 7850 PRINT SPC(10) "E - Change or Delete A Recipe"
  786. 7860 PRINT
  787. 7870 PRINT "To change or delete a recipe you will need: "
  788. 7880 PRINT SPC(5) "1. The Recipe #.  If you don't have the #, return "
  789. 7890 PRINT SPC(5) "   to the MENU and find it using any of the methods provided"
  790. 7900 PRINT SPC(5) "   there."
  791. 7910 PRINT
  792. 7920 PRINT SPC(5) "2. A formatted diskette on which to record the new file."
  793. 7930 PRINT SPC(5) "   (When you change or delete a recipe already in the file,
  794. 7940 PRINT SPC(5) "    CHEFS copies the entire file onto another diskette)"
  795. 7950 PRINT
  796. 7960 PRINT
  797. 7970 PRINT "ENTER RECIPE # (Pressing ENTER without entering a number will take"
  798. 7980 PRINT "                you back to the MENU.)"
  799. 7990 INPUT "(nnnn): "; SCHRECNO%
  800. 8000 IF SCHRECNO%=0 GOTO 5890
  801. 8010 CLS
  802. 8020 PRINT "LOAD DISKETTE FOR NEW FILE IN UNIT B"
  803. 8030 PRINT
  804. 8040 PRINT
  805. 8050 PRINT "PRESS SPACE BAR WHEN DISKETTE HAVE BEEN LOADED"
  806. 8060 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8060
  807. 8070 OPEN "RECFIL" FOR INPUT AS #1
  808. 8080 OPEN "RECFIL" FOR OUTPUT AS #2
  809. 8090 MTCHFND$="N"
  810. 8100 CCONTSIG$="N"
  811. 8110 DCONTSIG$="N"
  812. 8120 CONTDFIL$="N"
  813. 8130 FSTRCD$="N"
  814. 8140 CHGDEL$="Y"
  815. 8150 COLOR 23
  816. 8160 PRINT "System searching for record"
  817. 8170 COLOR 7
  818. 8180 IF EOF (1) GOTO 9400
  819. 8190 GOSUB 8260
  820. 8200 IF CCONTSIG$="Y" GOTO 9910
  821. 8210 IF DCONTSIG$="Y" GOTO 8320
  822. 8220 IF SCHRECNO%=RECNO% GOTO 8490
  823. 8230 GOSUB 8290
  824. 8240 GOTO 8180
  825. 8250 REM - SUBROUTINE - READ NEXT RECIPE RECORD
  826. 8260 INPUT #1, RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$
  827. 8270 RETURN
  828. 8280 REM - SUBROUTINE - WRITE NEXT RECIPE RECORD
  829. 8290 PRINT #2, RECNO%;",";RECSTUS$;",";KYWD1$;",";KYWD2$;",";KYWD3$;",";RECNAM$;",";RECSRC$;",";RECL1$;",";RECL2$;",";RECL3$;",";RECL4$;",";RECL5$;",";RECL6$;",";RECL7$;",";RECL8$;",";RECL9$;",";RECL10$;",";RECL11$;",";RECL12$
  830. 8300 RETURN
  831. 8310 REM - DELETE A RECIPE
  832. 8320 IF LEFT$(RECL12$,5)= "(cont" GOTO 8690
  833. 8330 DCONTSIG$="N"
  834. 8340 PRINT "Recipe # "; RECNO%; " deleted from file"
  835. 8350 PRINT
  836. 8360 PRINT "DO YOU WISH TO CHANGE/DELETE ANOTHER RECIPE ? (Y/N)"
  837. 8370 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8370
  838. 8380 IF CHOICE1$="N" GOTO 8660
  839. 8390 IF CHOICE1$="n" GOTO 8660
  840. 8400 IF CHOICE1$="Y" GOTO 13430
  841. 8410 IF CHOICE1$="y" GOTO 13430
  842. 8420 PRINT "WRONG INPUT - Enter Y or N"
  843. 8430 GOTO 8370
  844. 8440 PRINT
  845. 8450 PRINT "ENTER NEXT RECIPE #"
  846. 8460 INPUT "(nnnn)"; SCHRECNO%
  847. 8470 GOTO 8180
  848. 8480 REM - MATCHING RECIPE # FOUND
  849. 8490 MTCHFND$="Y"
  850. 8500 GOSUB 930
  851. 8510 PRINT
  852. 8520 PRINT "CONFIRM THAT ABOVE RECIPE IS THE ONE YOU WANT TO CHANGE/DELETE"
  853. 8530 PRINT "NEXT ACTION DESIRED"
  854. 8540 PRINT SPC(5) "A - Delete this recipe"
  855. 8550 PRINT SPC(5) "B - Change this recipe"
  856. 8560 PRINT SPC(5) "C - Terminate this procedure and return to MENU"
  857. 8570 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8570
  858. 8580 IF CHOICE1$="A" GOTO 8320
  859. 8590 IF CHOICE1$="a" GOTO 8320
  860. 8600 IF CHOICE1$="B" GOTO 9780
  861. 8610 IF CHOICE1$="b" GOTO 9780
  862. 8620 IF CHOICE1$="C" GOTO 9360
  863. 8630 IF CHOICE1$="c" GOTO 9360
  864. 8640 PRINT "WRONG INPUT - ENTER A, B, OR C"
  865. 8650 GOTO 8570
  866. 8660 SCHRECNO%=9999
  867. 8670 GOTO 8180
  868. 8680 REM - DELETE A CONTINUED RECORD
  869. 8690 DCONTSIG$="Y"
  870. 8700 PRINT "Recipe # ";RECNO%; " deleted from file"
  871. 8710 GOTO 8180
  872. 8720 PRINT "THIS IS A MULTI PAGE RECIPE - DO YOU WISH TO CHANGE THIS PAGE ? (Y/N)"
  873. 8730 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8730
  874. 8740 IF CHOICE1$="N" GOTO 8800
  875. 8750 IF CHOICE1$="n" GOTO 8800
  876. 8760 IF CHOICE1$="Y" GOTO 8950
  877. 8770 IF CHOICE1$="y" GOTO 8950
  878. 8780 PRINT "WRONG INPUT - Enter Y or N"
  879. 8790 GOTO 8730
  880. 8800 GOSUB 8290
  881. 8810 GOTO 9140
  882. 8820 REM - CHANGING A MULTI PAGE RECIPE
  883. 8830 CCONTSIG$="Y"
  884. 8840 PRINT
  885. 8850 PRINT "THIS IS A MULTI PAGE RECIPE - DO YOU WISH TO CHANGE THIS PAGE ? (Y/N)"
  886. 8860 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8860
  887. 8870 IF CHOICE1$="Y" GOTO 8950
  888. 8880 IF CHOICE1$="y" GOTO 8950
  889. 8890 IF CHOICE1$="N" GOTO 8930
  890. 8900 IF CHOICE1$="n" GOTO 8930
  891. 8910 PRINT "WRONG INPUT - Enter Y or N"
  892. 8920 GOTO 8860
  893. 8930 GOSUB 8290
  894. 8940 GOTO 8180
  895. 8950 GOSUB 6760
  896. 8960 GOSUB 930
  897. 8970 COLOR 23
  898. 8980 PRINT "Above Recipe changed"
  899. 8990 COLOR 7
  900. 9000 PRINT "NEXT ACTION DESIRED"
  901. 9010 PRINT SPC(5) "A - Store in new file"
  902. 9020 PRINT SPC(5) "B - Go back to make more changes in this recipe"
  903. 9030 CHOICE1$=INKEY$:IF CHOICE1$="" THEN 9030
  904. 9040 IF CHOICE1$="A" GOTO 9110
  905. 9050 IF CHOICE1$="a" GOTO 9110
  906. 9060 IF CHOICE1$="B" GOTO 13330
  907. 9070 IF CHOICE1$="b" GOTO 13330
  908. 9080 PRINT "WRONG INPUT - ENTER A or B"
  909. 9090 GOTO 9030
  910. 9100 REM - STORE IN NEW FILE
  911. 9110 GOSUB 8290
  912. 9120 PRINT
  913. 9130 PRINT "Recipe # "; RECNO%; " changed"
  914. 9140 IF CCONTSIG$="Y" GOTO 8180
  915. 9150 CONTDFIL$="N"
  916. 9160 PRINT
  917. 9170 PRINT "DO YOU WISH TO CHANGE/DELETE ANOTHER RECIPE ? (Y/N)"
  918. 9180 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 9180
  919. 9190 IF CHOICE1$="Y" GOTO 13350
  920. 9200 IF CHOICE1$="y" GOTO 13350
  921. 9210 IF CHOICE1$="N" GOTO 9300
  922. 9220 IF CHOICE1$="n" GOTO 9300
  923. 9230 PRINT "WRONG INPUT - Enter Y or N"
  924. 9240 GOTO 9180
  925. 9250 PRINT
  926. 9260 PRINT "ENTER NEXT RECIPE #"
  927. 9270 INPUT "(nnnn) "; SCHRECNO%
  928. 9280 MTCHFND$="N"
  929. 9290 GOTO 8150
  930. 9300 SCHRECNO%=9999
  931. 9310 COLOR 23
  932. 9320 PRINT "System processing remainder of file"
  933. 9330 COLOR 7
  934. 9340 GOTO 8180
  935. 9350 REM - TERMINATE THIS PROCEDURE AND RETURN TO MENU
  936. 9360 CLOSE 1
  937. 9370 CLOSE 2
  938. 9380 GOTO 5890
  939. 9390 REM - INPUT EOF
  940. 9400 IF MTCHFND$="Y" GOTO 9500
  941. 9410 CLOSE 1
  942. 9420 CLOSE 2
  943. 9430 CLS
  944. 9440 PRINT
  945. 9450 PRINT "Recipe # ";SCHRECNO%; " could not be found in this file"
  946. 9460 PRINT
  947. 9470 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  948. 9480 CHOICE1$=INKEY$:IF CHOICE1$="" THEN 9480
  949. 9490 GOTO 5890
  950. 9500 IF SCHRECNO%=9999 GOTO 9630
  951. 9510 CLS
  952. 9520 PRINT "Recipe # ";SCHRECNO%; " not found"
  953. 9530 PRINT
  954. 9540 PRINT "Check explanation of Change/Delete procedure for sequence"
  955. 9550 PRINT "problems if you have been working with more than one recipe #"
  956. 9560 PRINT
  957. 9570 PRINT "PRESS SPACE BAR to return to MENU"
  958. 9580 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 9580
  959. 9590 CLOSE 1
  960. 9600 CLOSE 2
  961. 9610 GOTO 5890
  962. 9620 REM - END OF CHANGE/DELETE PROCEDURE
  963. 9630 CHGDEL$="N"
  964. 9640 CLOSE 1
  965. 9650 CLOSE 2
  966. 9660 CLS
  967. 9670 PRINT
  968. 9680 PRINT "Change/Delete procedure completed"
  969. 9690 PRINT
  970. 9700 PRINT "The old file is on the disk in unit A"
  971. 9710 PRINT
  972. 9720 PRINT "The new file is on the disk in unit B"
  973. 9730 PRINT
  974. 9740 PRINT "PRESS SPACE BAR to return to MENU"
  975. 9750 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 9750
  976. 9760 GOTO 5890
  977. 9770 REM - OPERATOR CHOICE - CHANGE THIS RECIPE
  978. 9780 IF LEFT$(RECL12$,5)="(cont" GOTO 9830
  979. 9790 CCONTSIG$="N"
  980. 9800 CONTDFIL$="N"
  981. 9810 FSTRCD$="N"
  982. 9820 GOTO 9870
  983. 9830 CCONTSIG$="Y"
  984. 9840 CONTDFIL$="Y"
  985. 9850 FSTRCD$="Y"
  986. 9860 GOTO 9870
  987. 9870 IF CONTDFIL$="N" GOTO 8950
  988. 9880 IF FSTRCD$="N" GOTO 8720
  989. 9890 FSTRCD$="N"
  990. 9900 GOTO 8850
  991. 9910 IF RECNOCHG$="N" GOTO 9940
  992. 9920 NRECNO%=NRECNO% + 1
  993. 9930 RECNO%=NRECNO%
  994. 9940 IF KW1CHG$="N" GOTO 9960
  995. 9950 KYWD1$=NKYWD1$
  996. 9960 IF KW2CHG$="N" GOTO 9980
  997. 9970 KYWD2$=NKYWD2$
  998. 9980 IF KW3CHG$="N" GOTO 10000
  999. 9990 KYWD3$=NKYWD3$
  1000. 10000 IF RNAMCHG$="N" GOTO 10020
  1001. 10010 RECNAM$=NRECNAM$
  1002. 10020 IF RSRCCHG$="N" GOTO 10040
  1003. 10030 RECSRC$=NRECSRC$
  1004. 10040 IF LEFT$(RECL12$,5)="(cont" GOTO 10080
  1005. 10050 CCONTSIG$="N"
  1006. 10060 GOSUB 930
  1007. 10070 GOTO 9870
  1008. 10080 CCONTSIG$="Y"
  1009. 10090 GOTO 10060
  1010. 10100 REM - SUBROUTINE FOR PROMPTING KEYWORDS
  1011. 10110 CLS
  1012. 10120 PRINT
  1013. 10130 PRINT "ENTER KEYWORDS:"
  1014. 10140 PRINT
  1015. 10150 PRINT "(Depress ENTER key after each entry)"
  1016. 10160 PRINT
  1017. 10170 PRINT
  1018. 10180 RETURN
  1019. 10190 REM - SCAN KEYWORDS IN FILE
  1020. 10200 DISCTR%=15
  1021. 10210 CLS
  1022. 10220 PRINT
  1023. 10230 PRINT SPC(10) "Scan Keywords In File"
  1024. 10240 PRINT
  1025. 10250 GOSUB 10530
  1026. 10260 CLS
  1027. 10270 PRINT SPC(5) "REC #"; SPC(5) "KEYWORD #1";SPC(6) "KEYWORD #2"; SPC(5) "KEYWORD #3"
  1028. 10280 PRINT
  1029. 10290 WDISCTR%=DISCTR%
  1030. 10300 IF EOF (1) GOTO 10550
  1031. 10310 GOSUB 8260
  1032. 10320 PRINT SPC(5) RECNO%;"     ";
  1033. 10330 PRINT USING  "\              \";KYWD1$;KYWD2$;KYWD3$
  1034. 10340 WDISCTR%=WDISCTR% - 1
  1035. 10350 IF WDISCTR%=0 GOTO 10370
  1036. 10360 GOTO 10300
  1037. 10370 PRINT
  1038. 10380 PRINT  "NEXT ACTION DESIRED"
  1039. 10390 PRINT SPC(5) "A - Proceed to next group of keywords"
  1040. 10400 PRINT SPC(5) "B - Return to MENU"
  1041. 10410 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 10410
  1042. 10420 IF CHOICE1$= "A" GOTO 10260
  1043. 10430 IF CHOICE1$= "a" GOTO 10260
  1044. 10440 IF CHOICE1$= "B" GOTO 10470
  1045. 10450 IF CHOICE1$= "b" GOTO 10470
  1046. 10460 PRINT "WRONG INPUT - Enter A or B"
  1047. 10470 CLOSE 1
  1048. 10480 GOTO 5890
  1049. 10490 GOTO 10410
  1050. 10500 REM - SUBROUTINE - PROMPTING OPERATOR TO LOAD DISK UNIT B
  1051. 10510 CLS
  1052. 10520 REM
  1053. 10530 OPEN "RECFIL" FOR INPUT AS #1
  1054. 10540 RETURN
  1055. 10550 CLOSE 1
  1056. 10560 PRINT
  1057. 10570 PRINT "We have reached the end of this file of recipes"
  1058. 10580 PRINT
  1059. 10590 PRINT "HOW WOULD YOU LIKE TO PROCEED ?"
  1060. 10600 PRINT SPC(5) "A - Scan another file"
  1061. 10610 PRINT SPC(5) "B - Return to MENU"
  1062. 10620 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 10620
  1063. 10630 IF CHOICE1$= "A" GOTO 10200
  1064. 10640 IF CHOICE1$= "a" GOTO 10200
  1065. 10650 IF CHOICE1$= "B" GOTO 5890
  1066. 10660 IF CHOICE1$= "b" GOTO 5890
  1067. 10670 PRINT "WRONG INPUT - Enter A or B"
  1068. 10680 GOTO 10620
  1069. 10690 REM - OPERATOR CHOICE - PRINT NAMES/KEYWORDS IN FILE
  1070. 10700 CLS
  1071. 10710 PRINT
  1072. 10720 PRINT SPC(10) "Print Names/Keywords In File"
  1073. 10730 PRINT
  1074. 10740 GOSUB 10520
  1075. 10750 CLS
  1076. 10760 PRINT "SET UP LINE PRINTER"
  1077. 10770 PRINT
  1078. 10780 PRINT "PRESS SPACEBAR TO CONTINUE"
  1079. 10790 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 10790
  1080. 10800 CLS
  1081. 10810 PRINT
  1082. 10820 PRINT
  1083. 10830 COLOR 23
  1084. 10840 PRINT "Printing Names/Keywords In File"
  1085. 10850 COLOR 7
  1086. 10860 LPRINT SPC(27) "CHEFS"
  1087. 10870 LPRINT
  1088. 10880 LPRINT
  1089. 10890 LPRINT SPC(2) "RECIPE #"; SPC(10) "RECIPE NAME"; SPC(25) "KEYWORDS"
  1090. 10900 LPRINT
  1091. 10910 IF EOF (1) GOTO 10950
  1092. 10920 GOSUB 8260
  1093. 10930 LPRINT SPC(4) RECNO%; SPC(5) RECNAM$; TAB(50) KYWD1$",";KYWD2$",";KYWD3$
  1094. 10940 GOTO 10910
  1095. 10950 CLS
  1096. 10960 PRINT "We have reached the end of this file of recipes"
  1097. 10970 PRINT
  1098. 10980 PRINT "HOW WOULD YOU LIKE TO PROCEED ?"
  1099. 10990 PRINT SPC(5) "A - Print another file"
  1100. 11000 PRINT SPC(5) "B - Return to MENU"
  1101. 11010 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11010
  1102. 11020 IF CHOICE1$= "A" GOTO 10700
  1103. 11030 IF CHOICE1$= "a" GOTO 10700
  1104. 11040 IF CHOICE1$= "B" GOTO 5890
  1105. 11050 IF CHOICE1$= "b" GOTO 5890
  1106. 11060 PRINT "WRONG INPUT - Enter A or B"
  1107. 11070 GOTO 11010
  1108. 11080 REM - FOUND MULTI PAGE RECORD USING REC # - SWITCH TO SCAN MODE
  1109. 11090 COLOR 23
  1110. 11100 PRINT "Above match found - Since this is a multi page recipe, you are"
  1111. 11110 PRINT "                    now switched to SCAN mode (MENU item D)"
  1112. 11120 COLOR 7
  1113. 11130 GOTO 2570
  1114. 11140 REM - SUB MENU - MISCELLANEOUS FUNCTIONS
  1115. 11150 CLS
  1116. 11160 PRINT
  1117. 11170 PRINT SPC(25) "CHEFS MENU"
  1118. 11180 PRINT
  1119. 11190 PRINT "MISCELLANEOUS FUNCTIONS"
  1120. 11200 PRINT
  1121. 11210 PRINT
  1122. 11220 PRINT "WHAT WOULD YOU LIKE TO DO?"
  1123. 11230 PRINT SPC(5) "A - Change method of printing multi-page records"
  1124. 11240 PRINT SPC(5) "B - Return to Menu"
  1125. 11250 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11250
  1126. 11260 IF CHOICE1$="A" GOTO 11350
  1127. 11270 IF CHOICE1$="a" GOTO 11350
  1128. 11280 IF CHOICE1$="B" GOTO 5890
  1129. 11290 IF CHOICE1$="b" GOTO 5890
  1130. 11300 IF CHOICE1$="Z" GOTO 14240
  1131. 11310 IF CHOICE1$="z" GOTO 14240
  1132. 11320 PRINT "WRONG INPUT - Enter A or B"
  1133. 11330 GOTO 11250
  1134. 11340 REM - CHANGE PRINT ROUTINE FOR MULTI PAGE RECORDS
  1135. 11350 CLS
  1136. 11360 PRINT "WHICH METHOD DO YOU WISH TO USE?"
  1137. 11370 PRINT SPC(5) "A - Eliminate repetitive printing of headings and continued messages"
  1138. 11380 PRINT SPC(5) "B - Print each page exactly as stored in the file"
  1139. 11390 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11390
  1140. 11400 IF CHOICE1$="A" GOTO 11460
  1141. 11410 IF CHOICE1$="a" GOTO 11460
  1142. 11420 IF CHOICE1$="B" GOTO 11520
  1143. 11430 IF CHOICE1$="b" GOTO 11520
  1144. 11440 PRINT "WRONG INPUT - Enter A or B"
  1145. 11450 GOTO 11390
  1146. 11460 NRMLPRT$="Y"
  1147. 11470 PRINT "Print Routine changed"
  1148. 11480 PRINT
  1149. 11490 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1150. 11500 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11500
  1151. 11510 GOTO 5890
  1152. 11520 NRMLPRT$="N"
  1153. 11530 GOTO 11470
  1154. 11540 CLS
  1155. 11550 PRINT
  1156. 11560 PRINT SPC(10) "Merging Recipe Files"
  1157. 11570 PRINT
  1158. 11580 PRINT "This procedure merges two files by copying one onto the end"
  1159. 11590 PRINT "of the other.  The recipes being added to the other file are"
  1160. 11600 PRINT "automatically renumbered."
  1161. 11610 PRINT
  1162. 11620 PRINT "LOAD THE FILE TO BE COPIED IN UNIT A"
  1163. 11630 PRINT
  1164. 11640 PRINT "LOAD THE FILE TO BE ADDED TO IN UNIT B"
  1165. 11650 PRINT
  1166. 11660 PRINT "PRESS SPACE BAR TO CONTINUE"
  1167. 11670 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11670
  1168. 11680 OPEN "RECFIL" FOR INPUT AS #1
  1169. 11690 REM - LOOKING FOR NEXT AVAILABLE #
  1170. 11700 PRINT
  1171. 11710 COLOR 23
  1172. 11720 PRINT "Looking for next available Recipe # for automatic renumbering"
  1173. 11730 COLOR 7
  1174. 11740 IF EOF(1) GOTO 11770
  1175. 11750 GOSUB 8260
  1176. 11760 GOTO 11740
  1177. 11770 CLOSE 1
  1178. 11780 BEGNO%=RECNO% + 1
  1179. 11790 PRINT
  1180. 11800 PRINT "Next available # is ";BEGNO%
  1181. 11810 OPEN "RECFIL" FOR APPEND AS #2
  1182. 11820 OPEN "RECFIL" FOR INPUT AS #1
  1183. 11830 CLS
  1184. 11840 PRINT
  1185. 11850 PRINT "ENTER THE # OF THE RECIPE WHERE YOU WOULD LIKE THE MERGE TO START"
  1186. 11860 PRINT
  1187. 11870 PRINT "(Depressing ENTER without a # will start the merge with the first"
  1188. 11880 PRINT " recipe in the file.)"
  1189. 11890 PRINT
  1190. 11900 INPUT "(nnnn): "; SCHNO%
  1191. 11910 IF SCHNO%= 0 GOTO 12080
  1192. 11920 IF EOF(1) GOTO 11980
  1193. 11930 GOSUB 8260
  1194. 11940 IF SCHNO%=RECNO% GOTO 11960
  1195. 11950 GOTO 11920
  1196. 11960 FSTRCD$= "Y"
  1197. 11970 GOTO 12080
  1198. 11980 CLOSE 1
  1199. 11990 CLOSE 2
  1200. 12000 CLS
  1201. 12010 PRINT
  1202. 12020 PRINT "The beginning # you specified "; "("; SCHNO%; ") "; "can not be"
  1203. 12030 PRINT "found in the file in Unit A."
  1204. 12040 PRINT
  1205. 12050 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1206. 12060 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12060
  1207. 12070 GOTO 5890
  1208. 12080 CLS
  1209. 12090 PRINT
  1210. 12100 COLOR 23
  1211. 12110 PRINT "Now merging file A with file B"
  1212. 12120 COLOR 7
  1213. 12130 IF EOF(1) GOTO 12210
  1214. 12140 IF FSTRCD$="Y" GOTO 12160
  1215. 12150 GOSUB 8260
  1216. 12160 FSTRCD$="N"
  1217. 12170 RECNO%=BEGNO%
  1218. 12180 BEGNO%=BEGNO% + 1
  1219. 12190 GOSUB 8290
  1220. 12200 GOTO 12130
  1221. 12210 CLOSE 1
  1222. 12220 CLOSE 2
  1223. 12230 CLS
  1224. 12240 PRINT
  1225. 12250 PRINT "Merge process completed"
  1226. 12260 PRINT
  1227. 12270 PRINT "The recipes in the file in Unit A have now been added"
  1228. 12280 PRINT "to the recipe file in Unit B."
  1229. 12290 PRINT
  1230. 12300 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1231. 12310 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12310
  1232. 12320 GOTO 5890
  1233. 12330 REM - COPY A FILE
  1234. 12340 CLS
  1235. 12350 PRINT
  1236. 12360 PRINT SPC(10) "Copy A File"
  1237. 12370 PRINT
  1238. 12380 PRINT "LOAD THE FILE TO BE COPIED IN UNIT A"
  1239. 12390 PRINT
  1240. 12400 PRINT "LOAD A (FORMATTED) DISK FOR THE NEW FILE IN UNIT B"
  1241. 12410 PRINT
  1242. 12420 PRINT "PRESS SPACE BAR WHEN READY TO PROCEED"
  1243. 12430 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12430
  1244. 12440 CLS
  1245. 12450 PRINT
  1246. 12460 PRINT "Where would you like the copy process to begin?"
  1247. 12470 PRINT
  1248. 12480 PRINT "(If you wish to start with the first record in the file"
  1249. 12490 PRINT " depress ENTER without entering a #)"
  1250. 12500 PRINT
  1251. 12510 INPUT "(nnnn): "; STARTNO%
  1252. 12520 PRINT
  1253. 12530 PRINT
  1254. 12540 PRINT "Where would you like the copy process to stop?"
  1255. 12550 PRINT
  1256. 12560 PRINT "(The number specified will be included in the copy process)"
  1257. 12570 PRINT
  1258. 12580 PRINT "(If you wish to copy to the end of the file, depress ENTER"
  1259. 12590 PRINT " without entering a #)"
  1260. 12600 PRINT
  1261. 12610 INPUT "(nnnn): "; ENDNO%
  1262. 12620 OPEN "RECFIL" FOR INPUT AS #1
  1263. 12630 IF STARTNO%= 0 GOTO 12830
  1264. 12640 PRINT
  1265. 12650 COLOR 23
  1266. 12660 PRINT "Looking for starting number "; STARTNO%
  1267. 12670 COLOR 7
  1268. 12680 IF EOF(1) GOTO 12740
  1269. 12690 GOSUB 8260
  1270. 12700 IF STARTNO%=RECNO% GOTO 12720
  1271. 12710 GOTO 12680
  1272. 12720 FSTRCD$= "Y"
  1273. 12730 GOTO 12830
  1274. 12740 CLOSE 1
  1275. 12750 CLS
  1276. 12760 PRINT
  1277. 12770 PRINT "The starting # you specified (";STARTNO%;") can not be found"
  1278. 12780 PRINT "in the file in Unit A"
  1279. 12790 PRINT
  1280. 12800 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1281. 12810 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12810
  1282. 12820 GOTO 5890
  1283. 12830 IF ENDNO%= 0 GOTO 13290
  1284. 12840 CLS
  1285. 12850 PRINT
  1286. 12860 PRINT "Do you wish to renumber the records in the new file?"
  1287. 12870 PRINT
  1288. 12880 PRINT "If so, enter the beginning #"
  1289. 12890 PRINT
  1290. 12900 PRINT "If not, depress ENTER without entering #"
  1291. 12910 PRINT
  1292. 12920 INPUT "(nnnn): "; BEGNO%
  1293. 12930 IF BEGNO%= 0 GOTO 12970
  1294. 12940 NEWNO%= BEGNO%
  1295. 12950 RENOSIG$= "Y"
  1296. 12960 GOTO 12980
  1297. 12970 RENOSIG$="N"
  1298. 12980 OPEN "RECFIL" FOR OUTPUT AS #2
  1299. 12990 CLS
  1300. 13000 PRINT
  1301. 13010 COLOR 23
  1302. 13020 PRINT "File being copied"
  1303. 13030 COLOR 7
  1304. 13040 IF FSTRCD$= "Y" GOTO 13110
  1305. 13050 IF EOF(1) GOTO 13130
  1306. 13060 GOSUB 8260
  1307. 13070 IF RECNO%>ENDNO% GOTO 13130
  1308. 13080 IF RENOSIG$= "Y" GOTO 13260
  1309. 13090 GOSUB 8290
  1310. 13100 GOTO 13050
  1311. 13110 FSTRCD$="N"
  1312. 13120 GOTO 13070
  1313. 13130 CLOSE 1
  1314. 13140 CLOSE 2
  1315. 13150 CLS
  1316. 13160 PRINT
  1317. 13170 PRINT "Copy process completed"
  1318. 13180 PRINT
  1319. 13190 PRINT "Original file in Unit A"
  1320. 13200 PRINT
  1321. 13210 PRINT "New file in Unit B"
  1322. 13220 PRINT
  1323. 13230 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1324. 13240 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 13240
  1325. 13250 GOTO 5890
  1326. 13260 RECNO%=NEWNO%
  1327. 13270 NEWNO%=NEWNO% + 1
  1328. 13280 GOTO 13090
  1329. 13290 ENDNO%=9999
  1330. 13300 GOTO 12840
  1331. 13310 IF REPCHG$= "N" GOTO 6970
  1332. 13320 GOTO 13940
  1333. 13330 REPCHG$="Y"
  1334. 13340 GOTO 8950
  1335. 13350 RECNOCHG$= "N"
  1336. 13360 KW1CHG$= "N"
  1337. 13370 KW2CHG$= "N"
  1338. 13380 KW3CHG$= "N"
  1339. 13390 RNAMCHG$= "N"
  1340. 13400 RSRCCHG$= "N"
  1341. 13410 REPCHG$= "N"
  1342. 13420 GOTO 9250
  1343. 13430 DCONTSIG$= "N"
  1344. 13440 GOTO 8440
  1345. 13450 IF REPCHG$= "Y" GOTO 13990
  1346. 13460 GOTO 7030
  1347. 13470 IF REPCHG$= "Y" GOTO 14040
  1348. 13480 GOTO 7090
  1349. 13490 IF REPCHG$= "Y" GOTO 14090
  1350. 13500 GOTO 7150
  1351. 13510 IF REPCHG$= "Y" GOTO 14140
  1352. 13520 GOTO 7210
  1353. 13530 IF REPCHG$= "Y" GOTO 14190
  1354. 13540 GOTO 7270
  1355. 13550 REM - OUTPUT EOF ROUTINE - UNIT B
  1356. 13560 IF OUTUNIT$="A" GOTO 15120
  1357. 13570 CLS
  1358. 13580 CLOSE 2
  1359. 13590 PRINT
  1360. 13600 PRINT "We have just run out of space on the output disk in Unit B"
  1361. 13610 PRINT
  1362. 13620 PRINT "LOAD A (FORMATTED) DISK IN UNIT B TO RECEIVE THE REST OF THE FILE"
  1363. 13630 PRINT
  1364. 13640 PRINT "PRESS SPACE BAR WHEN READY TO CONTINUE"
  1365. 13650 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 13650
  1366. 13660 OPEN "RECFIL" FOR OUTPUT AS #2
  1367. 13670 COLOR 23
  1368. 13680 PRINT "Now processing rest of file"
  1369. 13690 COLOR 7
  1370. 13700 RESUME
  1371. 13710 CLS
  1372. 13720 PRINT
  1373. 13730 PRINT "ENTER THE # OF THE RECIPE WHERE YOU WOULD LIKE THE SCAN TO START"
  1374. 13740 PRINT
  1375. 13750 PRINT "(Depressing ENTER without a # will start the Scan with"
  1376. 13760 PRINT " the first recipe in the file)
  1377. 13770 PRINT
  1378. 13780 PRINT
  1379. 13790 INPUT "(nnnn): "; SCHNO%
  1380. 13800 IF SCHNO%= 0 GOTO 2540
  1381. 13810 IF EOF(1) GOTO 13850
  1382. 13820 GOSUB 8260
  1383. 13830 IF SCHNO%=RECNO% GOTO 2560
  1384. 13840 GOTO 13810
  1385. 13850 CLOSE 1
  1386. 13860 CLS
  1387. 13870 PRINT
  1388. 13880 PRINT "The beginning # you specified "; "("; SCHNO%; ")"; " CAN NOT"
  1389. 13890 PRINT "be found in the file in Unit B"
  1390. 13900 PRINT
  1391. 13910 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1392. 13920 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 13920
  1393. 13930 GOTO 5890
  1394. 13940 INPUT "New Recipe # : "; NNRECNO%
  1395. 13950 IF NNRECNO%= 0 GOTO 6970
  1396. 13960 RECNO%=NNRECNO%
  1397. 13970 NRECNO%=NNRECNO%
  1398. 13980 GOTO 6970
  1399. 13990 INPUT "New KYWD1 : "; NNKYWD1$
  1400. 14000 IF NNKYWD1$="" GOTO 7030
  1401. 14010 KYWD1$=NNKYWD1$
  1402. 14020 NKYWD1$=NNKYWD1$
  1403. 14030 GOTO 7030
  1404. 14040 INPUT "New KYWD2 : "; NNKYWD2$
  1405. 14050 IF NNKYWD2$="" GOTO 7090
  1406. 14060 KYWD2$=NNKYWD2$
  1407. 14070 NKYWD2$=NNKYWD2$
  1408. 14080 GOTO 7090
  1409. 14090 INPUT "New KYWD3 : "; NNKYWD3$
  1410. 14100 IF NNKYWD3$="" GOTO 7150
  1411. 14110 KYWD3$=NNKYWD3$
  1412. 14120 NKYWD3$=NNKYWD3$
  1413. 14130 GOTO 7150
  1414. 14140 INPUT "New Recipe Name : "; NNRECNAM$
  1415. 14150 IF NNRECNAM$="" GOTO 7210
  1416. 14160 RECNAM$=NNRECNAM$
  1417. 14170 NRECNAM$=NNRECNAM$
  1418. 14180 GOTO 7210
  1419. 14190 INPUT "New Recipe Source : "; NNRECSRC$
  1420. 14200 IF NNRECSRC$="" GOTO 7270
  1421. 14210 RECSRC$=NNRECSRC$
  1422. 14220 NRECSRC$=NNRECSRC$
  1423. 14230 GOTO 7270
  1424. 14240 REM - PRINT VERSION AND SERIAL NUMBER
  1425. 14250 CLS
  1426. 14260 PRINT "Version "; VERSION$
  1427. 14270 PRINT "Serial Number "; SERIAL%
  1428. 14280 PRINT "Date : "; PDATE$
  1429. 14290 PRINT
  1430. 14300 PRINT
  1431. 14310 PRINT "PRESS SPACE BAR TO RETURN TO MENU"
  1432. 14320 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14320
  1433. 14330 GOTO 5890
  1434. 14340 REM - SCAN NAMES IN FILE
  1435. 14350 DISCTR%=15
  1436. 14360 CLS
  1437. 14370 PRINT SPC(10) "Scan Recipe Names In File"
  1438. 14380 PRINT
  1439. 14390 GOSUB 10530
  1440. 14400 CLS
  1441. 14410 PRINT SPC(5) "REC #"; SPC(17) "NAME"
  1442. 14420 PRINT
  1443. 14430 WDISCTR%=DISCTR%
  1444. 14440 IF EOF(1) GOTO 14610
  1445. 14450 GOSUB 8260
  1446. 14460 PRINT SPC(6) RECNO%; SPC(12) RECNAM$
  1447. 14470 WDISCTR%=WDISCTR% - 1
  1448. 14480 IF WDISCTR%= 0 GOTO 14500
  1449. 14490 GOTO 14440
  1450. 14500 PRINT
  1451. 14510 PRINT "NEXT ACTION DESIRED"
  1452. 14520 PRINT SPC(5) "A - Proceed to next group of names"
  1453. 14530 PRINT SPC(5) "B - Return to MENU"
  1454. 14540 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14540
  1455. 14550 IF CHOICE1$="A" GOTO 14400
  1456. 14560 IF CHOICE1$="a" GOTO 14400
  1457. 14570 IF CHOICE1$="B" GOTO 10470
  1458. 14580 IF CHOICE1$="b" GOTO 10470
  1459. 14590 PRINT "WRONG INPUT - Enter A or B"
  1460. 14600 GOTO 14540
  1461. 14610 CLOSE 1
  1462. 14620 PRINT
  1463. 14630 PRINT "We have reached the end of this file of recipes"
  1464. 14640 PRINT
  1465. 14650 PRINT "HOW WOULD YOU LIKE TO PROCEED?"
  1466. 14660 PRINT SPC(5) "A - Scan another file"
  1467. 14670 PRINT SPC(5) "B - Return to MENU"
  1468. 14680 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14680
  1469. 14690 IF CHOICE1$="A" GOTO 14350
  1470. 14700 IF CHOICE1$="a" GOTO 14350
  1471. 14710 IF CHOICE1$="B" GOTO 5890
  1472. 14720 IF CHOICE1$="b" GOTO 5890
  1473. 14730 PRINT "WRONG INPUT - Enter A or B"
  1474. 14740 GOTO 14680
  1475. 14750 REM - COPY THIS RECORD TO WORK FILE
  1476. 14760 COPYSIG$= "FIND"
  1477. 14770 IF WKFIL$="Y" GOTO 14950
  1478. 14780 WKFIL$="Y"
  1479. 14790 CLS
  1480. 14800 PRINT "LOAD DISK FOR WORK FILE IN UNIT A"
  1481. 14810 PRINT
  1482. 14820 PRINT "PRESS SPACE BAR WHEN DISK HAS BEEN LOADED"
  1483. 14830 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14830
  1484. 14840 PRINT
  1485. 14850 PRINT
  1486. 14860 PRINT "ARE THERE RECORDS ALREADY ON THE WORK FILE DISK THAT YOU"
  1487. 14870 PRINT "WANT TO SAVE? (Y/N)"
  1488. 14880 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14880
  1489. 14890 IF CHOICE1$="Y" GOTO 14950
  1490. 14900 IF CHOICE1$="y" GOTO 14950
  1491. 14910 IF CHOICE1$="N" GOTO 15060
  1492. 14920 IF CHOICE1$="n" GOTO 15060
  1493. 14930 PRINT "WRONG INPUT - Enter Y or N"
  1494. 14940 GOTO 14880
  1495. 14950 OUTUNIT$="A"
  1496. 14960 OPEN "RECFIL" FOR APPEND AS #2
  1497. 14970 GOSUB 8290
  1498. 14980 CLOSE 2
  1499. 14990 OUTUNIT$="B"
  1500. 15000 GOSUB 930
  1501. 15010 COLOR 23
  1502. 15020 PRINT "Above recipe copied on work file disk"
  1503. 15030 COLOR 7
  1504. 15040 IF COPYSIG$= "SCAN" GOTO 2570
  1505. 15050 GOTO 3800
  1506. 15060 OPEN "RECFIL" FOR OUTPUT AS #2
  1507. 15070 WKFIL$="Y"
  1508. 15080 GOTO 14970
  1509. 15090 COPYSIG$= "SCAN"
  1510. 15100 GOTO 14770
  1511. 15110 REM - OUTPUT EOF ROUTINE - UNIT A
  1512. 15120 CLS
  1513. 15130 CLOSE 2
  1514. 15140 PRINT
  1515. 15150 PRINT "We have run out of space for the work file in Unit A"
  1516. 15160 PRINT
  1517. 15170 PRINT "LOAD ANOTHER DISK IN UNIT A TO RECEIVE THE REST OF THE FILE"
  1518. 15180 PRINT
  1519. 15190 PRINT "PRESS SPACE BAR WHEN READY TO CONTINUE"
  1520. 15200 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 15200
  1521. 15210 OPEN "RECFIL" FOR OUTPUT AS #2
  1522. 15220 RESUME
  1523. 15230 IF OUTUNIT$= "A" GOTO 15250
  1524. 15240 GOTO 150
  1525. 15250 CLS
  1526. 15260 PRINT
  1527. 15270 PRINT "The work file can not be located on the disk in Unit A."
  1528. 15280 PRINT
  1529. 15290 PRINT "Has the correct disk been loaded?"
  1530. 15300 PRINT
  1531. 15310 PRINT "PRESS SPACE BAR WHEN READY TO PROCEED"
  1532. 15320 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 15320
  1533. 15330 RESUME
  1534.