Colossal Cookbook

home *** CD-ROM | disk | FTP | other *** search

/ Colossal Cookbook / ColossalCookbook.cdr / sw / chefs / chefs.bas next >

Wrap

BASIC Source File | 1987-04-23 | 46.5 KB | 1,534 lines

10 ON ERROR GOTO 130 20 LDDSKB$= "LOAD DISKETTE CONTAINING RECIPE FILE IN UNIT B" 30 VERSION$="CHEFS1.51" 40 SERIAL%=100 50 PDATE$="2-24-83" 60 PRSPBAR$="PRESS SPACE BAR to continue" 70 KEY OFF 80 NRMLPRT$="Y" 90 WKFIL$="N" 100 COPYSIG$="FIND" 110 OUTUNIT$="B" 120 GOTO 5430 130 IF ERR=27 THEN 170 140 IF ERR=53 THEN 15230 150 IF ERR=61 THEN 13560 160 ON ERROR GOTO 0 170 CLS 180 PRINT "CHECK PRINTER:" 190 PRINT " Is power turned on?" 200 PRINT " Ready light on?" 210 PRINT " Out of paper?" 220 PRINT 230 PRINT "PRESS SPACE BAR TO CONTINUE" 240 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 240 250 RESUME 260 CLS 270 PRINT "CHEFS program terminated" 280 CLOSE 290 END 300 GOTO 5890 310 REM-subroutine-print copy of recipe on line printer 320 PRINT "Improper entry to line printer subroutine" 330 STOP 340 CLS 350 IF PRINTFIL$="Y" GOTO 400 360 PRINT "SET UP LINE PRINTER" 370 PRINT 380 PRINT "PRESS SPACE BAR TO CONTINUE" 390 SPACEBAR$=INKEY$: IF SPACEBAR$=""THEN 390 400 CLS 410 PRINT 420 PRINT 430 COLOR 23 440 PRINT "Printing recipe" 450 COLOR 7 460 IF NRMLPRT$="N" GOTO 480 470 IF LEFT$(RECL1$,5)= "(cont" GOTO 590 480 LPRINT SPC(27) "CHEFS" 490 LPRINT 500 LPRINT 510 LPRINT 520 LPRINT "Recipe # ";RECNO%,"Keywords: ";KYWD1$;",";KYWD2$;",";KYWD3$ 530 LPRINT "Recipe Name: ";RECNAM$ 540 LPRINT "Source: ";RECSRC$ 550 REM - LPRINT "Status: ";RECSTUS$ 560 LPRINT 570 LPRINT 580 LPRINT RECL1$ 590 LPRINT RECL2$ 600 LPRINT RECL3$ 610 LPRINT RECL4$ 620 LPRINT RECL5$ 630 LPRINT RECL6$ 640 LPRINT RECL7$ 650 LPRINT RECL8$ 660 LPRINT RECL9$ 670 LPRINT RECL10$ 680 LPRINT RECL11$ 690 IF NRMLPRT$="N" GOTO 710 700 IF LEFT$(RECL12$,5)= "(cont" GOTO 730 710 LPRINT RECL12$ 720 LPRINT CHR$(12) 730 IF PRINTFIL$="Y" GOTO 890 740 CLS 750 PRINT 760 PRINT 770 PRINT "PRINTOUT LOOK OK?" 780 PRINT " Yes- continue with program" 790 PRINT " No - reprint this recipe after I've adjusted printer" 800 PRINT 810 PRINT "ADJUST PRINTER if necessary BEFORE entering Y/N" 820 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 820 830 IF CHOICE1$="N" GOTO 430 840 IF CHOICE1$="n" GOTO 430 850 IF CHOICE1$="Y" GOTO 890 860 IF CHOICE1$="y" GOTO 890 870 PRINT "WRONG INPUT - Enter Y or N" 880 GOTO 820 890 RETURN 900 REM-SUBROUTINE-Display recipe on screen 910 PRINT "Improper entry to Display subroutine" 920 STOP 930 CLS 940 PRINT "Recipe # ";RECNO%; SPC(5) "Keywords : ";KYWD1$;",";KYWD2$;",";KYWD3$ 950 PRINT "Recipe Name: ";RECNAM$ 960 PRINT "Source: ";RECSRC$ 970 PRINT 980 REM - 1570 PRINT "Status: ";RECSTUS$ 990 PRINT RECL1$ 1000 PRINT RECL2$ 1010 PRINT RECL3$ 1020 PRINT RECL4$ 1030 PRINT RECL5$ 1040 PRINT RECL6$ 1050 PRINT RECL7$ 1060 PRINT RECL8$ 1070 PRINT RECL9$ 1080 PRINT RECL10$ 1090 PRINT RECL11$ 1100 PRINT RECL12$ 1110 RETURN 1120 REM - Subroutine - Find recipe using keywords 1130 PRINT "Improper entry to find-rec-using-kywds subroutine" 1140 STOP 1150 IF FIRST1$="N" GOTO 1200 1160 COLOR 23 1170 PRINT "Looking for recipe using keywords" 1180 COLOR 7 1190 FIRST1$="N" 1200 KYWDCNT%=0 1210 KYWDMTCH%=0 1220 MTCHFND$="N" 1230 IF EOF (1) GOTO 4780 1240 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$ 1250 IF SCHKYWD1$="" GOTO 1330 1260 KYWDCNT%=KYWDCNT% + 1 1270 IF SCHKYWD1$=KYWD1$ GOTO 1310 1280 IF SCHKYWD1$=KYWD2$ GOTO 1310 1290 IF SCHKYWD1$=KYWD3$ GOTO 1310 1300 GOTO 1330 1310 KYWDMTCH%=KYWDMTCH% + 1 1320 GOTO 1330 1330 IF SCHKYWD2$="" GOTO 1400 1340 KYWDCNT%=KYWDCNT% + 1 1350 IF SCHKYWD2$=KYWD1$ GOTO 1390 1360 IF SCHKYWD2$=KYWD2$ GOTO 1390 1370 IF SCHKYWD2$=KYWD3$ GOTO 1390 1380 GOTO 1400 1390 KYWDMTCH%=KYWDMTCH% + 1 1400 IF SCHKYWD3$="" GOTO 1470 1410 KYWDCNT%=KYWDCNT% + 1 1420 IF SCHKYWD3$=KYWD1$ GOTO 1460 1430 IF SCHKYWD3$=KYWD2$ GOTO 1460 1440 IF SCHKYWD3$=KYWD3$ GOTO 1460 1450 GOTO 1470 1460 KYWDMTCH%=KYWDMTCH% + 1 1470 IF KYWDCNT%=KYWDMTCH% GOTO 1490 1480 GOTO 1150 1490 MTCHFND$="Y" 1500 RETURN 1510 REM-Start of section (H) - Create a file of recipes 1520 CLS : PRINT 1530 OUTEOF$="N" 1540 PRINT SPC(10) "Create A File Of Recipes" 1550 OPEN "RECFIL" FOR OUTPUT AS #2 1560 PRINT 1570 PRINT 1580 PRINT "ENTER # TO BE ASSIGNED TO THE FIRST RECIPE" 1590 INPUT "nnnn"; RECNO% 1600 REM-Start of section (H1) Enter a recipe 1610 RECSTUS$="1" 1620 CLS 1630 PRINT 1640 PRINT "ENTER RECIPE NAME" 1650 INPUT RECNAM$ 1660 PRINT 1670 PRINT 1680 PRINT "ENTER RECIPE SOURCE" 1690 INPUT RECSRC$ 1700 PRINT 1710 PRINT 1720 PRINT 1730 PRINT "DO YOU WISH TO ASSIGN KEYWORDS TO THIS RECIPE? (Y/N)" 1740 ASNKYWDS$=INKEY$: IF ASNKYWDS$="" THEN 1740 1750 IF ASNKYWDS$="N" GOTO 2240 1760 IF ASNKYWDS$="n" GOTO 2240 1770 IF ASNKYWDS$="Y" GOTO 1810 1780 IF ASNKYWDS$="y" GOTO 1810 1790 PRINT "WRONG INPUT - Enter Y or N" 1800 GOTO 1740 1810 GOSUB 10110 1820 INPUT "KYWD1";KYWD1$ 1830 INPUT "KYWD2";KYWD2$ 1840 INPUT "KYWD3";KYWD3$ 1850 REM-Enter Recipe Description 1860 CLS 1870 PRINT 1880 PRINT "ENTER RECIPE (12 lines maximum, ENTER each line separately" 1890 INPUT "L1 ";RECL1$ 1900 INPUT "L2 ";RECL2$ 1910 INPUT "L3 ";RECL3$ 1920 INPUT "L4 ";RECL4$ 1930 INPUT "L5 ";RECL5$ 1940 INPUT "L6 ";RECL6$ 1950 INPUT "L7 ";RECL7$ 1960 INPUT "L8 ";RECL8$ 1970 INPUT "L9 ";RECL9$ 1980 INPUT "L10 ";RECL10$ 1990 INPUT "L11 ";RECL11$ 2000 INPUT "L12 ";RECL12$ 2010 IF LEFT$(RECL12$,4)="cont" GOTO 6730 2020 GOSUB 930 2030 PRINT 2040 PRINT 2050 PRINT "NEXT ACTION DESIRED" 2060 PRINT " A - Store this recipe in the file 2070 PRINT " B - Go back to make changes before storing" 2080 PRINT " C - Forget this recipe and return to MENU" 2090 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2090 2100 IF CHOICE1$="A" GOTO 2290 2110 IF CHOICE1$="a" GOTO 2290 2120 IF CHOICE1$="B" GOTO 2180 2130 IF CHOICE1$="b" GOTO 2180 2140 IF CHOICE1$="C" GOTO 2210 2150 IF CHOICE1$="c" GOTO 2210 2160 PRINT "WRONG INPUT - Enter A, B or C" 2170 GOTO 2090 2180 REPCHG$="Y" 2190 GOSUB 6760 2200 GOTO 2010 2210 CLOSE 2 2220 GOTO 5890 2230 REM-Set keywords to blank 2240 KYWD1$=" " 2250 KYWD2$=" " 2260 KYWD3$=" " 2270 GOTO 1860 2280 REM-Store this recipe on disk file 2290 IF LEFT$(RECL12$,5)="(cont" GOTO 6620 2300 CONTSIG$="N" 2310 PRINT #2, RECNO%;",";RECSTUS$;",";KYWD1$;",";KYWD2$;",";KYWD3$;",";RECNAM$;",";RECSRC$;",";RECL1$;",";RECL2$;",";RECL3$;",";RECL4$;",";RECL5$;",";RECL6$;",";RECL7$;",";RECL8$;",";RECL9$;",";RECL10$;",";RECL11$;",";RECL12$ 2320 IF CONTSIG$="Y" GOTO 6650 2330 CLS 2340 PRINT "ANOTHER RECIPE? (Y/N)" 2350 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2350 2360 IF CHOICE1$="Y" GOTO 2440 2370 IF CHOICE1$="y" GOTO 2440 2380 IF CHOICE1$="N" GOTO 2420 2390 IF CHOICE1$="n" GOTO 2420 2400 PRINT "WRONG INPUT - Enter Y or N" 2410 GOTO 2350 2420 CLOSE 2 2430 GOTO 300 2440 RECNO%=RECNO% + 1 2450 GOTO 1610 2460 REM - Start of section (D) - Scan recipes in file 2470 CLS 2480 PRINT SPC(10) "Scan Recipes In File" 2490 PRINT 2500 PRINT 2510 PRINT PRSPBAR$ 2520 OPEN "RECFIL" FOR INPUT AS #1 2530 GOTO 13710 2540 IF EOF (1) GOTO 2820 2550 INPUT #1, RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$ 2560 GOSUB 930 2570 PRINT "NEXT ACTION DESIRED" 2580 PRINT " A - Scan further" 2590 PRINT " B - Print copy this recipe, stop scan, return to MENU" 2600 PRINT " C - Print copy this recipe, scan further" 2610 PRINT " D - Stop scan and return to MENU" 2620 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2620 2630 IF CHOICE1$="A" GOTO 2540 2640 IF CHOICE1$="a" GOTO 2540 2650 IF CHOICE1$="B" GOTO 2750 2660 IF CHOICE1$="b" GOTO 2750 2670 IF CHOICE1$="C" GOTO 2780 2680 IF CHOICE1$="c" GOTO 2780 2690 IF CHOICE1$="D" GOTO 2800 2700 IF CHOICE1$="d" GOTO 2800 2710 IF CHOICE1$="Y" GOTO 15090 2720 IF CHOICE1$="y" GOTO 15090 2730 PRINT "WRONG INPUT - Enter A,B,C or D" 2740 GOTO 2620 2750 GOSUB 340 2760 CLOSE 1 2770 GOTO 5890 2780 GOSUB 340 2790 GOTO 2540 2800 CLOSE 1 2810 GOTO 5890 2820 REM - Input EOF 2830 CLOSE 1 2840 CLS 2850 PRINT "We have reached the end of this file of recipes" 2860 PRINT 2870 PRINT "HOW WOULD YOU LIKE TO PROCEED?" 2880 PRINT " A - Scan another file" 2890 PRINT " B - Return to Menu" 2900 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 2900 2910 IF CHOICE1$="A" GOTO 2970 2920 IF CHOICE1$="a" GOTO 2970 2930 IF CHOICE1$="B" GOTO 3000 2940 IF CHOICE1$="b" GOTO 3000 2950 PRINT "WRONG INPUT - Enter A or B" 2960 GOTO 2900 2970 REM - Get ready to scan another file 2980 CLOSE #1 2990 GOTO 2470 3000 REM - Return to Menu 3010 CLOSE #1 3020 GOTO 300 3030 REM-Start of section (F) - Print entire file 3040 CLS 3050 PRINT SPC(10)"Print Entire File" 3060 PRINT 3070 PRINT 3080 PRINT LDDSKB$ 3090 PRINT 3100 PRINT 3110 PRINT PRSPBAR$ 3120 PRINTFIL$="N" 3130 OPEN "RECFIL" FOR INPUT AS #1 3140 IF EOF (1) GOTO 3200 3150 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$ 3160 GOSUB 340 3170 PRINTFIL$="Y" 3180 GOTO 3140 3190 REM-Input EOF 3200 CLOSE #1 3210 CLS 3220 PRINT "We have reached the end of this file of recipes" 3230 PRINT 3240 PRINT "HOW WOULD YOU LIKE TO PROCEED?" 3250 PRINT " A - Print another file" 3260 PRINT " B - Return to Menu" 3270 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 3270 3280 IF CHOICE1$="A" GOTO 3040 3290 IF CHOICE1$="a" GOTO 3040 3300 IF CHOICE1$="B" GOTO 3340 3310 IF CHOICE1$="b" GOTO 3340 3320 PRINT "WRONG INPUT - Enter A or B" 3330 GOTO 3270 3340 CLOSE 1 3350 GOTO 5890 3360 REM - Start of section (A) Finding a recipe 3370 CLS 3380 PRINT 3390 PRINT SPC(10)"Finding A Recipe" 3400 PRINT 3410 PRINT 3420 GOTO 3440 3430 CLS 3440 PRINT "WHICH METHOD DO YOU WISH TO USE TO FIND THE RECIPE?" 3450 PRINT " A - Recipe #" 3460 PRINT " B - Keywords" 3470 PRINT " C - Scan through file" 3480 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 3480 3490 IF CHOICE1$="A" GOTO 3580 3500 IF CHOICE1$="a" GOTO 3580 3510 IF CHOICE1$="B" GOTO 4250 3520 IF CHOICE1$="b" GOTO 4250 3530 IF CHOICE1$="C" GOTO 2470 3540 IF CHOICE1$="c" GOTO 2470 3550 PRINT "WRONG INPUT - Enter A,B or C" 3560 GOTO 3480 3570 REM - Start of section - Find recipe using recipe # 3580 CLS 3590 OPEN "RECFIL" FOR INPUT AS #1 3600 CLS 3610 PRINT "ENTER # OF RECIPE TO BE FOUND" 3620 INPUT "(nnnn)";INRECNO% 3630 MTCHFND$="N" 3640 CLS 3650 PRINT 3660 COLOR 23 3670 PRINT "Looking for Recipe # "; INRECNO% 3680 COLOR 7 3690 IF EOF (1) GOTO 4130 3700 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$ 3710 IF RECNO%=INRECNO% GOTO 3740 3720 GOTO 3690 3730 REM - Have found matching # 3740 MTCHFND$="Y" 3750 GOSUB 930 3760 IF LEFT$(RECL12$,5)="(cont" GOTO 11090 3770 COLOR 23 3780 PRINT "Above match found" 3790 COLOR 7 3800 PRINT "NEXT ACTION DESIRED" 3810 PRINT " A - Find another recipe" 3820 PRINT " B - Print this recipe, Return to MENU" 3830 PRINT " C - Print this recipe, Find another recipe" 3840 PRINT " E - Return to MENU" 3850 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 3850 3860 IF CHOICE1$="A" GOTO 4000 3870 IF CHOICE1$="a" GOTO 4000 3880 IF CHOICE1$="B" GOTO 4030 3890 IF CHOICE1$="b" GOTO 4030 3900 IF CHOICE1$="C" GOTO 4080 3910 IF CHOICE1$="c" GOTO 4080 3920 IF CHOICE1$="D" GOTO 3980 3930 IF CHOICE1$="d" GOTO 3980 3940 IF CHOICE1$="E" GOTO 4110 3950 IF CHOICE1$="e" GOTO 4110 3960 IF CHOICE1$="Y" GOTO 14760 3970 IF CHOICE1$="y" GOTO 14760 3980 PRINT "WRONG INPUT - Enter A,B,C or E" 3990 GOTO 3850 4000 CLOSE #1 4010 GOTO 3370 4020 REM - Print this recipe, Return to MENU" 4030 PRINTFIL$="N" 4040 GOSUB 340 4050 CLOSE #1 4060 GOTO 5890 4070 REM - Print this recipe, Find next recipe 4080 PRINTFIL$="N" 4090 GOSUB 340 4100 GOTO 4000 4110 CLOSE #1 4120 GOTO 5890 4130 IF MTCHFND$="N" GOTO 4210 4140 CLS 4150 PRINT "We have reached the end of this file of recipes" 4160 PRINT 4170 PRINT "PRESS SPACE BAR to return to MENU" 4180 SPACEBAR$=INKEY$: IF SPACEBAR$="" THEN 4180 4190 CLOSE #1 4200 GOTO 300 4210 CLS 4220 PRINT "No match was found using ";INRECNO% 4230 GOTO 4160 4240 REM - Find recipe using keywords 4250 CLS 4260 OPEN "RECFIL" FOR INPUT AS #1 4270 GOSUB 10120 4280 INPUT "KYWD1";SCHKYWD1$ 4290 INPUT "KYWD2";SCHKYWD2$ 4300 INPUT "KYWD3";SCHKYWD3$ 4310 FIRST1$="Y" 4320 GOSUB 1150 4330 GOSUB 930 4340 COLOR 23 4350 PRINT "Above match found" 4360 COLOR 7 4370 PRINT "NEXT ACTION DESIRED" 4380 PRINT " A - Find next recipe using same keywords" 4390 PRINT " B - Print copy this recipe, Return to MENU" 4400 PRINT " C - Print copy this recipe, Find next rec. using same keywords 4410 PRINT " E - Return to MENU" 4420 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 4420 4430 IF CHOICE1$="A" GOTO 4570 4440 IF CHOICE1$="a" GOTO 4570 4450 IF CHOICE1$="B" GOTO 4640 4460 IF CHOICE1$="b" GOTO 4640 4470 IF CHOICE1$="C" GOTO 4690 4480 IF CHOICE1$="c" GOTO 4690 4490 IF CHOICE1$="D" GOTO 4550 4500 IF CHOICE1$="d" GOTO 4550 4510 IF CHOICE1$="E" GOTO 4730 4520 IF CHOICE1$="e" GOTO 4730 4530 IF CHOICE1$="Y" GOTO 14760 4540 IF CHOICE1$="y" GOTO 14760 4550 PRINT "WRONG INPUT - Enter A,B,C or E" 4560 GOTO 4420 4570 COLOR 23 4580 PRINT "Looking for next recipe using same keywords" 4590 COLOR 7 4600 GOSUB 1190 4610 GOSUB 930 4620 GOTO 4340 4630 REM - Print copy this recipe, Exit program 4640 PRINTFIL$="N" 4650 GOSUB 340 4660 CLOSE #1 4670 GOTO 5890 4680 REM - Print copy this recipe, Find next recipe using same keywords 4690 PRINTFIL$="N" 4700 GOSUB 340 4710 GOTO 4570 4720 REM - Exit program 4730 CLOSE #1 4740 SCHKYWD1$=" " 4750 SCHKYWD2$=" " 4760 SCHKYWD3$=" " 4770 GOTO 5890 4780 REM - Input EOF - Search using keywords 4790 IF MTCHFND$="Y" GOTO 5210 4800 CLS 4810 COLOR 23 4820 PRINT "No match found using" 4830 COLOR 7 4840 PRINT; SCHKYWD1$ 4850 PRINT; SCHKYWD2$ 4860 PRINT; SCHKYWD3$ 4870 PRINT 4880 PRINT "HOW DO YOU WISH TO PROCEED?" 4890 PRINT " A - Search this file again using different keywords" 4900 PRINT " B - Search another file using same keywords" 4910 PRINT " C - Look at each recipe in this file" 4920 PRINT " D - Return to MENU" 4930 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 4930 4940 IF CHOICE1$="A" GOTO 5050 4950 IF CHOICE1$="a" GOTO 5050 4960 IF CHOICE1$="B" GOTO 5080 4970 IF CHOICE1$="b" GOTO 5080 4980 IF CHOICE1$="C" GOTO 5150 4990 IF CHOICE1$="c" GOTO 5150 5000 IF CHOICE1$="D" GOTO 5180 5010 IF CHOICE1$="d" GOTO 5180 5020 PRINT "WRONG INPUT - Enter A,B,C, or D" 5030 GOTO 4930 5040 REM - Search this file again using different keywords 5050 CLOSE #1 5060 GOTO 4260 5070 REM - Search another file using same keywords 5080 CLOSE #1 5090 CLS 5100 PRINT "Search another file using same keywords" 5110 OPEN "RECFIL" FOR INPUT AS #1 5120 GOSUB 1150 5130 GOTO 4330 5140 REM - Look at each recipe in this file 5150 CLOSE #1 5160 GOTO 2520 5170 REM - Return to MENU 5180 CLOSE #1 5190 GOTO 5890 5200 REM - Input EOF - Using keywords - Match found 5210 CLOSE #1 5220 CLS 5230 PRINT "We have reached the end of this file of recipes" 5240 PRINT 5250 PRINT "HOW WOULD YOU LIKE TO PROCEED?" 5260 PRINT " A - Search another file using the same keywords" 5270 PRINT " B - Go to MENU" 5280 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 5280 5290 IF CHOICE1$= "A" GOTO 5080 5300 IF CHOICE1$= "a" GOTO 5080 5310 IF CHOICE1$= "B" GOTO 5180 5320 IF CHOICE1$="b" GOTO 5180 5330 PRINT "Wrong input - Enter A or B" 5340 GOTO 5280 5350 REM - Scan selected types of recipes 5360 CLS 5370 PRINT 5380 PRINT SPC(10) "Scan Selected Types Of Recipes" 5390 PRINT 5400 PRINT 5410 GOTO 4260 5420 REM - DISPLAY TITLE SCREEN 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); 5440 PRINT CHR$(219) CHR$(219) SPC(7) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) 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) 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) 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) 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); 5490 PRINT SPC(9) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) 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) 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) 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) 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); 5540 PRINT SPC(12) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) CHR$(219) 5550 PRINT 5560 PRINT 5570 PRINT SPC(10); 5580 COLOR 1 5590 PRINT "C"; 5600 COLOR 7 5610 PRINT "ANNON" SPC(8); 5620 COLOR 1 5630 PRINT "H"; 5640 COLOR 7 5650 PRINT "IGH-" SPC(9); 5660 COLOR 1 5670 PRINT "E"; 5680 COLOR 7 5690 PRINT "PICUREAN" SPC(4); 5700 COLOR 1 5710 PRINT "F"; 5720 COLOR 7 5730 PRINT "ILE" SPC(9); 5740 COLOR 1 5750 PRINT "S"; 5760 COLOR 7 5770 PRINT "YSTEM" 5780 PRINT SPC(26) "TECHNOLOGY" 5790 PRINT 5800 PRINT 5810 PRINT 5820 PRINT SPC(60) "Copyright (C) 1982" 5830 PRINT SPC(60) "J. W. Cannon" 5840 PRINT 5850 PRINT 5860 PRINT SPC(10) "PRESS SPACE BAR TO CONTINUE" 5870 CHOICE1$=INKEY$ : IF CHOICE1$="" THEN 5870 5880 GOTO 300 5890 REM - DISPLAY MENU 5900 CLS 5910 PRINT 5920 PRINT SPC(25) "CHEFS MENU" 5930 PRINT 5940 PRINT 5950 PRINT "WHAT WOULD YOU LIKE TO DO?" 5960 PRINT SPC(5) "A - FIND a recipe" 5970 PRINT SPC(5) "B - ADD a recipe" 5980 PRINT 5990 PRINT SPC(5) "C - SCAN all recipes in file" 6000 PRINT SPC(5) "D - SCAN selected types of recipes" 6010 PRINT SPC(5) "E - SCAN recipe names" 6020 PRINT SPC(5) "F - SCAN keywords assigned to recipes" 6030 PRINT 6040 PRINT SPC(5) "G - PRINT all recipes in file" 6050 PRINT SPC(5) "H - PRINT recipe names/keywords" 6060 PRINT 6070 PRINT SPC(5) "K - CHANGE/DELETE a recipe" 6080 PRINT SPC(5) "L - MERGE recipe files together" 6090 PRINT SPC(5) "M - COPY a file of recipes" 6100 PRINT SPC(5) "N - CREATE a beginning file of recipes" 6110 PRINT 6120 PRINT SPC(5) "W - Miscellaneous" 6130 PRINT SPC(5) "X - Exit this program" 6140 CHOICE1$=INKEY$ : IF CHOICE1$="" THEN 6140 6150 IF CHOICE1$="A" GOTO 3370 6160 IF CHOICE1$="a" GOTO 3370 6170 IF CHOICE1$="B" GOTO 6460 6180 IF CHOICE1$="b" GOTO 6460 6190 IF CHOICE1$="C" GOTO 2470 6200 IF CHOICE1$="c" GOTO 2470 6210 IF CHOICE1$="D" GOTO 5350 6220 IF CHOICE1$="d" GOTO 5350 6230 IF CHOICE1$="E" GOTO 14350 6240 IF CHOICE1$="e" GOTO 14350 6250 IF CHOICE1$="F" GOTO 10200 6260 IF CHOICE1$="f" GOTO 10200 6270 IF CHOICE1$="G" GOTO 3040 6280 IF CHOICE1$="g" GOTO 3040 6290 IF CHOICE1$="H" GOTO 10700 6300 IF CHOICE1$="h" GOTO 10700 6310 IF CHOICE1$="K" GOTO 7770 6320 IF CHOICE1$="k" GOTO 7770 6330 IF CHOICE1$="L" GOTO 11540 6340 IF CHOICE1$="l" GOTO 11540 6350 IF CHOICE1$="M" GOTO 12340 6360 IF CHOICE1$="m" GOTO 12340 6370 IF CHOICE1$="N" GOTO 1520 6380 IF CHOICE1$="n" GOTO 1520 6390 IF CHOICE1$="W" GOTO 11150 6400 IF CHOICE1$="w" GOTO 11150 6410 IF CHOICE1$="X" GOTO 260 6420 IF CHOICE1$="x" GOTO 260 6430 PRINT "WRONG INPUT - Enter A,B,C,D,E,F,G,H,J or X" 6440 GOTO 6140 6450 REM - ADD A RECIPE TO THE FILE 6460 CLS 6470 PRINT 6480 PRINT " Add A Recipe To The File" 6490 OPEN "RECFIL" FOR INPUT AS #1 6500 PRINT 6510 PRINT 6520 COLOR 23 6530 PRINT "Looking for next available recipe #" 6540 COLOR 7 6550 IF EOF(1) GOTO 6580 6560 INPUT #1,RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$ 6570 GOTO 6550 6580 CLOSE 1 6590 RECNO%=RECNO% + 1 6600 OPEN "RECFIL" FOR APPEND AS #2 6610 GOTO 1610 6620 RECL12$="(continued in next recipe record)" 6630 CONTSIG$="Y" 6640 GOTO 2310 6650 RECNO%=RECNO% + 1 6660 CLS 6670 PRINT 6680 PRINT "ENTER NEXT PART OF RECIPE DESCRIPTION" 6690 RECL1$="(continued from previous recipe description)" 6700 CONTSIG$="N" 6710 PRINT "L1 (continued from previous recipe description)" 6720 GOTO 1900 6730 RECL12$="(continued in next recipe record)" 6740 GOTO 2020 6750 REM - Subroutine - Change recipe record 6760 CLS 6770 PRINT "The present recipe information will be displayed for you " 6780 PRINT "one item at a time. If you do not wish to change a particular" 6790 PRINT "item, press ENTER to proceed and that item will not be changed." 6800 PRINT 6810 PRINT "If you do wish to change the item, enter the revised information" 6820 PRINT "as prompted, following the same rules as for the original input." 6830 PRINT 6840 PRINT "It will be necessary to process every item in this fashion." 6850 PRINT 6860 PRINT 6870 PRINT 6880 PRINT "PRESS SPACE BAR TO CONTINUE" 6890 CHOICE1$=INKEY$: IF CHOICE1$="" GOTO 6890 6900 CLS 6910 PRINT "REC # "; RECNO% 6920 IF RECNOCHG$="Y" GOTO 13310 6930 INPUT "New Recipe #: ";NRECNO% 6940 IF NRECNO%=0 GOTO 6970 6950 RECNO%=NRECNO% 6960 RECNOCHG$="Y" 6970 PRINT "KYWD1 : "; KYWD1$ 6980 IF KW1CHG$="Y" GOTO 13450 6990 INPUT "New KYWD1 : ";NKYWD1$ 7000 IF NKYWD1$="" GOTO 7030 7010 KYWD1$=NKYWD1$ 7020 KW1CHG$="Y" 7030 PRINT "KYWD2 : "; KYWD2$ 7040 IF KW2CHG$="Y" GOTO 13470 7050 INPUT "New KYWD2 : "; NKYWD2$ 7060 IF NKYWD2$="" GOTO 7090 7070 KYWD2$=NKYWD2$ 7080 KW2CHG$="Y" 7090 PRINT "KYWD3 : ";KYWD3$ 7100 IF KW3CHG$="Y" GOTO 13490 7110 INPUT "New KYWD3 : "; NKYWD3$ 7120 IF NKYWD3$="" GOTO 7150 7130 KYWD3$=NKYWD3$ 7140 KW3CHG$="Y" 7150 PRINT "Recipe Name : ";RECNAM$ 7160 IF RNAMCHG$="Y" GOTO 13510 7170 INPUT "New Recipe Name : "; NRECNAM$ 7180 IF NRECNAM$="" GOTO 7210 7190 RECNAM$=NRECNAM$ 7200 RNAMCHG$="Y" 7210 PRINT "Recipe Source : "; RECSRC$ 7220 IF RSRCCHG$="Y" GOTO 13530 7230 INPUT "New Recipe Source : "; NRECSRC$ 7240 IF NRECSRC$="" GOTO 7270 7250 RECSRC$=NRECSRC$ 7260 RSRCCHG$="Y" 7270 PRINT "RECL1 : "; RECL1$ 7280 INPUT "New RECL1 : "; NRECL1$ 7290 IF NRECL1$="" GOTO 7310 7300 RECL1$=NRECL1$ 7310 PRINT "RECL2 : ";RECL2$ 7320 INPUT "New RECL2 : "; NRECL2$ 7330 IF NRECL2$="" GOTO 7350 7340 RECL2$=NRECL2$ 7350 PRINT "RECL3 : "; RECL3$ 7360 INPUT "New RECL3 : "; NRECL3$ 7370 IF NRECL3$="" GOTO 7390 7380 RECL3$=NRECL3$ 7390 PRINT "RECL4 : "; RECL4$ 7400 INPUT "New RECL4 : "; NRECL4$ 7410 IF NRECL4$="" GOTO 7430 7420 RECL4$=NRECL4$ 7430 PRINT "RECL5 : "; RECL5$ 7440 INPUT "New RECL5 : "; NRECL5$ 7450 IF NRECL5$="" GOTO 7470 7460 RECL5$=NRECL5$ 7470 PRINT "RECL6 : "; RECL6$ 7480 INPUT "New RECL6 : "; NRECL6$ 7490 IF NRECL6$="" GOTO 7510 7500 RECL6$=NRECL6$ 7510 PRINT "RECL7 : "; RECL7$ 7520 INPUT "New RECL7 : "; NRECL7$ 7530 IF NRECL7$="" GOTO 7550 7540 RECL7$=NRECL7$ 7550 PRINT "RECL8 : "; RECL8$ 7560 INPUT "New RECL8 : "; NRECL8$ 7570 IF NRECL8$="" GOTO 7590 7580 RECL8$=NRECL8$ 7590 PRINT "RECL9 : "; RECL9$ 7600 INPUT "New RECL9 : "; NRECL9$ 7610 IF NRECL9$="" GOTO 7630 7620 RECL9$=NRECL9$ 7630 PRINT "RECL10 : "; RECL10$ 7640 INPUT "New RECL10 : "; NRECL10$ 7650 IF NRECL10$="" GOTO 7670 7660 RECL10$=NRECL10$ 7670 PRINT "RECL11 : "; RECL11$ 7680 INPUT "New RECL11 : "; NRECL11$ 7690 IF NRECL11$="" GOTO 7710 7700 RECL11$=NRECL11$ 7710 PRINT "RECL12 : "; RECL12$ 7720 INPUT "New RECL12 : "; NRECL12$ 7730 IF NRECL12$="" GOTO 7750 7740 RECL12$=NRECL12$ 7750 RETURN 7760 REM - CHANGE OR DELETE A RECIPE 7770 CLS 7780 RECNOCHG$="N" 7790 KW1CHG$="N" 7800 KW2CHG$="N" 7810 KW3CHG$="N" 7820 RNAMCHG$="N" 7830 RSRCCHG$="N" 7840 REPCHG$="N" 7850 PRINT SPC(10) "E - Change or Delete A Recipe" 7860 PRINT 7870 PRINT "To change or delete a recipe you will need: " 7880 PRINT SPC(5) "1. The Recipe #. If you don't have the #, return " 7890 PRINT SPC(5) " to the MENU and find it using any of the methods provided" 7900 PRINT SPC(5) " there." 7910 PRINT 7920 PRINT SPC(5) "2. A formatted diskette on which to record the new file." 7930 PRINT SPC(5) " (When you change or delete a recipe already in the file, 7940 PRINT SPC(5) " CHEFS copies the entire file onto another diskette)" 7950 PRINT 7960 PRINT 7970 PRINT "ENTER RECIPE # (Pressing ENTER without entering a number will take" 7980 PRINT " you back to the MENU.)" 7990 INPUT "(nnnn): "; SCHRECNO% 8000 IF SCHRECNO%=0 GOTO 5890 8010 CLS 8020 PRINT "LOAD DISKETTE FOR NEW FILE IN UNIT B" 8030 PRINT 8040 PRINT 8050 PRINT "PRESS SPACE BAR WHEN DISKETTE HAVE BEEN LOADED" 8060 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8060 8070 OPEN "RECFIL" FOR INPUT AS #1 8080 OPEN "RECFIL" FOR OUTPUT AS #2 8090 MTCHFND$="N" 8100 CCONTSIG$="N" 8110 DCONTSIG$="N" 8120 CONTDFIL$="N" 8130 FSTRCD$="N" 8140 CHGDEL$="Y" 8150 COLOR 23 8160 PRINT "System searching for record" 8170 COLOR 7 8180 IF EOF (1) GOTO 9400 8190 GOSUB 8260 8200 IF CCONTSIG$="Y" GOTO 9910 8210 IF DCONTSIG$="Y" GOTO 8320 8220 IF SCHRECNO%=RECNO% GOTO 8490 8230 GOSUB 8290 8240 GOTO 8180 8250 REM - SUBROUTINE - READ NEXT RECIPE RECORD 8260 INPUT #1, RECNO%,RECSTUS$,KYWD1$,KYWD2$,KYWD3$,RECNAM$,RECSRC$,RECL1$,RECL2$,RECL3$,RECL4$,RECL5$,RECL6$,RECL7$,RECL8$,RECL9$,RECL10$,RECL11$,RECL12$ 8270 RETURN 8280 REM - SUBROUTINE - WRITE NEXT RECIPE RECORD 8290 PRINT #2, RECNO%;",";RECSTUS$;",";KYWD1$;",";KYWD2$;",";KYWD3$;",";RECNAM$;",";RECSRC$;",";RECL1$;",";RECL2$;",";RECL3$;",";RECL4$;",";RECL5$;",";RECL6$;",";RECL7$;",";RECL8$;",";RECL9$;",";RECL10$;",";RECL11$;",";RECL12$ 8300 RETURN 8310 REM - DELETE A RECIPE 8320 IF LEFT$(RECL12$,5)= "(cont" GOTO 8690 8330 DCONTSIG$="N" 8340 PRINT "Recipe # "; RECNO%; " deleted from file" 8350 PRINT 8360 PRINT "DO YOU WISH TO CHANGE/DELETE ANOTHER RECIPE ? (Y/N)" 8370 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8370 8380 IF CHOICE1$="N" GOTO 8660 8390 IF CHOICE1$="n" GOTO 8660 8400 IF CHOICE1$="Y" GOTO 13430 8410 IF CHOICE1$="y" GOTO 13430 8420 PRINT "WRONG INPUT - Enter Y or N" 8430 GOTO 8370 8440 PRINT 8450 PRINT "ENTER NEXT RECIPE #" 8460 INPUT "(nnnn)"; SCHRECNO% 8470 GOTO 8180 8480 REM - MATCHING RECIPE # FOUND 8490 MTCHFND$="Y" 8500 GOSUB 930 8510 PRINT 8520 PRINT "CONFIRM THAT ABOVE RECIPE IS THE ONE YOU WANT TO CHANGE/DELETE" 8530 PRINT "NEXT ACTION DESIRED" 8540 PRINT SPC(5) "A - Delete this recipe" 8550 PRINT SPC(5) "B - Change this recipe" 8560 PRINT SPC(5) "C - Terminate this procedure and return to MENU" 8570 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8570 8580 IF CHOICE1$="A" GOTO 8320 8590 IF CHOICE1$="a" GOTO 8320 8600 IF CHOICE1$="B" GOTO 9780 8610 IF CHOICE1$="b" GOTO 9780 8620 IF CHOICE1$="C" GOTO 9360 8630 IF CHOICE1$="c" GOTO 9360 8640 PRINT "WRONG INPUT - ENTER A, B, OR C" 8650 GOTO 8570 8660 SCHRECNO%=9999 8670 GOTO 8180 8680 REM - DELETE A CONTINUED RECORD 8690 DCONTSIG$="Y" 8700 PRINT "Recipe # ";RECNO%; " deleted from file" 8710 GOTO 8180 8720 PRINT "THIS IS A MULTI PAGE RECIPE - DO YOU WISH TO CHANGE THIS PAGE ? (Y/N)" 8730 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8730 8740 IF CHOICE1$="N" GOTO 8800 8750 IF CHOICE1$="n" GOTO 8800 8760 IF CHOICE1$="Y" GOTO 8950 8770 IF CHOICE1$="y" GOTO 8950 8780 PRINT "WRONG INPUT - Enter Y or N" 8790 GOTO 8730 8800 GOSUB 8290 8810 GOTO 9140 8820 REM - CHANGING A MULTI PAGE RECIPE 8830 CCONTSIG$="Y" 8840 PRINT 8850 PRINT "THIS IS A MULTI PAGE RECIPE - DO YOU WISH TO CHANGE THIS PAGE ? (Y/N)" 8860 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 8860 8870 IF CHOICE1$="Y" GOTO 8950 8880 IF CHOICE1$="y" GOTO 8950 8890 IF CHOICE1$="N" GOTO 8930 8900 IF CHOICE1$="n" GOTO 8930 8910 PRINT "WRONG INPUT - Enter Y or N" 8920 GOTO 8860 8930 GOSUB 8290 8940 GOTO 8180 8950 GOSUB 6760 8960 GOSUB 930 8970 COLOR 23 8980 PRINT "Above Recipe changed" 8990 COLOR 7 9000 PRINT "NEXT ACTION DESIRED" 9010 PRINT SPC(5) "A - Store in new file" 9020 PRINT SPC(5) "B - Go back to make more changes in this recipe" 9030 CHOICE1$=INKEY$:IF CHOICE1$="" THEN 9030 9040 IF CHOICE1$="A" GOTO 9110 9050 IF CHOICE1$="a" GOTO 9110 9060 IF CHOICE1$="B" GOTO 13330 9070 IF CHOICE1$="b" GOTO 13330 9080 PRINT "WRONG INPUT - ENTER A or B" 9090 GOTO 9030 9100 REM - STORE IN NEW FILE 9110 GOSUB 8290 9120 PRINT 9130 PRINT "Recipe # "; RECNO%; " changed" 9140 IF CCONTSIG$="Y" GOTO 8180 9150 CONTDFIL$="N" 9160 PRINT 9170 PRINT "DO YOU WISH TO CHANGE/DELETE ANOTHER RECIPE ? (Y/N)" 9180 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 9180 9190 IF CHOICE1$="Y" GOTO 13350 9200 IF CHOICE1$="y" GOTO 13350 9210 IF CHOICE1$="N" GOTO 9300 9220 IF CHOICE1$="n" GOTO 9300 9230 PRINT "WRONG INPUT - Enter Y or N" 9240 GOTO 9180 9250 PRINT 9260 PRINT "ENTER NEXT RECIPE #" 9270 INPUT "(nnnn) "; SCHRECNO% 9280 MTCHFND$="N" 9290 GOTO 8150 9300 SCHRECNO%=9999 9310 COLOR 23 9320 PRINT "System processing remainder of file" 9330 COLOR 7 9340 GOTO 8180 9350 REM - TERMINATE THIS PROCEDURE AND RETURN TO MENU 9360 CLOSE 1 9370 CLOSE 2 9380 GOTO 5890 9390 REM - INPUT EOF 9400 IF MTCHFND$="Y" GOTO 9500 9410 CLOSE 1 9420 CLOSE 2 9430 CLS 9440 PRINT 9450 PRINT "Recipe # ";SCHRECNO%; " could not be found in this file" 9460 PRINT 9470 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 9480 CHOICE1$=INKEY$:IF CHOICE1$="" THEN 9480 9490 GOTO 5890 9500 IF SCHRECNO%=9999 GOTO 9630 9510 CLS 9520 PRINT "Recipe # ";SCHRECNO%; " not found" 9530 PRINT 9540 PRINT "Check explanation of Change/Delete procedure for sequence" 9550 PRINT "problems if you have been working with more than one recipe #" 9560 PRINT 9570 PRINT "PRESS SPACE BAR to return to MENU" 9580 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 9580 9590 CLOSE 1 9600 CLOSE 2 9610 GOTO 5890 9620 REM - END OF CHANGE/DELETE PROCEDURE 9630 CHGDEL$="N" 9640 CLOSE 1 9650 CLOSE 2 9660 CLS 9670 PRINT 9680 PRINT "Change/Delete procedure completed" 9690 PRINT 9700 PRINT "The old file is on the disk in unit A" 9710 PRINT 9720 PRINT "The new file is on the disk in unit B" 9730 PRINT 9740 PRINT "PRESS SPACE BAR to return to MENU" 9750 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 9750 9760 GOTO 5890 9770 REM - OPERATOR CHOICE - CHANGE THIS RECIPE 9780 IF LEFT$(RECL12$,5)="(cont" GOTO 9830 9790 CCONTSIG$="N" 9800 CONTDFIL$="N" 9810 FSTRCD$="N" 9820 GOTO 9870 9830 CCONTSIG$="Y" 9840 CONTDFIL$="Y" 9850 FSTRCD$="Y" 9860 GOTO 9870 9870 IF CONTDFIL$="N" GOTO 8950 9880 IF FSTRCD$="N" GOTO 8720 9890 FSTRCD$="N" 9900 GOTO 8850 9910 IF RECNOCHG$="N" GOTO 9940 9920 NRECNO%=NRECNO% + 1 9930 RECNO%=NRECNO% 9940 IF KW1CHG$="N" GOTO 9960 9950 KYWD1$=NKYWD1$ 9960 IF KW2CHG$="N" GOTO 9980 9970 KYWD2$=NKYWD2$ 9980 IF KW3CHG$="N" GOTO 10000 9990 KYWD3$=NKYWD3$ 10000 IF RNAMCHG$="N" GOTO 10020 10010 RECNAM$=NRECNAM$ 10020 IF RSRCCHG$="N" GOTO 10040 10030 RECSRC$=NRECSRC$ 10040 IF LEFT$(RECL12$,5)="(cont" GOTO 10080 10050 CCONTSIG$="N" 10060 GOSUB 930 10070 GOTO 9870 10080 CCONTSIG$="Y" 10090 GOTO 10060 10100 REM - SUBROUTINE FOR PROMPTING KEYWORDS 10110 CLS 10120 PRINT 10130 PRINT "ENTER KEYWORDS:" 10140 PRINT 10150 PRINT "(Depress ENTER key after each entry)" 10160 PRINT 10170 PRINT 10180 RETURN 10190 REM - SCAN KEYWORDS IN FILE 10200 DISCTR%=15 10210 CLS 10220 PRINT 10230 PRINT SPC(10) "Scan Keywords In File" 10240 PRINT 10250 GOSUB 10530 10260 CLS 10270 PRINT SPC(5) "REC #"; SPC(5) "KEYWORD #1";SPC(6) "KEYWORD #2"; SPC(5) "KEYWORD #3" 10280 PRINT 10290 WDISCTR%=DISCTR% 10300 IF EOF (1) GOTO 10550 10310 GOSUB 8260 10320 PRINT SPC(5) RECNO%;" "; 10330 PRINT USING "\ \";KYWD1$;KYWD2$;KYWD3$ 10340 WDISCTR%=WDISCTR% - 1 10350 IF WDISCTR%=0 GOTO 10370 10360 GOTO 10300 10370 PRINT 10380 PRINT "NEXT ACTION DESIRED" 10390 PRINT SPC(5) "A - Proceed to next group of keywords" 10400 PRINT SPC(5) "B - Return to MENU" 10410 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 10410 10420 IF CHOICE1$= "A" GOTO 10260 10430 IF CHOICE1$= "a" GOTO 10260 10440 IF CHOICE1$= "B" GOTO 10470 10450 IF CHOICE1$= "b" GOTO 10470 10460 PRINT "WRONG INPUT - Enter A or B" 10470 CLOSE 1 10480 GOTO 5890 10490 GOTO 10410 10500 REM - SUBROUTINE - PROMPTING OPERATOR TO LOAD DISK UNIT B 10510 CLS 10520 REM 10530 OPEN "RECFIL" FOR INPUT AS #1 10540 RETURN 10550 CLOSE 1 10560 PRINT 10570 PRINT "We have reached the end of this file of recipes" 10580 PRINT 10590 PRINT "HOW WOULD YOU LIKE TO PROCEED ?" 10600 PRINT SPC(5) "A - Scan another file" 10610 PRINT SPC(5) "B - Return to MENU" 10620 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 10620 10630 IF CHOICE1$= "A" GOTO 10200 10640 IF CHOICE1$= "a" GOTO 10200 10650 IF CHOICE1$= "B" GOTO 5890 10660 IF CHOICE1$= "b" GOTO 5890 10670 PRINT "WRONG INPUT - Enter A or B" 10680 GOTO 10620 10690 REM - OPERATOR CHOICE - PRINT NAMES/KEYWORDS IN FILE 10700 CLS 10710 PRINT 10720 PRINT SPC(10) "Print Names/Keywords In File" 10730 PRINT 10740 GOSUB 10520 10750 CLS 10760 PRINT "SET UP LINE PRINTER" 10770 PRINT 10780 PRINT "PRESS SPACEBAR TO CONTINUE" 10790 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 10790 10800 CLS 10810 PRINT 10820 PRINT 10830 COLOR 23 10840 PRINT "Printing Names/Keywords In File" 10850 COLOR 7 10860 LPRINT SPC(27) "CHEFS" 10870 LPRINT 10880 LPRINT 10890 LPRINT SPC(2) "RECIPE #"; SPC(10) "RECIPE NAME"; SPC(25) "KEYWORDS" 10900 LPRINT 10910 IF EOF (1) GOTO 10950 10920 GOSUB 8260 10930 LPRINT SPC(4) RECNO%; SPC(5) RECNAM$; TAB(50) KYWD1$",";KYWD2$",";KYWD3$ 10940 GOTO 10910 10950 CLS 10960 PRINT "We have reached the end of this file of recipes" 10970 PRINT 10980 PRINT "HOW WOULD YOU LIKE TO PROCEED ?" 10990 PRINT SPC(5) "A - Print another file" 11000 PRINT SPC(5) "B - Return to MENU" 11010 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11010 11020 IF CHOICE1$= "A" GOTO 10700 11030 IF CHOICE1$= "a" GOTO 10700 11040 IF CHOICE1$= "B" GOTO 5890 11050 IF CHOICE1$= "b" GOTO 5890 11060 PRINT "WRONG INPUT - Enter A or B" 11070 GOTO 11010 11080 REM - FOUND MULTI PAGE RECORD USING REC # - SWITCH TO SCAN MODE 11090 COLOR 23 11100 PRINT "Above match found - Since this is a multi page recipe, you are" 11110 PRINT " now switched to SCAN mode (MENU item D)" 11120 COLOR 7 11130 GOTO 2570 11140 REM - SUB MENU - MISCELLANEOUS FUNCTIONS 11150 CLS 11160 PRINT 11170 PRINT SPC(25) "CHEFS MENU" 11180 PRINT 11190 PRINT "MISCELLANEOUS FUNCTIONS" 11200 PRINT 11210 PRINT 11220 PRINT "WHAT WOULD YOU LIKE TO DO?" 11230 PRINT SPC(5) "A - Change method of printing multi-page records" 11240 PRINT SPC(5) "B - Return to Menu" 11250 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11250 11260 IF CHOICE1$="A" GOTO 11350 11270 IF CHOICE1$="a" GOTO 11350 11280 IF CHOICE1$="B" GOTO 5890 11290 IF CHOICE1$="b" GOTO 5890 11300 IF CHOICE1$="Z" GOTO 14240 11310 IF CHOICE1$="z" GOTO 14240 11320 PRINT "WRONG INPUT - Enter A or B" 11330 GOTO 11250 11340 REM - CHANGE PRINT ROUTINE FOR MULTI PAGE RECORDS 11350 CLS 11360 PRINT "WHICH METHOD DO YOU WISH TO USE?" 11370 PRINT SPC(5) "A - Eliminate repetitive printing of headings and continued messages" 11380 PRINT SPC(5) "B - Print each page exactly as stored in the file" 11390 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11390 11400 IF CHOICE1$="A" GOTO 11460 11410 IF CHOICE1$="a" GOTO 11460 11420 IF CHOICE1$="B" GOTO 11520 11430 IF CHOICE1$="b" GOTO 11520 11440 PRINT "WRONG INPUT - Enter A or B" 11450 GOTO 11390 11460 NRMLPRT$="Y" 11470 PRINT "Print Routine changed" 11480 PRINT 11490 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 11500 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11500 11510 GOTO 5890 11520 NRMLPRT$="N" 11530 GOTO 11470 11540 CLS 11550 PRINT 11560 PRINT SPC(10) "Merging Recipe Files" 11570 PRINT 11580 PRINT "This procedure merges two files by copying one onto the end" 11590 PRINT "of the other. The recipes being added to the other file are" 11600 PRINT "automatically renumbered." 11610 PRINT 11620 PRINT "LOAD THE FILE TO BE COPIED IN UNIT A" 11630 PRINT 11640 PRINT "LOAD THE FILE TO BE ADDED TO IN UNIT B" 11650 PRINT 11660 PRINT "PRESS SPACE BAR TO CONTINUE" 11670 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 11670 11680 OPEN "RECFIL" FOR INPUT AS #1 11690 REM - LOOKING FOR NEXT AVAILABLE # 11700 PRINT 11710 COLOR 23 11720 PRINT "Looking for next available Recipe # for automatic renumbering" 11730 COLOR 7 11740 IF EOF(1) GOTO 11770 11750 GOSUB 8260 11760 GOTO 11740 11770 CLOSE 1 11780 BEGNO%=RECNO% + 1 11790 PRINT 11800 PRINT "Next available # is ";BEGNO% 11810 OPEN "RECFIL" FOR APPEND AS #2 11820 OPEN "RECFIL" FOR INPUT AS #1 11830 CLS 11840 PRINT 11850 PRINT "ENTER THE # OF THE RECIPE WHERE YOU WOULD LIKE THE MERGE TO START" 11860 PRINT 11870 PRINT "(Depressing ENTER without a # will start the merge with the first" 11880 PRINT " recipe in the file.)" 11890 PRINT 11900 INPUT "(nnnn): "; SCHNO% 11910 IF SCHNO%= 0 GOTO 12080 11920 IF EOF(1) GOTO 11980 11930 GOSUB 8260 11940 IF SCHNO%=RECNO% GOTO 11960 11950 GOTO 11920 11960 FSTRCD$= "Y" 11970 GOTO 12080 11980 CLOSE 1 11990 CLOSE 2 12000 CLS 12010 PRINT 12020 PRINT "The beginning # you specified "; "("; SCHNO%; ") "; "can not be" 12030 PRINT "found in the file in Unit A." 12040 PRINT 12050 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 12060 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12060 12070 GOTO 5890 12080 CLS 12090 PRINT 12100 COLOR 23 12110 PRINT "Now merging file A with file B" 12120 COLOR 7 12130 IF EOF(1) GOTO 12210 12140 IF FSTRCD$="Y" GOTO 12160 12150 GOSUB 8260 12160 FSTRCD$="N" 12170 RECNO%=BEGNO% 12180 BEGNO%=BEGNO% + 1 12190 GOSUB 8290 12200 GOTO 12130 12210 CLOSE 1 12220 CLOSE 2 12230 CLS 12240 PRINT 12250 PRINT "Merge process completed" 12260 PRINT 12270 PRINT "The recipes in the file in Unit A have now been added" 12280 PRINT "to the recipe file in Unit B." 12290 PRINT 12300 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 12310 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12310 12320 GOTO 5890 12330 REM - COPY A FILE 12340 CLS 12350 PRINT 12360 PRINT SPC(10) "Copy A File" 12370 PRINT 12380 PRINT "LOAD THE FILE TO BE COPIED IN UNIT A" 12390 PRINT 12400 PRINT "LOAD A (FORMATTED) DISK FOR THE NEW FILE IN UNIT B" 12410 PRINT 12420 PRINT "PRESS SPACE BAR WHEN READY TO PROCEED" 12430 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12430 12440 CLS 12450 PRINT 12460 PRINT "Where would you like the copy process to begin?" 12470 PRINT 12480 PRINT "(If you wish to start with the first record in the file" 12490 PRINT " depress ENTER without entering a #)" 12500 PRINT 12510 INPUT "(nnnn): "; STARTNO% 12520 PRINT 12530 PRINT 12540 PRINT "Where would you like the copy process to stop?" 12550 PRINT 12560 PRINT "(The number specified will be included in the copy process)" 12570 PRINT 12580 PRINT "(If you wish to copy to the end of the file, depress ENTER" 12590 PRINT " without entering a #)" 12600 PRINT 12610 INPUT "(nnnn): "; ENDNO% 12620 OPEN "RECFIL" FOR INPUT AS #1 12630 IF STARTNO%= 0 GOTO 12830 12640 PRINT 12650 COLOR 23 12660 PRINT "Looking for starting number "; STARTNO% 12670 COLOR 7 12680 IF EOF(1) GOTO 12740 12690 GOSUB 8260 12700 IF STARTNO%=RECNO% GOTO 12720 12710 GOTO 12680 12720 FSTRCD$= "Y" 12730 GOTO 12830 12740 CLOSE 1 12750 CLS 12760 PRINT 12770 PRINT "The starting # you specified (";STARTNO%;") can not be found" 12780 PRINT "in the file in Unit A" 12790 PRINT 12800 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 12810 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 12810 12820 GOTO 5890 12830 IF ENDNO%= 0 GOTO 13290 12840 CLS 12850 PRINT 12860 PRINT "Do you wish to renumber the records in the new file?" 12870 PRINT 12880 PRINT "If so, enter the beginning #" 12890 PRINT 12900 PRINT "If not, depress ENTER without entering #" 12910 PRINT 12920 INPUT "(nnnn): "; BEGNO% 12930 IF BEGNO%= 0 GOTO 12970 12940 NEWNO%= BEGNO% 12950 RENOSIG$= "Y" 12960 GOTO 12980 12970 RENOSIG$="N" 12980 OPEN "RECFIL" FOR OUTPUT AS #2 12990 CLS 13000 PRINT 13010 COLOR 23 13020 PRINT "File being copied" 13030 COLOR 7 13040 IF FSTRCD$= "Y" GOTO 13110 13050 IF EOF(1) GOTO 13130 13060 GOSUB 8260 13070 IF RECNO%>ENDNO% GOTO 13130 13080 IF RENOSIG$= "Y" GOTO 13260 13090 GOSUB 8290 13100 GOTO 13050 13110 FSTRCD$="N" 13120 GOTO 13070 13130 CLOSE 1 13140 CLOSE 2 13150 CLS 13160 PRINT 13170 PRINT "Copy process completed" 13180 PRINT 13190 PRINT "Original file in Unit A" 13200 PRINT 13210 PRINT "New file in Unit B" 13220 PRINT 13230 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 13240 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 13240 13250 GOTO 5890 13260 RECNO%=NEWNO% 13270 NEWNO%=NEWNO% + 1 13280 GOTO 13090 13290 ENDNO%=9999 13300 GOTO 12840 13310 IF REPCHG$= "N" GOTO 6970 13320 GOTO 13940 13330 REPCHG$="Y" 13340 GOTO 8950 13350 RECNOCHG$= "N" 13360 KW1CHG$= "N" 13370 KW2CHG$= "N" 13380 KW3CHG$= "N" 13390 RNAMCHG$= "N" 13400 RSRCCHG$= "N" 13410 REPCHG$= "N" 13420 GOTO 9250 13430 DCONTSIG$= "N" 13440 GOTO 8440 13450 IF REPCHG$= "Y" GOTO 13990 13460 GOTO 7030 13470 IF REPCHG$= "Y" GOTO 14040 13480 GOTO 7090 13490 IF REPCHG$= "Y" GOTO 14090 13500 GOTO 7150 13510 IF REPCHG$= "Y" GOTO 14140 13520 GOTO 7210 13530 IF REPCHG$= "Y" GOTO 14190 13540 GOTO 7270 13550 REM - OUTPUT EOF ROUTINE - UNIT B 13560 IF OUTUNIT$="A" GOTO 15120 13570 CLS 13580 CLOSE 2 13590 PRINT 13600 PRINT "We have just run out of space on the output disk in Unit B" 13610 PRINT 13620 PRINT "LOAD A (FORMATTED) DISK IN UNIT B TO RECEIVE THE REST OF THE FILE" 13630 PRINT 13640 PRINT "PRESS SPACE BAR WHEN READY TO CONTINUE" 13650 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 13650 13660 OPEN "RECFIL" FOR OUTPUT AS #2 13670 COLOR 23 13680 PRINT "Now processing rest of file" 13690 COLOR 7 13700 RESUME 13710 CLS 13720 PRINT 13730 PRINT "ENTER THE # OF THE RECIPE WHERE YOU WOULD LIKE THE SCAN TO START" 13740 PRINT 13750 PRINT "(Depressing ENTER without a # will start the Scan with" 13760 PRINT " the first recipe in the file) 13770 PRINT 13780 PRINT 13790 INPUT "(nnnn): "; SCHNO% 13800 IF SCHNO%= 0 GOTO 2540 13810 IF EOF(1) GOTO 13850 13820 GOSUB 8260 13830 IF SCHNO%=RECNO% GOTO 2560 13840 GOTO 13810 13850 CLOSE 1 13860 CLS 13870 PRINT 13880 PRINT "The beginning # you specified "; "("; SCHNO%; ")"; " CAN NOT" 13890 PRINT "be found in the file in Unit B" 13900 PRINT 13910 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 13920 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 13920 13930 GOTO 5890 13940 INPUT "New Recipe # : "; NNRECNO% 13950 IF NNRECNO%= 0 GOTO 6970 13960 RECNO%=NNRECNO% 13970 NRECNO%=NNRECNO% 13980 GOTO 6970 13990 INPUT "New KYWD1 : "; NNKYWD1$ 14000 IF NNKYWD1$="" GOTO 7030 14010 KYWD1$=NNKYWD1$ 14020 NKYWD1$=NNKYWD1$ 14030 GOTO 7030 14040 INPUT "New KYWD2 : "; NNKYWD2$ 14050 IF NNKYWD2$="" GOTO 7090 14060 KYWD2$=NNKYWD2$ 14070 NKYWD2$=NNKYWD2$ 14080 GOTO 7090 14090 INPUT "New KYWD3 : "; NNKYWD3$ 14100 IF NNKYWD3$="" GOTO 7150 14110 KYWD3$=NNKYWD3$ 14120 NKYWD3$=NNKYWD3$ 14130 GOTO 7150 14140 INPUT "New Recipe Name : "; NNRECNAM$ 14150 IF NNRECNAM$="" GOTO 7210 14160 RECNAM$=NNRECNAM$ 14170 NRECNAM$=NNRECNAM$ 14180 GOTO 7210 14190 INPUT "New Recipe Source : "; NNRECSRC$ 14200 IF NNRECSRC$="" GOTO 7270 14210 RECSRC$=NNRECSRC$ 14220 NRECSRC$=NNRECSRC$ 14230 GOTO 7270 14240 REM - PRINT VERSION AND SERIAL NUMBER 14250 CLS 14260 PRINT "Version "; VERSION$ 14270 PRINT "Serial Number "; SERIAL% 14280 PRINT "Date : "; PDATE$ 14290 PRINT 14300 PRINT 14310 PRINT "PRESS SPACE BAR TO RETURN TO MENU" 14320 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14320 14330 GOTO 5890 14340 REM - SCAN NAMES IN FILE 14350 DISCTR%=15 14360 CLS 14370 PRINT SPC(10) "Scan Recipe Names In File" 14380 PRINT 14390 GOSUB 10530 14400 CLS 14410 PRINT SPC(5) "REC #"; SPC(17) "NAME" 14420 PRINT 14430 WDISCTR%=DISCTR% 14440 IF EOF(1) GOTO 14610 14450 GOSUB 8260 14460 PRINT SPC(6) RECNO%; SPC(12) RECNAM$ 14470 WDISCTR%=WDISCTR% - 1 14480 IF WDISCTR%= 0 GOTO 14500 14490 GOTO 14440 14500 PRINT 14510 PRINT "NEXT ACTION DESIRED" 14520 PRINT SPC(5) "A - Proceed to next group of names" 14530 PRINT SPC(5) "B - Return to MENU" 14540 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14540 14550 IF CHOICE1$="A" GOTO 14400 14560 IF CHOICE1$="a" GOTO 14400 14570 IF CHOICE1$="B" GOTO 10470 14580 IF CHOICE1$="b" GOTO 10470 14590 PRINT "WRONG INPUT - Enter A or B" 14600 GOTO 14540 14610 CLOSE 1 14620 PRINT 14630 PRINT "We have reached the end of this file of recipes" 14640 PRINT 14650 PRINT "HOW WOULD YOU LIKE TO PROCEED?" 14660 PRINT SPC(5) "A - Scan another file" 14670 PRINT SPC(5) "B - Return to MENU" 14680 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14680 14690 IF CHOICE1$="A" GOTO 14350 14700 IF CHOICE1$="a" GOTO 14350 14710 IF CHOICE1$="B" GOTO 5890 14720 IF CHOICE1$="b" GOTO 5890 14730 PRINT "WRONG INPUT - Enter A or B" 14740 GOTO 14680 14750 REM - COPY THIS RECORD TO WORK FILE 14760 COPYSIG$= "FIND" 14770 IF WKFIL$="Y" GOTO 14950 14780 WKFIL$="Y" 14790 CLS 14800 PRINT "LOAD DISK FOR WORK FILE IN UNIT A" 14810 PRINT 14820 PRINT "PRESS SPACE BAR WHEN DISK HAS BEEN LOADED" 14830 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14830 14840 PRINT 14850 PRINT 14860 PRINT "ARE THERE RECORDS ALREADY ON THE WORK FILE DISK THAT YOU" 14870 PRINT "WANT TO SAVE? (Y/N)" 14880 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 14880 14890 IF CHOICE1$="Y" GOTO 14950 14900 IF CHOICE1$="y" GOTO 14950 14910 IF CHOICE1$="N" GOTO 15060 14920 IF CHOICE1$="n" GOTO 15060 14930 PRINT "WRONG INPUT - Enter Y or N" 14940 GOTO 14880 14950 OUTUNIT$="A" 14960 OPEN "RECFIL" FOR APPEND AS #2 14970 GOSUB 8290 14980 CLOSE 2 14990 OUTUNIT$="B" 15000 GOSUB 930 15010 COLOR 23 15020 PRINT "Above recipe copied on work file disk" 15030 COLOR 7 15040 IF COPYSIG$= "SCAN" GOTO 2570 15050 GOTO 3800 15060 OPEN "RECFIL" FOR OUTPUT AS #2 15070 WKFIL$="Y" 15080 GOTO 14970 15090 COPYSIG$= "SCAN" 15100 GOTO 14770 15110 REM - OUTPUT EOF ROUTINE - UNIT A 15120 CLS 15130 CLOSE 2 15140 PRINT 15150 PRINT "We have run out of space for the work file in Unit A" 15160 PRINT 15170 PRINT "LOAD ANOTHER DISK IN UNIT A TO RECEIVE THE REST OF THE FILE" 15180 PRINT 15190 PRINT "PRESS SPACE BAR WHEN READY TO CONTINUE" 15200 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 15200 15210 OPEN "RECFIL" FOR OUTPUT AS #2 15220 RESUME 15230 IF OUTUNIT$= "A" GOTO 15250 15240 GOTO 150 15250 CLS 15260 PRINT 15270 PRINT "The work file can not be located on the disk in Unit A." 15280 PRINT 15290 PRINT "Has the correct disk been loaded?" 15300 PRINT 15310 PRINT "PRESS SPACE BAR WHEN READY TO PROCEED" 15320 CHOICE1$=INKEY$: IF CHOICE1$="" THEN 15320 15330 RESUME