*** MULTI GARDEN 64 ***B53280,1:53281,1:(147)(144)SV54296:SW54276:SA54277:SH54273:SL54272:SS54278: *** SOUND VARIABLES*** MAIN SCREEN *** CV10: **** CV SETS VOLUME IN LINE 320 CR$(145): CR$= MOVE UP SCREENA CT100: *** CT COUNTS HOW FAST THE LETTERS ARE PRINTED LINE325z FF200: FLUFF SOUND - UNDERLINE AND BUTTERFLY WINGS dX16::X n12)"MULTI-GARDEN 64":X1400:X pCR$;CR$;:16)(28)(42):1030:X1300:X qCR$21)(42):1030:: FLOWER OVER TITLE8 r11)(18);:Y117:(42);:1000:YR s : UNDER LINE TITLE} t10)(18)(31)(42)(146)(169):1030 uCR$;CR$;CR$;27)(18)(169)(42):1030:(144) v:X1800::11)"BY GARY V. FIELDS":: w120:130 xT10: T=TAB SET TO POSTION FIRST FLOWERS[ yFL15 : THIS LOOP PRINTS FIRST 5 FLOWERS ON TITLE SCREEN zT)(106)(125)(107);:1000:(156);: PURPLE {CR$;(157)(157)(157)(32)(42)(32)(17); }(144): BACK TO BLACK YT4369: 1100:TT4:CR$;CR$:FL (147):X14::X= 12)"HERE'S AN EXAMPLE"N X11000:Xg 7000: GOTO EXAMPLE X1500:X:(147) A$"WELCOME TO THE MULTI-GARDEN":300: A$"FLOWERS GROW HERE ALL YEAR AROUND":310 X11000:X:350: PAUSE BEFORE GOING TO FIRST PROBLEMC + *** PRINT A$ ONE LETTER AT A TIME ***S ,X14::Xb 6I0(A$) @SA,0:SS,120:SV,CV:SH,37:SL,162:SW,17 ABD15BD0 BBDBD1:53280,BD: MAKES BORDER COLORS SWITCH E(A$,I1):X1CT:XJSA,0:SS,0:SV,0:SH,0:SL,0:SW,0#TCR$;CR$AYI:X1100:X:53280,1:Y^(147):X14::Xq`(18)"SKILL LEVEL"c"1 - JUST BEGINNING"d"2 - BEGINNER"e"3 - ADVANCED"f"4 - MUCH ADVANCED" hSK$:SK$""360: PICK SKILL LEVEL SK$ IS CONVERTED TO SKiSK$"1"360-jSK$"4"360KkSK(SK$): CONVERSTS SK$ZmSK1SK5jnSK2SK10zoSK3SK30pSK4SK100RN((1)SK)1: RN=RANDOM PICKED NUMBER FOR TABLE TO PRATICESK10 RN10RNRN5SK30 RN20RNRN12(147):X14::XY"WE ARE GOING TO WORK ON THE ";RN;" TABLE":X1200:XhCT60:CV5A$"HOW HIGH DO YOU WANT TO GO [2-10]":300:PH$: ** PH$=PICK HIGHPH(PH$) PH2 PH10(145)(145):4221900" *** SOUND ROUTINE FOR FLOWERS ***QSA,0:SS,220:SV,3:SH,39:SL,225:SW,129qX1FF:X : TO HOLD SOUNDSA,0:SS,0:SV,0:SH,0:SL,0:SW,0: : OFF SOUNDSA,128:SS,128:SV,15:SH,34:SL,75:SW,17X1100:X:SV,5:X1100::1020-SA,0:SS,240:SV,15:SH,3:SL,255:SW,33C$X1600:X:1020dL1020: SWEEP THE THE SCALESzV54274,0:54275,8XSS,240:SV,15:SA,0:SW,17`FS0 65535 YT: YT= STEPSbHH(FS256):LL(FS(256HH))dSL,LL:SH,HH:f 1020:: TURNS OFF SOUND^lHN1 : STARTS HN AT -1 SO FIRST ADD IN LINE 2030 WILL MAKE IT EQUAL 0z *** COMPUTE MULTI ***X14::X"PRESS RETURN TO CONTINUE";X$(147):X15::X:53280,1HNPH10000: FINAL WIN ROUTINEHNHN14"WHAT NUMBER =";HN;"X";RN;: AW$: AW = ANSWERB AW(AW$)AWHNRN 5000: *** GOTO TO CORRECT RESPONSE AWHNRN 3000: *** GOSUB TO INCORRECT RESPONSE"2000: GOES BACK FOR ANOTHER PROBLEM WITHOUT FALLING TO 2999 *** INCORRECT RESPONSEG X175:X: PAUSE BEFORE INCORRECT"_ (147):X14::X HNRN13100: GOTO ZERO WRONG ROUTINE 9)(18);AW;(146)"IS INCORRECT" 53280,3 T1: T KEEPS TRACK OF ROW OF FLOWERS : HN;"X";RN;"=":: FH((1)4)1: ** PICK FLOWER TOPJ FH2FT35Z FH2FT42k FH3FT118| FH3FT119 HNRN13119 HNRN1(147):X04::X 4)"HOW MANY TIMES MUST I TELL YOU -":X0200:X ::X010:53280,X2 X0X2X4X6X8X10R1$(146):R2$(18)` X1X3X5X7X9R1$(18):R2$(146)! SA,0:SS,240:SV,15X:SH,45:SL,0:SW,33" Y075:Y$ R1$;6)"0 X ANYTHING ";R2$;"ALWAYS";R1$;" EQUALS 0";CR$& LP075:LP)( R1$;6)"0 X ANYTHING ";R2$;"ALWAYS";R1$;" EQUALS 0";CR$H* 1020: *** TURN OFF SOUNDZ. X:53280,1:j/ FL1HNRNt0 TT11 THNCR$;HN;"+"::T0: CC((1)4)1: ** CC PICKS COLOR OF FLOWER TOPD CC2FC28: REDI CC2FC156: PURPLE N CC3FC31: BLUE'S CC3FC158: YELLOW^b (106)(125)(107);:1000: **** STEM WITH SOUNDl (FC);: ** FLOWER HEAD AND COLORv CR$;(157)(157)(157)(32)(FT)(32)(17); (144);: BACK TO BLACK TYPE 1030: *** GO FOR SOUND OF FLOWER POPPING% FL; CR$;HN;"=";RNHNL :53280,1:g *** CORRECT RESPONSE:16)"CORRECT" :X1700:X:(147)BZ((1)4)1BZ25100BZ25300BZ35600BZ359002000 YT1256: YT=STEPS OF SCALE SWEEP IN LINE1120G12)(129)(109)3)(98)3)(110)h13)(109)2)(98)2)(110)14):X15:(113);::13)(113)(113)(119)(113)(119)(113)(113)10)(96)(32)(96);:X17:(113);:X(96)(32)(96)/13)(113)(113)(106)(96)(107)(113)(113)M14):X15:(113);::n 13)(110)2)(98)2)(109)12)(110)3)(98)3)(109):: 1100(144)A$"YOU ARE LIKE THE SUN":310::(A$"YOU MAKE THE FLOWERS MULTIPLY":310:X15::X2X1500:X:1209<: BACK FOR ANOTHER PROBLEMKYT3000:1100a ** SIREN WIN **wX112::X:1201020YT6000:1100SL14,5:SL18,16:SL3,1:SL24,143:SL6,240:SL4,65FR5389FT150:FQFR(SL27)3.5,HF(FQ256):LFFQHF256:SLO,LF:SL1,HFY9)"YOU SURE CAN MULTIPLY":FT:SL24,0_YT600:X180:(28)(42);:X:1100YT1200:X180:(31)(42);:X: 1100YT2400:X180:(28)(42);:X: 1100 YT4800:X180:(31)(42);:X: 1100:96)(144)"VERY GOOD - YOU ARE CORRECT":d&YT6000:X180:(28)(42);:X: 1100n+::0YT4369:120D(144): Y35:KC0:CV15:CT80: **** BUTTERFLY **** X118::XAZ((1)4)1: PICK RANDOM A$) AZ2A$" * COME AND ENJOY MY FLOWERS":310:d AZ2A$" * CHILDREN ARE BEAUTIFUL FLOWERS":310: AZ3A$" * BUTTERFLIES LOVE FLOWERS TOO":310: AZ3A$" * FLOWERS CAN BE ENJOYED BY ALL":310: X11000:X! 3)(106)(125)(107):4)(125): ** STEM=!*X139:(28)(42);:X:CR$CR$;I!/CR$CR$\!4Y5SP$(46)o!6Y6SP$(32)!9Y)(31)(46)(18)(127)(146)!>Y)(127):*** BUTTERFLY WINGS!CFF25:1000!HY)CR$CR$SP$(32): *** MAKE WINGS FLUTTER%"MY)(32): *** ERASE HEAD OF BUTTER FLYL"RY4X13:CR$;:X:3)(42):Y5^"WYY1:KCKC1"\KC50(147):FF200:(144):"aFF15:1000"fCR$CR$;:5940"pT$(42)"zT$;T$"W *** BEGIN EXAMPLE - OOPS! ***"X(147):X14::X#bHN5:RN((1)5)2#lT1/#vHN;"X";RN;"=":?#FL1HNRNI#TT1n#THNCR$;HN;" FLOWERS +"::T0#(106)(125)(107);: 1000: SOUND OF STEM#;CR$;(157)(157)(157)(32)(42)(32)(17);#1030: SOUND OF FLOWER BLOOM$FL: GOES FOR ANOTHER FLOWERJ$MX((1)4)1: MX IS RANDOM FOR CORRECT EXAMPLE$MX2MPRNHNMX: MP IS INCORRECT EXAMPLE ANSWER$MX1MPRNHN: MP IS CORRECT EXAMPLE ANSWER$CR$;HN;"=";MP;"FLOWERS"$X11000:X$MPRNHN$1050%:(18)16)" OOPS !! "!%1050N%X1500:X::11)"THAT'S NOT RIGHT !!"_%X11000:Xr% X15:CR$;:%*19);:X14:(32);:1000:Y1300:Y:X%4:CR$;19);RNHN%M1030%OX1700:X%R:(18)14)" MUCH BETTER ":%&WX039:(28)(42);:X:(144): ERASES LINED&X14)HN;"X";RN;"=";HNRN:N&\1030&aX1500:X:A$"I GUESS WE'RE ALL HUMAN":310&b:&fCT90:A$"WE ALL MAKE MISTAKES SOMETIMES !":310&@&' **** FINAL WIN ROUTINE ***&'FI((1)5)10''FI2A$"TALK TO FLOWERS - THEY'LL MULTIPLY !":310c'$'FI2A$"THANKS FOR VISITING MY GARDEN.":310'.'FI3A$"COME BACK SOON AND SMELL THE FLOWERS":310'8'FI4A$"FLOWERS MAKE EVERY DAY SUNNY !":310(B'FI4A$"YOU SURE MAKE FLOWERS MULTIPLY !":310!(`' 120: FOR FIVE FLOWERSP(."WOULD YOU LIKE TO CONTINUE *(Y/N)* ";TU$(.TU$"Y"350: GOES BACK TO SKILL SELECTION(.( N15,8,15(*N15,A$,B$,C$,D$(,NA$,B$,C$,D$