@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 162ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8 uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8 u  2\jCHCHAD@AARSAVE"D:R":RUN x +@'(@ RED!9T}A@ha@@ D:RED1.FNTx6-F:A,&@AR!AS-6-A$>6U}-P:'AV,N6-&$AVZAVfAWxAP@6-?:C:hhhLV,<@,_A@p V}@H@@ D:RED2.FNT_6-F:A,&@AR!AS-6-A$>6-P:'W}AV,N6-&$AVZAVfAWxAP@6-?:C:hhhLV,<@,@%D:RED X}D:R%; :,g 2 B6-@ +@!AV'AV3A h}@0EA @WAABiA@tu6-6-6-?:<<@<@<@ i},I6-#-@@$1%@5 I&@@q6-# A%$@/6-@76 j}.#H67A ,.#W67@,.k-@@ 6-P:H:,$A ,%@67<,. /6.  k}67A ,. /67@,.b-6(@00000 0 :B6.S67A ,.b67@ l},.n6-6-@'6-36-?6-K6-W6-nAA0$+(, 6-- m}(@ --%@=(@ L6-R:,6-%+!@* @* @,&+!@* @* n}!,aI6-%+"@)"@ )"@,&+"@)"@)"@,U @a6-@ !@6 o}-@!##!@**"@A#G -(@'-%@7(@;G6-@ (z- p}@?(@7<%@,7<%@,M*!@_-@z(@7&@<,-F"T: q},"*".6-@46-:6-F6-@1"A2+ -(@ +6-%@7 r}36-%@!@)6-3 @I</ -(@%6-/6-+%,=f"@'7<,4) s}7<,456-@:7<,,Z6-%A&+P:'@,$@,f6-@Av$-@6@@2@@ t}@D Q67<,. v6-%A&+P:'@,$@,d%6-%@%"ABik/*"*P:H: u},$@, @;6-@_6-P:H:,$@ %,%@k6-@n"APsG -(@ v} '6-&@5 %@G6-%+ ,&+!,t% 6-% Ax+ -(@ +"*" w}A}W"**"6-!-1(@ ?6-%APM6-%APW AZ*7%@ <%@ ,4 x}*"66-@B6-N6-@ Z6-@ Z*7%@ <%@ ,4*"66-@B6-@ y}N6-@ Z6-@ "AA -(@ '6-&@3"A6-&@6- z}%+ ,&+!,/")"%6-/ AY? -(@?"*!&@* %@A {}/"*P:H:,$A, @%I6-P:H:,$A,U6-@y6-P:H:,$@ %,%@6- |}@ @6-@")Al -(@ 26-&N:%+&@,,>"D-V }}(@ b6-l A'"@-'(@ U?"@*!&@* %@*!&@ ~}* %@I AU6-o?"@*!&@* %@*!&@* %@I AU6-c6 }-%@o6-@)AP6-&AP)6-@6-0-@6?P<A }`2A%@@d vAA02.$7%&@<%&@,4 }=. A]9*!@*P:H:,$@,"*"E6-@ Q6-@]6-@"AP }a -(@ '6-%@56-&@K )!@ W6-a A&+ -(@V }+"*"A"*"%@ A'-'@@'(@h-@&B:=:,,*(@ }<-@I(@[-@ h(@F:B2y,"@%)6-A0*!@) }6- 6-6-(6-?@w!A5AV'AV? @0 6. 67A ,. } +67@,.?-@@ a6-P:H:,$A ,%@2$@@@w67<,. }68,-@(68,-, N2t6-?:<@ }, )2,$c 6. 67A ,. +67@,.?-@@ c2$@ }@@:%6-P:H:,$A ,%@:7<,0 AQB 6-(67<,.(68,-%@168,-5 }B67<,.D-P:H:,$@, @* AD67<%@,.<=>#8 )25 }6-@8$$c 6. 67A ,. +67@,.?-@@ c2$@@@%:%6-P:H: },$A ,%@:7<,0 Aa&B 6-(67<,.(68,-%@168,-5B67<,.-8 )2 }56-@8$.c 6. 67A ,. +67@,.?-@@ c2$@ }@@/:%6-P:H:,$A ,%@:7<,0 Aq0B 6-(67<,.(68,-%@168,-5 }B67<,.1D-P:H:,$@, @* AD67<%@,.<=>7D )2 }56-@A6-@D$8[ 6.<=> 67A,.<=>/67@,.[67@<@ ,. A$B } 6.<>67A,.<>-67@,.A-@@ c6-P:H:,$A ,%@2$@@ }@CB 6-(67<,.(68,-%@168,-5B67<,.K8 )256-@ }8$Lo6-@6. (67A ,. 767@,.K-@@ o2$@@@M:%6-P }:H:,$A ,%@:7<,0 AqNB 6-(67<,.(68,-%@168,-5B67<,.OD-P:H: },$@, @* AD67<%@,.<=>UD )256-@A6-@D }$Vi(@}%-@@K(@####################W6-@iAWz-@@ }%(@#7-F(@V(@j-@A n z6-[p-@@ }--(@ ;-%@K(@ Y6-%@`6-(f6-jp6-\g -(@'-%@ }7(@KAV'AV_-@@pc g `h-@ @#-@ 4(@ @- }@Q(@ X6-(^6-bh6-erAV'AV+-@@p/ 3 O-@B@D?P }a-@@ r(@>:,j'2$@@+ M2a-@ }Ah6-(z-@@ (@>:@C%, ok -@ 6@,-@<(@P }-@@T [6-(a6-ek6-ptAV'AVE2+%@,$@@I ]-@ }Ad6-(j6-nt6-tAV'AV 7-@ ?PC-@S(@ w2 }@P@&{ 2y`-A8A@)-@@D(@>:, }>:,>:,`2@z-@@P  A2S-@@e( }@ y-@@A++%@,$@,&@{-@@P  ~a6-@6- }@ /-@@ 5-E(@ S6-%?%a6-&@k -(@--@@P1 }5 G-k(@00000 11 v-@&B:=:,,*(@<-@^(@ }you saved the landr-@Av 3-@@3(@you restored the7-@ }7(@magical fountain and6-@6(@peace has come oncet-@@5(@aga }in to the magicG-@@\(@springsp-@At 8-@8(@ }߇p-@6@,-@:(@H6-%Ab-@&B:=:,,p(@g } -@6?P<2@P@@ D V-@g(@ K6-6-A }KT:,")F:B2y,"@A 6-(22&+$@,@@@6-%@L"@ }X6-f6-%@@r!A ~6-A@wA(E-@@%7T:,*F:B2y,@; } E A33T:,")F:B2y,"@A% AX +@!AV'AV3A }@0EA @WAABiA@tAA0$+(,Ys-@@$%%@) }=&@@qS-'@_-@o(@s a@-6(@00000 0 } @ @)@ -@ @6?%N2+@&,$@@@|2@+@&,$@ }@-(@E )2K2@g-@@ } ?Pm-}(@  J  $K A4!`+67<%@,. 76-C6- }`-@6@5!-@P@=2%@[A@d%+$?) },_ c 2(@}6!l-6(@00000 0 L- }'@X-@h(@l =!$AA0!6-$$(##6-%@!#6-)#1- }'(@ 1 @%-A8A@?P%-6(@>:,R2@V x }2~-(@ %w-%@@--@@P1 ?-&@O(@ } U-e(@i w6-&@%++67<%@,. !%Ap#%c-@ }@&(@C-@6@_2A@c $%e-@@((@ }E-@6@a2A@e %%g-@@*(@G-@ }6@c2A@g &%-@@,(@I-@6@e2 }@@i {-@@(@ -%++T:,*F:B2y,@A.%33T:," })F:B2y,"@A/%%'{ +@!AV'AV3A@0EA AWAAB }iA@t{AA0'6-@!-@D(@####################X-@@ f }-@&v(@ -@&(@ 'l6-%@-@&/(@=-@&M(@ }a-@@Pe i l$'q-%@@'-&@6(@ L-&@%@[(@ } a-q(@'U-%@!(@5-@@P9 = K6-%@U @ 0u33F:A }d,"A*F:Ae,"AbB :u7 #BP!-A%"3Ad%7 Du6-A6-AANu }6-?:Ad,Xu # $bu104,162,3,169,0,157lu24,6,202,16,250,160vu49,162,6,169,7,32u92,228,96,216,162,3u }189,24,6,240,103,189u16,6,222,16,6,208u95,189,20,6,157,16u6,189,12,6,208,18u189,8,6,208,13,157u24 },6,138,10,168,169u0,153,1,210,240,66u189,0,6,133,203,189u4,6,133,204,160,0u177,203,72,138,10,168u104 },153,1,210,160,1u177,203,72,138,10,168v104,153,0,210,165,203 v24,105,2,157,0,6v165,204,105,0,157,4 v6, }189,8,6,56,233*v2,157,8,6,189,124v6,233,0,157,12,6>v202,16,145,76,98,228Hv104,104,104,170,169,0Rv157,24,6 },104,157,4\v6,104,157,0,6,104fv157,12,6,104,157,8pv6,104,104,157,20,6zv169,1,157,16,6,157v24,6,96,104,17 }0,104v104,168,169,0,153,24v6,152,10,168,169,0v153,1,210,202,208,237,96yo #B6.&67A,.5 }67@,.;6.E B Y-@A]"k67<,.>:,o y--@A")67<,.>:,- !y$"y }EE0,0,0,0,162,100,164,101,166,103,168,106,170,110,172,115,174,115'y==162,100,164,101,166,103,168,106,170,110,172,115,174,1 }15,ymm162,103,164,104,166,106,168,110,170,115,172,121,174,128,174,121,175,120,175,121,175,120,175,0,0,0,0,0,0 D:RED }. RedBy Bill KendrickAtariserv/New Breed Software1990 (Released 1994)This is another old Atari BASIC gameI wrote a few y}ears back. It contains11 levels of joystick-controlled play.It's not much to look at, and it getsa bit repetative, but aga}in, it waswritten by a novice back before hehad anything better than BASIC! :)Storyline: A destructive force of creat}ures has taken over your peaceful land of magic springs, brought drought and turned the land against the peaceful inh}abitants.Object: Your object is to pass through the land and get to the great spring and free its waters. You are }red, a young boy with a small red balloon. Your weapons are your wits, maneuverability, and stones. Your enemies' }weapons are their numbers, the land, and they too have stones which they try to pop your balloon with. You begin th}e game with 4 balloons and lose one each time you die. If you lose all 4, the game ends. If you get past the 11 game} levels you've won the game! (and it ends.)Files: The files in "RED.ARC" are: "R" - the loader program "RED" - }the game program "RED1.FNT" - a font file "RED2.FNT" - a font file "RED.DOC" - these documentsLoading: Boot y}our Atari with BASIC and RUN the file "R" to begin loading. NOTE: The game DOES seem to work fine with TurboBASIC XL,} even though it is using some ML sound routines ("Sound Commander"), but it of course runs a bit faster. (This may be} a 'plus' however! :) )Controls: Use a joystick in port 1 to move red around the left half of the screen. Use t}he firebutton to drop a stone. It may take a while to get used to aiming. Press [Control]-[1] to pause. Press [S}tart] to abort the game. Press [Reset] to return to BASIC.The Screen: The game screen contains an info. line at the} top with the following data: Score Level Balloons At the bottom of the screen is a blue bar representing how fa}r you have traveled in that level. The rest of the screen is the game area. (Red moves around ONLY on the left half} of the screen.)Enemies: The enemies of Red are as follows: Blue Meanies: Little blue people on the ground wh}o throw rocks at you. Red Meanies: Little red people on the ground who throw rocks at you. Their rocks} home-in on you however! Birds: White birds which fly in the air and try to home-in on your balloon! } Stalagtites: In the cave levels, these horrid things are constantly dropping! Cave Ceilings: Not really an} 'enemy', but if you fly too high in a cave, your balloon pops! Volcanoes: If you get lined up wit}h the spout of a volcano, it blows up at you! Be VERY careful. Flying in some volcano levels is VERY tric}ky!Friends: The only real friends of Red are clouds. They come in two 'flavors': White clouds: These kill all th}e enemies on the screen instantly when you touch them. Blue clouds: These not only kill all the enemies}, but also give you an extra life!Levels: The 11 levels of Red are shown in the following chart. Land means t}he level is Red flying over land. Sky means the level is all sky. Cave means the level turns into a cave. Level}s with 'X's under the "Blue"/"Red"/"Bird"/"Volc" columns mean that those levels contain those types of enemies. } Cave levels contain Stalagtites. Location Blue Red Bird Volc0 - Land X1 - Land X X2 - Land } X X X3 - Sky X4 - Land X X X5 - Land X X X X6 - Cave X }X7 - Cave X X X8+ - Land X9+ - Land X X X10+- Cave X X X X+ Le}vel 8 is all volcanoes!+ Level 9 is very rugged land+ Level 10 is volcanoes in a lava cave!Level 11 !? What counts as} the "12th level" is the animated finale screen.Bye! Well, enjoy 'Red'. Sure, it doesn't use player/missle graphic}s or have very good sound, but it's fun! (At first)Credits: Red was programmed in Atari BASIC by me (Bill Kendrick) i}n 1990 using "Sound Commander" routines to play the silly intro music. I can be reached at: E-Mail: Kendrick@VA}X.Sonoma.Edu Postal-Mail: New Breed Software c/o Bill Kendrick 59 Palm Lane Novato, CA 94945 USAsfff_>`<|0400HH8t||848p0HHy> x @ $@l 0}`@p|vv<~ x=<:460wն<}f <~f~ff|n|nn|<~``~<|nnnn|~pxpp~~pxppp>ppvr>nn~nnn|8888|~<flx|nfppppp~"6>kccFfvnfb}p<|~vvvvv>vv44cck>6"f$$fBf<~|>~@`0 xx6}c6>8pp8?}ww<~~~<x`x`~<~~<}0~0 ~ <~~<<>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<}~x|nf8x8fff_>`<|84x0HH:>>4800HHHy> x @ $@0 0}`@p|vv<~ xl8,=\5<07ml<}f <~f~ff|n|nn|<~``~<|nnnn|~pxpp~~pxppp>ppvr>nn~nnn|8888|~<flx|nfppppp~"6>kccFfvnfb}p<|~vvvvv>vv44cck>6"f$$fBf<~|>~@`0 xx6}c6>8pp8?}ww<~~~<x`x`~<~~<}0~0 ~ <~~<<>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~< }~x|nf8x8Q0i̭1iiԠiՠ 1Ԉ J`0/+% 25.$2^vgwxxgvgugwxwyxvVuVeVvevfVfvUfeVfh˫wwffwvgxfxvUDVUggwveUVeDFvffVxvffxw }wwvfVfffggwwwvfVUUUUUeeUVgwwwwwwwwwxwwffffwwxwwvfeeUVfffwwwwwvfwwwxwwww }wwwwwvgffefeUVUUfVgfgffwwwwhvxxwvfffffwfwwwwvfeUUDDEUVxwuVxxxvyyhyxyxzwhWhhvwW8Xgv}uvfWGGGHXXXifzyxyixgzivighghfjfzfyWxFgUuWeFYwzwyxYizzyufVVVehXXtGtGuGWVf}VzxwxvvWgegegvgVhweWfgwefeVwweUffwwxxxwfgwfffwgeeUVfwwfdVUvgxwwvwwyw}ffgfxxgefeffxwgvgvgwwwxwegUfUfwgxxwwxxvfwUfeUUfeVwvehfwwfgwffgwxwweeffffffw}ffVfffUUUfgwwwwwffeffwgwwwwfwwwwwwwwwwwwffeTDDEUVfgwwwwwwffVfmllfff~~~0gE~~`f~~>f~6f>0>f~~`~ff~~ 0`~f~ff~~f~f~0 0 ~~`0 0`|} ~ff~ff|f~ff|~f``f~|ffff|~`|``~~`|```~f`nf~ff~fff~~~flxxlf`````~wkcccfv~~nf}~ffff~~ff~``~ffff~ff|lf~`~f~~fffff~ffff<ccckcffffff<~ 0f~xx6}c}}UUUUUUUUUUUUUUVVZZjꫫUjZZVVUkk[[WW[[kk}DDDBHH@!!BB@ U!!_ ><<?00000}~BBBB~~~~~~~mbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbblmbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbldcd}cdcdcd}cdcdcd}cdcdcd}cdcdcd }cdeaaaaaaaaaaaaaaafckaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafcdgbbbbbbbbbbbbbbbh!}cmbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbhcdcd"}cdcdcdc#}dcdxycdcd$}eaaaaaaafcdxyxyxycdciiiiiiidcd%}eaafeaafeaaaajdciiiiiiidxyvwcdxyciidvwciidzciiiiideaaaaaaji&}iiiiiikaaaaaaaaaaaaaaaaajdeaafciikaaaajiikaaaaajiiiiidciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiidciidzcii'}iiiiiiiiiiiiiiiiiiiidgbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbldciikaaaaajiiiiiiiiiiiiiiiiiiiiiid(}cdgbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbldcd)}cdcdckaaaaaaaaaf*}cdzxyciiiiiiiiiideaaaaafcdeaaaaaaaafeaaaaaaaaafc+}iiiiiiiiiidxyciiiiidvweaaaafcdgbbbbbbbbhciiiiiiiiidciiiiiiiiiikaaaaajiiiiikaaaaaajiiiidcd,}ciiiiiiiiidcmbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbhcdciiiiiiiiidcd-}cdxyciiiiiiiiidcdcdeaaaaaa.}aafciiiimbbbbhcdcdvwciiiiiiiidciiiidcd/}ckaaaaaaajiiiiiiiikaaoaajiiiidcdeaafciiiiiiiiiiiiiiiiiiipuqiii0}iiidcdciidciiiiiiiiiiiiiiiiiiirstiiiiiidcdeaaaaf1}ciidcmbbbbbbbbbbbbbbbbbbbbbbbbbbbhcdciiiidciidcd2}cdciiiidciidcdcdciiiidciidc3}deaaaaaaaaaaaaaafcdeaafciiiidciidcdgbbbbbbbbbbbbbbhcd4}ciidciiiidciidcdcdciidvwciiiidvwxyciidxycd5}xycdciikaaaajiiiikaaaaaaaaajiikaaaaajdeaaaaaaaaaaaaaaaaaaafcdciiiiiii6}iiiiiiiiiiiiiiiiiiiiiiiiidgbbbbbbbbbbbbbbbbbbbhcdgbbbbbbbbbbbbbbbbliiiimbbbbbbbbbld7}cdciiiidcdvwxyzcdc8}iiiidckaaaaaaaaaaaaaaaaaaaaaaaaaaafeaaaaaaajdxygbbbbhcmbbbbbbbbbbbbbbbbbbbbbbbbbbbh9}gbbbbbbbldeaaaafcdcdgbbbbh:}cdcdcdvwc;}dxycdeaafcdeaaaafcd<}xygbbhcdgbbbbhcdeaafcd=}cdgbbhcdcdxy>}cdcdeaafcd?}cdgbbhcdvwvwcdvwxyzx@}yzzckaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaajkaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaajA}2CE()BYTE Y,X,A,STCARD ICLEAR()POSITION(2,13)PRINTE(" SELECT WITH JOYSTICK:")PUTE()PRINTE(" C}")PRINTE(" BUY A VOWEL")PRINTE(" SOLVE THE PUZZLE")Y=15DO IF PEEK(53279)=3 THEN RETURN(2) FI ST=SD}TICK(UP&1) IF ST=13 OR ST=14 THEN FOR X=10 TO 30 DO A=LOCATE(X,Y) IF A<>32 AND A<>128+32 THEN COLOR=E}A!128 PLOT(X,Y) FI OD IF ST=14 THEN Y==-1 FI IF ST=13 THEN Y==+1 FI IF Y<15 THEN Y=17 FI IF Y>17 THF}EN Y=15 FI FOR X=10 TO 30 DO A=LOCATE(X,Y) IF A<>32 AND A<>128+32 THEN COLOR=A!128 PLOT(X,Y) FIG} SOUND(0,50-X,10,10) OD SOUND(0,0,0,0) FOR I=1 TO 2000 DO OD FIUNTIL STRIG(UP&1)=0ODCLEAR()RETURN(Y-15H})PROC BUZZ()POSITION(2,13)PUT(253)RETURNPROC MAIN()BYTE Q,LET,A,FLAG,Z,T,ICARD AMT,JSCREEN()DRAW()POKE(559,0)FOI}R J=1 TO 1000 DO ODCLOSE(1)OPEN(1,"D:WHEEL.DBS",12,0)DO Z=RAND(TOTAL) IF PNTR1(Z)<>0 AND PNTR2(Z)<>0 THEN POINT(1,J}PNTR1(Z),PNTR2(Z)) INPUTSD(1,PUZZLE(0)) FIUNTIL PNTR1(Z)<>0 AND PNTR2(Z)<>0 ODCLOSE(1)PNTR1(Z)=0 PNTR2(Z)=0DISPLAYK}(0)POKE(559,34)SHOWLETTER('') SHOWLETTER('-)FOR I=0 TO 3 DO STRC(CASH(I),TEMP) T=TEMP(0) POSITION(4+8*I,21) PRINT(L}"$ ") POSITION(10+8*I-T,21) PRINT("") PRINTC(CASH(I))ODDO FLAG=0 POSITION(0,23) PRINT("UP:") PRINTB(UM}P+1) POSITION(16,23) PRINT("FS:") PRINTB(FREESPINS(UP)) DO A=GETCHOICE() IF PEEK(53279)=3 THEN RETURN FI N} UNTIL A<>1 OR CASH(UP)>=250 OD IF A=0 THEN AMT=SPINIT() IF AMT=0 THEN CASH(UP)=0 FLAG=1 O} FOR I=0 TO 254 DO SOUND(0,I,10,10) FOR J=1 TO 500 DO OD OD SOUND(0,0,0,0) ELSEIP}F AMT=1 THEN FLAG=1 FOR J=1 TO 500 DO OD ELSEIF AMT=2 THEN FREESPINS(UP)==+1 FOR J=1 TOQ} 5000 DO OD ELSE LET=GETLETTER() IF LET='A OR LET='I OR LET='O OR LET='U OR LET='E THEN R} FLAG=1 ELSE A=SHOWLETTER(LET) LETTERS(LET-65)='1 IF A=0 THEN FLAG=1 ELSE CASH(S}UP)==+AMT*A FI FI FI ELSEIF A=1 THEN CASH(UP)==-250 LET=GETLETTER() IF LET='A OR LET='E T}OR LET='I OR LET='O OR LET='U THEN A=SHOWLETTER(LET) LETTERS(LET-65)='1 IF A=0 THEN FLAG=1 FI U} ELSE FLAG=1 FI ELSEIF A=2 THEN POSITION(2,13) PRINTE("ENTER SOLUTION EXACTLY:") GETSTRING(3,15,INP) V} IF SCOMPARE(INP,SOL)=0 THEN EXIT FI FLAG=1 CLEAR() FI FOR I=0 TO 3 DO STRC(CASH(I),TEMP) T=TEW}MP(0) POSITION(4+8*I,21) PRINT("$ ") POSITION(10+8*I-T,21) PRINT("") PRINTC(CASH(I)) OD IF FLAG TX}HEN BUZZ() IF FREESPINS(UP)>0 THEN POSITION(2,13) PRINT("USE FREE SPIN(Y/N)?") DO Q=GY}ETD(7) UNTIL Q='Y OR Q='N OD ELSE Q='N FI IF Q='N THEN UP==+1 ELSE FREESPINS(UP)==-1Z} FI FLAG=0 FI IF UP>PLAYERS THEN UP=0 FI CHECKVOWELS()ODRETURNPROC TITLE()CARD IINIT()SCREEN()DRAW()POS[}ITION(0,23)DISPLAY(1)SHOWIT();FOR I=0 TO 25 DO; SHOWLETTER(I+65);ODPRINT("PRESS start TO BEGIN")POSITION(0,13)PUTE()\}PRINT(" NUMBER OF PLAYERS:")PRINTB(PLAYERS+1)DOIF PEEK(53279)=5 THEN PLAYERS==+1 POKE(53279,0) IF PLAYERS>3]} THEN PLAYERS=0 FI POSITION(0,13) PUTE() PRINT(" NUMBER OF PLAYERS:") PRINTB(PLAYERS+1)FIIF PEEK(53279)=6^} THEN EXIT FIFOR I=1 TO 12000 DO ODODRETURNPROC MAPDBS()BYTE QBYTE ARRAY LINE(80)CARD IGRAPHICS(0)POKE(710,0) POKE(_}752,1)POKE(764,255)POKE(82,0) PRINT("")PRINTE("} ")PRINTE(" |ŠƠӠ`}|")PRINTE(" ")PRINTE(" |BY BIG K SOFTWARE (1989)|")PRINTE(" a}")PRINTE(" INSERT WHEEL DATA DISK")PRINTE(" PRESS [RETURN]")Q=GETD(7)TOTAL=0CLOSE(1)OPENb}(1,"D:WHEEL.DBS",4,0)PRINTE("} ")PRINTE(" |ŠƠӠ|")PRINTE(" c}")PRINTE(" |BY BIG K SOFTWARE (1989)|")PRINTE(" ")PRINTE("d} MAPPING DATA FILE....")PRINTE(" -PLEASE WAIT-")FOR I=0 TO 253 DO NOTE(1,PNTR1+I*2,PNTR2+I) INPUTSD(1e},LINE) IF EOF(1) THEN TOTAL=I-1 EXIT FIODPRINT("} MAPPING COMPLETE....")CLOSE(1)RETURNPROC TOTALS()BYTE IGRf}APHICS(17)PRINTD(6," totals ") PUTDE(6)PUTDE(6)FOR I=0 TO 3 DO PRINTD(6," ") PRINTCD(6,I+1) PUTD(6,32g}) PUTD(6,'$) PRINTCDE(6,BANK(I)) PUTDE(6)ODPUTDE(6)PUTDE(6)PUTDE(6)PRINTDE(6," Ϡ")RETURNPROC WAq}B&DOS SYSB*)DUP SYSBSR BzYRED B$RED DOCB RED1 FNTB RED2 FNTB AUTORUN SYSNG()BYTE J,KFOR J=0 TO 14 DO SOUND(0,25,10,15-J) FOR K=1 TO 300 DO ODODSOUND(0,0,0,0)RETURNPROC BONUSROUND(BYTEr} P)CARD JBYTE ARRAY CHOICE(40)BYTE Z,A,AA,BB,CC,DD,EE,FFSCREEN()DRAW()POKE(559,0)FOR J=1 TO 1000 DO ODCLOSE(1)OPEN(1s},"D:WHEEL.DBS",12,0)DO Z=RAND(TOTAL) IF PNTR1(Z)<>0 AND PNTR2(Z)<>0 THEN POINT(1,PNTR1(Z),PNTR2(Z)) INPUTSD(1,PUt}ZZLE(0)) FIUNTIL PNTR1(Z)<>0 AND PNTR2(Z)<>0 ODCLOSE(1)PNTR1(Z)=0 PNTR2(Z)=0DISPLAY(0)POKE(559,34)UP=PSHOWLETTER(''u}) SHOWLETTER('-)POSITION(0,19)PRINTE(" ŠӠ ")PRINTE(" v} ")PRINTE(" PLAYER: ")PRINTE(" ")POSITION(23,21)PRw}INTB(P)DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT")AA=GETLETTER() UNTIL (AA<>'A AND AA<>'E AND AA<>'I AND AA<>'Ox} AND AA<>'U) ODLETTERS(AA-65)='1 WANG()DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT") BB=GETLETTER() UNTIL (BB<>'A AND y}BB<>'E AND BB<>'I AND BB<>'O AND BB<>'U) ODLETTERS(BB-65)='1 WANG()DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT") z} CC=GETLETTER() UNTIL (CC<>'A AND CC<>'E AND CC<>'I AND CC<>'O AND CC<>'U) ODLETTERS(CC-65)='1 WANG()DOPOSITION(11{},16)PRINTE("CHOOSE A CONSONANT") DD=GETLETTER() UNTIL (DD<>'A AND DD<>'E AND DD<>'I AND DD<>'O AND DD<>'U) ODLETT|}ERS(DD-65)='1 WANG()DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT") EE=GETLETTER() UNTIL (EE<>'A AND EE<>'E AND EE<>'I }} AND EE<>'O AND EE<>'U) ODLETTERS(EE-65)='1 WANG()DOPOSITION(11,16)PRINTE(" CHOOSE A VOWEL ") FF=GETLETTER() UNT~}IL (FF='A OR FF='E OR FF='I OR FF='O OR FF='U) ODLETTERS(FF-65)='1 WANG()POSITION(11,16)PRINTE(" "})SHOWLETTER(AA)SHOWLETTER(BB)SHOWLETTER(CC)SHOWLETTER(DD)SHOWLETTER(EE)SHOWLETTER(FF)POSITION(11,14)PRINTE("-SOLVE TH}E PUZZLE-")GETSTRING(1,16,CHOICE)IF SCOMPARE(SOL,CHOICE)=0 THEN BANK(P)==+25000 EFFECT()ELSE PUT(253)FISHOWIT()FO}R J=1 TO 20000 DO ODRETURNPROC GO()BYTE ARRAY FONTBYTE W,TOPCARD ICARD J,VEC566=566,VEC514=514;DISABLE BREAK (NOT A} ROMS THOUGH)ERROR=ERROR2MAIN2=GOVEC566=VEC514CLOSE(7)OPEN(7,"K:",4,0)TOP=160-16FONT=TOP*256CLOSE(1)OPEN(1,"D:WHEEL.}FNT",4,0)FOR I=0 TO 1023 DO FONT(I)=GETD(1)ODCLOSE(1)MAPDBS()INIT()DOTITLE()UP=0FOR I=0 TO 3 DO BANK(I)=0 FREE}SPINS(I)=0ODFOR ROUND=1 TO 4 DO NEWROUND(ROUND) UP=(ROUND-1) MOD (PLAYERS+1) DINGFLAG=0 FOR I=0 TO 3 DO CASH(I)}=0 OD MAIN() IF PEEK(53279)=3 THEN EXIT FI SHOWIT() BANK(UP)==+CASH(UP) POSITION(0,23) PRINT(" player ") PRI}NTC(UP+1) PRINT(" !!! ") SOUND(0,100,10,10) FOR J=1 TO 35000 DO OD SOUND(0,080,10,10) FOR J=1 TO 35000 DO OD } SOUND(0,060,10,10) FOR J=1 TO 35000 DO OD SOUND(0,0,0,0)ODTOTALS()WHILE PEEK(53279)<>6 DO ODJ=0FOR I=0 TO 3 DOIF B}ANK(I)>J THEN UP=I FIODBONUSROUND(UP)TOTALS()WHILE PEEK(53279)<>6 DO ODODRETURN[;;| CIRCLE OF RICHNESS V1.2 |;;BYTE ARRAY Q=}"ź"DEFINE TIMELIMIT="1800"BYTE LMARGIN=82,RMARGIN=83,CUR,FLAG, FIRST=[0],PLAYERS=[0],DINGFLAGBYTE ARRAY COLORS=70}8,PNTR2(1000)CARD DLP=560,SCRP=88,TOTALBYTE ARRAY MAP(100),STRING,LINE(25), LETTERS(26),INP(40), SOL(}40),FREESPINS(4)CARD ARRAY PUZZLE(2),CASH(4),TEMP(20), BANK(4),WHEEL(24),PNTR1(1000)BYTE WAITSYNC=54282,COLOR710}=53272, CHBASE=54281,COLOR709=53271DEFINE PLA="104",PHA="72",RTI="64"BYTE FREESPIN=[1],UP=[0],ROUND INCLUDE} "D:RUNTIME.ACT"PROC MAIN2()PROC ERROR2(BYTE A,B,NUM)BYTE QGRAPHICS(0)POKE(710,0)POKE(752,1)PRINT("----ERROR #")PRI}NTB(NUM)PRINTE("----")PRINTE("INSERT MAIN PROGRAM DISK")PRINTE(" PRESS KEY TO RESTART!!")Q=GETD(7)MAIN2()PROC DIN}G()BYTE I,J CARD KFOR I=0 TO 3 DO FOR J=1 TO 150 DO SOUND(0,20,10,150-J/10) SOUND(1,35,10,150-J/10) FOR K=}0 TO 2 DO OD SOUND(0,21,10,150-J/10) SOUND(1,34,10,150-J/10) FOR K=0 TO 2 DO OD OD SOUND(0,0,0,0) SOUND(}1,0,0,0) FOR K=0 TO 500 DO ODODRETURNPROC CHECKVOWELS()BYTE ICARD KIF DINGFLAG=1 THEN RETURN FIFLAG=0FOR I=0 TO 99} DO IF MAP(I)<>'A AND MAP(I)<>'E AND MAP(I)<>'I AND MAP(I)<>'O AND MAP(I)<>'U AND MAP(I)<>0 AND MAP(I)<>32 A}ND MAP(I)<>'' AND MAP(I)<>'- THEN IF LETTERS(MAP(I)-65)=0 THEN RETURN FI FIODDING()DINGFL}AG=1RETURNPROC TMR(BYTE Q)BYTE Z=20Z=0WHILE ZTIMELIMIT THEN A(0)=0 RETURN FIOD Q=GETD(7) IF Q='~ AND A(0)>0 THEN X==-1 POSITION(X,Y) PUT(}32) POSITION(X,Y+1) PRINT(" ") A(0)==-1 FI IF Q=155 THEN RETURN FI IF Q<>'' AND Q<>'- AND Q<>32 AND (Q<'A }OR Q>'Z) OR X>37 THEN POKE(53279,0) ELSE POSITION(X,Y) X==+1 PUT(Q) A(0)==+1 Z=A(0) A(Z)=Q POSITION}(X-1,Y+1) PRINT(" ") FIODRETURNPROC INIT() PUZZLE(0)="MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM}MMMMMMMMMMMMMMMMM"PUZZLE(1)="CIRCLE //OF //RICHNESS"WHEEL(0)= "BANKRUPT "WHEEL(1)= "XXXXXXXXX"WHEEL(2)= "250 $ "WHE}EL(3)= "300 $ "WHEEL(4)= "200 $ "WHEEL(5)= "XXXXXXXXX"WHEEL(6)= "500 $ "WHEEL(7)= "400 $ "WHEEL(8)= "300 $ } "WHEEL(9)= "200 $ "WHEEL(10)="XXXXXXXXX"WHEEL(11)="100 $ "WHEEL(12)="200 $ "WHEEL(13)="150 $ "WHEEL(14)="}450 $ "WHEEL(15)="LOOSE TRN"WHEEL(16)="400 $ "WHEEL(17)="250 $ "WHEEL(18)="200 $ "WHEEL(19)="XXXXXXXXX"WHEE}L(20)="400 $ "WHEEL(21)="600 $ "WHEEL(22)="XXXXXXXXX"WHEEL(23)="300 $ "RETURN PROC NEWROUND(BYTE R)IF R=1} THEN WHEEL(1)= "750 $ " WHEEL(10)="FREE SPIN" WHEEL(19)="150 $ " WHEEL(22)="250 $ " WHEEL(5)= "100 $ "}FIIF R=2 THEN WHEEL(10)="BANKRUPT " WHEEL(19)="500 $ " WHEEL(1)= "1000$ "FIIF R=3 THEN WHEEL(19)="900 $ }" WHEEL(22)="2500$ "FI IF R=4 THEN WHEEL(5)= "5000$ "FIRETURNCARD FUNC SPINIT()CARD I,Z,J,AMTBYTE Q=[0]},PDOP=RAND(0)/2UNTIL P>24 ODZ=155*10-P*10FOR I=1 TO P DO Q==+1 Q==MOD 24 POSITION(2,14) PUTE() PRINT(" } ") PRINTE(WHEEL(Q)) POKE(53279,0) FOR J=0 TO Z DO OD Z==+10ODFOR I=1 TO 65534 DO ODIF SCOMPARE(WHEEL(Q),"BAN}KRUPT")=0 THEN RETURN(0)ELSEIF SCOMPARE(WHEEL(Q),"LOOSE TRN")=0 THEN RETURN(1)ELSEIF SCOMPARE(WHEEL(Q),"FREE SPIN")=0 } THEN RETURN(2)FII=VALC(WHEEL(Q))RETURN(I)PROC PLOTCHAR(BYTE X,Y,A)BYTE ARRAY SCRNSCRN=SCRPIF A='- THEN A='Z+1 FIIF} A='' THEN A='Z+2 FIIF A=0 THEN A='Z+3 FIIF A=1 THEN A='Z+4 FIIF A=255 THEN A='Z+5 FIA==-65SCRN(Y*40+X) =A*4+1SCRN(Y*}40+X+1) =A*4+2SCRN(Y*40+X+40)=A*4+3SCRN(Y*40+X+41)=A*4+4RETURNPROC GETWORD(BYTE Q)BYTE L,I,JLINE(0)=0STRING=PUZZLE(Q)}J=0FOR I=2 TO STRING(0) DOIF STRING(I)<>'/ THEN J==+1 SOL(J)=STRING(I)FIOD SOL(0)=JDO CUR==+1} IF CUR>STRING(0) THEN FLAG=1 RETURN FI IF STRING(CUR)='/ THEN RETURN FI L=LINE(0)+1 LINE(0)==+1 LINE(L)=STRING(CUR)} ODPROC DISPLAY(BYTE Q)BYTE X,Y,I,PS,LCARD DLYPOKE(559,0) FOR DLY=0 TO 1000 DO ODY=0:FLAG=0:CUR=1FOR I=0 TO 99 DO MAP}(I)=0 ODFOR I=0 TO 25 DO LETTERS(I)=0 ODDO GETWORD(Q) IF LINE(0)>0 THEN X=(10-LINE(0)/2)*2 L=LINE(0) FOR I}=1 TO LINE(0) DO IF LINE(I)<>32 THEN PLOTCHAR(X,Y,1) MAP(Y*10+X/2)=LINE(I) FI X==+2 OD} FI Y==+2UNTIL FLAG>0 ODPOSITION(0,23)PRINT(" ")POSITION(0,23)IF STRING(1)=' THEN PRINT(" } ")FIIF STRING(1)=' THEN PRINT(" ")FIIF STRING(1)=' THEN PRINT(" } ")FIIF STRING(1)=' THEN PRINT(" ")FIIF STRING(1)=' THEN PRINT(" "})FIIF STRING(1)=' THEN PRINT(" ")FIIF STRING(1)=' THEN PRINT(" ")FIIF S}TRING(1)=' THEN PRINT(" ")FIIF STRING(1)=' THEN PRINT(" ")FIIF STRING(1)=}' THEN PRINT(" ")FIPOKE(559,34)RETURNPROC SHOWIT()BYTE X,Y,IX=0 Y=0FOR I=0 TO 99 DO IF MAP(}I)>0 THEN PLOTCHAR(X,Y,MAP(I)) FI X==+2 IF X>38 THEN X=0 Y==+2 FIODRETURNPROC SCREEN()BYTE ARRAY FONT,DLBYT}E TOPCARD ITOP=160TOP==-16GRAPHICS(0)POKE(82,0)POKE(752,1) POSITION(2,19)PUTE()PRINTE(" }")PRINTE(" |$ 0||$ 0||$ 0||$ 0|")PRINTE(" ")PRINT (" RO}UND#")PRINTB(ROUND)DL=DLPDL(3)=64+4FOR I=6 TO 16 DO DL(I)=4ODDL(16)==%128DL(28)=6POKEC(512,DLI)POKE(54286,192)LMA}RGIN=0RMARGIN=39POKE(756,TOP)POKE(710,12)POKE(709,196)POKE(712,0)POKE(708,22)FOR I=1 TO 65500 DO ODRETURNPROC DRAW(})BYTE X,YCARD DLYPOKE(559,0) FOR DLY=0 TO 1000 DO ODFOR X=0 TO 38 STEP 2 DO FOR Y=0 TO 10 STEP 2 DO PLOTCHAR(X,Y,0)} ODODRETURNBYTE FUNC SHOWLETTER(BYTE A)CARD KBYTE COUNT,X,Y,I,JX=0 Y=0COUNT=0FOR I=0 TO 99 DO IF MAP(I)=A THEN } PLOTCHAR(X,Y,255) COUNT==+1 FOR J=0 TO 14 DO SOUND(0,25,10,15-J) FOR K=1 TO 300 DO OD OD SO}UND(0,0,0,0) FOR K=1 TO 5000 DO OD FI X==+2 IF X>38 THEN X=0 Y==+2 FIODFOR K=1 TO 5000 DO ODX=0 Y=0FOR I=0 TO 9}9 DO IF MAP(I)=A THEN FOR K=1 TO 5000 DO OD PLOTCHAR(X,Y,MAP(I)) FI X==+2 IF X>38 THEN X=0 Y==+2 FIODRETURN}(COUNT)PROC CLEAR()BYTE IPOSITION(2,13)FOR I=1 TO 5 DOPRINTE(" ")ODRETURNBYTE F}UNC GETLETTER()BYTE X,Y,Z,ST,ZZCARD IPOSITION(2,13)PRINT(" ")FOR I=0 TO 26 DO IF LETTERS(I)=0 THEN PUT(65+I)} ELSE PUT(32) FIODX=6:Y=13:Z=32COLOR=LOCATE(X,Y)!128PLOT(X,Y) DO DO ST=STICK(UP&1) IF ST=7 OR ST=11 T}HEN Z=LOCATE(X,Y)!128 COLOR=Z PLOT(X,Y) IF ST=7 THEN X==+1 FI IF ST=11 THEN X==-1 FI IF X}<6 THEN X=6 FI IF X>32 THEN X=32 FI Z=LOCATE(X,Y)!128 COLOR=Z PLOT(X,Y) FOR I=1 TO 5000 DO OD } POKE(53279,0) FI UNTIL STRIG(UP&1)=0 OD ZZ=Z&127UNTIL ZZ<>32 ODCLEAR()RETURN(ZZ)BYTE FUNC GETCHOICE()BYT}E Y,X,A,STCARD ICLEAR()POSITION(2,13)PRINTE(" SELECT WITH JOYSTICK:")PUTE()PRINTE(" ")PRI}NTE(" BUY A VOWEL")PRINTE(" SOLVE THE PUZZLE")Y=15DO IF PEEK(53279)=3 THEN RETURN(2) FI ST=STICK(UP&}1) IF ST=13 OR ST=14 THEN FOR X=10 TO 30 DO A=LOCATE(X,Y) IF A<>32 AND A<>128+32 THEN COLOR=A!128 PL}OT(X,Y) FI OD IF ST=14 THEN Y==-1 FI IF ST=13 THEN Y==+1 FI IF Y<15 THEN Y=17 FI IF Y>17 THEN Y=15 }FI FOR X=10 TO 30 DO A=LOCATE(X,Y) IF A<>32 AND A<>128+32 THEN COLOR=A!128 PLOT(X,Y) FI SO}UND(0,50-X,10,10) OD SOUND(0,0,0,0) FOR I=1 TO 2000 DO OD FIUNTIL STRIG(UP&1)=0ODCLEAR()RETURN(Y-15)PROC }BUZZ()POSITION(2,13)PUT(253)RETURNPROC MAIN()BYTE Q,LET,A,FLAG,Z,T,ICARD AMT,JSCREEN()DRAW()POKE(559,0)FOR J=1 TO }1000 DO ODCLOSE(1)OPEN(1,"D:WHEEL.DBS",12,0)DO Z=RAND(TOTAL) IF PNTR1(Z)<>0 AND PNTR2(Z)<>0 THEN POINT(1,PNTR1(Z),}PNTR2(Z)) INPUTSD(1,PUZZLE(0)) FIUNTIL PNTR1(Z)<>0 AND PNTR2(Z)<>0 ODCLOSE(1)PNTR1(Z)=0 PNTR2(Z)=0DISPLAY(0)POKE(}559,34)SHOWLETTER('') SHOWLETTER('-)FOR I=0 TO 3 DO STRC(CASH(I),TEMP) T=TEMP(0)+1 POSITION(5+9*I,21) PRINT("$ } ") POSITION(12+9*I-T,21) PRINT("") PRINTC(CASH(I)) PUT('0)ODDO FLAG=0 POSITION(0,23) PRINT("UP:") PRINTB(}UP+1) POSITION(16,23) PRINT("FS:") PRINTB(FREESPINS(UP)) DO A=GETCHOICE() IF PEEK(53279)=3 THEN RETURN FI} UNTIL A<>1 OR CASH(UP)>=25 OD IF A=0 THEN AMT=SPINIT() IF AMT=0 THEN CASH(UP)=0 FLAG=1 } FOR I=0 TO 254 DO SOUND(0,I,10,10) FOR J=1 TO 500 DO OD OD SOUND(0,0,0,0) ELSEI}F AMT=1 THEN FLAG=1 FOR J=1 TO 500 DO OD ELSEIF AMT=2 THEN FREESPINS(UP)==+1 FOR J=1 TO} 5000 DO OD ELSE LET=GETLETTER() IF LET='A OR LET='I OR LET='O OR LET='U OR LET='E THEN } FLAG=1 ELSE A=SHOWLETTER(LET) LETTERS(LET-65)='1 IF A=0 THEN FLAG=1 ELSE CASH(}UP)==+(AMT/10)*A FI FI FI ELSEIF A=1 THEN CASH(UP)==-25 LET=GETLETTER() IF LET='A OR LET}='E OR LET='I OR LET='O OR LET='U THEN A=SHOWLETTER(LET) LETTERS(LET-65)='1 IF A=0 THEN FLAG=1 FI} ELSE FLAG=1 FI ELSEIF A=2 THEN POSITION(2,13) PRINTE("ENTER SOLUTION EXACTLY:") GETSTRING(3,15,IN}P) IF SCOMPARE(INP,SOL)=0 THEN EXIT FI FLAG=1 CLEAR() FI FOR I=0 TO 3 DO STRC(CASH(I),TEMP) }T=TEMP(0)+1 POSITION(5+9*I,21) PRINT("$ ") POSITION(12+9*I-T,21) PRINT("") PRINTC(CASH(I)) PUT('0) }OD IF FLAG THEN BUZZ() IF FREESPINS(UP)>0 THEN POSITION(2,13) PRINT("USE FREE SPIN(Y/N)?") DO } Q=GETD(7) UNTIL Q='Y OR Q='N OD ELSE Q='N FI IF Q='N THEN UP==+1 ELSE FREE}SPINS(UP)==-1 FI FLAG=0 FI IF UP>PLAYERS THEN UP=0 FI CHECKVOWELS()ODRETURNPROC TITLE()CARD IINIT()SCREE}N()DRAW()POSITION(0,23)DISPLAY(1)SHOWIT();FOR I=0 TO 25 DO; SHOWLETTER(I+65);ODPRINT("PRESS start TO BEGIN")POSITIO}N(0,13)PUTE()PRINT(" NUMBER OF PLAYERS:")PRINTB(PLAYERS+1)DOIF PEEK(53279)=5 THEN PLAYERS==+1 POKE(53279,0)} IF PLAYERS>3 THEN PLAYERS=0 FI POSITION(0,13) PUTE() PRINT(" NUMBER OF PLAYERS:") PRINTB(PLAYERS+1)FIIF} PEEK(53279)=6 THEN EXIT FIFOR I=1 TO 12000 DO ODODRETURNPROC MAPDBS()BYTE QBYTE ARRAY LINE(80)CARD IGRAPHICS(0)POK}E(710,0) POKE(752,1)POKE(764,255)POKE(82,0) PRINT("")PRINTE("} ")PRINTE(" |Š}ƠӠ|")PRINTE(" ")PRINTE(" |BY BIG K SOFTWARE (1989)|")PRINTE(" }")PRINTE(" INSERT WHEEL DATA DISK")PRINTE(" PRESS [RETURN]")Q=GETD(7)TOTAL=0}CLOSE(1)OPEN(1,"D:WHEEL.DBS",4,0)PRINTE("} ")PRINTE(" |ŠƠӠ|")PR}INTE(" ")PRINTE(" |BY BIG K SOFTWARE (1989)|")PRINTE(" "})PRINTE(" MAPPING DATA FILE....")PRINTE(" -PLEASE WAIT-")FOR I=0 TO 253 DO NOTE(1,PNTR1+I*2,PNTR2+}I) INPUTSD(1,LINE) IF EOF(1) THEN TOTAL=I-1 EXIT FIODPRINT("} MAPPING COMPLETE....")CLOSE(1)RETURNPROC TOTA}LS()BYTE IGRAPHICS(17)PRINTD(6," totals ") PUTDE(6)PUTDE(6)FOR I=0 TO 3 DO PRINTD(6," ") PRINTCD(6,}I+1) PUTD(6,32) PUTD(6,'$) PRINTCD(6,BANK(I)) PRINTDE(6,"0") PUTDE(6)ODPUTDE(6)PUTDE(6)PUTDE(6)PRINTDE(6," }Ϡ")RETURNPROC WANG()BYTE J,KFOR J=0 TO 14 DO SOUND(0,25,10,15-J) FOR K=1 TO 300 DO ODODSOUND(0,0,0,0)}RETURNPROC BONUSROUND(BYTE P)CARD JBYTE ARRAY CHOICE(40)BYTE Z,A,AA,BB,CC,DD,EE,FFSCREEN()DRAW()POKE(559,0)FOR J=1 T}O 1000 DO ODCLOSE(1)OPEN(1,"D:WHEEL.DBS",12,0)DO Z=RAND(TOTAL) IF PNTR1(Z)<>0 AND PNTR2(Z)<>0 THEN POINT(1,PNTR1(Z}),PNTR2(Z)) INPUTSD(1,PUZZLE(0)) FIUNTIL PNTR1(Z)<>0 AND PNTR2(Z)<>0 ODCLOSE(1)PNTR1(Z)=0 PNTR2(Z)=0DISPLAY(0)POK}E(559,34)UP=PSHOWLETTER('') SHOWLETTER('-)POSITION(0,19)PRINTE(" ŠӠ ")PRINTE(" } ")PRINTE(" PLAYER: ")PRINTE(" } ")POSITION(23,21)PRINTB(P+1)DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT")AA=GETLETTER() UNTIL (AA<>'A AND AA<>'}E AND AA<>'I AND AA<>'O AND AA<>'U) ODLETTERS(AA-65)='1 WANG()DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT") BB=G}ETLETTER() UNTIL (BB<>'A AND BB<>'E AND BB<>'I AND BB<>'O AND BB<>'U) ODLETTERS(BB-65)='1 WANG()DOPOSITION(11,16)}PRINTE("CHOOSE A CONSONANT") CC=GETLETTER() UNTIL (CC<>'A AND CC<>'E AND CC<>'I AND CC<>'O AND CC<>'U) ODLETTERS(C}C-65)='1 WANG()DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT") DD=GETLETTER() UNTIL (DD<>'A AND DD<>'E AND DD<>'I }AND DD<>'O AND DD<>'U) ODLETTERS(DD-65)='1 WANG()DOPOSITION(11,16)PRINTE("CHOOSE A CONSONANT") EE=GETLETTER() UNTIL (E}E<>'A AND EE<>'E AND EE<>'I AND EE<>'O AND EE<>'U) ODLETTERS(EE-65)='1 WANG()DOPOSITION(11,16)PRINTE(" CHOOSE A V}OWEL ") FF=GETLETTER() UNTIL (FF='A OR FF='E OR FF='I OR FF='O OR FF='U) ODLETTERS(FF-65)='1 WANG()POSITION(11,1}6)PRINTE(" ")SHOWLETTER(AA)SHOWLETTER(BB)SHOWLETTER(CC)SHOWLETTER(DD)SHOWLETTER(EE)SHOWLETTER(FF)POS}ITION(11,14)PRINTE("-SOLVE THE PUZZLE-")GETSTRING(1,16,CHOICE)IF SCOMPARE(SOL,CHOICE)=0 THEN BANK(P)==+2000 EFFECT()E}LSE PUT(253)FISHOWIT()FOR J=1 TO 20000 DO ODRETURNPROC GO()BYTE ARRAY FONTBYTE W,TOPCARD ICARD J,VEC566=566,VEC}514=514;DISABLE BREAK (NOT A ROMS THOUGH)ERROR=ERROR2MAIN2=GOVEC566=VEC514CLOSE(7)OPEN(7,"K:",4,0)TOP=160-16FONT=TOP*}256CLOSE(1)IF PEEK(1791)<>36 THEN OPEN(1,"D:WHEEL.FNT",4,0) FOR I=0 TO 1023 DO FONT(I)=GETD(1) OD CLOSE(1) PO}KE(1791,36)FIMAPDBS()INIT()DOTITLE()UP=0FOR I=0 TO 3 DO BANK(I)=0 FREESPINS(I)=0ODFOR ROUND=1 TO 4 DO NEWROUND}(ROUND) UP=(ROUND-1) MOD (PLAYERS+1) DINGFLAG=0 FOR I=0 TO 3 DO CASH(I)=0 OD MAIN() IF PEEK(53279)=3 THEN EXI}T FI SHOWIT() BANK(UP)==+CASH(UP) POSITION(0,23) PRINT(" player ") PRINTC(UP+1) PRINT(" !!! ") EFFECT()O}DTOTALS()WHILE PEEK(53279)<>6 DO ODJ=0FOR I=0 TO 3 DOIF BANK(I)>J THEN UP=I J=BANK(I) FIODBONUSROUND(UP)TOTALS()WHIL}E PEEK(53279)<>6 DO ODODRETURN"