home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / farmer's market (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  6.7 KB  |  170 lines
  1. 5 z=18:dima(z),b(z),c(z),d$(z),e$(z),f$(z)
  2. 6 dimg$(z),h$(z),i$(z),j$(z),k$(z),l$(z),m$(z),n$(z):yy=1308:z1=1:z2=1
  3. 10 poke53280,5:poke53281,5:s=54272:pokes+24,15:pokes,100:pokes+1,67:pokes+5,5
  4. 20 print"[147]":pokes+4,17
  5. 22 print"[158]             [204] [207] [193] [196] [211] [212] [193] [210]
  6. 23 [153]"                (NULL)resents
  7. 30 print"                              "
  8. 40 print" [198] [193] [210] [205] [197] [210] '[211]   [205] [193] [210] [203] [197] [212] "
  9. 50 print"                              "
  10. 60 print"[151]     [194]y [205]ark [199]osswiller    "
  11. 62 print"     and [212]om [195]anfield     "
  12. 70 print"[144]          [195][207][208][217][210][201][199][200][212] 1987
  13. 97 [153]"        (NULL)ress (NULL)(NULL)atnlenval to continue.
  14. 98 foru=1to300:next:pokes+4,16
  15. 99 fort=1toz:reada(t),b(t),c(t),d$(t),e$(t),f$(t),g$(t),h$(t)
  16. 100 readi$(t),j$(t),k$(t),l$(t),m$(t),n$(t):next:z=1
  17. 103 getz$:ifz$=""then103
  18. 105 ifz$=" "then130
  19. 110 goto 103
  20. 130 poke53280,14:poke53281,14:rv=0
  21. 135 pokes+4,17
  22. 210 print"[147]"     :poke198,.
  23. 280 print"[212]he following is a list of the most"
  24. 290 print"popular vegetables according to the"
  25. 300 print"[206]ew [217]ork [212]imes [194]ook of [199]ardening"
  26. 310 print""n$(1)tab(22)n$(10)
  27. 320 print""n$(2)tab(22)n$(11)
  28. 330 print""n$(3)tab(22)n$(12)
  29. 340 print""n$(4)tab(22)n$(13)
  30. 350 print""n$(5)tab(22)n$(14)
  31. 360 print""n$(6)tab(22)n$(15)
  32. 370 print""n$(7)tab(22)n$(16)
  33. 380 print""n$(8)tab(22)n$(17)
  34. 390 print""n$(9)tab(22)n$(18)
  35. 394 v1=1264:v2=1743
  36. 400 print"[213]se cursor keys to select vegetable"
  37. 410 print"then press [210][197][212][213][210][206][146]."
  38. 415 printtab(6)"[208]ress [211][208][193][195][197][146] to exit program."
  39. 416 pokes+4,16
  40. 417 forx=0to39:pokev1+x,99:pokev1+x+54272,2:pokev2-x,99:pokev2-x+54272,2:next
  41. 420 gosub600
  42. 430 getz$:ifz$="" then430
  43. 435 poke198,.
  44. 440 ifz$<>""then445
  45. 441 ifyy<1628theny1=40:z=z+1
  46. 445 ifz$<>"[145]"then450
  47. 446 ifyy>1308theny1=-40:z=z-1
  48. 450 ifz$<>""then455
  49. 451 ifx1=0thenz=z+9:x1=17
  50. 455 ifz$<>"[157]"then460
  51. 456 ifx1=17thenz=z-9:x1=0
  52. 460 ifz$=chr$(13)then495
  53. 465 ifz$<>" "thengoto420
  54. 470 gosub 3000
  55. 495 print"[147]":poke53281,a(z):poke53280,b(z):pokes+4,17
  56. 500 printtab(c(z))"** "d$(z)" **"
  57. 510 printtab(13)"[215]hen to plant"
  58. 520 printtab(3)"[208]lant "e$(z)
  59. 525 printtab(3)f$(z)
  60. 530 printtab(13)"[200]ow to plant"
  61. 535 printtab(3)"[208]lant "g$(z)
  62. 540 printtab(3)h$(z)
  63. 545 printtab(3)i$(z)
  64. 550 printtab(8)"[199]ermination and harvest"
  65. 555 printtab(3)"[199]ermination is in "j$(z)
  66. 560 printtab(3)k$(z)
  67. 570 printtab(3)l$(z)
  68. 575 printtab(3)m$(z)
  69. 580 printtab(8)"[212]o continue press [210][197][212][213][210][206]":foru=1to300:next:pokes+4,16
  70. 590 gett$:ift$="" then590
  71. 593 ift$<>chr$(13)then590
  72. 595 ift$=chr$(13) then goto 130
  73. 600 :
  74. 605 pokes+4,.
  75. 610 forzz=1tolen(n$(z1)):pokes+xx+yy+zz,6:pokeyy+xx+zz,peek(yy+xx+zz)-rv:next
  76. 620 yy=yy+y1:xx=x1:z1=z:rv=128:y1=0
  77. 630 forzz=1tolen(n$(z1)):pokes+xx+yy+zz,1:pokeyy+xx+zz,peek(yy+xx+zz)+rv:next
  78. 635 pokes+4,17
  79. 640 return
  80. 700 :
  81. 710 data4,5,12,"[194][160][197][160][197] [212] [211]"
  82. 720 data"beets in mid to late spring.","[194]eets are hardy."
  83. 730 data"seeds 1/2 inch deep and in","rows 12 to 18 inches apart.",
  84. 740 data"7 days. [200]arvest","in 60 days.", , ,"[194]eets"
  85. 810 data 5,5,5,"[194] [197] [204] [204]   [208] [197] [208] [208] [197][160][210][160][211]"
  86. 820 data"indoors 2 months before you","plant them outdoors. [205]ust be warm."
  87. 830 data"in rows 2 feet apart and","18 inches apart.",
  88. 840 data"2 [212]o 3 weeks","[200]arvest in 70 to 80 days.", , ,"[194]ell [208]eppers
  89. 910 [131] 5, 5,10,"len atn peek peek atnclosechr$ val"
  90. 920 [131]"indoors in early ascebruary for","planting outdoors in late spring."
  91. 930 [131]"in rows 2.5 feet apart with","12 to 16 inches between plants.",
  92. 940 [131]"5 to 7 days."
  93. 950 [131]"left$arvest in 3 to 4 months. left$eads","must feel hard.", ,"lenabbage"
  94. 1010 [131]8,7,7,"len atn (NULL) (NULL) atn (NULL) (NULL) (NULL) (NULL) val"
  95. 1020 [131]"indoors 4 to 5 weeks before","outdoor planting. right$t must be warm."
  96. 1030 [131]"on small hills 5 to 6 feet","apart.",
  97. 1040 [131]"7 to 10 str$ays.","left$arvest cantaloupe in 3 months.", , ,"lenantaloupe"
  98. 1110 [131]8,5,10,"len atn (NULL) (NULL) (NULL) (NULL) (NULL)"
  99. 1120 [131]"right$n mid to late (NULL)pring.","lenarrots are hardy."
  100. 1130 [131]"in rows 1 foot apart and","plant seeds 2 to 3 inches apart.",
  101. 1140 [131]"10 days to 3","weeks. harvest time is in 2 months.", , ,"lenarrots"
  102. 1210 [131] 5,5,6,"len atn (NULL) (NULL) right$ asc (NULL) (NULL) (NULL) val (NULL)"
  103. 1220 [131]"indoors 6 weeks before last","killing frost.
  104. 1230 data"outdoors in rows 2 to 3 feet","apart. [215]ith 2 feet between plants.",
  105. 1240 data"3 to 10 days.","[200]arvest time is in 60 to 80 days.", , ,"[195]auliflower"
  106. 1310 data5,7 ,13,"[195] [207] [210] [206]"
  107. 1320 data"when soil is 55 to 60 degrees.","[196]ays and nights must be warm."
  108. 1330 data"in rows 3 feet apart. [208]lant 4","to 5 seeds per foot. 4 inches deep.",
  109. 1340 data"7 to 10 days.","[200]arvest your corn between 2 and","3 months.", ,"[195]orn"
  110. 1410 data5,5,8,"[195] [213] [195][160][213][160][205][160][194][160][197][160][210][160][211]"
  111. 1420 data"when temperatures are at least","65 degrees. [211]oil must be warm."
  112. 1430 data"in hills 2 feet apart.", ,
  113. 1440 data"7 [212]o 10 days.","[200]arvest in 50 to 70 days.", , ,"[195]ucumbers"
  114. 1510 data4,5,9,"[197] [199] [199] [208] [204] [193] [206] [212]"
  115. 1520 data"indoors 10 weeks before you","plant outdoors."
  116. 1530 data"in rows 3 feet apart and","2 feet between plants.",
  117. 1540 data"1 week to 12","days. [200]arvest in 80 days. fruit","will be glossy.",
  118. 1550 data"[197]ggplant"
  119. 1610 data5,13,7,"[199] [210] [197] [197] [206]   [194] [197] [193] [206] [211]"
  120. 1620 data"when temperatures are at","least 75 degrees. [211]oil must be warm."
  121. 1630 data"in rows 2 feet apart. [211]eeds","2 inches apart and 1.5 inches deep.",
  122. 1640 data"7 days. [200]arvest","when beans snap when bent.", , ,"[199]reen [194]eans"
  123. 1710 data5,5,10,"[204] [197] [212] [212][160][213] [195] [197]"
  124. 1720 data"when temperatures are 50 to 60","degrees. [196]oes poorly in hot weather."
  125. 1730 data"seeds in rows 1 foot apart.", ,
  126. 1740 data"7 to 10 days.","[200]arvest is an average of 2 months.", , ,"[204]ettuce"
  127. 1810 data5,1,11,"[207] [206] [201] [207] [206] [211]"
  128. 1820 data"as soon as soil is dry.","[213]sually in late spring."
  129. 1830 data"in rows 1 foot apart and 2 to","3 inches between plants.",
  130. 1840 data"7 days. [200]arvest","time is when onion stems are about",
  131. 1850 data"1/4 inch thick.","[207]nions"
  132. 1910 data 5,5 ,13,"[208] [197] [193] [211]"
  133. 1920 data"in the spring. [212]he earlier","the better. [196]o not plant when hot."
  134. 1930 data"in double rows 4 to 6 inches","apart.  2.5 feet between rows.  [208]eas"
  135. 1935 data"grow on vines 3 [212]o 4 feet tall."
  136. 1940 data"8 to 10 days.","[200]arvest peas between 60 and 70 days.", , ,"[208]eas"
  137. 2010 data2,1,11,"[210] [193] [196] [201] [211] [200]"
  138. 2020 data"in mid [211]pring and again in","the month of [193]ugust."
  139. 2030 data"seed half inch deep in rows 1","foot apart.",
  140. 2040 data"3 to 7 days.","[211]ummer radishes are usually ready","in 3 to 4 weeks.",
  141. 2050 data"[210]adish"
  142. 2110 data5,13,10,"[211] [208] [201] [206] [193] [195] [200]"
  143. 2120 data"in spring as soon as the","ground can be worked."
  144. 2130 data"in rows 1 foot apart and plant","seeds 3 inches apart.",
  145. 2140 data"7 to 10 days.","[200]arvest time is in 45 days.", , ,"[211]pinach"
  146. 2210 data2,5,9,"[212] [207] [205] [193] [212] [207] [197] [211]"
  147. 2220 data"when day and night","temperatures are above 55 degrees."
  148. 2230 data"tomato plants deep up to first","leaves. [208]lants can be as close as"
  149. 2235 data"2 feet apart in any direction."
  150. 2240 data"7 days. [211]tart","seeds inside 6 to 8 weeks before"
  151. 2245 data"planting outdoors. [200]arvest in 60"
  152. 2250 data"days (early varieties) and 70 to        80 days main season.","[212]omatoes
  153. 2310 [131]2,5,8,"(NULL) atn (NULL) val (NULL) (NULL)closeval (NULL) (NULL) (NULL)"
  154. 2320 [131]"indoors 4 to 5 weeks before","outdoor planting. right$t must be warm."
  155. 2330 [131]"on small hills 5 to 6 feet","apart.",
  156. 2340 [131]"7 to 10 days.","left$arvest watermelons in 3 months.", , ,"(NULL)atermelon
  157. 2410 data5,5,9,"[218] [213] [195] [195] [200] [201] [206] [201]"
  158. 2420 data"when temperature is mild and","soil is warm. [196]oes poorly when cool."
  159. 2430 data"in small hills 3 feet apart.", ,
  160. 2440 data"10 to 14 days.","[200]arvest in 60 to 70 days.", , ,"[218]ucchini
  161. 3000 [153]"on      str$o you wish to quit ((NULL)/(NULL)) ?      "
  162. 3014 [161]k$:[139]k$[178]""[167] 3014
  163. 3015 [139]k$[178]"y"[167] 3100
  164. 3020 [139]k$[178]"n"[167] 3050
  165. 3025 [137] 3014
  166. 3050 [153]"on"[163]6)"(NULL)ress (NULL)(NULL)atnlenvalwait to exit program":[137]430
  167. 3100 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  168. 3105 [139]er[179][177]63[167][153]"load":[128]
  169. 3110 [147]"hello connect",8,1
  170.