Zelda and her days

WELCOME
Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al

See Recent Changes. | About this site. | Join the E-Mail List or Facebook Group. | Contact me with updates/questions.

This page was last updated on 05/18/2019. Total Pages: 744. Total Files: 994.

---

Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-12 - Zelda and her days

---

What does a witch need more than anything else? Other than her broomstick, it's got to be a bat. And there are a lot of them in this program from Illustrated Memory Banks.

ZELDA'S BAT BOTTLE is brought to you courtesy of Fred Scerbo of IMB and we think you'll find it a lot of fun to play.

As most of you undoubtedly know, witches need all kinds of special things to make their magic potions. Bats happen to be one of the. and, in the instant situation, Zelda needs 10 of them. You need to help her zap them, fill up the bottle, and do it as quickly as possible. ZELDA'S BAT BOTTLE will tell you how long it takes!

ZELDA'S BAT BOTTLE is copyrighted by Illustrated Memory Banks and may not be duplicated. You are authorized to make two copies for your single end use. For permission to make additional copies, contact IMB at P.O. Box 289, Williamstown, MA, 01267.

Incidentally, you might pay special attention to the graphics. You will notice they are a little different than those which have been presented in the RAINBOW in the past but are extremely attractive! We think you'll like this one ... and will have some fun helping Zelda out.

The Listing:

