2IMGCdrP@@08L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RCROWNANCHOR.1.1v v ' ,CROWN.SYSTEM.Y!@!+RUNTIME.OBJ533!ZZZCROWN.OBJP2v CROWN.OBJQ2v #v FINDER.ROOTh v pv FINDER.DATAi{v pv   !"#$%&'()*+,-./01234L 2@ ~+~+@yk@3F@ B9 I _58989y @?E*2آX _ʚd(ebcdbecc )/ !)/md!eqdddʈ ! ! ! XQ) é_"XL! `TQH" h " hh A8" , e RUNTIME.OBJӡӠɠҠŠԠӠӠ٠٠ϠΠϠӮݠݠݠݠ͠ڠ̠ݻݻݻݠݠݠŠ鰪鰀頍ݠݠݠݠӠ栠ݠݠݠݠݠ堪骪êݠݠݠ݀݀Р㠠𠠣ݠݠݠݠݠݠ几͠ᠠݠݠ݀݀݀݀݀ÀݠݠݠݠⱠ堠堠頠àÀÀ蠠ݠݠݻƑԠƸ蠠ݠݠݠݠݻݻ저저Π堠ݠݠݠݠʠࠠԠҠݠݠݠݠݠݠ崀崹嵱頀LL3 L? L L L L L L L L L L L# L L L L L L L L L L L L, L L L1 L LF L^ L L+ L. L1 L3 L<LrLLL-L]LL L LL LLLLLLL9LLLLsL׳Lqdddʈ 3 8a 3  3 l`  Le9 `S 8`i `'(+.@BDEFGHIJLNPQRWZ      1 8` 1 db l c6 H) 0~ hJJJJ 0} s dȑdd`+ . : D S a o   4 L c g NoEnd of FileDisk FullFile Not FoundFile Not OpenBad File NameBad File NumberWrite OnlyRead OnlyPositionNo Device ConnectedDisk SwitchedDuplicate FilenameIncompatible File FormatAccessFile Already OpenDirectory Structure DamagedNot a ProDOS VolumeDuplicate Volume OnlineFile Structure DamagedI/ODisk Error in File #00 de`b,d i hiphiqpdpqpe<`,b,d i hphqbHcH`,b,d i hphqhehdqHpH`de`de`bc`ded`bcb``a``de`bHdbhdcHeche`db  `a # LH db   `a # L` `'d `a`debdeece` 1 d8bdece`de`deeae`d8`deae`d&e`d&eeHdHd&ed&eheddheee` 1 ecdb`ead```Hd`hdeHaeha`d 3  L `,,H L dɍ1ɈƚL| ɏɎ)h)?,2`Ś 1 暥JhL)`0) _)ߪL h) 斥 jL3 !ɍ L Ř 1 hLhLꍥ!ŝ 8埅` ` . ` < Lr ` `` Or `H67h76`d) ݥ67`ȱf 80` J&d&eL  ddL (    ddL H  H heddeeffgh`edIideIie` + 0af  ] L ae -, fȢ`w bw c  `Lo`a 0f0a0a ȩf`d `8`Iid`dHd h8d0 dd + d`0#NOO)?淚E 3 . L,H + . h`a <ɠɍNɈ0ɘeɃAa L)Ȅ ɕ 3 a©L \L` . + . aƎ`` 1  a(` \ed0,,d`dfegL 1 I@`+Ʃǩ oݽ W ٤ e8e{z  ަ `L@da  d 3 a`LaLaLaLaLaLLLLL`   hghf  L¡? 1 L   ` Ϣ Ld`y`P`   yP`dʆ`d < .Lrd`B `d&e` 1 bL 00:00:0000/00/00 3 ) =)? HJJJJ 0dh) 0d` 3 JjJJJJ =) =Jо vdwezb{cb   , `΍ύ~`vdwezb{c > Lldd  d  d$& L)  ڨd +- ȱd0.@EBD>e:d60t:pHSh R h)RRȱdL<ȱd-N+0: & & & &ȱdL I8imSSSSIS `LR` Q`T SLU):T SSİˢ)SS$TTıTS0@ST`Se S`SiSL,H     h4 i+'`hbhcbiaciHaHbdȱbe`عTdS) Rd(` i(`HJJJJhL'h)i (`  , eH Haw bw c  aaH h0 T SL_h SSISL,T`~T``RIR`ąbŅcdedb  L" ",,`a  bd `a, b LbĥcŘd`) l ) %de  1 $%de  j$$!  `b$20Id eie` HH` ifR$%%#`$ !$%%$`% "de  1 "aa#"`ade   eiecic a`Ԣ cic ` #8dae  1 #"`aade   eiecic `0!b`!db`  edd`dH)dJJddhe &e &e fde) e`?,`$$!Lɀɾ޵ɽՀΆն߀ժժժժժժժ>>< (&20 *, **> > "2*&" " >"  ">> "8""> """"""< >> " "*:"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">"""""""""""""""*6"""""""> >>> >00000>" <"<"""<< <"""<"><""< """"   $ $ 6***""""""""""<""< :< """2,"""""**6"""""< >>8  80,U*U*U*UCOMPILECROWN21v!8' M% ',CROWN.SYSTEM</Z@&CROWN.OBJ%2&.CROWN17.SYSTEM%/ [@&'CROWN17%*&'CROWN20 &*/&'CROWN18||||||||||||||||||||||||||||||||||||||||);(BET * HITS)N21!&*#(&crown21.systemBASIC.64K/500 RESETHALLP500(#crown21EMP.ZBSBASIC.64K/CROWN.ANCHOR64/0/RAM/INIT.64.OBJJJC.64K/= E 1.1.20 []   []09   09  09  09  09   ...C R O W N & A N C H O RCopyright 1989 by Dave Touvell CROWN.OBJWould you like instructions? NNY$Crown & Anchor is a simple dice game that was popular with members of$the British Navy and fishing fleets.#To play, just place a bet on one of"the numbers from one to six. Three dice are then rolled. If one die!matches your number, you win even!money. If two dice match, you win#double your bet. Three matches pays3 to 1. The most you can bet at once is $15,000 (if you have that much).!If you can accumulate $30,000 you#'Break the Bank', and win the game.$Press the 'Escape' key at any promptto end the game.Press a key to play... You have $ to play with.How much do you want to bet? $ You don't have that much to bet!The maximum bet is $15000.Bet $ on which number? &You must pick a number between 1 and 6Sorry, you lose $.One match. You win $ !Two matches. You win $ !Three matches. You win $ !You're out of money!Better luck next time.Do you want to try again? YNCONGRATULATIONS!...You broke the bank!Press a key...#Are you sure you want to quit now? NYC R O W N & A N C H O R HALL OF FAME $##,###Enter your initials:  $##,### CROWN.OBJPress a key...= d@e Qde HLREde aȅde `LEdepqdpȥepLE de`a PE 4 adedHȱdehd  LsE`L F S Q˅de HɅdedHȱdehd éɅpqdpȥep˅de ad@e A BE˅de Q`LGbc rde Qwde Hwde ad@e  B}Fd@e Qwde Hd@e  wde  d@e  de W Q  de W Q  Ewde Hwde 8 de W :  BGde Qwde Hwde 8de W :  B?GLrde W Q  d@e  wde  d@e  de W Q  de W Q  wde Q`LPbc rd@e QNde Hd@e Q%de Hd@e Qde Hd@e QӅde H d@e Qde Hde Q!d@e Qwde Hwde ade ͩwde H de ade 'd@e  wde  )d@e  de W Q  de W Q  de W Q  de W Q  de W Q  de W Q  Ede Hde 8 de W :  BgIL 8de a-d@e  : T BI 9EL/I/d@e  de W Q  de W Q  de W Q  de W Q  de W Q  de  de QNde H Ede Hde 8 de W :  BJLOde 8de W :  BJLrde 8de W :  BbK5d@e  de W Q  de W Q  7d@e  de W Q  9d@e QNde HL/Ide a:d@e > 8de ad@e  de W Q  de W Q  @d@e  de W Q  Bd@e Q%de HLlJde aCd@e > 8de aEd@e  : T B M 9ELKde  de Qde H Ede Hde 8 de W :  BhMLOde 8de W :  BMLrde 8de W :  B&NGd@e  de W Q  de W Q  Id@e  de W Q  Kd@e Qde HLKde aLd@e > 8de aNd@e  : T BnN 9EL0Mde  de QӅde H Ede Hde 8 de W :  BNLOde 8de W :  BNLrde 8de W :  BOPd@e  de W Q  de W Q  Rd@e  de W Q  Td@e QӅde HL0Mde aUd@e > 8de aWd@e  : T BO 9ELNde  de Qde HNde Q%de Qde QӅde Qde Qwde Hwde QYd@e Qwde Hwde ade ͩwde H de ade _d@e  wde  ad@e  wde Q`LpQdepqdpȥepLQ de`a PoQdedHȱdehd(bc5`a ? 8cd@e Q I HdedHȱdehd  a 4 LP`de  (de W Q  de ade gd@e  de ade d@e   de 8d@e Q`a : ydepqdpȥepLHR de`a PRde  dedHȱdehd(bc5`a ? ade dedHȱdehd    bL2Rde ɅdedHȱdehd v  6  ] UE 4 ade  ̩de}pqdpȥepde ade d@e  ȅd@e Qde Hde #F˅de H˅de ˅de H˅de 8de W :  BS PLR˅de aʅd@e  8˅de 8 de W :  : T BTLW˅de 8de W :  B.TLr˅de 8de W :  B{Tde ade de  LR˅de a̅d@e A BTLR 4  өde ade ΅d@e  de ade d@e  de ade dAe  de ade 9dAe  de ade ]dAe  de ade dAe  de ade dAe  de a de ÅdAe  de a de dAe  de a de  dBe  de a de dBe  de ade 2dBe  de ade SdBe  de ade udBe  de ade dBe  de ade dBe   de ade υdBe   E˅de Hde  UE˅de 8de W :  BWLr UE 4 ade  ̩}dedHȱdehd a 4  BWLn}dedHȱdehd a/due  B XLq X ~X Z ] _gLW de ade  ̩dBe  }dedHȱdehd  ] QdBe Q  `de ade  ̩dCe  Tde Qde Hde GTde HTde Pde JPde      YL>ZPde  6NpqdpȥepNdedHȱdehd a 4  BbYLrNdedHȱdehd a}dedHȱdehd  BY 4 ade  ̩de ade dCe   9E@dCe QTde HL~XLZ 4 ade  ̩NdedHȱdehd ad:e  BZ 4 ade  ̩de ade AdCe   9E\dCe QTde HL~XLZ 4 ade  `de a de  ̩]dCe QNdedHȱdehd  ] QcdCe Q%de H%de  #dedHȱdehd ade  8#dedHȱdehd ade  : T B[vdCe Qde Hde Qde Hde #Fde Hde 8de W :  B \/due}pqdpȥepLWde 8 de W :  BJ\de Qde Hde  6#pqdpȥep#dedHȱdehd ade  8#dedHȱdehd ade  : T B\ 9Ede ade wdCe  LZL] 4 ade  `dedȑdL<]de`a Pr]dedHȱdehd  8de l : L&] z] `de 6depqdpȥepL]de a6de`a ^dedHȱdehd8bc 1 ade dedHȱdehd abde L]dedȑdLH^de`a PN^ O^L2^`dde 8dedHȱdehd a6de ^ : 1pqdpȥepdepqdpȥep 4 dedHȱdehd   ade  BM_dedHȱdehdibc 1 8dedHȱdehdibc 1 ade ; tdedHȱdehd   ade  B6`dedHȱdehdbc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehd-bc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehd   ade  ByadedHȱdehdbc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehdibc 1 8dedHȱdehdibc 1 ade ; tdedHȱdehd-bc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehd   ade  BcdedHȱdehd-bc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehd-bc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehd   ade  B ededHȱdehd-bc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehdibc 1 8dedHȱdehdibc 1 ade ; tdedHȱdehd-bc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehd   ade  B^gdedHȱdehd-bc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehd-bc 1 ade ; tdedHȱdehd-bc 1 8dedHȱdehdibc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehdibc 1 ade ; tdedHȱdehd-bc 1 8dedHȱdehdbc 1 ade ; tdedHȱdehdbc 1 8dedHȱdehdbc 1 ade ; t`dedȑddedȑdLgde`a P idedHȱdehd   a#dedHȱdehd  B idedHȱdehd épqdpȥepde dedȑdL;hde`a P iIde adedHȱdehd 1 86de adedHȱdehd ^ : 1 awde Mde adedHȱdehd 1 86de adedHȱdehd ^ : 1 a{de L%hLgdedHȱdehd a 4  BidCe QNdedHȱdehd  ] QdCe QDžde Hde ade dedHȱdehd ade  BjdCe QNdedHȱdehd  ] QDždCe QDžde HdedHȱdehd ade  BjʅdCe Qde aNdedHȱdehd ^  ] QdCe QDžde HdedHȱdehd ade  BkdCe Qde aNdedHȱdehd ^  ] QdCe QDžde HdedHȱdehd a 4  BkdeŅpqdpȥepLikdedHȱdehdŅ`a Pkxde ade LFk}dedHȱdehd de JdedHȱdehd a 4  Blde  NdedHȱdehd   de JLjlde  NdedHȱdehd adedHȱdehd ^   de Jde   0   ¢l 0de Jde  6}pqdpȥep 4 ade  ̩de 8Džde / ade $ : 2 ade Džde   E˅de H˅de 8de W :  BemLr im` 4 dedȑdLmde`a PndedȑdLmde`a PnIde adedHȱdehd 1 86de adedHȱdehd ^ : 1 awde Mde adedHȱdehd 1 86de adedHȱdehd ^ : 1 a{de LmLm`depqdpȥep`de adedHȱdehd de adedHȱdehd de adedHȱdehd de adedHȱdehd Xde adedHȱdehd Bde adedHȱdehd ,de 8dedHȱdehd ade ^ : !de 8dedHȱdehd ade ^ : de 8dedHȱdehd ade ^ :  de ade dDe   de ade dDe  de ade ,dDe  GdDe Qde Hde #F˅de H˅de ˅de H˅de aIdDe A BqLR rdepqdpȥep`de adedHȱdehd de adedHȱdehd de adedHȱdehd  de adedHȱdehd de adedHȱdehd @de adedHȱdehd d e adedHȱdehd xde adedHȱdehd  de ade KdDe   de ade _dDe   de ade sdDe   E˅de H s r UEde ade dDe  dDe Qde Hde #F˅de H˅de ˅de H˅de adDe A B{sLWLs}dedHȱdehd a0due  Bs s (  (de ade dDe  de ade ądDe  depqdpȥepL9t de`a Pt de 8de adedHȱdehd 1 : dedHȱdehd(bc5`a ?  хdDe  օdDe 8dedHȱdehd    I  L#t}dedHȱdehd 8 de   :  B_yde ade de ޅdDe  de de W Q  depqdpȥepLude ade`a 'v}dedHȱdehd 8dedHȱdehd   :  B$vdedHȱdehdpqdpȥepLu depqdpȥepLxvdedHȱdehd  ade`a +wdedHȱdehd(bc5`a ? 8dedHȱdehd C(bc5`a ? Q I HdedHȱdehd  8dedHȱdehd C   : LEvdedHȱdehd(bc5`a ? 8de Q I HdedHȱdehd  a}dedHȱdehd depqdpȥepLw de`a Px de 8de adedHȱdehd 1 : dedHȱdehd(bc5`a ?  dDe  dDe 8dedHȱdehd    I  Lwde 8dEe Q`a : zdepqdpȥepLx de`a PSyde  dedHȱdehd(bc5`a ? ade }dedHȱdehd  |  bLxde  4 ade  ̩ de ade  dEe   E˅de H``6789:;<=>?@ABCDEFGHIJKLMNOLƩL `xyL EDITOR.OBJe 3 de`d) `򭖌xyxhhyHxHlH   )_CShLhLont. or top? de`d0 6Å7`67`)L< LQd67`LQ d GLQ `d)`)dJj `d))`bc JH)h ` 2Kn,X`  %K ` d Íde`HIi h`h Í) Ƀ8``H Í) Ƀh8`h`H0 chbc`H , h ꍰ  Lh``d ꍰ``` ҍd`` Í)d  d`  3 bLQ  F ? `a ө ʩÍ  G ?  3 @L{b *LG `ab I8i`d *LG+H)h) 3 3  3 LQb 4 3  bc , b}bc}c  Lbe`bceacbc8 3  3 LQ 1 d  bbLg`bH ih`h8`d$ L L3 ,,`aL+ `de`aL3 1 bd  ,,,`aL= `de`a 3 `a`d  `a L^@ūůŲL[vw`a @  j @x@y` ShhLQѨd 4O 3 bc`edad&e&`&a8`bac`b`acad`,H eh  `,H  h8`  hL hh`  L¡a  8`)a ,a ` #)"% ), ȑdꈘd` )"ȑd b  ), `b ) ȑd ! 3 `de 3 LQaL3 4)3` 4)@%`䲰` * H)h`,,,,8`.* j`hbhcbiaciHaHbdȱbe`H hdTRdRd)@d)S`d SUS` 2` j hdhedQdiaeiHaH`RR`ȹR` 1 `i`dȱ`i`IecIebdLdq``dȥeq``e( 1 L LҔ  V &LՔ V Y H H hhehd  Yh ?L AL`حS0L)JȰT)TUı`8 R ( 1 ؠbd1d 1 bd` {  L+ ؠU U StR0 ,- USI0l M S ` M`Tbb)bUHJJJJ 0 Ub` Mh) 0 Ub ` Mh`K0 S` PSI-,+ UI8i HJJJJ 0 Uh) 0 Uй.,E,0d`d` { V ,  Ly`(PUJH) ah)eaUhL LT}TT` ` miS `a^-HHaHT}ʈa }ʰhahha`L L VLVUL 8i~S膂膃ؠT7䃰L|T8TbʽT8TbyLzT0*芄>TI ƂАLzTıLhhLU #RMRS``  Rرb Nı`` R  b }b`` j  VIL ``ULVحS8P H Vhb8bŮ`JH h3b8bRM;T}T TiTLU  VLޘİT8T`T8T`L { V { ` G ȟL) G ՟L) G L) G L) # SV)mJU``U) LU)JJJJ 0Da eHd eddheeeaL(L dmem`hh (`deR (`fRSI8jH?*SUhL Y / 5 5 Y D `f  whIS`R` jhbiahciHaHbdȱbedRLgȩ` A-L A%L AL AL A L AL 2`R`U RH &hR`RHR /@ A V j pLk 2% A & D j p ʞ Lk ~ p ʞ hR`lL@ j & 5 / ` DLj 5 ` 5 V `LD ʞ RR ʞ V A D 5  ` V ʞ Ԗ ʞ V A I ʞ V A ʞ U`R jlmjZ Y y V j Ԗ)R  ēy ԖZJ y jZ)lejlde )Llejldmime  AZJ y Y 5 Y ` wЌ` V 5 V j { e) dneo ) ` 5 & Y V y ēYno!Fofn y Ԗ Y ēy j ԖL j & D `` VL&U 5 ✭ V Y Y . V ēY 5 V Ý і Lі ڜSɿUə` 5 V ULі j & AL VRULSHSnomSUq n0 {l @ n 5nde ) Ԗ 5h8d,e ) ԖL  Y ymljZ e / jLԖ'((EE#S`(tq5&bIwW$piYTIf#XP@Eh@ThCd vbr`3pyc&yHa12cQD XFhuRi1GYS Ar2XehUC`%RT` Br`!' 4 BP``p V2@!b#R%P'Vd&e >L 1 bFefd`eEcH KLeEcH hL`  1 LcH  1 hLeed`d`de`d%bde%ce`dbdece`bcdEbdeEce`d0deb*a*d` dL  dbce L ld9    xx  de`H h   &d`L88de`Hč@hLĢȅee0 d de `hhL de `de + 1  , `©@` 1 d`ea c)cbb&cb&c&d&e  bL1 c 1 ddJH b&ch` 䤥d) (L ` K L dbb,,   dbdb`dȱded` + ˡeȑb`db` + db`bȑb`  {L¡ +   ȱdb`,a + L&  1 aL dbȱdc 1 aH )ha L)``bd8bi``bedde``d``d1bb`b#biddbe``a`bacdLԢ`d  H 1 h#`mȘH 1 hd``bdd8debbc dLԢbdd dLԢ  dfeg0a 1 f ] `b-ad'`ȱbda``a`aa` (`bdL~d ȹd`d  dde` (L$     d` 1 bȱbdȱbe` d  L듥``b8`Fi8d?aa`3d`d`Hb`h3de`h`3aL   d  d`d`aea`da{)ߝa` 1 QL Q 1 Q Q 1  L1 NdOeL jjH  hIEeededꤥd礥e`f  H   L+ 1 …dÅe…`ȱ`ie…ä``0`,`  X)Hb*a*dhdd` bdd` dFcfb*d` dc bHJJJJ ɥh) 0:iȑd` dFcfbjJJJJJ 0d` 1 d bamda` cdbdd` , L ,  ( L 1 c` 1 ccIceIcdb (` Qǧdȧei 1 ڧdHۧeH h ΰ 馥cb ed yrss h yrsih`r r ʧ ` QHI ʧa`h` d`ea `aqde 1 1   `fag f`ga   # `aЙiALLަ ݧH h ` H h `iI)AIi`di@ddI ৅deL %+28>DJPV\bgmsx~ 1 `bac bǧcȧdڧeۧ dbec  hh de  1 dѧeҧbcL bIdI` J9 I,(H)Hd JFbUb()deTh)h(`de`)H IhLh  Tde`edb qd`FbU ,T٧d`  d=;)H d=;)chci(i` W ` IJ) L:L!db qŊٍ5d %db %bd %db %bbH`` %bLbb,hbd d % b %bL` b %``d0 b( q``d~e  Ŋ؍~ ~ ī ~ ~ ī ` h}h| ~  L}` ```L a `aa ( 3 `i`Lժ ` LL abc?  a 3 0( L  L(J IdŁ`}`ccbœbŒ}œ|Œ|}|}|`~deL G `bibc`b8bc`b8bc`bibc` ʅb˅c 1 ӭ `fag   fgffg`h,idsbr` Ŋd db bd db bbH`` bH ,hbbLVhbd b bLO` b ``d0 bP ``bJdU qT` K`|)b |b}cc}|8b|}c}|} cH hc |}Iȥ|b}c bcbJ Idbcb b`~Ŕcœ hh`bŒ`Jd`  ʅdH˅eH  ӭȅbɅc  L ȅdɅe  ȅbɅc  `  ʅb˅c   L1 ~~`|}|`be`|cea}` N ;ߥd~e`~de 9 `e dŔ`` 9cœbŒ奅HH{JJ hhbP{Lz{$dLL[p 1 qpqe Fpdeeeqed&e&qpߥed*LbcIiL $iHi`d [b(JU(T` dʥe˥bȥc`d))d{ 45DETUJEQH( hJ é`  1 X`dTPFdi⯍$de de,d ed(!۠V^RV   FF FF@@ 55Mbssɳ׳׳G9U+GU((PP((P(d)J L`$e0 e `)`*U      1  L1 bȥcɥdʥe I8)JL,9  ;ߘJ IQd%Qdd` dbd T`FbUL)J LXJ U 2T 2Ld"%$LU  ʅd˅e`ʥa ȅdɅe 1 d`ea %hh~ ~HH ȅdɅe`bacL`ȥaɥd"e# 0沩 粩 沩 粩 cebd 1  沩 粥de  dͲeβbcdFejeb`ca c Ͳ`βaL `a  de dͲeβ  # L # IL # I] , ` # &KL # I)d [b(` # Id [bJU(T` c LP ` c Le c |H}H 9  ` c  L c / L c8  L c*  Lɳ L c ~L߳~de` c   L c /  L L c  L c  L+ c  L9 c   LG c /  LU`a`J`J!HJ!U T h!`dId"H [!d(hi#$%{L[ L Lpd)d dId`d)bc bIc~ bdȥcd(~~$%`)JL`%de $d!eie`)JLB#fg%H$H $%%#h$h%` c ad`bc   L`de`bc d`ea 1 de ` 1 ebbcHde f; de d #  `a d~e `a` 8`debcL { ` {LRde dԶeն`a L%bc c 1 de`a thd`ea H(  ^ ~de  d~eL {V  bc chd`ea ~~ H( F   bc` { L% de8` Lbc hbc ch H(L%de cLO8`hd`ea H(&@bdceebbc F  bc  `a F `dbecebbcbc ^ L   bc` 1  (`8`ead` (`b` { L dbbbd `  LdL/ Ȣ T Xڭ`ȹ-+\$^*_. `Ha ah# Y[a0Za)@ ba @a`ЪYL/8Z]R\ZL/-bLٸ R8]P `Zi8Sa!L/Y  yYL (Ya  y y[ 0\+R( R- C^*b C_*b Gb  CL   bc0bcbcb(bcde  (`hixhiyx h 3.4 3.4/ lx󾔒ϑ<x1 ˰ ƣy{b鐈FT[ȟB٤ih\ ˡ @{Y yä oҚ iҔwȢ.d՟⟮+ҡʽ a^t=1 Q^hV|ʤϾ٣1;gRm_beܾ6ґrȸΨvlir!P c %PAWi5Ы2S¡I)b5H`e ʚښYcƔÔE`rեֽ (ԖP?VOÝ["?ђ dd de` db dc` dHxdyehexxyL든xxy` *(hhd8eHH lx  bxȱby`dxey`x`ya >de  L 1 ` 3 -Lܽ 3 #ɓ, ɃLɚݽIݽ,Lܽhh`,ݽ` d` da HH DL Break in Bounds Error in d4`d) 988l ӍL`d`a LF 3Ldexixy`U dH dyhx`tuhhL 3 9  -,hh |lDLT0u 0uDLT0u 0udltDLT , d......DLTDLT:+ ||||||||||||||||||||||||||||||||||||||||+ ||| |||+ ||| C R O W N & A N C H O R |||+ ||| Version 1.1 |||+ ||| Copyright 1989 by Dave Touvell. |||+ ||| All rights reserved. |||+ ||| ||| + ||| Written in ZBASIC version 4.21 ||| + ||| ||| + |||||||||||||||||||||||||||||||||||||||| :  40 DIE(3),NAME$(10),AMT(10)V$ = "1.1.20":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Beep function |||+ ||||||||||||||||||||||||||||||||||||||||: BEEP 500,200 :+ ||||||||||||||||||||||||||||||||||||||||+ ||| Clear screen above dice |||+ ||||||||||||||||||||||||||||||||||||||||: CLRTP L = 4 9 0,L  ! L" #:$+ ||||||||||||||||||||||||||||||||||||||||%+ ||| Get a Key |||&+ ||||||||||||||||||||||||||||||||||||||||':( GETKEY$)*A$ = +SEED = SEED+1, A$ <> ""- = A$.:/+ ||||||||||||||||||||||||||||||||||||||||0+ ||| Get a key with default |||1+ ||||||||||||||||||||||||||||||||||||||||2:3 GET$(X$)4Z$=X$5 Z$="" Z$=" "6 "[";Z$;"]";(8);(8);7Z$ = GETKEY$8 Z$ = (13) Z$ = X$9 Z$ = (27) "Quit": (8);" "; Z$;" ";(8);(8);; = Z$<:=+ ||||||||||||||||||||||||||||||||||||||||>+ ||| Input 5 digits routine |||?+ ||||||||||||||||||||||||||||||||||||||||@:A INP5$(X$)B#Y1$="":Y2$="":Y3$="":Y4$="":Y5$=""CZ$ = X$+" "D Z$ = (Z$,5)E 32,7F, "[";Z$;"]";(8);(8);(8);(8);(8);(8);G"First Digit"HY$= GETKEY$I Y$ = (13) "Default"J Y$ = (27) "Quit"K Y$ < "0" Y$ > "9" L BEEPM "First Digit"NO#" ";(8);(8);(8);(8);(8);P Y$;Q Y1$ = Y$R "Digit 2"SY$ = GETKEY$T Y$ = (13) "NewNum"U Y$ = (27) "Quit"V Y$ = (8)W " ";(8);(8);" ";(8);X Y1$ = ""Y "First Digit"Z[ Y$ < "0" Y$ > "9" \ BEEP ] "Digit 2"^_ Y$;` Y2$ = Y$a "Digit 3"bY$ = GETKEY$c Y$ = (13) "NewNum"d Y$ = (27) "Quit"e Y$ = (8)f " ";(8);(8);" ";(8);g Y2$ = ""h "Digit 2"ij Y$ < "0" Y$ >"9" k BEEP l "Digit 3"mn Y$;o Y3$ = Y$p "Digit 4"qY$ = GETKEY$r Y$ = (13) "NewNum"s Y$ = (27) "Quit"t Y$ = (8)u " ";(8);(8);" ";(8);v Y3$ = ""w "Digit 3"xy Y$ < "0" Y$ > "9"z BEEP{ "Digit 4"|} Y$;~ Y4$ = Y$ "Digit 5"Y$ = GETKEY$ Y$ = (13) "NewNum" Y$ = (27) "Quit" Y$ = (8) " ";(8);(8);" ";(8); Y4$ = "" "Digit 4" Y$ < "0" Y$ > "9"  BEEP "Digit 5" Y$; Y5$ = Y$ "NewNum"!Z$ = Y1$ + Y2$ + Y3$ + Y4$ + Y5$ "Default"Z$ = Z$ + " "Z$ = (Z$,5) 32,7 " ";Z$;" "; = Z$:+ ||||||||||||||||||||||||||||||||||||||||+ ||| Reset high scores |||+ ||||||||||||||||||||||||||||||||||||||||: RESETHALL I = 1 10NAME$(I) = "..." AMT(I) = 0 I :+ ||||||||||||||||||||||||||||||||||||||||+ ||| PROGRAM STARTS HERE |||+ ||||||||||||||||||||||||||||||||||||||||+ ||| Draw Startup, Need Instructions? |||+ ||||||||||||||||||||||||||||||||||||||||: 5 (24)$@(7,1) "C R O W N & A N C H O R")@(5,2) "Copyright 1989 by Dave Touvell""I",1,"CROWN.OBJ" I = 1 10#1, NAME$(I);3, AMT(I) I#1 (SEED) "RollEm""Start" CLRTP 0,22 POT = 500)@(4,7) "Would you like instructions? "; X$ = "N"A$ = GET$(X$) A$=(A$)% A$ = (18) RESETHALL: "Start"& A$ = "N" A$ = (13) "ReStart" A$ = (27) "Quit"% A$ = (1) @(17,4) V$;: "Start" A$ <> "Y" "Start":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Display Instructions |||+ ||||||||||||||||||||||||||||||||||||||||:"Instructions" 0 /@(3,1) "Crown & Anchor is a simple dice game"+@(3,2) "that was popular with members of"/@(3,3) "the British Navy and fishing fleets.".@(3,5) "To play, just place a bet on one of"-@(3,6) "the numbers from one to six. Three"*@(3,7)"dice are then rolled. If one die"+@(3,8)"matches your number, you win even"+@(3,9)"money. If two dice match, you win".@(3,10)"double your bet. Three matches pays"@(3,11)"3 to 1. "*@(3,13)"The most you can bet at once is"+@(3,14)"$15,000 (if you have that much).",@(3,16)"If you can accumulate $30,000 you".@(3,17)"'Break the Bank', and win the game."/@(3,19)"Press the 'Escape' key at any prompt"@(3,20)"to end the game."!@(9,22)"Press a key to play..."A$ = GETKEY$ 5 CLRTP A$ = (27) "Quit":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Play a round |||+ ||||||||||||||||||||||||||||||||||||||||: "ReStart" CLRTP 0,22  POT = 0 "Broke" POT > 29999 "BrokeBank" "PrintPot" "GetBet" "GetNumber" "RollEm" "Score" "ReStart":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Show player how much he has |||+ ||||||||||||||||||||||||||||||||||||||||: "PrintPot" 2,5 ' "You have $"+(POT)+" to play with.":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Get the player's bet |||+ ||||||||||||||||||||||||||||||||||||||||: "GetBet" 2,7 $ "How much do you want to bet? $"; X$ = BET$BET$ = INP5$(X$)BET! = (BET$) BET! > 15000 "Too Much" BET = (BET!)  BET = 0 "Quit"  BET > POT  0,22  ,@(4,22) "You don't have that much to bet!" BEEP BET$ = "" "GetBet" 0,22  BET > 15000 "Too Much" 0,22 &@(7,22) "The maximum bet is $15000." BEEP BET$ = "" "GetBet" 0,22  !"#:$+ ||||||||||||||||||||||||||||||||||||||||%+ ||| Get the player's number |||&+ ||||||||||||||||||||||||||||||||||||||||':( "GetNumber") 2,9* +,INST$ = "Bet $"+(BET)+" on which number? ", INST$;- NUM < 1 NUM > 6 NUM$ = "". X$ = NUM$/NUM$ = GET$(X$)0> NUM$ = (2) POT = 29999: "ReStart" ||| Break Test |||1 NUM$=(13) NUM$ = X$2NUM = (NUM$)3 NUM <1 NUM > 6 4 BEEP51@(1,22)"You must pick a number between 1 and 6"6 "GetNumber"780,229 :;<:=+ ||||||||||||||||||||||||||||||||||||||||>+ ||| Roll the dice |||?+ ||||||||||||||||||||||||||||||||||||||||@:A "RollEm"B I = 0 2CDIE(I) = (6)D IE "DrawEm"FGH:I+ ||||||||||||||||||||||||||||||||||||||||J+ ||| Draw the dice |||K+ ||||||||||||||||||||||||||||||||||||||||L:M "DrawEm"N -1O I = 310 930 310P I-200,400 I,610Q IR D = 0 2S "DrawDie"T DUV:W+ ||||||||||||||||||||||||||||||||||||||||X+ ||| Draw the spots on each die |||Y+ ||||||||||||||||||||||||||||||||||||||||Z:[ "DrawDie"\X = 100 + D * 310]Y = 400^ 0_" DIE(D) = 1 X+105,Y+105,30` DIE(D) = 2a X+165,Y+45,30b X+45,Y+165,30cd DIE(D) = 3e X+165,Y+45,30f X+105,Y+105,30g X+45,Y+165,30hi DIE(D) = 4j X+45,Y+45,30k X+165,Y+45,30l X+45,Y+165,30m X+165,Y+165,30no DIE(D) = 5p X+45,Y+45,30q X+165,Y+45,30r X+105,Y+105,30s X+45,Y+165,30t X+165,Y+165,30uv DIE(D) = 6w X+45,Y+45,30x X+165,Y+45,30y X+45,Y+105,30z X+165,Y+105,30{ X+45,Y+165,30| X+165,Y+165,30}~:+ ||||||||||||||||||||||||||||||||||||||||+ ||| Calc. number of hits & fix pot |||+ ||||||||||||||||||||||||||||||||||||||||:"Score" HITS = 0 I = 0 2 DIE(I) = NUMHITS = HITS+1 1 J = 0 2+ 73+J + 310 * I,375 333+J + 310 * I,635 J I HITS = 0*MESSAGE$ = "Sorry, you lose $"+(BET)+"." 22,750 HITS = 1.MESSAGE$ = "One match. You win $"+(BET)+" !" HITS = 25MESSAGE$ = "Two matches. You win $" + (2*BET) +" !" HITS = 38MESSAGE$ = "Three matches. You win $" + (3*BET) + " !"- HITS > 0 S = 1 HITS : 3960,250: S POT! = POT= HITS = 0 POT! = POT! - BET : POT! = POT! + (BET * HITS) POT! > 30000 POT! = 30000 POT = POT! 0,22 !@(20-(MESSAGE$)/2,22) MESSAGE$A$ = GETKEY$ A$ = (27) "Quit" "UnHilite": "UnHilite" 0 I = 0 2 J = 0 2+ 73+J + 310 * I,375 333+J + 310 * I,635 J I:+ ||||||||||||||||||||||||||||||||||||||||+ ||| Player is out of money. End it. |||+ ||||||||||||||||||||||||||||||||||||||||:"Broke" DUR = 250 352,DUR 264,DUR 176,DUR 132,DUR 88,DUR 66,DUR 44,DUR*2 33,DUR*3 22,DUR*4@(9,5) "You're out of money!"!@(9,7) "Better luck next time."'@(5,22) "Do you want to try again? "; X$ = "Y"A$ = GET$(X$) A$ = (A$) A$<>"N" "Start" "Quit":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Player broke the bank. WINS!. |||+ ||||||||||||||||||||||||||||||||||||||||: "BrokeBank"DUR=250 352,DUR 528,DUR 704,DUR 1056,DUR 1408,DUR 2112,DUR 2816,DUR 3960,DUR@(10,5) "CONGRATULATIONS!..."@(10,7) "You broke the bank!"@(13,22)"Press a key..."A$ = GETKEY$ "ShowFame" "Quit":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Does player really want to quit? |||+ ||||||||||||||||||||||||||||||||||||||||:"Quit" CLRTP0@(1,22) "Are you sure you want to quit now? ";X$="N"A$= GET$(X$) A$ = (A$) A$<>"Y" "ReStart" POT < 30000 "ShowFame":+ ||||||||||||||||||||||||||||||||||||||||+ ||| Show 'Hall of Fame' |||+ ||||||||||||||||||||||||||||||||||||||||: "ShowFame"$@(7,1) "C R O W N & A N C H O R"@(14,3) "HALL OF FAME" I = 1 10.@(12,6+I) NAME$(I);" "; "$##,###";AMT(I) I POT > AMT(10)*@(7,22)&3, "Enter your initials: ";NAME$ (24); I = 10 1 -1 POT > AMT(I) J = I I I = 10 J+1 -1NAME$(I) = NAME$(I-1)AMT(I) = AMT(I-1) INAME$(J) = NAME$ AMT(J) = POT I = 1 10 -@(12,6+I) NAME$(I);" ";"$##,###";AMT(I)  I  "O",1,"CROWN.OBJ"  I = 1 10 #1,NAME$(I);3, AMT(I) I#1 0,22 @(13,22) "Press a key..."A$ = GETKEY$:+ ||||||||||||||||||||||||||||||||||||||||+ ||| |||+ ||| C R O W N & A N C H O R |||+ ||| |||+ ||| Copyright 1989 by Dave Touvell |||+ ||| |||+ ||||||||||||||||||||||||||||||||||||||||:*1{$Q*BCROWN21.SYSTEM CROWN.OBJ RUNTIME.OBJ5BCROWN21