home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MULTI-GARDEN-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.3 KB  |  258 lines

  1. 1 REM*** MULTI GARDEN 64 ***
  2. 2 POKE53280,1:POKE53281,1:PRINTCHR$(147)CHR$(144)
  3. 5 SV=54296:SW=54276:SA=54277:SH=54273:SL=54272:SS=54278:REM *** SOUND VARIABLES
  4. 8 REM*** MAIN SCREEN ***
  5. 10 CV=10:REM **** CV SETS VOLUME IN LINE 320
  6. 11 CR$=CHR$(145):REM CR$= MOVE UP SCREEN
  7. 12 CT=100:REM  *** CT COUNTS HOW FAST THE LETTERS ARE PRINTED LINE325
  8. 13 FF=200:REM FLUFF SOUND - UNDERLINE AND BUTTERFLY WINGS
  9. 100 FORX=1TO6:PRINT:NEXTX
  10. 110 PRINTTAB(12)"MULTI-GARDEN 64":FORX=1TO400:NEXTX
  11. 112 PRINTCR$;CR$;:PRINTTAB(16)CHR$(28)CHR$(42):GOSUB1030:FORX=1TO300:NEXTX
  12. 113 PRINTCR$TAB(21)CHR$(42):GOSUB1030:PRINT:REM FLOWER OVER TITLE
  13. 114 PRINTTAB(11)CHR$(18);:FORY=1TO17:PRINTCHR$(42);:GOSUB1000:NEXTY
  14. 115 PRINT :REM UNDER LINE TITLE
  15. 116 PRINTTAB(10)CHR$(18)CHR$(31)CHR$(42)CHR$(146)CHR$(169):GOSUB1030
  16. 117 PRINTCR$;CR$;CR$;TAB(27)CHR$(18)CHR$(169)CHR$(42):GOSUB1030:PRINTCHR$(144)
  17. 118 PRINT:FORX=1TO800:NEXT:PRINTTAB(11)"BY GARY V. FIELDS":PRINT:PRINT
  18. 119 GOSUB120:GOTO130
  19. 120 T=10:REM T=TAB SET TO POSTION FIRST FLOWERS
  20. 121 FORFL=1TO5 :REM THIS LOOP PRINTS FIRST 5 FLOWERS ON TITLE SCREEN
  21. 122 PRINTTAB(T)CHR$(106)CHR$(125)CHR$(107);:GOSUB1000:PRINTCHR$(156);:REM PURPLE
  22. 123 PRINTCR$;CHR$(157)CHR$(157)CHR$(157)CHR$(32)CHR$(42)CHR$(32)CHR$(17);
  23. 125 PRINTCHR$(144):REM BACK TO BLACK
  24. 127 YT=4369:GOSUB 1100:T=T+4:PRINTCR$;CR$:NEXTFL
  25. 128 RETURN
  26. 130 PRINTCHR$(147):FORX=1TO4:PRINT:NEXTX
  27. 140 PRINTTAB(12)"HERE'S AN EXAMPLE"
  28. 150 FORX=1TO1000:NEXTX
  29. 170 GOSUB7000:REM GOTO EXAMPLE
  30. 199 FORX=1TO500:NEXTX:PRINTCHR$(147)
  31. 200 A$="WELCOME TO THE MULTI-GARDEN":GOSUB300:PRINT
  32. 210 A$="FLOWERS GROW HERE ALL YEAR AROUND":GOSUB310
  33. 250 FORX=1TO1000:NEXTX:GOTO350:REM PAUSE BEFORE GOING TO FIRST PROBLEM
  34. 299 REM *** PRINT A$ ONE LETTER AT A TIME ***
  35. 300 FORX=1TO4:PRINT:NEXTX
  36. 310 FORI=0TOLEN(A$)
  37. 320 POKESA,0:POKESS,120:POKESV,CV:POKESH,37:POKESL,162:POKESW,17
  38. 321 IFBD>15THENBD=0
  39. 322 BD=BD+1:POKE53280,BD:REM MAKES BORDER COLORS SWITCH
  40. 325 PRINTLEFT$(A$,I+1):FORX=1TOCT:NEXTX
  41. 330 POKESA,0:POKESS,0:POKESV,0:POKESH,0:POKESL,0:POKESW,0
  42. 340 PRINTCR$;CR$
  43. 345 NEXTI:FORX=1TO100:NEXTX:POKE53280,1:RETURN
  44. 350 PRINTCHR$(147):FORX=1TO4:PRINT:NEXTX
  45. 352 PRINTCHR$(18)"SKILL LEVEL"
  46. 355 PRINT"1 - JUST BEGINNING"
  47. 356 PRINT"2 - BEGINNER"
  48. 357 PRINT"3 - ADVANCED"
  49. 358 PRINT"4 - MUCH ADVANCED"
  50. 360 GETSK$:IFSK$=""THEN360:REM PICK SKILL LEVEL SK$ IS CONVERTED TO SK
  51. 361 IFSK$<"1"THEN360
  52. 362 IFSK$>"4"THEN360
  53. 363 SK=VAL(SK$):REM CONVERSTS SK$
  54. 365 IFSK=1THENSK=5
  55. 366 IFSK=2THENSK=10
  56. 367 IFSK=3THENSK=30
  57. 368 IFSK=4THENSK=100
  58. 400 RN=INT(RND(1)*SK)+1:REM RN=RANDOM PICKED NUMBER FOR TABLE TO PRATICE
  59. 401 IFSK>10 AND RN<10THENRN=RN+5
  60. 402 IFSK>30 AND RN<20THENRN=RN+12
  61. 405 PRINTCHR$(147):FORX=1TO4:PRINT:NEXTX
  62. 410 PRINT"WE ARE GOING TO WORK ON THE ";RN;" TABLE":FORX=1TO200:NEXTX
  63. 415 CT=60:CV=5
  64. 420 A$="HOW HIGH DO YOU WANT TO GO [2-10]":GOSUB300
  65. 421 PRINT:PRINT
  66. 422 INPUTPH$:REM ** PH$=PICK HIGH
  67. 425 PH=VAL(PH$)
  68. 430 IF PH<2OR PH>10THENPRINTCHR$(145)CHR$(145):GOTO422
  69. 450 GOTO1900
  70. 999 REM ***  SOUND ROUTINE FOR FLOWERS ***
  71. 1000 POKESA,0:POKESS,220:POKESV,3:POKESH,39:POKESL,225:POKESW,129
  72. 1010 FORX=1TOFF:NEXTX :REM TO HOLD SOUND
  73. 1020 POKESA,0:POKESS,0:POKESV,0:POKESH,0:POKESL,0:POKESW,0:RETURN :REM OFF SOUND
  74. 1030 POKESA,128:POKESS,128:POKESV,15:POKESH,34:POKESL,75:POKESW,17
  75. 1040 FORX=1TO100:NEXTX:POKESV,5:FORX=1TO100:NEXT:GOTO1020
  76. 1050 POKESA,0:POKESS,240:POKESV,15:POKESH,3:POKESL,255:POKESW,33
  77. 1060 FORX=1TO600:NEXTX:GOTO1020
  78. 1100 GOSUB1020:REM SWEEP THE THE SCALES
  79. 1110 POKE54274,0:POKE54275,8
  80. 1112 POKESS,240:POKESV,15:POKESA,0:POKESW,17
  81. 1120 FORFS=0TO 65535 STEP YT:REM YT= STEPS
  82. 1122 HH=INT(FS/256):LL=INT(FS-(256*HH))
  83. 1124 POKESL,LL:POKESH,HH:NEXT
  84. 1126 GOSUB 1020:RETURN:REM TURNS OFF SOUND
  85. 1900 HN=-1 :REM STARTS HN AT -1 SO FIRST ADD IN LINE 2030 WILL MAKE IT EQUAL 0
  86. 1999 REM *** COMPUTE MULTI ***
  87. 2000 FORX=1TO4:PRINT:NEXTX
  88. 2005 INPUT"PRESS RETURN TO CONTINUE";X$
  89. 2010 PRINTCHR$(147):FORX=1TO5:PRINT:NEXTX:POKE53280,1
  90. 2020 IFHN=PHTHEN10000:REM FINAL WIN ROUTINE
  91. 2030 HN=HN+1
  92. 2050 PRINT"WHAT NUMBER =";HN;"X";RN;:INPUT AW$: REM AW = ANSWER
  93. 2060 AW=VAL(AW$)
  94. 2070 IFAW=HN*RN THEN GOTO5000:REM ***         GOTO TO CORRECT RESPONSE
  95. 2080 IFAW<>HN*RN THEN GOSUB3000:REM ***        GOSUB TO INCORRECT RESPONSE
  96. 2082 GOTO2000:REM GOES BACK FOR ANOTHER PROBLEM WITHOUT FALLING TO 2999
  97. 2999 REM *** INCORRECT RESPONSE
  98. 3000 FORX=1TO75:NEXTX:REM PAUSE BEFORE INCORRECT"
  99. 3001 [153][199](147):[129]X[178]1[164]4:[153]:[130]X
  100. 3002 [139]HN[172]RN[179]1[167]3100:[143] GOTO ZERO WRONG ROUTINE
  101. 3003 [153][163]9)[199](18);AW;[199](146)"IS INCORRECT"
  102. 3010 [151]53280,3
  103. 3050 T[178][171]1:[143] T KEEPS TRACK OF ROW OF FLOWERS
  104. 3060 [153]:[153] HN;"X";RN;"=":[153]
  105. 3070 FH[178][181]([187](1)[172]4)[170]1:[143] **                  PICK FLOWER TOP
  106. 3080 [139]FH[179]2[167]FT[178]35
  107. 3082 [139]FH[178]2[167]FT[178]42
  108. 3084 [139]FH[178]3[167]FT[178]118
  109. 3086 [139]FH[177]3[167]FT[178]119
  110. 3090 [139]HN[172]RN[177]1[167]3119
  111. 3100 [139]HN[172]RN[179]1[167][153][199](147):[129]X[178]0[164]4:[153]:[130]X
  112. 3101 [153][163]4)"HOW MANY TIMES MUST I TELL YOU -":[129]X[178]0[164]200:[130]X
  113. 3102 [153]:[153]:[129]X[178]0[164]10:[151]53280,X
  114. 3103 [139]X[178]0[176]X[178]2[176]X[178]4[176]X[178]6[176]X[178]8[176]X[178]10[167]R1$[178][199](146):R2$[178][199](18)
  115. 3104 [139]X[178]1[176]X[178]3[176]X[178]5[176]X[178]7[176]X[178]9[167]R1$[178][199](18):R2$[178][199](146)
  116. 3105 [151]SA,0:[151]SS,240:[151]SV,15[171]X:[151]SH,45:[151]SL,0:[151]SW,33
  117. 3106 [129]Y[178]0[164]75:[130]Y
  118. 3108 [153]R1$;[163]6)"0 X ANYTHING ";R2$;"ALWAYS";R1$;" EQUALS 0";CR$
  119. 3110 [129]LP[178]0[164]75:[130]LP
  120. 3112 [153]R1$;[163]6)"0 X ANYTHING ";R2$;"ALWAYS";R1$;" EQUALS 0";CR$
  121. 3114 [141]1020:[143] *** TURN OFF SOUND
  122. 3118 [130]X:[151]53280,1:[142]
  123. 3119 [129]FL[178]1[164]HN[172]RN
  124. 3120 T[178]T[170]1
  125. 3121 [139]T[178]HN[167][153]CR$;HN;"+":[153]:T[178]0
  126. 3130 CC[178][181]([187](1)[172]4)[170]1:[143] ** CC PICKS  COLOR OF FLOWER TOP
  127. 3140 [139]CC[179]2[167]FC[178]28:[143] RED
  128. 3145 [139]CC[178]2[167]FC[178]156:[143] PURPLE
  129. 3150 [139]CC[178]3[167]FC[178]31:[143] BLUE
  130. 3155 [139]CC[177]3[167]FC[178]158:[143] YELLOW
  131. 3170 [153][199](106)[199](125)[199](107);:[141]1000:[143] ****  STEM WITH SOUND
  132. 3180 [153][199](FC);:[143] ** FLOWER HEAD AND COLOR
  133. 3190 [153]CR$;[199](157)[199](157)[199](157)[199](32)[199](FT)[199](32)[199](17);
  134. 3200 [153][199](144);:[143] BACK TO BLACK TYPE
  135. 3210 [141]1030:[143] ***                       GO FOR SOUND OF FLOWER POPPING
  136. 3250 [130]FL
  137. 3270 [153]CR$;HN;"=";RN[172]HN
  138. 3300 [153]:[151]53280,1:[142]
  139. 4999 [143] *** CORRECT RESPONSE
  140. 5000 [153]:[153][163]16)"CORRECT" :[129]X[178]1[164]700:[130]X:[153][199](147)
  141. 5010 BZ[178][181]([187](1)[172]4)[170]1
  142. 5020 [139]BZ[179]2[167][141]5100
  143. 5030 [139]BZ[178]2[167][141]5300
  144. 5040 [139]BZ[178]3[167][141]5600
  145. 5050 [139]BZ[177]3[167][141]5900
  146. 5052 [137]2000
  147. 5100 YT[178]1256:[143] YT=STEPS OF SCALE SWEEP IN LINE1120
  148. 5101 [153][163]12)[199](129)[199](109)[166]3)[199](98)[166]3)[199](110)
  149. 5102 [153][163]13)[199](109)[166]2)[199](98)[166]2)[199](110)
  150. 5103 [153][163]14):[129]X[178]1[164]5:[153][199](113);:[130]:[153]
  151. 5104 [153][163]13)[199](113)[199](113)[199](119)[199](113)[199](119)[199](113)[199](113)
  152. 5105 [153][163]10)[199](96)[199](32)[199](96);:[129]X[178]1[164]7:[153][199](113);:[130]X
  153. 5108 [153][199](96)[199](32)[199](96)
  154. 5110 [153][163]13)[199](113)[199](113)[199](106)[199](96)[199](107)[199](113)[199](113)
  155. 5120 [153][163]14):[129]X[178]1[164]5:[153][199](113);:[130]:[153]
  156. 5130 [153][163]13)[199](110)[166]2)[199](98)[166]2)[199](109)
  157. 5140 [153][163]12)[199](110)[166]3)[199](98)[166]3)[199](109):[153]:[141] 1100
  158. 5145 [153][199](144)
  159. 5150 A$[178]"YOU ARE LIKE THE SUN":[141]310:[153]:[153]
  160. 5160 A$[178]"YOU MAKE THE FLOWERS MULTIPLY":[141]310:[129]X[178]1[164]5:[153]:[130]X
  161. 5170 [129]X[178]1[164]500:[130]X:[141]120
  162. 5180 [142]:[143] BACK FOR ANOTHER PROBLEM
  163. 5300 YT[178]3000:[141]1100
  164. 5310 [143] ** SIREN WIN **
  165. 5315 [129]X[178]1[164]12:[153]:[130]X:[141]120
  166. 5320 [141]1020
  167. 5325 YT[178]6000:[141]1100
  168. 5330 [151]SL[170]14,5:[151]SL[170]18,16:[151]SL[170]3,1:[151]SL[170]24,143:[151]SL[170]6,240:[151]SL[170]4,65
  169. 5340 FR[178]5389
  170. 5350 [129]FT[178]1[164]50:FQ[178]FR[170][194](SL[170]27)[172]3.5
  171. 5360 HF[178][181](FQ[173]256):LF[178]FQ[171]HF[172]256:[151]SL[170]O,LF:[151]SL[170]1,HF
  172. 5370 [153][163]9)"YOU SURE CAN MULTIPLY":[130]FT:[151]SL[170]24,0
  173. 5380 [142]
  174. 5600 YT[178]600:[129]X[178]1[164]80:[153][199](28)[199](42);:[130]X:[141]1100
  175. 5620 YT[178]1200:[129]X[178]1[164]80:[153][199](31)[199](42);:[130]X:[141] 1100
  176. 5630 YT[178]2400:[129]X[178]1[164]80:[153][199](28)[199](42);:[130]X:[141] 1100
  177. 5640 YT[178]4800:[129]X[178]1[164]80:[153][199](31)[199](42);:[130]X:[141] 1100:[153]
  178. 5660 [153][163]6)[199](144)"VERY GOOD - YOU ARE CORRECT":[153]
  179. 5670 YT[178]6000:[129]X[178]1[164]80:[153][199](28)[199](42);:[130]X:[141] 1100
  180. 5675 [153]:[153]:[153]
  181. 5680 YT[178]4369:[141]120
  182. 5700 [153][199](144):[142]
  183. 5900 Y[178]35:KC[178]0:CV[178]15:CT[178]80:[143] **** BUTTERFLY ****
  184. 5901 [129]X[178]1[164]18:[153]:[130]X
  185. 5903 AZ[178][181]([187](1)[172]4)[170]1:[143] PICK RANDOM  A$
  186. 5909 [139]AZ[179]2[167]A$[178]"    * COME AND ENJOY MY FLOWERS":[141]310:[153]
  187. 5910 [139]AZ[178]2[167]A$[178]"    * CHILDREN ARE BEAUTIFUL FLOWERS":[141]310:[153]
  188. 5911 [139]AZ[178]3[167]A$[178]"    * BUTTERFLIES LOVE FLOWERS TOO":[141]310:[153]
  189. 5912 [139]AZ[177]3[167]A$[178]"    * FLOWERS CAN BE ENJOYED BY ALL":[141]310:[153]
  190. 5913 [129]X[178]1[164]1000:[130]X
  191. 5920 [153][163]3)[199](106)[199](125)[199](107):[153][163]4)[199](125):[143] ** STEM
  192. 5930 [129]X[178]1[164]39:[153][199](28)[199](42);:[130]X:[153]CR$CR$;
  193. 5935 [153]CR$CR$
  194. 5940 [139]Y[177]5[167]SP$[178][199](46)
  195. 5942 [139]Y[179]6[167]SP$[178][199](32)
  196. 5945 [153][163]Y)[199](31)[199](46)[199](18)[199](127)[199](146)
  197. 5950 [153][163]Y)[199](127):[143]*** BUTTERFLY WINGS
  198. 5955 FF[178]25:[141]1000
  199. 5960 [153][163]Y)CR$CR$SP$[199](32):[143] *** MAKE WINGS FLUTTER
  200. 5965 [153][163]Y)[199](32): [143] *** ERASE HEAD OF BUTTER FLY
  201. 5970 [139]Y[179]4[167][129]X[178]1[164]3:[153]CR$;:[130]X:[153][163]3)[199](42):Y[178]5
  202. 5975 Y[178]Y[171]1:KC[178]KC[170]1
  203. 5980 [139]KC[178]50[167][153][199](147):FF[178]200:[153][199](144):[142]
  204. 5985 FF[178]15:[141]1000
  205. 5990 [153]CR$CR$;:[137]5940
  206. 6000 T$[178][199](42)
  207. 6010 [153]T$;T$
  208. 6999 [143] *** BEGIN EXAMPLE - OOPS! ***
  209. 7000 [153][199](147):[129]X[178]1[164]4:[153]:[130]X
  210. 7010 HN[178]5:RN[178][181]([187](1)[172]5)[170]2
  211. 7020 T[178][171]1
  212. 7030 [153]HN;"X";RN;"=":[153]
  213. 7040 [129]FL[178]1[164]HN[172]RN
  214. 7050 T[178]T[170]1
  215. 7060 [139]T[178]HN[167][153]CR$;HN;" FLOWERS +":[153]:T[178]0
  216. 7070 [153][199](106)[199](125)[199](107);: [141]1000:[143] SOUND OF STEM
  217. 7080 [153];CR$;[199](157)[199](157)[199](157)[199](32)[199](42)[199](32)[199](17);
  218. 7090 [141]1030:[143] SOUND OF FLOWER BLOOM
  219. 7100 [130]FL:[143] GOES FOR ANOTHER FLOWER
  220. 7101 MX[178][181]([187](1)[172]4)[170]1:[143] MX IS RANDOM FOR CORRECT EXAMPLE
  221. 7102 [139]MX[179]2[167]MP[178]RN[172]HN[171]MX:[143] MP IS INCORRECT EXAMPLE ANSWER
  222. 7103 [139]MX[177]1[167]MP[178]RN[172]HN:[143] MP IS CORRECT EXAMPLE ANSWER
  223. 7110 [153]CR$;HN;"=";MP;"FLOWERS"
  224. 7140 [129]X[178]1[164]1000:[130]X
  225. 7141 [139]MP[178]RN[172]HN[167][142]
  226. 7145 [141]1050
  227. 7150 [153]:[153][199](18)[163]16)" OOPS !! "
  228. 7160 [141]1050
  229. 7165 [129]X[178]1[164]500:[130]X:[153]:[153][163]11)"THAT'S NOT RIGHT !!"
  230. 7170 [129]X[178]1[164]1000:[130]X
  231. 7200 [129]X[178]1[164]5:[153]CR$;:[130]
  232. 7210 [153][163]19);:[129]X[178]1[164]4:[153][199](32);:[141]1000:[129]Y[178]1[164]300:[130]Y:[130]X
  233. 7220 [153]:[153]CR$;[163]19);RN[172]HN
  234. 7245 [141]1030
  235. 7247 [129]X[178]1[164]700:[130]X
  236. 7250 [153]:[153][199](18)[163]14)" MUCH BETTER ":[153]
  237. 7255 [129]X[178]0[164]39:[153][199](28)[199](42);:[130]X:[153][199](144):[143] ERASES LINE
  238. 7256 [153][163]14)HN;"X";RN;"=";HN[172]RN:[153]
  239. 7260 [141]1030
  240. 7265 [129]X[178]1[164]500:[130]X:A$[178]"I GUESS WE'RE ALL HUMAN":[141]310
  241. 7266 [153]:[153]
  242. 7270 CT[178]90:A$[178]"WE ALL MAKE MISTAKES SOMETIMES !":[141]310
  243. 8000 [142]
  244. 9999 [143] **** FINAL WIN ROUTINE ***
  245. 10000 FI[178][181]([187](1)[172]5)[170]1
  246. 10010 [139]FI[179]2[167]A$[178]"TALK TO FLOWERS - THEY'LL MULTIPLY !":[141]310
  247. 10020 [139]FI[178]2[167]A$[178]"THANKS FOR VISITING MY GARDEN.":[141]310
  248. 10030 [139]FI[178]3[167]A$[178]"COME BACK SOON AND SMELL THE FLOWERS":[141]310
  249. 10040 [139]FI[178]4[167]A$[178]"FLOWERS MAKE EVERY DAY SUNNY !":[141]310
  250. 10050 [139]FI[177]4[167]A$[178]"YOU SURE MAKE FLOWERS MULTIPLY !":[141]310
  251. 10080 [141] 120:[143] FOR FIVE FLOWERS
  252. 12000 [133]"WOULD YOU LIKE TO CONTINUE *(Y/N)* ";TU$
  253. 12010 [139]TU$[178]"Y"[167]350:[143] GOES BACK TO SKILL SELECTION
  254. 12020 [128]
  255. 20000 [159]15,8,15
  256. 20010 [132]15,A$,B$,C$,D$
  257. 20012 [153]A$,B$,C$,D$
  258.