@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?j ` B VBH=DEKI JLVE:LڧܧL̤ͤΤФLѤӤLڤܤLLwT}yLJL8giLTTVLΦЦLؾLdæŦLkLvLչLLDFL4y{LպL!#LNPL /1L79L U}79LL'LLһLۻlnLsuḶΣL褢LXLaLg LoLۼLԼL.V}եॅ AԦ`Ԇեॅ oԦ`µLLޠLLwLLL68LL<>LܽLü LW}46LLοޤLDFLLNL[]LLdfLLLبڨL BHI Ÿ`Hh X} BHILŸ VL`JJJJ`LЩ ̤ һ 줩 Լ Dl lRUNTIME ERROR #; [RETURN] Y}TO RERUNˆ̄ȥ`ˆ̘`ˆ̠˅ȱ˅`UVT` dL d`B JKLŸH ʹ պhH`BǝDZ}EHIhK)IJLŸS:jɡ`ˆ̄ͥΠ̥ͥ`HhLչˆ̄ͥΥ͑Υ[}ƥƤ`˪ ̪˅ȱ˙ȄBHIDEJKLŸպ BLŸ ˝\} `ҩ`  ep` L: `օע& eօ֥eׅ&LI]}Ԧ׆`օע&&&8֥װe֥eL Хօׅ`̤ &̈`̤Fj`ˆ̦L˄̪L^} ۻL һL̤ ˝HIiDiE BLŸ ؠH 4hɀ`̆)H BHIh Ÿ̦`Ԇզ_}L XL̤ԄժLH ghLhhiiHH˅ȱ˅ȱ˅Ȋͥȑ `HӼh ۼӼ`H`}h ˆ̪̈́̄BӼHI˝D̝E ŸH`ˆ̠˨˙L5 ۼ ̀- a}Lc`򩀅 ٥ԅՅΖII`Ԇեॅ o਽`2LHԄ$0hLgIԘIb}hH- hԤLgH hLHhL L̤ dLφЄ׾ύȌL־׾% L׾L׾% c}LE ̤LU XLS һLC LH ULId} L`H h`ԆՄ˥ ؠH)h`ԩՆ˄LLHIhIiԊi 쾠˨Șe}˨ȑˈȩ-`Ԇթ$ ֢&&&&&&&&֥) `0123456789ABCDEF BDEf}HIJKLVUVT녥 LS:$u^ź$18008f$d$*b$#;| g}CIRCLE OF RICHNESS V1.2 |8$*$#;$b$$;$$BY$RRAY Q="ź"$$C$(TIMELIMh}IT="1800"$+$$BYTE LMARGIN=$(MARGIN=83,CUR,FLAG,$* %# FIRST$ff~f(vfFf0v^!BL+%'%&% V`ORS=708%(i}R2(1000) %!i%CARD DLP=560,SCRP=88,TLh% 5%d%:%;%%%d%L%E8d%:%md%;%i<%d%L%d%ij}<%5% 5%Bm5%i7% wDm5%i%< Hm5%i( Jm5%i8%k} wKm5%i9% w5%6% (%`532Lf& `&b&a&`& b&T wa&`&U L&S:& e%`="64"l}L& && &Bm&i& w& (%&&HHLm&i ghh&&m}HHNm&i ghh`'jL`' Y'Y' Y'BmY'i% wLmY'i['Z' Nn}mY'i\' wY' (%`")'L' ''''i''' `PRINTE(L( ( ((L (`((o}(LE(((((( (Lj((( ((i(i(m((i8 ((i (p}(8 ((i`10)wPL( (((i(L(`(m((i(i(i8((iq} (((LQ)(((` SOUL[) R)R)S)W)T)U)W)L)T)U)W)V)W)))r}V)L!*R)mV)S)iT)mV)U)iѬL)8V)`R)mV)S)iT)mV)U)iѮL*V)`V)L)s}R)S)T)U)ѬLO*8V)`R)S)T)U)ѮLx*V)``L*)*L* * T wt} wL* ----ERROR #* * L*----* lL*INSERT MAIN PROGRAM DISK* lL+ PRESS KEY TO RESTART!!* u}l * * L1+*+*+Lc,++++L!, ++ 8宅   ++ 8宅 # -+v},+,+-+L+,+-+L+ ++ 8宅   ++ 8宅 " -+,+,+-+L,,+w}-+L,++LE+  -+,+,+-+L],,+-+LC,*+L6+`T,Lj,$ILu,`$d,cd,L-d,$IALx}-d,$IEL-d,$IIL-d,$IOL-d,$IUL-d,$L-d,$I L-d,$I'L-d,$I-L-8d,$A$L-y}`d,L}, .+$`SL#---L7-L*-`%-L=- d < - P < - < I -  -`H z} ԩЩ h@YTE X,L- -  w---i- Τ gILh.Щ gIL .{}` g HH ghhei $Ŭ $子Le.--`L- --I~L.--|}ѮL.8---- Τ-i- L. . --8-IL.`-I'L/-I-L/-I L}}/-AZ͡- %͝-L)/Щ wL/-- -- Τ--i----m--i-8-~}-i L/ / L-`L/ % %L/AMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM/} m %*(m %L-0CIRCLE //OF //RICHNESS0ȑ%%LN0 BANKRUPT 0ȑD m%*(m%Lx0 XXXXXXXXX0}ȑn m%*(m%L0 250 $ 0ȑ m%*(m%L0 300 $ 0ȑˆ m%*(m%L0 200 $ }0ȑ숑 m%*(m%L 1 XXXXXXXXX1ȑ m%*(m%LJ1 500 $ 1ȑ@ m%*(m%Lt1 400 $ }1ȑj m%*(m%L1 300 $ 1ȑ m%*(m%L1 200 $ 1ȑ m%*(m%L1 XXXXXXXX}X1ȑ舑 m%*(m%L2 100 $ 2ȑ m%*(m%LF2 200 $ 2ȑ< m%*(m%Lp2 150 $ } 2ȑf m%*(m%L2 450 $ 2ȑ m%*(m%L2 LOOSE TRN2ȑ m%*(m%L2 400 $ } 2ȑ䈑 m%*(m%L3 250 $ 3ȑ m%*(m%LB3 200 $ 3ȑ8 m%*(m%Ll3 XXXXX}XXXX3ȑb m%*(m%L3 400 $ 3ȑ m%*(m%L3 600 $ 3ȑ m%*(m%L3 XXXX}XXXXX3ȑ m%*(m%L4 300 $ 4ȑ `TL#444IL5 m%*(m%LP4 750 $ 4F m}%*(m%L{4 FREE SPIN4ȑq m%*(m%L4 150 $ 4ȑ m%*(m%L4 250 $ 4ȑň m}%*(m%L4 100 $ 4ȑ4IL5 m%*(m%L-5 BANKRUPT 5# m%*(m%LX5 500 $ 5ȑ}N m%*(m%L5 1000$ 5ȑx4IL5 m%*(m%L5 900 $ 5 m%*(m%L5 2}500$ 5ȑ׈4IL 6 m%*(m%L6 5000$ 6 ` 646 BL.6  *6*6L.6 } *6 8嬍#6孍$6"6Ȍ!6*666!6"6La76)6)6 ޠ)6 ̤L6 } 6 )6 m%*(m% lЩ w&6%6#687$69787%697&6LE77%6&6L'7#6i #6$}6i$6!6"6L6"6Ȍ!6!6"6L7!6"6Lj7)6 m%*(m%L7BANKRUPT7 X)L7}`Lj8)6 m%*(m%L7 LOOSE TRN7󦡥 X)L8`Lj8)6 m%*(m%LK8 FREE SPI}N8A X)Lj8`)6 m%*(m% "6!6"6!6` SCRNL8 8Y8X88I-L8}[88I'L8\88L8]88IL8^88IL9_888A8(8 m8i8e8e}8 i(8 m8iii8e8e8 i}(8 m8ii(i8e8e8 i(8 m8i}i)i8e8e8 i`:L~:w:$w: m %*(m %$$z:y:$$}::y:L; $my:$iI/L;z:$my:$iz:$y:L:z:$$$$$L*;Ȍ$`$m$$i}I/LF;`$ix:$$m$$ix:$L ;)=STRINGLz;o;/ wv;u;u;v;L;u;v;L;q;$Ȍ$}r;cr;L;r;$r;L;r;r;L;r;$r;L;o; {:̈́$L<$ 8 宅 p;$t;r};$DL> = $i$iILE>}L>> >) $i$iIL~>Lw> >b $i$iIL>L> } > $i$iIL>L> > $i$iIL)?L"? } ? "/ w`G(1L9?3?4?5?c5?L?5?$Ln?5?$4?3? 83?i3?&3?L?3?4?i4?5?LD?`PRINT("}L??8?? TR w w ̤L?& ? lL,@& |$ 0||$ 0|}|$ 0||$ 0|@ lL]@& @6 lLs@ ROUND#@g %% 䤭1?0??i?}iD??͛??L@?m??m???L@?i?i ?i?i- }ԩ wR'S? w  wĢ w w w?Ȍ?͛??LsA??LYA`EN]AL{A/ wwAvAvA}wALAvAwALAtA&tALAuA uALAuAtA 8uAiuALAtAitALA`AALAAAAAAcALB}A$MALBAA 8AAALsB8A  AȌA,AALmBAALSBAL/B AȌA}AALBAALBAiA&ALBAAiAALBAȌAAALBAALBAAAcALmCA$}MALFCAȌAAAL3CAALCA$AA 8AiA&ALgCAAiAALBA`CLwC  sC}sCLCLC% C lsCLC`4C CLC  LC C CCCCL+D}C$LDAmC ΤL D ΤCCLCC C CCC ICC æ$%) NCCI CI L)EC}C ICCCC æCILDCCI LD8CCCLDC CLD CCC ICCCC }CȌCCCL ECCLEЩ w$%) /LWDC)CCI LWD tCC` TO 10L`E tC  LE SE}LECT WITH JOYSTICK:Eo l ̤LE ̢E lLE BUY A VOWELE lLE SOLVE THE PUZZL}EE lWEЩ gILF`$%) NZEZEI ZEILUG XEXELFWEXE YEYEI LFYEILFYEI}WEXE æXEL?FZEILF8WEWEZEI LFWEWELFWEWELFWE XEXEL%GWEXE YEYEI L GYE}IL GYEIWEXE æ82XE XELF \EȌ[E[E\ELUG[E\EL;G$%) /LF tC8}WE`LwG  Τ`GFOR I=0 TLG ? xA/ wGȌG͏GGLGGGLG yLG D:WHEEL.DBS GΩ D}$ 񦥠GG m%*(m %LH$mG$iLHG m%*(m %$mG$i} ]' % % G m%*(m %LH$mG$iLG yG m%*(m %}$mG$i w;"/ w' A- AG͌GLJG m%*(m%%% L%%iG}G ee LI$ I G  ee8G LI}I G m%*(m% 椩0 ΤGLIG L+JUP:J' $%i 䤠 LOJFS:JK $%}% ]EGЩ gIL|J`GI$$% m%*(m%ȱLcJGLpL +6GGG GL?K$% m%*(m}%ȌGG͌GL/K G GȌG͏GGL)KGGLKGLJ LmLGI GILzKG}GȌG͏GGLwKGGL]KLmLGI GILK$%%GȌG͏GGLKGGLKLmL CGGIAGIIGIO}GIU GIELKGLmLG AG8GA1$GLLGLmL$% m%*(m% GG G} eȱeLfMGILM$% m%*(m%8ȱ CGGIAGIEGIIGIO GIU}LLG AG8GA1$GLLGLMGLfMGILfM  L1MENTER SOLUTION EXACTLY:M l$ -$}ߢ$ X)L^MLOG tCG͌GLlNG m%*(m%%% L%%iGG }ee LM$ M G  ee8G L4NN1 G m}%*(m% 椩0 ΤGLkMGLN tG$%%LN  LNUSE FREE SPIN(Y/N)?N  GGIY GI}NLNLNNGGINLN$%LN8$%%$%%G$$%LO$% g,LJ`=LLO / ? xA  w; 6?L@OPRESS start TO BE}GINO+  ̤LtO NUMBER OF PLAYERS:OV $i 䤢Щ gILO$Щ w$LO$ } ̤LO NUMBER OF PLAYERS:O $i 䤢Щ gILPL-P OȌ O O. OL*P O OLPLO`P%P PRO}C BUZZ()-PTPPOSITION(2,13)?PcPPUT(253)TP pPRETURNcP~PfupPLP T w w wR wLP}P LP!} P lL Q |ŠƠӠ|P lL5Q }Q lL`Q |BY BIG K SOFTWARE (1989)|Q? lLQ Qj lLQ" INSERT WHEEL} DATA DISKQ lLQ PRESS [RETURN]Q l .P$$ yL R D:WHEEL.DBSR DLBR!} }R lLmR |ŠƠӠ|RL lLR Rw lLR } |BY BIG K SOFTWARE (1989)|R lLR R lLS  MAPPING DATA FILE....R lL>S} -PLEASE WAIT-S# lPPPPLSPP %e %e$mP$mP &P/} LS8P$P$LSPЇPLMSLS} MAPPING COMPLETE....S  y`SLS TLT totals T}  ڤ ڤSSLTLFT T@ Si  Ѥ$ ѤS m%*(m% L}T0T s ڤSL3T ڤ ڤ ڤLT ϠTũ s` LTTTL"U8T  T,TLUT}L UTLT `1 T%(0 DO ODUOU OD>UlU SOUNDLfU0U ? xA/ w2UȌ1U1U2ULU1U}2ULU yLU D:WHEEL.DBS U D$ 񦥠[U[U m%*(m %L]V$m[U$iL]V[U m%*(m} %$m[U$i ]' % % [U m%*(m %LV$m[U$i}LU y[U m%*(m %$m[U$i w;"/ w0U$%' A- A LW' Š} V lLQW' W) lLW' PLAYER: W[ l}LW' W l 0Ui 䤠 LWCHOOSE A CONSONANTW l C]U]UIA}L/X]UIEL/X]UIIL/X]UIOL/X]UIULW8]UA1$ T LcXCHOOSE A CONSONANTXP l C^U^UIALX^UIEL}X^UIILX^UIOLX^UIULDX8^UA1$ T LXCHOOSE A CONSONANTX l C_U_UIALY_UIELY_UIIL}Y_UIOLY_UIULX8_UA1$ T LGYCHOOSE A CONSONANTY4 l C`U`UIALY`UIELY`UIILY`UIOLY}`UIUL(Y8`UA1$ T LYCHOOSE A CONSONANTY l CaUaUIALYaUIELYaUIILYaUIOLYaUIULY8}aUA1$ T L+Z CHOOSE A VOWEL Z l CbUbUIAbUIEbUIIbUIO bUIUL Z8bUA1$ T } LZ Z~ l]U A^U A_U A`U AaU AbU A LZ-SOLVE THE PUZZLE-Z lU3 -U3}$ X)L4[0U m%*(m%iЅȱi :-L9[ Τ 6?2UȌ1U 1UN2UL_[1U2ULE[` QLk[*}*j[*i[*76 yL[K:[ Dc[c[ `[a[ y gI$LT\L[ D:WHEEL.FNT}[ߩ De[d[d[e[LF\`[md[a[me[HH hhd[e[L\ y$ w P / O$%e[d[d}[e[L\d[ m%e[*(m%d[%d[e[Lh\%%%%L]%% 48%%$i ޠ$%$e[}d[d[e[L&]d[ m%e[*(m%d[e[L\ GЩ gIL<]L] 6?$% m%*(m%$% m%*(m%}qȱq L] player ] $%i L] !!! ]  :-%%L\ SЩ gIL]L]}g[f[e[d[d[e[LU^d[ m%e[*(m%f[Ѯg[LJ^d[$%d[ m%e[*(m%g[f[d[Пe[L]$% cU S} gILq^L^^LZ\``h[CIRCLE OF RICHNESS V1.1 REV OCT 89COPY AND DISTRIBUTE AS DESIREDFOR 1-4 PLAYERS (ON XL }/XE PLAYER 3USES JOYSTICK 1,PLAYER 4 USEJOYSTICK 2.PUZZLE FILE FORMAT D:WHEEL.DBS 1)FIRST ENTER TYPE AS INVER }SE CHARACTER TYPES ARE: =PERSON =PERSONS =PHRASE =TITLE =PLACE =THING =EVENT =OCCUPATION =QUOTATION =THIN }GS2)FOLLOW ABOVE WITH THE PUZZLE. USE / CHARACTER TO GO TO NEXT LINE (LIMIT EACH LINE TO ABOUT 18 CHARAC }TERS)3)NOTE:EVERY SPACE MUST BE PRESENT WHEN / IS USED TO FORCE A LINE BREAK EG. /SALT/AND/PEPPER WOULD BE SEEN } AS SALTANDPEPPER BY THE PROGRAM. ENTER /SALT /AND /PEPPER SO THE PROGRAM WILL SEE IT AS SALT AND PEPPER. }4)MAKE SURE NOT TO ADD ANY SPACES ON A LINE.5)THE LAST LINE IS NOT USED ON THE PUZZLE GRID, SO THERE IS A 5 LINE LIMI }T.6)DON'T MAKE PUZZLE SO LONG THAT THE ANSWER WILL EXCEED 35 OR SO CHARS OR THE ANSWER WILL NOT BE ABLE TO BE ENTERE }D7)THERE IS A LIMIT OF 1000 PUZZLES PER FILE, ONE FILE PER DISK. OTHER FILES MAY BE STORED ON OTHER DISKSITS UP TO } YOU TO FIGURE OUT HOW TO PLAY (IT IS COMPLETELY MENU DRIVENEXCEPT FINAL ANSWER ENTRY)THERE IS 4 ROUNDS AND A BONUS ROU }NDFOR THE PERSON WHO HAS WON THE MOSTMONEYNOTES:-ANSWERS ENTERED MUST MATCH EXACTLY.-THERE IS A TIME LIMIT WHEN ENTERIN }G AND ANSWER (ITS MORE THAN GENEROUS)-BE CAREFUL WHEN ADDING PUZZLES, LEAVING OUT A SPACE MAY CAUSE AN UNSOLVABLE PU }ZZLE-THERE IS NO WAY TO ADD OTHER TYPES OTHER THAN THOSE PROVIDED -IT IS WRITTEN IN ACTION WITH A CUSTOM RUNTIME MODULE. } IF YOU BOOT UP WITH ACTION, IT MAY RUN SLIGHLY FASTER\END\DOC REV 1.0 M//ANCHORAGE ALASKA//HARRY ANDERSON//RICHARD SIMMONS //BILL MURRAY//RONALD REAGAN//DAVID LETTERMAN/THE LITTLE ENG}INE //THAT COULD/TO BE OR NOT TO BE/A WATCHED POT //NEVER BOILS/COTTAGE CHEESE/SMOKED SAUSAGE/ANIMAL HOUSE//DISH }WASHER//THE BRADY BUNCH//DONNY OSMOND//WE ARE THE WORLD//WHEEL OF FORTUNE/JACK AND /THE BEAN STALK/WILLY WONKA'S }/CHOCOLATE FACTORY//MOUNTAIN DEW//WALT DISNEY WORLD//COLUMBUS OHIO//BUTTERED POPCORN//THE MAN WITH //TWO BRAINS//}BAKED BEANS//INSURANCE SALESMAN//CAR DEALER//STOCK BROKER//TELEVISION //PERSONALITY//MALTED MILKSHAKE//ROOT BEER }FLOAT//THE LOVE BOAT//THE STAR SPANGLED //BANNER//A CHEESEBURGER //AND FRIES//MASHED POTATOES //AND GRAVY//ANN LAND}ERS//VICTORIA PRINCIPAL//SHAVE AND A HAIRCUT//PETE ROSE//CEILING FAN//SECRETARY /OF /STATE//THE COSBY SHOW/THE }SPEAKER /OF /THE HOUSE//TRICK OR TREAT//STOP THE PRESSES//DON'T WORRY //BE HAPPY//LOTTERY TICKET//HOT FUDGE SUNDAE}//ON PINS AND //NEEDLES//PHOENIX ARIZONA//CHEECH AND CHONG//FLIGHT ATTENDANT/TWO FOR THE /PRICE OF ONE/SPEAK OF //}THE DEVIL/TIP OF /THE ICEBURG//GONE WITH //THE WIND//WHEN IT RAINS //IT POURS//THE SUPER BOWL//THE WORLD SERIES//}DAN RATHER//IRON MIKE TYSON//COUNTY FAIR//GRAND PRIZEA PENNY SAVED //IS A PENNY //EARNED//GREYHOUND BUS//RETURN O}F //THE JEDI//JOHNNY CARSON//COCA-COLA /CLASSIC//DENIST'S /OFFICE//POLICE OFFICER//DOCTOR'S OFFICE//TELEPHONE BOO}K//MARY'S LITTLE LAMB/MACORONI /AND /CHEESE//UNCLE BUCK//THE NEVER ENDING //STORY//HANDS ACROSS //AMERICA//KOOL-A}ID MAN//BILL COSBY//DENNIS MILLER//BACK /TO THE/ FUTURE//JELLO PUDDING//CABLE TELEVISION//WHO'S THE BOSS/VIDEO }/CASSETTE /RECORDER>ΰ>>>>>>γ}>>>>>>>}>>>>>>>>ο>>>>>}222222>γ>>}ΰ>>γ2>ΰ>>>>}>>>>>>>>>>γ>γ>>>2222}>>>>>>>>>}>>>>"""""""VVVVVVVVVVVVVV}UUUUUUUU( ;;| CIRCLE OF RICHNESS V1.1 |;;BYTE ARRAY Q=}"ź"CARD TIMELIMIT="1800"BYTE LMARGIN=82,RMARGIN=83,CUR,FLAG, FIRST=[0],PLAYERS=[0],DINGFLAGBYTE ARRAY COLORS=708,}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=5 }3272, 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 #")PRINT }B(NUM)PRINTE("----")PRINTE("INSERT MAIN PROGRAM DISK")PRINTE(" PRESS KEY TO RESTART!!")Q=GETD(7)MAIN2()PROC DING( })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 5 DO OD SOUND(0,21,10,150-J/10) SOUND(1,34,10,150-J/10) FOR K=0 TO 5 DO OD OD SOUND(0,0,0,0) SOUND(1,}0,0,0) FOR K=0 TO 1000 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 AN}D MAP(I)<>'' AND MAP(I)<>'- THEN IF LETTERS(MAP(I)-65)=0 THEN RETURN FI FIODDING()DINGFLA}G=1RETURNPROC EFFECT()CARD ISOUND(0,100,10,10)FOR I=1 TO 9999 DO ODSOUND(0,80,10,10)FOR I=1 TO 9999 DO ODSOUND(0,100},10,10)FOR I=1 TO 9999 DO ODSOUND(0,60,10,10)FOR I=1 TO 9999 DO ODSOUND(0,0,0,0)RETURNPROC DLI=*()[PHA]WAITSYNC=2CH}BASE=224 [169 0 141 COLOR710][169 12 141 COLOR709][PLA RTI]PROC GETSTRING(BYTE X,Y,BYTE ARRAY A)BYTE Q,Z POKEC(19,0)} POKE(764,255) A(0)=0 POSITION(X,Y+1) PUT(' )DOWHILE PEEK(764)=255 DO IF PEEK(53279)=3 THEN RETURN FI IF PEEK(1}9)*256+PEEK(20)>TIMELIMIT 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,LY=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(" 0} ")FIIF STRING(1)=' THEN PRINT(" ")FIIF STRING(1)=' THEN PRINT(" 1} ")FIIF STRING(1)=' THEN PRINT(" ")FIIF STRING(1)=' THEN PRINT(" ")FI2}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>3}38 THEN X=0 Y==+2 FIODRETURNPROC SCREEN()BYTE ARRAY FONT,DLBYTE TOPCARD ITOP=160TOP==-16GRAPHICS(0)POKE(82,0)POKE4}(752,1) POSITION(2,19)PUTE()PRINTE(" ")PRINTE(" |$ 0||$ 0||$ 0||$ 0|")PRINTE5}(" ")PRINT (" ROUND#")PRINTB(ROUND)DL=DLPDL(3)=64+4FOR I=6 TO 16 DO DL(I)=4ODDL(6}16)==%128DL(28)=6POKEC(512,DLI)POKE(54286,192)LMARGIN=0RMARGIN=39POKE(756,TOP)POKE(710,12)POKE(709,196)POKE(712,0)P7}OKE(708,22)FOR I=1 TO 65500 DO ODRETURNPROC DRAW()BYTE X,YFOR X=0 TO 38 STEP 2 DO FOR Y=0 TO 10 STEP 2 DO PLOTCHA8}R(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)=9}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 O:}D SOUND(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 99 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 FIO<}DRETURN(COUNT)PROC CLEAR()BYTE IPOSITION(2,13)FOR I=1 TO 5 DOPRINTE(" ")ODRETURN=}BYTE FUNC GETLETTER()BYTE X,Y,Z,ST,ZZCARD IPOSITION(2,13)PRINT(" ")FOR I=0 TO 26 DO IF LETTERS(I)=0 THEN P>}UT(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 THEN 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 5000A} DO OD POKE(53279,0) FI UNTIL STRIG(UP&1)=0 OD ZZ=Z&127UNTIL ZZ<>32 ODCLEAR()RETURN(ZZ)BYTE FUNC GETCHOIB}CE()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 SYSBSAUTORUN SYSBWHEEL TXTBWHEEL DBSB WHEEL FNTBzWHEEL ACTB{WHEEL2 ACTNG()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"