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