10 CLEAR500:CLS(0):PMODE3,1:COLOR3,1:PCLS(0):SCREEN0,1:LINE(20,8)-(234,92),PSET,B:DRAW"BM5,20U8R5D8U4L5":DRAW"BM5,32U8F5D3U8"
20 COLOR4,2:LINE(28,16)-(60,84),PRESET,BF
30 LINE(68,32)-(104,84),PRESET,BF:CIRCLE(86,32),20,2,.9,.52,.98:PAINT(86,19),2,2:PSET(86,15)
40 LINE(108,32)-(144,84),PRESET,BF:CIRCLE(126,32),20,2,.9,.52,.98:PAINT(126,17),2,2:PSET(126,15)
50 LINE(152,16)-(212,48),PRESET,BF:CIRCLE(212,32),18,2,1,.77,.23:PAINT(215,17),2,2:PSET(230,32):LINE(152,32)-(212,84),PRESET,BF:CIRCLE(212,68),18,2,1,.77,.23:PA INT(217,53),2,2:PSET(230,68):SCREEN1,1
60 PMODE4,1:SCREEN1,1:FORI=1TO48STEP2:CIRCLE(60,144),I,8,.9:NEXT
70 DRAW"BM140,104;C0L28D80R28U34L12":DRAW"BM144,l84,C0U80R28D80U34L28"
80 DRAW"BM176,l84,U80R18ND46R18D80":DRAW"BM244,104L28D46R28L28D34R28":SOUND200,1:SOUND200,1:SCREEN1,1:FORI=1TO1000:NEXT
90 CLS(0):PRINT@172,"ZELDA'S";:PRINT@238,"BAT";:PRINT@300,"BOTTLE!";:FORI=1TO1500:NEXT
100 BB$="NUHG2DEDEDEDRUFUFUFU2GNUL":BF$="NUHL2F2RNDRNDRE2L2GNUL":DIMA(13),B(4):G=0:FORI=32TO22 4STEP16:G=G+1:A(G)=I:NEXTI:G=0:F ORI=26TO74STEP16:G=G+1:B(G)=I:NE XTI
110 PRINT@96,"ZELDA NEEDS YOUR HELP. SHE HAS":PRINT"TO ZAP 10 BATS INTO HER GLASS":PRINT"BOTTLE SO SHE CAN KKE HER BREW.";:PRIN T"YOU CAN DIRECT HER MAGIC BLAST ":PRINT"BY PRESSING 1 WHEN THE BATS ARE":PRINT"ON THE LEFT, 2 WEN THEY ARE"
120 PRINT"IN THE MIDDLE, & 3 W HN THEY":PRINT"ARE ON THE RIGHT.";:FORI=1TO600:NEXT
130 DB=0:PMODE3,1:PCLS(4):SCREEN0,0:LINE(0,182)-(256,192),PRESET,B:PAINT(10,186),3,1:CIRCLE(126,160),43,5,.55:PAINT(126,160),2,5
140 LINE(82,134)-(171,144),PSET,BF:LINE(82,134)-(171,144),PRESET,B:PAINT(126,135),3,1:LINE(92,120)-(184,134),PRESET
150 PMODE4,1:SCREEN0,1:DRAW"S16BH126,160;C0"+BB$
160 DRAW"S10BM15,110;C0E9G4H2L7G2R3F4D6ENU6ENU6EU6END3END2NR2FDF2LDNL2GFGHL2RDFR3E8DGFG2DNH2FD6GL3GD18HNUl8L2FNU17L2FU16NE6D16L7UI6H2L4U4E8"
170 PAINT(24,98),0,0:PAINT(24,140),0,0
180 LINE(10,178)-(42,181),PRESET,BF:LINE(200,191)-(248,120),PRESET,B:LINE(210,120)-(238,110),PRESET,BF:LINE(205,110)-(243,105),PRESET,B:LINE(80,178)-(172,186),P RESET,BF:GOSUB370:SCREEN1,1:TIMER=0
190 GOSUB260
200 GOSUB350:GOSUB260:DRAW"S12BM"+X$+","+Y$+";C5"+BB$+"C0"+BF$+"C5"+BF$+"C0"+BB$+"C5"+BB$:DRAW"BM"+A$+","+B$+";C0"+BB$
218 IF DB=>10THEN330
220 FORI=1TO2:PLAY"V31;O1;L190;E":NEXT
230 Q$=INKEY$
240 IFQ$="1"THEN270ELSEIFQ$="2"THEN280ELSEIFQ$="3"THEN290
230 GOTO200
260 X$=A$:Y$=B$:C$=RND(13):D=RND(4):A$=STR$(A(C)):B$=STR$(B(D)):R ETURN
270 W=RND(4):LINR(55,97)-(A(W),B(D)),PRESET:COLOR5,0:LINE-(55,97),PSET:GOSUB300:GOTO200
280 W=RND(5)+4:LINE(55,97)-(A(W),B(D)),PRESET:COLOR5,0:LINE-(55,97),PSET:GOSUB300:GOT0200
290 W=RND(4)+9:LINE(55,97)-(A(W),B(D)),PRESET:COLOR5,0:LINE-(55, 97),PSET:GOSUB300:GOTO200
300 PLAY"V8;05,L255;C;O1,E":IF A(W)=A(C) THEN320
310 RETURN
320 DB=DB+1:DRAW"BM"+A$+","+B$+";C5"+BB$:PMODE4,1:SCREEN1,0:FORK =1TO3:PLAY"O5,L255;GCGC;O1;DD":NEXTK:PMODE4,1:SCREEN1,1:GOSUB360:RETURN
330 K=TIMER:PMODE4,1:SCREEN1,0:SOND220,16:CLS(0):PRINT@130,"YOU TOOK";:PRINT USING"#####.#";K/60;:PRINT"  SECONDS.";
340 FORI=1TO4000:NEXT:GOTO130
350 FORJ=1TO2:F=RND(40)+110:FORH=0TO5STEP5:CIRCLE(F,133),3,H,.7,.5,1:NEXTH:NEXTJ:RETURN
360 BH=(178-(DB*5)):BH$=STR$(BH):DRAW"BM224,"+BH$+";C0"+BB$:RETURN
370 FORJ=10TO250STEP40:M=RND(10)+10:FORI=4TO32STEP2:CIRCLE(J,M),I,0,.7:NEXTI:NEXTJ:RETURN
380 REM 'ZELDA'S BAT BOTTLE!' BYFRED B. SCERBO, 1MB, COPYRIGHT 1981, ILLUSTRATED MEMORY BANKS. P.O.BOX 289, WILLIAMSTOWN, MA., 01267-0289.

• 

  From Zelda'S Bat Bottle

Links

See Rainbow Magazine 1981-12 Pag 2, in archive.org