home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / CS77.D81 / recipes (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  78 lines

  1. 1 REM RECIPES                                 BY STACY R. BROWN    5-28-84
  2. 2 REM 605 HUGHES STREET                       CRAWFORDSVILLE, IN  47933
  3. 3 REM PHONE: 317-364-1038
  4. 4 CLR
  5. 5 PRINT"[147]"SPC(16)"RECIPES
  6. 10 [153]""[166]9)"F1  ENTER RECIPE
  7. 15 PRINT""SPC(9)"F3  LIST RECIPES
  8. 20 [153]""[166]9)"F5  SEARCH FOR RECIPE
  9. 25 PRINT""SPC(9)"F7  END PROGRAM
  10. 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
  11. 35 [139]K$[178]"INPUT"[167]1000
  12. 40 [139]K$[178]"DIM"[167]3010
  13. 50 [139]K$[178]"READ"[167]5000
  14. 60 [139]K$[178]"LET"[167]7000
  15. 1000 [153]"LOAD"[166]14)"ENTER RECIPE":[153]"RECIPE NAME (UP TO 15 LETTERS) ";
  16. 1010 [133]RN$
  17. 1015 R$[178][200](RN$,15)
  18. 1020 [159]8,8,8,"0:"[170]R$[170]",S,W"
  19. 1025 [159]15,8,15:[132]15,E
  20. 1027 [139]E[178]63[167]1060
  21. 1030 [153]"ENTER RECIPE LINE BY LINE":[153]"HIT <RETURN> AFTER EACH LINE"
  22. 1035 [153]"ENTER '*' WHEN FINISHED
  23. 1040 INPUTI$
  24. 1045 IFI$="*"THEN1100
  25. 1050 PRINT#8,I$
  26. 1055 GOTO1040
  27. 1060 PRINT"I ALREADY HAVE A RECIPE FOR "RN$
  28. 1065 PRINT#15,"I"
  29. 1070 CLOSE8:CLOSE15
  30. 1073 PRINTTAB(8)"HIT <RETURN> WHEN READY
  31. 1075 [161]K$:[139]K$[178]""[167]1075
  32. 1090 [137]5
  33. 1100 [160]8:[160]15:[137]5
  34. 3010 [159]1,8,0,"$":[161]#1,A$,B$
  35. 3015 [153]"LOAD"[166]14)"RECIPE NAMES":L[178]0
  36. 3020 [161]#1,A$,B$:P$[178]""
  37. 3030 [161]#1,A$,B$
  38. 3040 C[178].:[139]A$[179][177]""[167]C[178][198](A$)
  39. 3050 [139]B$[179][177]""[167]C[178][198](B$)[172]256
  40. 3060 [161]#1,B$:[139]ST[179][177]0[167]3200
  41. 3070 [139]B$[179][177][199](34)[167]3060
  42. 3080 [161]#1,D$:[139]D$[179][177][199](34)[167]P$[178]P$[170]D$:[137]3080
  43. 3090 [161]#1,B$:[139]B$[178][199](32)[167]3090
  44. 3100 C$[178]""
  45. 3110 C$[178]C$[170]B$:[161]#1,B$:[139]B$[179][177]""[167]3110
  46. 3120 [139][200](C$,3)[178]"SEQ"[167][153]P$:L[178]L[170]1:[139]L[177]20[167]3150
  47. 3130 [139]ST[178]0[167]3020
  48. 3150 [153]"<MORE>
  49. 3160 GETK$:IFK$=""THEN3160
  50. 3170 GOTO3015
  51. 3200 CLOSE1:PRINTTAB(8)"HIT <RETURN> WHEN READY"
  52. 3210 GETK$:IFK$=""THEN3210
  53. 3220 GOTO5
  54. 5000 PRINT"[147]"SPC(11)"SEARCH FOR RECIPE
  55. 5010 [153]"ENTER RECIPE NAME ";
  56. 5020 [133]RN$
  57. 5021 R$[178][200](RN$,15)
  58. 5030 [159]8,8,8,"0:"[170]R$[170]",S,R"
  59. 5040 [159]15,8,15:[132]15,E
  60. 5050 [139]E[178]62[167]5500
  61. 5053 T[178][181](20[171]([195](RN$))[173]2)
  62. 5055 [153]"LOAD"[166]T)RN$"":L[178]2
  63. 5060 [132]8,R$
  64. 5070 [153]R$:L[178]L[170]1:[139](ST [175]64)[167]5510
  65. 5075 [139]L[179]20[167]5060
  66. 5080 [153]"<MORE>"
  67. 5090 [161]K$:[139]K$[178]""[167]5090
  68. 5100 [137]5055
  69. 5500 [153]"SORRY, I DO NOT HAVE A RECIPE FOR "RN$"."
  70. 5510 [152]15,"I"
  71. 5513 [153][163]8)"HIT <RETURN> WHEN READY
  72. 5520 CLOSE8:CLOSE15
  73. 5525 GETK$:IFK$=""THEN5525
  74. 5530 GOTO5
  75. 7000 OPEN15,8,15,"I"
  76. 7010 CLOSE15:PRINT"[147]":CLR
  77. 8000 END
  78.