12708/΅ C(8)0 M$"I DON'T HAVE IT.":8^M$"IT FALLS OVER AND I PICK IT UP AGAIN."8 RM36 M$"IT FITS UNDER ONE OF THE STALACTITES AND FORMS A PILLAR SUPPORTING THE CIELING.":F(8)2:C(8)0:L(8)3688 VERB 16--DROP9 C(OB)0 M$"I DON'T HAVE IT.":9( M$"DONE."9e OB7 M$"AS I DROP IT, THE LIGHT SNUFFS OUT.":F(7)09qC(OB)09~(L(OB)RM929< VERB 18--ROLL:LF RM60 OB11 F(11)0 M$"MY MUSCLES STRAIN TO THEIR LIMIT, BUT WITH A FINAL GROAN I MANAGE TO ROLL THE BOULDER AWAY TO REVEAL A ROUND BLACK HOLE.":R$(60)"WE":F(11)2:RP:fZ VERB 19--SAVE:d "O",#1,"DEMON.SAV":n #1,RM:x I1 G:: #1,L(I),C(I): I: I1 W:: #1,F(I): I: I0 63;: #1,R$(I);ȋ I;Қ;&M$"SAVED.";,;@ VERB 20--LOAD;Y "I",#1,"DEMON.SAV";e #1,RM;s I1 G;: #1,L(I),C(I);" I;, I1 W;6: #1,F(I);@ I;J I0 63;T: #1,R$(I);^ I;h<rM$"HERE I AM AGAIN!"< |<<' VERB 21--QUIT I> I1 G>: L(I)>& I>4 I1 W>C: F(I)>KЋ I>Qڐ>i DESCRIPTIONS DATA> BEACH NEXT TO CLIFFS,ROOM WITH DEMON STATUES,FROZEN ROOM,FREEZING NARROW BLACK CORRIDOR?C FREEZING NARROW BLACK CORRIDOR,CHILLY NARROW BLACK CORRIDOR,CHILLY NARROW BLACK CORRIDOR,CHILLY NARROW BLACK CORRIDOR?z BEACH,DARK ALCOVE,NARROW PASSAGEWAY,DAMP PASSAGE? ROOM WITH WATER-COVERED FLOOR,DAMP PASSAGE,GLOOMY CORNER,COOL NARROW BLACK CORRIDOR@6 BEACH COVERED WITH SHELLS AND SEAWEED,HALL SMELLING OF DEATH,DUSTY WORN STAIRS,DAMP PASSAGE@ PIT FILLED WITH WATER,ROOM WITH CAVE DRAWINGS,COLD ROOM,COOL NARROW BLACK CORRIDOR@* MOUTH OF CAVE,DIM PATH,MAUSOLEUM ENTRANCE,DAMP PASSAGEA)4 DAMP ROOM,ARMORY COVERED WITH WEAPONS,ROOM WITH CRUMBLY DRY MOSS,NARROW BLACK CORRIDORAd> CAVERN ENTRANCE,POOL OF LIGHT,MAUSOLEUM,DAMP PASSAGEAH LOW ROOM WITH STALACTITES,ROOM WITH DARK STATUES,MOSSY WALLS,NARROW BLACK CORRIDORAR GLOOMY HALL,THIN PATH,THIN PATH,ROUNDED CORRIDORBI\ SLOPING CORRIDOR,SLOPING CORRIDOR,HIGH CORNER ABOVE WALL,NARROW BLACK CORRIDORBf DEPRESSION IN GROUND,THIN PATH,CORNER STREWN WITH RUBBLE,ROUNDED CORRIDORBp COBWEBBY ROOM,FALLEN PEBBLES,CRUMBLING WALL,NARROW BLACK CORRIDORC-z HALL WITH DRIPPING STALACTITES,VAULTED HALL,VAULTED HALL,VAULTED HALLC VAULTED HALL,NARROW BLACK CORRIDOR,NARROW BLACK CORRIDOR,NARROW BLACK CORRIDORC ROUTES DATAC S,WE,WE,WE,WE,WE,WE,WSC NS,SE,WE,SWE,SWE,WE,SW,NSC NS,NSE,WD,NS,,E,NW,NSD  NS,NS,SU,NSE,NSW,E,S,NSD' S,NS,N,NS,NE,WE,NW,NSDHʆ NS,NSE,WE,NSWE,WE,WE,SW,NSDdԆ NS,NE,W,NS,E,WE,NW,NSDކ NE,WE,WE,NWE,W,E,WE,NWD OBJECTS DATAD NECKLACE,COINS,GOBLET,RING,RUBY,FLINT,LANTERN,LOG,KEYE DOOR,BOULDER,RUBBLE,STATUES,SKELETON,GHOST PIRATE,STATUE,NORTH,SOUTHE3  WEST,EAST,UP,DOWNED  VERBS DATAE  HELP,INVENTORY,GO,N,S,W,E,U,D,GET,TAKE,EXAMINE,OPEN,LIGHT,PUT,DROP,UNLOCK,ROLL,SAVE,LOAD,QUIT,SCOREE $ LOCATIONS OF OBJECTS DATAF . 50,36,52,34,1,48,29,21,34,30,60,50,37,34,2,1F 8 FLAGS DATAFD B 1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  HELP,INVENTORY,GO,N,S,W,E,U,D,GET,TAKE,EXAMINE,OPEN,LIGHT,PUT,DROP,UNLOCK,ROLL,SAVE,LOAD,QUIT,SCOREE $ LOCATIONS OF OBJECTS DATAF . 50,36,52,34,1,48,29,21,34,30,60,50,37,34,2 E&:THE DEMON'S EYE&2:WRITTEN BY JON DUECK&T:COPYRIGHT (C) NOVEMBER 1991&k:BY FALSOFT, INC.&:RAINBOW MAGAZINE& THE DEMON'S EYE& AN ADVENTURE& BY&( JON DUECK&2 **INITIALIZATION**&: U$(R$(RM),I,1)/H: (U$"N" D1 F(W)0) RMRM8:F(W)1/R: (U$"S" D2 F(W)0) RMRM8:F(W)10'\: (U$"W" D3 F(W)0) RMRM1:F(W)10[f: (U$"E" D4 F(W)0) RMRM1:F(W)10cp I0zM$"OK":R$(18)"WD":R$(26)"SU"0 F(W)0 M$"CAN'T GO THAT DIRECTION!"0 D1 M$"GO WHERE?"1) RM32 D2 M$"THE CAVERN WALL BEHIND YOU SOLIDIFIES WITH A MYSTERIOUS CHUCKLE!"1k RM61 D4 M$"THE BOULDER ROLLS BACK IN PLACE!":F(17)02 RM2 M$"THE PIRATE EYES ME AND SAYS... 'YOU ARE A WISE SCOUNDREL, FOR WITH A RUBY RING YOU CAN SAFELY PASS ME STING AND GET THE REAL RUBY.'"22$ VERBS 10-11--GET,TAKE23ʅ OB0 2]ԅ C(OB)1 M$"I HAVE IT ALREADY!":2mޅ OB16 2 OB9 M$"I CAN'T TAKE THAT!":2 L(OB)RM F(OB)1 M$"I DON'T SEE A "O$(OB)" HERE!":3 OB2 RM36 F(8)2 L(8)36 "A SMALL SQUARE OF ROCK WHERE THE BAG RESTED POPS UP AND THE CIELING CAVES IN WITH A RESOUNDING CRASH. ONE OF THE STALACTITES IMPALES ME.": 5803C(OB)1:L(OB)65:M$"I'VE GOT IT."33 VERB 12--EXAMINE3$M$"NOTHING SPECIAL FOR A "W$4S. RM36 OB2 M$"I SEE A SMALL SQUARE TRACING IN THE STONE AROUND THE COINS."48 RM60 OB11 M$"IT LOOKS LIKE I MIGHT BE ABLE TO MOVE IT."4B RM50 OB12 M$"I DISCOVER A BEAUTIFUL PEARL NECKLACE HIDDEN WITHIN THE RUBBLE!":F(1)05qL RM37 OB13 M$"ONE BEARS THE INSCRIPTION 'LIKE A ROLLING STONE'. FUNNY BOB WAS AROUND IN THE 1600'S, EH?"5V RM34 OB14 M$"ON ONE OF THE BONY FINGERS ON ITS TIGHLY CLENCHED HANDS I SEE THE BLOODY GLINT OF A RUBY RING!":F(4)06` RM1 OB16 M$"I GASP AS I NOTICE ONE OF THE EYES ON THE DEMON WATCHING ME--IT'S A RUBY THE SIZE OF MY FIST! THIS IS THE DEMON'S EYE!":F(5)06j6t VERB 13 & 17--OPEN & UNLOCK76~ RM30 F(16)0 C(9)1 M$"THE KEY TURNS RELUCTANTLY IN THE RUSTY LOCK AND THE DOOR SWINGS OPEN.":F(16)2:R$(30)"SW"7<7Q VERB 14--LIGHT7 C(6)0 M$"NOTHING TO LIGHT IT WITH."7 OB7 C(7)1 C(6)1 M$"THE ANCIENT BRASS LANTERN LIGHTS SPUTTERINGLY.":F(7)277 VERB 15--PUT8ą OB8 &:PEGGITY&9:WRITTEN BY GEORGE & ELLEN AFTAMONOW&[:COPYRIGHT (C) DECEMBER 1991&r:BY FALSOFT, INC.&}B(81)&:for the coco 3& 0,0:5,63:2:0:5,0&(10,10),"(C)MP OR (R)GB?"&I$:I$""20&I$"C"40:I$"R"50:20'M(:0,0:1,17:2,39:3,58:4,53:5,63:6,41:9,7:10,52:12,38:14,51:55'2:0,0:1,16:2,38:3,29:4,55:5,63:6,45:7,57:8,44:12,32:13,42:14,15:9,32:10,52:: 0=BLK 1=GRN 2=RED 3=BLU 4=YLW 5=WHT 6=PUR 9=DRKRED 10=LT RE'70:2:2()9(12,3),"George and Ellen":(15,4),"present:"(<"BM70,120S8L6U20R14F2D2BL4L6D4R6NU4BR4NU3D2G2L8D8BR26 L16U15BUU4R16D4L10D4R4D4L4D4R10BD2D2") ="BR14L12H2UBUU14E2R12F2BD2ND4L10D12R6U4L2U4R6D10G2BR16 L12H2BU16E2R12F2NU2BD2ND4L10D12R6U4L2U4R6D10NG2D2 R6U16NR6UBUU2NL6")H>"R18DBDD2L6ND16BL6D16R6BR18 L6U10H6BU4R2F6R2E6R2D4G6D10")Z?(68,118),4,2)@(1,50)(319,150),,B:(6,54)(312,146),,B:(16,60)(300,140),,B:(34,70)(284,134),,B:(2,51),9,2:(7,55),2,2:(33,68),10,2*MA9:(0,50)(320,150),,B:(56,80)(0,50),:(0,150)(60,120),:(270,80)(320,50),:(258,120)(320,150),*Z2:(50,162)(270,180),,B:(9,21),"NEED INSTRUCTIONS Y/N?"*[I$:I$""91*\I$"N"99:+](2,15)(318,152),,B:(4,17)(316,150),,B:(3,5),"THE OBJECT IS TO FILL EVERY BOX":(3,6),"SO THAT NO TWO OF THE SAME COLORS":(3,7),"ARE NEXT TO EACH OTHER,VERTICALLY,":(3,8),"HORIZONTALLY, OR DIAGONALLY.",+^(3,9),"ONCE A COLOR IS PLACED, IT MAY NOT":(3,10),"BE REMOVED OR CHANGED.":(3,11),"COLORS MUST BE PLACED NEXT TO AN":(3,12),"EXISTING COLORED BOX.",`(3,13),"USE ARROW KEY TO MOVE BLINKING BOX":(3,14),"THEN PRESS ENTER. HIT Q TO QUIT":(9,17),"PRESS ENTER TO START.",b"" 98,cSC4,d0,nB$"L20U16R20D16BR30"-x"C3BM140,25S4"B$:"BM110,50"B$B$B$-.}"BM80,75":B15:"XB$;":-m"BM50,100":B17:"XB$;":::"BM80,125":B15:"XB$;":-"BM110,150"B$B$B$:"BM140,175"B$-2:(251,10)(315,100),,B:(249,150)(315,180),,B:"BM45,48"B$.(0,2),"NEXT COLOR":(33,17),"SCORE".ZC0:Y20:Z15:X260:CC1:X26030010:C:(X,Y)(X6,Y8),,BF:X:YY15:Z.sP14:Z15:P(Z)5:/0X138:Y23:E14:Z14:A(5):AX250P(A)10:AY5A15:0:(AX,AY)(AX6,AY8),,BF:P(A)P(A)1:(X,Y),A,3:B(E)A:Z1 X48:Y98:E38::Z2 X228:Y98:E44::Z3 X138:Y173:E68/A:X140:Y25/ZC(5):P(C)0 250/XC250P(C)10:YC5C15:0:(XC,YC)(XC6,YC8),,BF:P(C)P(C)1/C:(44,47)(26,33),,BF/,15,63:"BM=X;,=Y;C15XB$;"06I$:I$"" 15,0:15,63:310:"BM=X;,=Y;C3XB$;"0]@I$(13) B(P)0B(P9)0 B(P1)0 B(P1)0 B(P9)0 4000JI$(9) P14 P24 P34 P44 P52 P60 P68 PP1:XX30:3001 TI$(8) P14 P22 P30 P20 P38 P48 P58 P68 PP1:XX30:3001^^I$(94) P14 P22 P24 P30 P34 P38 P44 PP9:YY25:3001hI$(10) P38 P44 P48 P52 P58 P60 P68 PP9:YY25:3001rI$"Q" 4251|5002XB(P10)C B(P9)C B(P8)C B(P1)C B(P10)C B(P9)C B(P8)C B(P1)C 500:(X1,Y1),C,3:0:(44,47)(26,33),,BF:B(P)C2(270,160)(300,175),,BF:SCSC1:4:(34,20),SC:SC25(SC25) 2503SCSC4:15,53:15:(2,22),"NEXT SCREEN":Z15:"T250L200EAGAEAGAEAGE":15,0:15,53::4403'4:(2,24),"PLAY AGAIN?":SC43=I$:I$"" 4303dI$"N" ::::I$"Y" 440:4303Z181:B(Z)0::100::43034:(6,23),"ILLEGAL":"T255L200O1BADO2BADO3BAD":Z150::0:(6,23),"ILLEGAL":30000EAGAEAGAEAGE":15,0:15,53:R$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1B&z:PRESS CONTINUE ** WRITTEN BY BILL BERNICO ** COPYRIGHT (C) DECEMBER 1991 ** BY FALSOFT, INC.&:"THIS SUBROUTINE IS USED TO SPRUCE UP YOUR ORDINARY INKEY$ PAUSE ROUTINE.'A480:A$"press any key to continue":@A,(31,46);:B(A$):B26B26'PC(A(34B)2)B:B$(A$,1,B):A$"."B$"..'iD0:E(A$):BE:F1'zBD BD1'C$(A$,F,B):@CD,C$;:G120:'I$:I$""12' DE 11' DD1:DE 6' BB1:FF1:B05:6( @A,(31," ");:A$(A$,2,(A$)3)(A :"YOUR PROGRAM CONTINUES FROM HERE$"."B$"..'iD0:E(A$):BE:F1'zBD BD1'C$(A$,F,B):@CD,C$;:G120:'I$:I$""12' DE 11' DD1:DE 6' BB1:FF1:B05:6( @A,(31,"Z&:FILE SIZE&-:WRITTEN BY DARREN DAY&O:COPYRIGHT (C) DECEMBER 1991&f:BY FALSOFT, INC.&s 1000:& "DRIVE #";DN: "TYPE FILENAME UNDER LINES AND EXTENSION UNDER STARS. FILL BLANKS WITH SPACES.": "--------***": F$' 1000' DN,17,X,A$,B$'*C$A$(B$,127)'CBG$(C$,N3214,1)'\#NB$(C$,N3215,2)'h( 2000'-SZ((NB$,1))((NB$,1))(NG2304)(((BG$)&HC01)256)(2 SZ;"BYTES LONG.": " OR ABOUT";: "###.## % %";SZ1024;"KILOBYTE(S)"(07 "PRESS ANY KEY FOR ANOTHER": 44539:(? X3 11(S DN,17,X,A$,B$(hC$A$(B$,127)(|N$(0)(C$,11)( N1 7(N$(N)(C$,N321,11)( N( N0 7( F$N$(N) ( N( X( "FILE NOT FOUND": "P2":) DN,17,2,A$,B$)-BG$(A$,(BG$)1,1))Eڅ (BG$)&HC0 )YNGNG1: 2005$(B$,127)(|N$(0)(C$,11)( N1 7(N$(N)(C$,N321,11)( N( N0 7( F$N$(N) ( N( X( "FILE NOT FOUND": "P2":????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,XX$: XX$""430,XX$(94) ::,…XX$" "240-̀I11 NP:XX$B$(I)500-֋I:430-XX$430-'ꁥ240-GQ$A$(I):(Q$,1)"*"540-:@138,"SORRY, BUT"::8)Q$::" IS A MACHINE LANGUAGE PROGRAM."-:" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-.Q(Q$):QQ6:SL$(Q$,Q).#& SL$,R.4 "DECEMBER".K " (20) PRESCONT".b " (20) FILESIZE".y " (21) PM4PTSCR". " (21) IDIR". " (22) PEGGITY". " (25) TINTPAL". " (30) SOUNGEN". " (47) DEMON".І "END".Q𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я$%*+ FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASPRESCONTBASEFILESIZEBAS]PM4PTSCRBAS&/IDIR BAS'PEGGITY BASTINTPAL BAS(SOUNDGENBAS)MDEMON BASH߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?,& :SAVE PMODE4 PART SCREENS&>:WRITTEN BY KEIRAN KENNY&`:COPYRIGHT (C) DECEMBER 1991&w:BY FALSOFT, INC.&:RAINBOW MAGAZINE& D(1228)&:@160,"1. SAVE A PARTPIX",,,"2. LOAD A PARTPIX"::4)"PRESS 1 OR 2"'K$:K$"1"K$"2"30'(K$"2"390'=2:@224,"IS FULL PIX IN MEMORY? Y/N"'[n(0):A164:((10)145);::(34,A$);"coco";A$;"sound";A$;"effects";A$;"generator";(34,A$);:A1351:((10)145);:'|x@239,"by";:@299,"walt";A$;"noon";:@396,"any";A$;"key";'A120:B$:B$"":N(5):D(255):E23:S24:500:130(2:@37,"coco";A$;"game";A$;"sounds";A$;"menu";:1,1:I98124:@I,A$;:J110:J:I:1,1:@166,"a";A$;"information";:@236,"b";A$;"manual";A$;"entry";:@290,"c";A$;"random";A$;"sound";A$;"creator";(@360,"d";A$;"exit";A$;"program";(B$:B$""160 :255,1( B$"A" B$"a" 760) B$"B" B$"b" 700)" B$"C" B$"c" 570)>ȅ B$"D" B$"d" :)Iҁ 160)j:**************************):... BASIC SOUND DRIVER ...):MAKE THE NEXT 10 LINES):THE FIRST LINES OF YOUR):BASIC PROGRAM...):***************************200,&H3EFF*:" 182,255,1,132,247,183,255,1,182,255,3*g, 132,247,183,255,3,182,255,35,138,8,183*6 255,35,16,190,63,0,190,63,3,166,128,132,255,183*@ 255,32,141,10,188,63,5,38,242,49,63,38,235,57*J 182,63,2,74,38,253,57+TI&H3F07 &H3F0756+^ A: I,A+h I+-r0&H3F07+M|:*************************+W100+m:N=TIMES (0-255)+:D=DELAY (0-255)+:S=START (0-255)+:E=END (0-255)+:*************************+:... SOUND PLAY ...,:ADD THE NEXT 5 LINES TO,$:YOUR PROGRAM TO PLAY BACK,=:SOUNDS FROM BASIC.,\:************************, &H3F00,(N256): &H3F01,N(N256)256, &H3F02,D, &H3F03,(S256): &H3F04,S(S256)256, &H3F05,(E256): &HF06,E(E256)256-A0(0)-&&:************************-,0-b:Z0:@453,"keep";A$;"sounds";A$;"short";A$;"y/n";-DB$:B$""580 :B$"Y" B$"y"Z1-N0:I115:255I,1:(32,(169));::@69,"generate";A$;"random";A$;"sounds";.RX@150," ";:@204," ";:@269," ";:@330," ";:N(255):D(255):S(255):E(255):610:600.xbZ1 N(5):D(255):E23:S24/@l@131,"n";A$;A$;"number";A$;"of";A$;"times";A$;N;:@195,"d";A$;A$;"delay";A$;D;:@259,"s";A$;A$;"start";A$;S;:@323,"e";A$;A$;"end";A$;E;:@389,A$;A$;A$;A$;A$;"playing";A$;"sound";A$;A$;A$;A$;A$;/Jv500/@389,"spacebar";A$;"for";A$;"next";A$;"sound";:@453,"a";A$;A$;"again";A$;A$;A$;A$;A$;A$;A$;A$;"m";A$;A$;"menu";/B$:B$""650/B$"A" B$"a" A0(0):6500B$"M" B$"m" 14000*A$(128)00:Z0:I115:255I,1:(32,(185));::@39,A$;A$;"create";A$;"a";A$;"sound";A$;A$;0N2:D117:S24:E23:5001zЇ@196,"n";A$;"is";A$;"for";A$;"number";A$;"of";A$;"times";:A0(0):@260,"d";A$;"is";A$;"for";A$;"delay";:A0(0):@324,"s";A$;"is";A$;"for";A$;"start";:A0(0):@388,"e";A$;"is";A$;"for";A$;"end";:A0(0)1N5:D1:S1:E1:5002I@96,(32," ");:@96,"ENTER NUMBER 0-255 FOR N:";:N:A0(0):@121," ":@119,"D:";:D:A0(0):@121," ";:@119,"S:";:S:A0(0):@122," ";:@119,"E:";:E:A0(0)2@92,(185);:B$(32,(185)):I110:B$;::620:7003y0:1000:B$(37):B$(1)"WELCOME TO THE COCO SOUND":B$(2)"GENERATOR! THIS PROGRAM WILL":B$(3)"ALLOW YOU TO DESIGN REAL":B$(4)"ARCADE SOUNDS FOR YOUR BASIC":B$(5)"PROGRAMS. BY ADDING JUST A FEW":B$(6)"LINES OF THIS PROGRAM TO YOUR"4`B$(7)"BASIC PROGRAM, YOU WILL BE ABLE":B$(8)"TO ADD ANY SOUND YOU MAKE HERE":B$(9)"TO YOUR GAME. FIRST, USE THIS":B$(10)"PROGRAM TO MAKE A SOUND YOU":B$(11)"LIKE, THEN WRITE DOWN THE":B$(12)"NUMBERS (N,D,S,E) THAT MADE"5E B$(13)"THE SOUND. WHEN YOU HAVE AS":B$(14)"MANY SOUNDS AS YOU LIKE, ADD":B$(15)"THE 'SOUND PLAY' LINES IN THIS":B$(16)"PROGRAM TO YOUR PROGRAM. RUN":B$(17)"THE 'POKE' ROUTINE TO SET UP":B$(18)"THE ML, THEN SIMPLY GIVE"6-B$(19)"THE VARIABLES (N,D,S,E) IN":B$(20)"YOUR BASIC PROGRAM THE VALUES":B$(21)"FOR THE SOUND YOU WANT AND GOTO":B$(22)"THE 'SOUND PLAY' PART OF THIS":B$(23)"PROGRAM THAT YOU COPIED TO":B$(24)"YOUR PROGRAM. NOTE:YOU MAY"6 B$(25)"WANT TO KEEP SOME VARIABLES":B$(26)"(SUCH AS 'S' AND 'E') SMALL":B$(27)"SO THAT THE SOUND EFFECT WON'T":B$(28)"GO ON TOO LONG.":B$(29)"(SOME SOUND COMBINATIONS":B$(30)"PRODUCE VERY LONG SOUND"7*B$(31)"PLAYBACKS...) HAVE FUN WITH THE":B$(32)"PROGRAM, AND, GOOD LUCK WITH":B$(33)"ALL YOUR PROGRAMMING EFFORTS.":B$(34)"THANKS!":B$(35)"WALT NOON":B$(36)"3283 BELVEDERE":B$(37)"RIVERSIDE, CA 92507 "74N1:D37:S24:E23:5008>II1:8+HI10 N3:D9:S24:E23:5008SRI15 N1:D121:S116:E199:5008x\I20 N1:D40:S24:E23:5008fI29 N1:D211:S24:E23:5008pI30 N5:D13:S24:E23:5008z I35 N4:D28:S24:E23:5009 B1 (B$(I)): (B$(I),B,1);9A0(0)9"B90I378309IB$:B$""940 :9:5008x\I20 N1:D40:S24:E23:5008fI29 N1:D211:S24:E23:5008pI30 N5:D13:S24:E23:5008z I35 N4:D28:S24:E23:5009 B1 (B$(I)):