@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 uLD:RSLOGO.ZS JKBDE V BHIDE V B V`/T}01'𩱅 i(ieei ݲ "/)LD:BALU}L.OBJOBJ JKBݝDE V BHID@E V B Vd ҅ )i-V} ґۭ/LPpppBAW}@X}?????????~Y}??????~??Z}????`|?[}?\}]} ??ccaqyymmg^}gllll >c`~?c?p````plool ``caǃ_}>?̌ SDHere it is! 'rubberball.arc' contains a demo version of the commercial game 'RUBBERBALL'. It is written in the programming la a}nguage Quick. I've uploaded the game to show you some features of that language. The file 'rubberball.arc' is arced. Please b} use SUPUNARC to restore it. Then you can go on. Store all files i.e. RUBBERBA.COM BALL.OBJ BALL.ZS BALL.SPL LEV.1 on a c}single disk. Make sure BASIC is disabled and/or all cartridges are removed. Then use the DOS-command L to run the file RUBBE d}RBA.COM Leave the disk in your drive while playing it because it'll access the disk from time to time to load stuff. Object e} of the game. A small rubber ball is trapped inside an air conditioning system. Use the joystick in port 1 to controll the b f}all. You can control the horizontal movement of the rubber ball while it moves up and down just controlled by gravity and slo g}wed down by friction. Inside the maze you'll find some strange objects which will have some effect on the ball. First of all h} there are some air pumps to be collected simply by making the ball touch them. Be aware of nails. They'll puncture the ball. i} In that case you'll loose one life of the small rubber ball. On the way through the air conditioning system your rubber fell j}ow will have the opportunity to encounter pieces of chewing gum which will immediately slow it down. Sometimes it is usefull, k} most of the time it isn't. In some parts of the system there's an air current. It'll move the ball in it's direction. Watch l}for it. Especially as a beginner you'll find yourself in a situation with no escape. In order to start over press the trigg m}er. But everything has it's price: you'll loose one life. You'll move on to another screen when all air pumps have been colle n}cted. As mentioned at the beginning this is only a demo version of the game 'Rubberball'. The commercial counterpart has mor o}e levels to play and has a storable high score ranking list. Have fun Marek Tomczyk uj1g@ibm3090.rz.uni-karlsruhe.de xAvhLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxAq}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` Ar} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BIIs}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PDt}EHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C u} C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`v}L)D ` ```߰`` %`))Ţ𲥢0``))w}ŢLD0```) eeFf&LD D {D JE `x} D C JE ``00!`IIiiLEIIii``E`IIy}ii`UVT E`UVT E`HH`HH"`ʼnLSFňz}LSF`mm mm 88888 ͭ`{}iiii8 ͭ```hhȱȱȄLF |}GȩLF GLFeiHH`HH`hh> BoHB(HIoDHE V #LF }}GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅ~}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`} d'hhiiȱȱȱ m}m iiHH E````}`)II") JI ƲLIɟ沭II)@II)JI ƳLIɿ泭II}`#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMM}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMM}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`F}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeX}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MM}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMM}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)}`ԍԍ`"ԩ@ԩ` IF TOT<>1 TOT=1 L3=15 Z3=0 Z4=0 ENDIF ELSE } IF GST=120 .SCA(1) L1=12 Z1=0 T1=250 PUMP+-4 POKE(LPOS,0) ADD(LPOS,1,LPOS) } POKE(LPOS,0) ELSE IF GST=121 .SCA(1) L1=12 Z1=0 T1=200 PUMP+-3 } POKE(LPOS,0) SUB(LPOS,1,LPOS) POKE(LPOS,0) ELSE vhjx}/A A (D:BALL.ZS JKB DE V} BHIDE V B V䩠LP Rd c U/}Z tX[>/ c cPZQ}Q \hQQԌԩ A LQ,m ҍiILR}ҩP 'dXcHRIR \ cd 'dLzR SLPΏZRR \L}/Q b b b b͈LRȍ 'd SLQ͌LQ}XcSS \ ciح b bd 'dLlS)LSLS}LS`XcSS \ -A' '!-% /6%2 2 'dLTi(̰<LS(}'̰d 'd<LCT <L(T(<̰ȍ 'd('̰}d 'dshTT \ԅ@`iSiTQi0QNQNQQiQSmQSTiTST}R` -A"pppd`B̰A -A 0 0 0 0 -A!"#$%& A0123456789 -A(%(8HXhx}(8HXhx(8HX -AM%&6FVfv&6FVfv&6FV -Ar%,~~`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 SYSB SAUTORUN SYSB`RUBBERBATXTBQpBALL OBJBPBALL SPLB BALL ZS B'LEV 1 NG()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"