__ FULL HOUSE ____ 3 OF A KIND __THREE OF KIND AND FL HS TEST JACKS OR BETTER TEST 4 OF A KIND STRAIGHTS AND FLUSHES ------------------------ CARD VALUES ------------------------ ------------------------ SUIT CO STRT FIND SERIES SAVE LOWEST STRT FIND LOWEST STRAIGHTS AND FLUSH __ TRY AGAIN ____ JACKS OR BETTER__JACKS OR BETTER __ TWO PAIR ____ 4 OF A KIND __4 AND 2 PAIR --------------- __ A FLUSH ____ A STRAIGHT ____ STRAIGHT FLUSH ____ROYAL STRT FLUSH____ TRY AGAIN __ DO FLUSHES ------------------------ __ __------------------------ FLUSH SORT TABLE ------------------------ ------------------------ STRT SORT TABLE ------------------------ ------------------------ GIVE PAYOFF THEN RESTART ---------8*BELL2 i TICK iDEALCRi SHUFFLi ------------------------ OUTLINE X JINGLEJp8**"* "** pp**"* "** pp**"* "** pp   "&------------------- PRINT UP IF WINNING ------------------------ ------------------------ ONE OR ALL CARDS SUBROUTINE TO PRINT ------------------------ ------------------------ SET UP BACKGROUND ------------------------ PRINT LETTER "H" ABOVE ------------------------ ------------------------ THE SUITS OF THE CARDS THIS SUBROUTINE PRINTS ------------------------ ------------------------ FIRST AND SECOND HAND THIS SUBROUTINE DEALS ------------------------ -----Y IF NO PAYOFF GO ------------------------ ------------------------ AN OUTINE AROUND CARDS THIS SUBROUTINE DRAWS ------------------------ ------------------------ ------------------------ ------------------------ SELECTED CARD OR ERASE +l+S+5M67  G8  P  b8  9  P  c9 b7+++6hS>)DPOKER------------------------ ------------------------ RING BELL FOR EACH PAY ------------------------ RESTART IMMEDIATEL3UO43+++             {+b+I+0+    UHUGUFUEUD1UI 2UJz;-/(1  f;(TLR;2UL(TK>;(UK2*;+++( :+!+++3UM4  UN+++@ WTE1-SPRITE2-SPRITE3-SPRITE4-SPRITE5-BALL2 6-------7-------8-ANYONE CLR2/3 ƥf9SSPRITxpXLLDLpdXTD8828p`TTllpXLTp@ SET UP BALLOONS HERB PAY ATTENTION DEFINE SPRITES BIRTHDAY GREETINGS ------------------ ___ _ _____000000 __000000_____ BETS __ WINS ____ ____ ____ ____ ____ CASINO HOTEL ____ ACTIVISION __------------------------ ACT------------------------ PRINT SELECT MESSAGE ------------------------ ------------------------ DRAW CARDS ------------------------ ------------------------ PLAY A SONG ------ ------------------------ ------------------------ CLEAR HIGHLIGHT ------------------------ ------------------------ INIT VARIABLES ------------------------ _______ _______________ UP __________ ____SELECT A BET ( )__ ____ ____ GOOD LUCK __------------------------ BUTTON PRESS STARTS GAME ------------------------ ------------------------ TAKE A BET ------------------------ ------------------------ INITIALIZE THE DECK ------------------------ DEAL OUT CARDS ------------------------ EXCHANGE CARDS PULL ANOTHER AT RANDOM PULL ONE CARD AT RANDOM ------------------------ DO A RANDOM SHUFFLE ------------------------ __ -HOLD z|svv@jn".>N ??__ HOLD THEN DRAW.____ SELECT CARDS TO__------------------------ SELECT CARDS TO HOLD ------------------------ GET NEXT PULL OUT OV DECK -HOLD z|svv@jn".>N ??Y POSITION FLASH ------------------------ MOVE HIGHLIGHT ------------------------ -HOLD z|svv@bn".>N ?-DRAW z|svv@bn".>N 000?0000-DRAW z|svv@jn".>N 33HOLD z|svv@Zn".>N 3 33 3 3 -HOLD z|svv@bn".>N ?------------------------ IF DRAW GET NEW CARDS ------------------------ ------------------------ SAVE AND DISP SELECTION ------------------------ X POSITION DRAW z|svv@Zn".>N 3 3 3 3 3 30----- CALCULATE PAYOUT. FIND OUT IF A WIN.IF WIN ------------------------ ------------------------ DEAL NEW ------------------------ NEXT IN DECK REPLACES FLIP CARD SOUND IS TICK ----------- ------------------------ 5- FULL HOUSE 4- 2 PAIR OR 4 OF KIND 3- 3 OF A KIND 2- PAIR 0-1 NOTHING TEST PAIRS IF E= ------------------------ -------------------LORS ------------------------ ------------------------ SUIT CHARACTER X ------------------------ ------------------------ HOLD H X ------------------------ ------------------------ HIGHLIGHT X POSITIONS ------------- ? ? ??00 ? 0?-HORSEj~PT??<PP??? PP???PW???<<00-HORSEr~HORSE Z~PP@PPUTPP 0PPU?0<-HORSEb~?0<00??   MEGAS5iihZnaaa!! **  *  *  *  * DROP iih@Znaaa!! HITSHPi COUNTSiHITSPCi UY,-A5B(2<FPZNM   MEGAMA------------------------ DATA TABLES ------------------------ ------------------------ SUBROUTINES ------------------------ ;URUQM  N-%%US%%UT%/B 1<UU,-=UV,->UW,-?UX,-@!!P!UPUL#@#@#@#@#@   (%%%%% >9 ;9 ; 9;; 9;;9;)%%!(%0 Wc @1L>9;TR`@@`@`0@@`@``@`  !!5!(!!5 !7!-!KUM !N!F!dUNTL!0!?!]!~! !!!!!UO P!!P  P c=P+7+++l+S+89:;::::9::::;98;;;<===>>>>>???`@`@@@@,`@`.`@ڢU%luժuV6JKBOX 1--JKBOX2-SPRITE3-SPRITE4-SPRITE5-SPRITE6-FIRLOG7-CANDLE8-ANYONE CLR2/3 HOLIDAYS jZVDUUDUUDUUD@* >s\WDUUDUUDUUD@?1PWDUUDUUDUUD@?21@STDUUDUUDUUD@?21@STDUUDUUDUUD@?21@STDUUDUUDUUD@?1PWDUUDUUDUUD@* >s\WDUUDUUDUUD@HAPPY(Z*b""⥢ߦ⤐------1-------2-------3-------4-------5-SPRITE6-SPRITE7-SPRITE8-ANYONE CLR2/3 -RITE7-SPRITE8-ANYONE CLR2IVISION, INC. COPYRIGHT 1985 BY JOHN VAN RYZIN DRAW POKER ------------------------ `HELIO2@@@`Zn@( (  ( ( (  (  1-SHOT 2-SPRITE3-SPRITE4-SPRITE5-SPRITE6-SPRITE7-DROP 8-ANYONE CLR2/3 <<MEGAS1iihZnaaa!!PUUEEUUPPUUEQEQUUPPUUQQT4ġeA⤇SHIP ACTIVISION, INC. COPYRIGHT 1982 1985 ADAPTED BY DAN KITCHEN MEGAMANIA STEVE CARTWRIGHT'S GUIDED MISSILES ___STRAIGHT MISSILES __ START GAME READ JOYSTICK DROP SHOTS NEW OBJECTS COUNT DOWN POINTS READ BUTTON OBJECT MOVEMENT BLANK1z|svv@Zn".>N CHECK COLLISIONS UEEUUPPUUEQEQUUPPUUQQUUP GUIDED MISSILES ___ PLOT VALUES ((""""((( ( MEGAS2iihZnaaa!!<<<<MEGAS1iihZnaaa!!PU? 0 0?<,:.(UCUB,ne(UEUDUAU=U< -d"&"8_ __U9U5U%' bYbYbY bY-dY8]b!Y]bZ6] ^8]bdU:6_ dgg [[''eb\'' ea]'#.T+#U+T*#UT,#U,U*U)  #+T/#U/T.#gT0#U0U.U- #@T3#U3&U2T1-'U4U1T%  %U6 %U7 #%U8 T#@%TU'T!UU#%U   @$U"$ T#" %#U#U!U U%U %-tT$U$  'U& #RT(#U(U'  E' %L)%' M!U#-%dT!%)UUUU-#UUU )T#%TU'T!UUTcU# );_-,VE%' M!' %L)-!UUU #%dUUT%)!'U UT-s%)U U U]b%U -,VG_UG]bF] ^8]Fc_Tc_U8]b b' b#bcUb]b#_ cd#Y'#'%d TPITFALw+^+\+E+(G_9>);9;M d<_0c;_ cE K__>_2B_2:_F_2     5 !)'q'Z~N*&^jjʦ^rZ2n2n*zւڶFNR62bjrv nj "*.n~҆::BFJ^VZRj 6:>B^f                        HARRYRZn@PPP@ (@@@@@ *"*   @@@@@ *( (  @PTD@ *( ( $+++i+L9>;9>n; 9>Z;2; 9F;;*M  PUJ%%M )UKM)O)O)OP P P    `TB UBU?'U>"  . $$$$$0 $$   UDUC     UF'UE$ ,   (TH-UH%%%%%UI'UG&'$$2$$)U5U4)U7U6)U9U8)U:+%! /W@+++   % P+U;#  K+U<! B+U= ?+  @  T?-x U@ UA '''' 5U"++u+,*U%' U'U&' U)U(' U+U*' U-U,' U/U.+*)U1U0)U3U2(1M+ /W@ ) U#+   U$  ' ' ' ' ' ' ' ' ' ' ''''''''''' ' ' ' ' '''''''''''#%U+~%U#@%Uw+%U^+E+,+ U,9U, %#U+9, U, U-!%U   U  M+)U! %+%%U 6E&+G +I+K+ U -P&&U -P&U +6 7U   < ;U;U!;U;U;7U "#%U-%U+7,%U++ UN' ' ' ' ' %%UU2+  (%%%>9;T;UG UU8U +8U+  DD+Fq+HX+J?+,<%U,<%^MEGAMAw+^+E+,+++++(F BH yN+''' +L>9;)))))!{+b+I+0++ N!!%%H (5G6NZƾZ2 FNf~n6f~>*^rV沆N.: :B       00( ** * * * * **"(( * * * **"(  * * **-GODZLZ~00( ( -GODZLb~GODZLAZn00* (***(*( " ("( -GODZLbn00 ****  * **" **** "***  0π 0?0? 0 -JKBOX Z~ *`Z~/(((@-TOYSL`b~ ? (((@@@P  JKBOX  Zn"(*** :"TOYSLD`Zn@@@@T@@@@T-TOYSL`bn<?3< +<?3<  -TOYSLZn00 SWT SWT SWTSWTFIRLOG[n00 ***""(* TT<<TTTTT<<-TOYSL`d~ (((TT-TOYSL`\~0((( @@@PPPPCANDLE  d dp p`ppTT T @xTTHHp @HTHLTOYSL2`dn -TOYSL`\nTTTw $p`p``d  TdxxTT`p  TL d`TTLLH`pD88TTd T @<22ddLp ` `HT` dLLLTdTHLTD @ d`pLITES: ------------------------ ------------------------ DISPLAY FIREPLACE SCENE ------------------------ ------------------------ ACTIVISION, INC. COPYRIGHT 1985 ------------------------ MERRY -------------------- ------------------------ PLAY A CHRISTMAS SONG ------------------------ ------------------------ INITIALIZE A VARIABLE ------------------------ ------------------------ AND MOVEMENT. POSITION,ANIMATION, SET UP SPR)#UF'' ' ')%B#@U2  U  U FIRPLC------------------------ MOVE OBJECTS ------------------------ CONTROLS OBJECT MOVEMENT PLAYS A SONG AND THIS MAIN PROGRAM LOOP ----ZڢHLIDAYS+w+:+!++++++(+r+Y+@+'+''/))!'''')!#%V')H!' )H! x+_+F+-+++++++W` +++,''''2R JJF      GAMOVR@Zn0003330 -GAMOV@bn00<<3?<<<<< :; b USIDEWKSPRAY  )Zn  @@U h U9+    +P  P  P+  P  P+ P  P  P+  P  P  P P+  P  P P  P+ U#%dU%U#@%dU%T U k+- ",  -    ( U  P$UU T U R+  UNUUGRFITI+w+~+^+e+L+E+3+,++++q+++(+++ +''!!)N+-I%U#%dU+%U#%dUU+,%u . 2F"f"FfBb    FIRE Z~00  ??  ??  ?? 0  ??i+U<=+ U>U=$+'d ,]   U? i,U@ +.TA .UB'UA.TCUC+0d]  +e]  +f]  +g]  +h];U3#; U4(& +d)]   U5 i)U6;T7;U7(*+m+U9;WT8;U8(+++o+V+% d]  +]   U:U;  _ _ _ _ R+9+ +++++++q+X+?+&+>9d!d"#U,]  ]   $U-# i"U.$ i!U/+%U0}+&U1d+*U2K+7  >:U&rU'4++++<e+U"U!L+3+++U)U(!d]+  m  +]^U*+    U+W++k+d_U@ g''' UU+U T@ UU T@ UUUU "  ++~+@ U# ]U$U%^ ++f+M+ UU'U   : ? <<+++>9s;_;_ U!'''+++W{+ Ub+@ g'''U 2]@ WU iU +++ 'C_{+++  w+^+E+  ,++++++23456789nopq23456789nopq23456789nopq23456789nopqU @ WO+6++++ ] U  d^+   ++++ d] 2]U   d (    >>U  : 1< :0U:<c+++ U  @ UU  @ UU d  09><W+l+S+ U  m5>9?;+;;++++  3]+ 3]+^^h+   :< :<  :< :< b UF BHGCH L+3++>9;;>9G+.++L;T;U+++f+M+4+g+++^  4U_ ~DPOKERw+^+E+,+++++++(>9;;;;;;5; 9n;Z;F;-+++++`++~+e+ m5++y+`+? m sT  Ub    :< :< '>f F^bN vfB~z6rbf**r6NRV r>           EXPLO1@@@Zn >:>//?/>>------ ACTIVISION, INC. COPYRIGHT 1985 ------------------------ ------------------------ HAPPYB? T  x p   X L D pXX `  p d ll p D @ D T????????------------------------ BALLOONS AND BALLS MAIN LOOP ANIMATES THE ------------------------ ------------------------ ------------------------ ------------------------ ------------------ ------------------------ PRINT OUT MESSAGE ------------------------ ------------------------ SET UP BACKGROUND PIC ------------------------ BALL2 Zn00 :::: ++++ON 4 BALLOON 3 BALLOON 2 BALLOON 1 ------------------------ DO BALLOONS ------------------------ ------------------------ PLAY SONG ------------------------ BALLOON 5 BALLO  *.+  *..+ ------------------------ CONTINUE TO MONITOR ------------------------ ------------------------ BOUNCE THE BALL ------------------------ ++BRTHDYBLUBUP )Zn  @T@PTTPTTUUUTWPTTUUUTTPREDBUP )Zn  *%U+++- g'%)e7!U%U+++- g'%)ex!U%U+++- g'%)eW!U %U +j+Q+,a#U (#@U 8+2!2))))))eeeee>+%+ +++w+^+ c `UE+,++d++}+- g'%)e!U%UK++2+- g'%)e!UBRTHDY+w++++++^++''''''%%%%%%!!!!!!:+!++(+++>9H;;4;Wp++W+#@%%%%%%!!7!x!W!GRR.RV           ++DUCK Z~00?0???????-DUCK b~00*  ++  +JUNGL1COPYRIGHT 1982 1985 HARYGS 6   o, FHARYYS ^  S|{-,cCdp% #U{{| c b]b %'T|'&U|!v@)8_;__U?GNU]UNGG  vvv|K+++!+!++c@(p %r ]_ ss!Uutuv%iz*x*y*w**~]^ @*K] ^}Uv ~{|  b%"!Tx-Uy!UzUx _++UwUo#!X''%6_%J!Xf,, -%%i%UrUqUpg j%j o p#Uskl p#fUth m%mzonli%) b cFB)F'#8G,gM#'Tm#@'Um)%A!HJIJ'%!O'PTQT'])%%Un#!R)S'''' ''F!U'VLWL'])%% cNcNc'N(NM^' U^)%'' O]%Uk:'8;' 8<'8=D>'D?D@DE] 9Ul c4E8C'N!)9A)_009<9<Uh/0] d:0Ti c/9Ui:c01Tjd91Uj1  05  c 6 c776^ :%)8x!9^ GK c M))^>< "%#Td#UdTc#Te#UeUc"'Tf'Uf!]%Ug*>,)?,+A,<-]>b0. cA-b/.?b/@_0A ccdc 9;Ta;Ua> U`E] :/Ub5b9  bB]d1 cEG_%%%%%)))))%! #%)'T_'U_U^%q'''''''%O&O%O&O%O&O%O&Oc P ccb  9>;9>;   :< c  @-ZSOLD`b~ ? (((@@@P  ZSOLDR`Zn@@@@T@@@@T-ZSOLD`bn<?3< +<?3<  -ZSOLD`Z~/((( 30003 33? 30003 33@DOG Zn00@?0 <<?p0<<p-DOG bn00 3?03 3?<  VINE3@Z~00 00 TARPITZnPPUUUPUPPUPPUP-TARPIbnINE1 @Zn-VINE1@Z~VINE2 @bn0000 -VINE2@^~0000 -INE3R@Zn 00 00-VINE3@b~ 00 00VINE2R@bn 0000-VINE2@b~ 0000VARYJR@Zn"* ?30HARYR @Zn0 0VINE3 @bn00 00 -VINE3@Z~00 00 V *"<  <00HARYCLZn0 **   * ??33* ??33 ***  HARYJL@Zn *""? H"*  < ?3?00 ?<0<0 00"* ?<0<0 HARRYLZn 00?00<0 < <0 OG Zn@PDTTDT<<330 @PDTTDT<<330 @PTTTTT<<330 @TTTT<<330 HARYL @Zn  HARRYRZnGOLDB @Z~@PT?FIRE Z~00@@@\ ??@P\ ??pp\ ?? @0p@\ ??LARYJS HARYSL@Zn< <HARYSR@Zn <0<BLANK z|svv@Zn".>N   QHARYDS mymdmmjF 2 2  2 2 H  @WORM Zn (( (  (** ( -WORM bn  WU 33_WU 33_WWUU 33_WU 33_@CARIERZn00?? "*UU "*WUU "*U_ "*UU-CARIEbn00 33_U_U 33_  ժժժժժժժժժժժժժժժժժժժժժЪժժa@`|ժժժʪժx~@?@?ժժժժժժժժժժժժժժժժժժժՊĪժժa?|CCժժժ~p`?ժժժժժժժժժժժժժժժժժժժժԪժժժaժҪѪѪժժЪժը`pԪՊժժժժժժժժժժժժժժժժժժժժժԪժժaժժժѪԪՂժժ|xѪʪՊժժժժժժժժժժժժժժժՊժժժЪՠժժժժժժժժՂԪժժp~ԪъԪժժժժժЪԂժҪժѪժբժՊx@xՊԪժxժժժժժժժժժժժժժѪժժժժժժg?xpaCaC::: /... "*Q"U*T *UU@*U*U"U(Q*T(*U(U*(*Q*T *U**U**U**U*Ԫ*U*Ղ  L     ei*T(*U(U*T  U"U*T"*UQ*T*U*E*Q"*Q*T(*U(U*T *T"U*T"*UQ*T*U*E*Q"*Q*T(*U(U*T *Q"U*T"*T*T*U*E*Q"U(Q*T*U(U*T *Q"U*T *UU*T*U*E*T"U(Q*T *U(U*QT*U*E*Q"U(Q*T(*U(*T *Q"U*T *EU*T*U*E*Q"U(Q*T(*U(*T *T"U*T *EU*T*U*E*Q"*Q*T(*U(E*T  U"U*T"*T*T*U*E*Q@*T(*UP*T  UP*(*UQ*T*U*E*Q"*Q*U**U**U**U**U**UU*T*U*U@* U(*UP*(*Q*(*UU T*U*E*T"*E U(*U(E*Q"*Q"U*T"*PT*U*E*Q"U(Q*T(*U(*T *Q"U*T *EU* "  "  "*  "" "" "Q( T    ||   T (  " (  *P*UT*T*@ @ @ @ T*T*@ @  @ @ T*T*D D D D 00**"MM#Aת***"(Aת***"**""**"M Aת* ***  *(# -LEYE  hn00(( (-LEYE pnLEYE [n00 "MMAר (Aר  MAר-LEYE cn00 (#/  **(    0CONTS }\>P"E0p_{w;>~_o_*W+]*]*WjU.]:U+W:U+W.U.u*]*U+u*]*W.W*Uggggyyyy?~?~?~?~OOOOssss||||owoՠЊԂՠЪՠ ըŪՊբըŪѪԊբըŪѪբըըŪՊբըŪѪԊբըŪѪբը  `բըŪѪԊբըŪѪբըׂԀЂԀՀըŪՊբըŪѪԊբըŪѪբըՠծՊԂՠЊԂՠիՂՠ տՂRBժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժտ ժժժ ժժժת ժժժת ժժժܪ ժתժժܪ ժתժժܪ ժתժըŪ  MEGAS2iihZnaaa!!<<<< HARYGS 6   o, F 9 9  X @FELLOW%H66686066888@86**66lllPH @HHHl$*6  MEGAS3iihZnaaa!!( ( ((""""((( (  pHARYJS  F 9 9  X @<HAPPYB? T  x p   X L D pXX `  p d ll p D @ D TTxpXLLDLpdXTD8828p`TTllpXLTp@     MEGAS4iihZnaaa!!UUAUUQUUAUUUUUUEQUUUUUUAUUEUUAUU HARYYS ^  S  Q  X D @ d`pL  d dp p`ppTT T @xTTHHp @HTHL@MERRY w $p`p``d  TdxxTT`p  TL d`TTLLH`pD88TTd T @<22ddLp ` `HT` dLLLTdTHLT   . ,)$*,4( *  1  3 , 6 6  2  )  $ ' , )  ( 1  , /  2 .  ,  '  ' * ((*13 ,)$$'$,/) *'"""1 ,( * 2MEGAS5iihZnaaa!!@PT@@TP@@PTTP@@@@@@@@@@@@@@@@@ @HITSNDS  Q  X    (  &  *  2 ( :  / $ $ $ * 2/ *& $  *  '  2  /  (  , $  6  2 /  ,  0  0 6 :  2 : 6  2  0  ,  (  1 , *  2  *   3 * &  6  ,   &  *  & $ :  2 : 4  6  0  ,  (  , 1 (  /  2  *  / 3 *  (  , 6  4  0  * $ :  / ( *  $  &  (  ,  ' " *  /  *   !  /  $  , MEGAS6iihZnaaa!! 0 0?<+%+ +++w+^+ c `UE+,++d++}+- g'%)e!U%UK++2+- g'%)e!UBRTHDY+w++++++^++''''''%%%%%%!!!!!!:+!++(+++>9H;;4;Wp++W+#@%%%%%%!!7!x!W!@RABRAC@Zn< ?O<@0@@@@@@@" **33 ?** BIPLAN`Zn00<<< <<< -BIPLA`bn000P???0@???-BIPLA`jn0033 ?""