home *** CD-ROM | disk | FTP | other *** search
- 1 REM RECIPES BY STACY R. BROWN 5-28-84
- 2 REM 605 HUGHES STREET CRAWFORDSVILLE, IN 47933
- 3 REM PHONE: 317-364-1038
- 4 CLR
- 5 PRINT"[147]"SPC(16)"RECIPES
- 10 [153]""[166]9)"F1 ENTER RECIPE
- 15 PRINT""SPC(9)"F3 LIST RECIPES
- 20 [153]""[166]9)"F5 SEARCH FOR RECIPE
- 25 PRINT""SPC(9)"F7 END PROGRAM
- 30 [161]K$:[139]K$[178]""[176](K$[179][177]"INPUT"[175]K$[179][177]"DIM"[175]K$[179][177]"READ"[175]K$[179][177]"LET")[167]30
- 35 [139]K$[178]"INPUT"[167]1000
- 40 [139]K$[178]"DIM"[167]3010
- 50 [139]K$[178]"READ"[167]5000
- 60 [139]K$[178]"LET"[167]7000
- 1000 [153]"LOAD"[166]14)"ENTER RECIPE":[153]"RECIPE NAME (UP TO 15 LETTERS) ";
- 1010 [133]RN$
- 1015 R$[178][200](RN$,15)
- 1020 [159]8,8,8,"0:"[170]R$[170]",S,W"
- 1025 [159]15,8,15:[132]15,E
- 1027 [139]E[178]63[167]1060
- 1030 [153]"ENTER RECIPE LINE BY LINE":[153]"HIT <RETURN> AFTER EACH LINE"
- 1035 [153]"ENTER '*' WHEN FINISHED
- 1040 INPUTI$
- 1045 IFI$="*"THEN1100
- 1050 PRINT#8,I$
- 1055 GOTO1040
- 1060 PRINT"I ALREADY HAVE A RECIPE FOR "RN$
- 1065 PRINT#15,"I"
- 1070 CLOSE8:CLOSE15
- 1073 PRINTTAB(8)"HIT <RETURN> WHEN READY
- 1075 [161]K$:[139]K$[178]""[167]1075
- 1090 [137]5
- 1100 [160]8:[160]15:[137]5
- 3010 [159]1,8,0,"$":[161]#1,A$,B$
- 3015 [153]"LOAD"[166]14)"RECIPE NAMES":L[178]0
- 3020 [161]#1,A$,B$:P$[178]""
- 3030 [161]#1,A$,B$
- 3040 C[178].:[139]A$[179][177]""[167]C[178][198](A$)
- 3050 [139]B$[179][177]""[167]C[178][198](B$)[172]256
- 3060 [161]#1,B$:[139]ST[179][177]0[167]3200
- 3070 [139]B$[179][177][199](34)[167]3060
- 3080 [161]#1,D$:[139]D$[179][177][199](34)[167]P$[178]P$[170]D$:[137]3080
- 3090 [161]#1,B$:[139]B$[178][199](32)[167]3090
- 3100 C$[178]""
- 3110 C$[178]C$[170]B$:[161]#1,B$:[139]B$[179][177]""[167]3110
- 3120 [139][200](C$,3)[178]"SEQ"[167][153]P$:L[178]L[170]1:[139]L[177]20[167]3150
- 3130 [139]ST[178]0[167]3020
- 3150 [153]"<MORE>
- 3160 GETK$:IFK$=""THEN3160
- 3170 GOTO3015
- 3200 CLOSE1:PRINTTAB(8)"HIT <RETURN> WHEN READY"
- 3210 GETK$:IFK$=""THEN3210
- 3220 GOTO5
- 5000 PRINT"[147]"SPC(11)"SEARCH FOR RECIPE
- 5010 [153]"ENTER RECIPE NAME ";
- 5020 [133]RN$
- 5021 R$[178][200](RN$,15)
- 5030 [159]8,8,8,"0:"[170]R$[170]",S,R"
- 5040 [159]15,8,15:[132]15,E
- 5050 [139]E[178]62[167]5500
- 5053 T[178][181](20[171]([195](RN$))[173]2)
- 5055 [153]"LOAD"[166]T)RN$"":L[178]2
- 5060 [132]8,R$
- 5070 [153]R$:L[178]L[170]1:[139](ST [175]64)[167]5510
- 5075 [139]L[179]20[167]5060
- 5080 [153]"<MORE>"
- 5090 [161]K$:[139]K$[178]""[167]5090
- 5100 [137]5055
- 5500 [153]"SORRY, I DO NOT HAVE A RECIPE FOR "RN$"."
- 5510 [152]15,"I"
- 5513 [153][163]8)"HIT <RETURN> WHEN READY
- 5520 CLOSE8:CLOSE15
- 5525 GETK$:IFK$=""THEN5525
- 5530 GOTO5
- 7000 OPEN15,8,15,"I"
- 7010 CLOSE15:PRINT"[147]":CLR
- 8000 END
-