`L i=L\Ʃx ? Nٷ)i  ʭ?-ȱ lMUST BOOT FROM SLOT 6NO FILE RTSTRP.APPLE RTSTRP.APPLE   L$J) (jJJ>L צSYSTEM FAILURE NUMBER  צ. PLEASE REFER "TO PRODUCT MANUAL FOR EXPLANATION. ˡ4$ š F",á1šDACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED (  DPASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD SYSIO POKER" SYSTEM.PASCALvg"ISYSTEM.LIBRARYgIKSYSTEM.CHARSETgKc RTSTRP.APPLEvgcdSYSTEM.MISCINFOdwSYSTEM.STARTUPgrw POKER.CODE=vgrLVVP.CODEr=vgrh~ ~ ~ .bv0b(ɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" "?I(  8 `  ` x @ Nx .x- | d `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪ ġ  ".+á$š ġ  ^ #"(&ˡ " "6%ɡšɡš  V    šˡ 퓄 Ä퓡x š  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> :X f!  # 0%ⓡ4%צˡ䓡 &ˡ& öÍ##&á &'%&㓶℡'á.0:'%'á * & ܟˡ, T@8  4  0:lL4 B HBX z n H N'2 š:X f!  # 0%ⓡ4%צˡ䓡 &ˡ& öÍ##&á &'4šáRתPńȄ ,ń.áš蕿@šQȡ2 š00+-Í-ë009ȄX 000á'#á 009Ȅ00 qS\ ȡ*ńȄQ l>š 쾿  / Zá " *áá000áQP 0á0 é0-ġ>00ń0ˡ ɡa ȡá1á#   š K$"á61 ɚ V  š  %4 ɡ'áצ-32768 ^ 逫 ?š?ˡ?ء "ˡ$ߕނ߂ɡ F b$ Ą ɡ 낫š ꓡ!š땫Ě@$"á1ꓡ삫Ú )á á áWˡ á Dš 4áÄ  && "ˡ  J  ɍM   "ˡ.ˡ   d쓡  ! šš që  N "ˡ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODEƁ/@š4SYSTEM.CHARSET+ \٢ š٢ ٢٢ 4$  /   dáá(*SYSTEM.STARTUP š >H version 1.2ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁśsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH ת "ˡ ܡ́tˡ2"ˡڡAƀ ˡ4  is not version 1.2ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁsˡ ߢ`ޤ7 VڪƁ Ɓ "áP̂/ʁ ʁ"ˡ3Ƃ. Ƃ.Ƃ. Ƃ. Ɓ Ɓ X  ߪPƁ]Ɓ4 PƁ4ƁaƁeƁmƁn ́oƁaʁo  áCá>آآ*Ík vޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤ!!P!x!P %'"6ۢڤ ɡš2ȡۤˡ áڢڢˍ? Pˡآڤצ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡܾaܾzȄ ܾaAš!!Ȅ11(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.APPLE d>.Fj TERM:  ø !צ  תצP@22ˡ'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@22 `    p  CONSOLE:ת צSYSTERM: ۶ ضá}۪*SYSTEM.STARTUPתٟá'      צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUT[Bfhjl ʀ  ʀ ̀ƀ ƀ ƀ   ʀˡ L تٞ&"á ٤ ȡؤצۢÍ ȄۢÍ؞&"á  ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀʀʀʀʀ̀̀ʀʀȡʀʀ̀   תʀ'*SYSTEM.MISCINFOת; ̀ʀ*ʀ+ʀ,ʀ%2 &̀ʀʀʀʀ%̀̀̀ʀʀȡʀʀ̀ʀʀʀʀʀsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH    ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ á( ! á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ á ġMáš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń  šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ ۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ ߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢ`ݤW ˡ!  ,ߓ$ ޓ "ߓۄ,ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯ"á  ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓńȄޓޓ!ܲݤߓÍߡFۤ ōɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ7צ.INFO$.GRAFׯצ.FOTO /T ڤáޢܡ ޢޢޢÍÄޢÄȄĄMȄt߷iȹ22ȡ2š5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*áݲ%áݲצ:22ȡáݲ 2á!2ȡ5252š[22š22r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$  lܟ˄ݤ צ   ١  n ١ á9 ٓ/! !!١ ˡ) ! 䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ |} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-09Ȅ0ݡߑ ع      z  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L N E @d $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED n%LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU #ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! $ ~\",䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.! ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L N E @dNTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:Ihhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1> HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh  z Z   :    ( tV8z <| [NA4'á +-Í-09Ȅ0ݡߑ ع     $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; S> ?L=[?    ??tI$'>ߡڑ߳I@߳}:#9oL.6ZO$<=*     4?KYKK.2 4k/P/NEWC/C.CODE.CODE "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION N E 0RšزRPزPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.2 of the Chainstuff unit cannot+run with a non-1.2 version of SYSTEM.PASCAL تPš++0تPRš+R+PPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E   z Z   :    ( tV8z <| MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING)  h 2  ɡh h  h . آآآǿآآǿآآD ǻٚ SYSTEM.CHARSET!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8  ؂  ɡh h QZ|?ٽ RZ}?4 SZ~? TZ~? UZ? VZ?[` WZ?& XZ?ؽ YZ?  ZZ?2  Z Zá.ٹ#ؑi?޽ CZk?7 DZm?[ EZn? FZp? GZr?  HZs?yx IZt?hн JZv?D KZw?F LZx?Re MZy?Pp NZz?g OZ{?K PZ|?aI? 5ZL?Xs 6ZO? 7ZQ? 8ZT?; 9ZV?% :ZY? ;Z[?Lo <Z]?г =Z_? >Zb? ?Zd?  @Zf?] AZh? BZ 'Z!? (Z$? )Z'?| *Z+?+L +Z.?l ,Z1?ս -Z5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2ZD?v 3ZF?  4Z>? Z>ca Z>*r Z>aq Z>^ Z>9 Z? Z?ٽ Z?ƨ !Z ?vm "Z?F' #Z?ս $Z?y %Z? &Z?1>н ZC>oc ZT> Zf>Y Zw>g Z>탽 Z>K  Z>ȱ Z>z7 Z>ٰ Z>? Z>| Z>}̽ Z>  Z4تP+,+,ȡ+++V 0 Z Z^ Z ><0 Zl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'  ǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?0 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  X E CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  áSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION N E $ $TYPE &RStatType = (RStatBusy, RStatReady, RStatOffline); " RSChannel = (RSOutput, RSInput); " $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTISETPORT @=P l=7MAKEPORT|=P 7 ==L1TURTLEGR)RTCHEA=SE >< > zjZ QH?\V n x x(,np< $8L. ~  L  DRIVE <<<FNAM =SETSINE1<<SETSINE2SETDEFAU=e*e+)*)fjfjfj+*fjfjfj8 8)eeL )` (J(F ((Lee L  )LT I1LT )QLT       hhhHH h )# " `' & 8 ! 0%ee8` !  e e8"#088$ % 0%ee8`$ %  e e8&'08HHL<  y B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p h hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhh 0&!"   #"  ` ` `SN-(' . hhhhhhHH `  y HH8H8  hhhL .+ rhh hehehehe8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &   cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%) E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2hhhhhhhhH)HHH`)J) D* کHH  ),`#dhnSeio nHnHL{ URehnSeioni nooHnHL{ URehnSeio hnhnL{èPHPHL UPehnQeio nHnHL{ UPehnQeioni nooHnHL{ UPehnQeio hnhnL{X q Uhelniemo nHnHLnX q Uhelidʕ˕  HʕH V  PRȥQRRȱR8Ɓ8R RLXiXYXiXY HHXYX lhh)X0 eXXYL{eT~eU~8~X~YLHHLXHXHLn飨RHRHL URejskϭԭ(ީzƝ_u LDXiXYX h&i` hi`RlSml~ȱlm~l`ҕӕ`Zӕ[ҕӕ`ʕ~@<8ҕӕZ\t]b[       }Ÿœ5՜G͞Bיˠޠ)fK✚֛Ț` 9gTأޙ;/g䝍YYYYYYYYYYYYYYYYR RȭR얅Z햅[qʊ ΕqŐ`8H<8HW`k L*ʕŽH`HHHHHHƽ  7 @~aƁ)ɠ# ~ȑ~~i~e~ȱe~ȱ~ȱ~~i~iиRޕSߕ얅\햅][ ޕ\ߕ] RPRRSQR*F`F$Lө ʕʖ HHHƽŽH`HHHHHHƽ  7 `) ,1P `*0 QNi i2HHHH # ж8ƋȱHHHƽCQRTW =  a0+&00 1ح/0 '"!;<=>)ⓙVV#$ƽ6 7/\z FLLIEHJh* SYSTEM.PASCAL not found# SYSTEM.PASCAL is not version 1.2##lkBChLhx hmDŽ -І -51-k k Ɗgƈд** 1` .#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>n(j LEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTniemoni nooHnHLnX q Uhelniemo hnhnLnX Ueh~ei~H~HLnX Ueh~eih~h~LnX UeheiHHLnh~hȱ~H~HLh~hhh~ȥLXȘ ~X)XYXHXHXe~XYLX~ 8倐~hrhsrHrHL{LØX~e~e~tu~L`hththhL{h~hhe~~heH~HLhhh~hhe~~he~Lhrhshthu ULh~hhh%H%~HLh~hhhH~HLhhIHIHLXXhhQX0XŗiehiehIihIiiŒ.L4'ņŇ0 L#8ƇL#8厪HHL{hhhhTL䝥T8~U~8~Xȥ~YT VLRSLȱȱL8Ɓ8 ри iiL & & & &8ƛƄLʨ` 8   ` J\K]`hh L{hh UL{X lhhhhhihhhhL{hthuhettheuui ʑtuLhL٩tL{hhhhhehehhhhhh  `\J]K ~ e~,,-'8\.\]/] f\8]`LØ8\] 8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLʨPQ LB8Ƈ8񆅔ȥ񆅕8ƇRRRؕSٕL8񚅆񚅇`ȱLS8~ȥ~e~ȱ~e~8ƇƎ`\Z][ 8\Z][`LØ~ e~ HHH* W*H./\8倅\]偅] f]H\HHH-H,H * 7L ʕL` Ѕ )LX )PQȑLXX XY  0 LX )QHPH PȱPP֕QוL RhP֕hQוL RR8~S~\ȱ~]X i RHLR~ȱRV~ U~VWRTȱRURXȱRY[ 8Z[LØP i tiuL=ht i~i8~~X~YiTiURؕSٕ8\ȥ]\]VWlX ) ƎRSL֥ȱȱŎRRLX%vHHLhh ~L?hhV~W\]XiXY~8傅~~8傅~8~~~78Ƈ8񆅚ȥ񆅛HHl0 UL8Ƈ8񆅈񆅉@:8񆅈(8 8ZLoLsLkhh h~h~~~р ȱ~р~р %v HHL{HHL{h)~hh)h~Lk vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHLhHHL ~&&hhȱI%~I%ȥL?? vXLLLL   UFifhLТ Uhhh~hXYhL~р~i _heheHHL{XXhh ٞ&heheHHHHeHHLnhhhhhhȱ80 iff =?=@HHLh~hhhhh ?%~~@%80~~i~łLLXYXXYYHXHL>XYYHXHXXYeXXYLhrhshthuXs&trȑtL{rrtLrtL{L~~LL UhehheiHHL{ UhehheiHHL{hh Ui h&L hii攥IiIiƔ8吥呰 ` of"f fofn8no8&&`ffofn&&`hhhh ٞIiIiHHLhhhh ٞHHLh~hhhE0Ń)ŀ!0E0h0HHLIiIiHHLh~hhhe~eHHLhIihIiHHLh~hhh8~HHLonff nenoeofofnff`hh0 hhLhh"IiIiIiIi _HHLHHLnoLߘIiIX`0\XE0XLXŖC?8XX&XeYei无8XYLXiXYL h~hhh~&Zȥ[Ze~Z[e[8\Z][LØL{ h~hZ~ȥ[~L{h~h~Zȱ~[ҕӕL{lLh~ȱ~L UL{XiXYLh~hhh~ȑ~L{rehrseistehtueiuisu ʱrtLbhLrtL{hhhi0QhthuhettheuuhrhsherrhessXЋiʱrtusLhL۫rtL{hhhhhhhhL{8ӕ\ҕ]ӕL\Z][JHjHL{) `) e`ʕhhL{˕HʕHL{ʕLL{hh 3HHL{hh 3L{hhhhhehehh 3HHHH)X  _ +L %L (L .L 2 0` )` ( `) $ HЄ J` MȽ`H  H h`@`   ` ` `38 0P`8 0 >` HH)> ʾ`0* r)` EHh`LL(G=- `H h x`lQ`) ˩ Ȣ`JJJJ ϱ` $p0*O# = ĺ =`H Lf H h ɢ`))L͸ ,10U0I ۻ,109,c$0 A[ $P0Ji)jj%UIЂ )?lI@a Hb c0  ԸhH Ըh$L hhh 靱`hhh(`hhhhhhϐ8 (H  +P )*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 9 [Lg")j> 8`Ί ax>?8T8Wuv ýI꽌ɪ꽌ɭ蠪ϮVE]V]H)]V])]T])]Ψ 8$hU>`ȅ͊Sϭ83IiΊ  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴    `Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`LJ 8彐.mĿ"Š>?( XˍL ˩($8` h Hǹxhx ڶN`8Ύ0|ϩHhHh    VYΝYꪽ   Ͱ()I يJJJ(jǩF؅G(   k( F G  Wj΍0  $͊4 xΌΎH `Ǚx kh k@(LYH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJihhhh b\8ſƅhx 착&'H(f'ꮭ'eƍ8ƅб ĘHH`  ƂгƃLƭ(8 Ƙ _L'`` _ _` _`Zʕ`ZHYHlZHYHl)hhhhh0L-hhhhhhL{h0hhhehehh 3) 4L " 7L  L L~ ! !" LL8 p#ĎLƭƂƃLƭ~ L hhhhLhh 3) 4L  7L LHHHH L L L  LʕL{hhHHHHHHHHHHHH`L{L֭hJJJJ) ʕ))`,10 )?ILS` felм`|H > >'È < ʻh`@ 0`+` HH ʻ < GhhL> `,10` ` ` ` OȄ`H$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH >'(hH hhehL>'O`J>Lʾ80 %,M8$LaLƾhhhhhhhhץHH` ߼                   0       ؂    2    r ɡ1i      t     @צORANGE @BLACKׯ@WHITEׯ @NONEׯ@צBLUE @GREENׯ@SNOWׯەڕɡ6ȡ)ɡ4ȡ)Bp"LVVP   O ?THISISIT THISISIT - 0 5J5* ߼؈ȩؠ#в   483*ǧ@צORANGE'& 40ȡ- á/+ة.4B1zȡ'z/. @2zצ WINNING HANDS(XǤ2 Ǡ  Lǜ  $Hǜ  ǜ  ǿ z1 PAI á á á6láááá6!2áááá$.4E4áE4E4@H/ȡ/+ة. á   š*6 ,n á    ǿ n- -Í @BLACKתÍ @צORANGE6Táááááá á á á áϫ)2*š  á*+4ȡE44ȡr44ȡ$E4áE4ٚ8ȡ$E4áE4ٚy4g ,á&ǿ  , 'á,  , 'á,  , 'á,  , 'á,  ,  'á, ( , 'á, d , K'á,  ,  ǐ*d:%  "&   .'   .( )'á,  , 'á,4      .!   ("   (#   :$    (  (   4  "  "  ۂقL fۂڂȡDۂڂۂقۂقۂڂL f   (   .                 ۂقȡDۂقڂقڂق͂                               $         j     ث%J4Ǘ@צORANGE'"J5JǗ@צORANGE#"$J6٫ث@צGREEN"" &l7>,؏>ȡ >>>>&8- ǁǓǷ  ǿ 1+.42+.53+.64+.-_i  S]  GQ  ;E  /9   #6:\2> P pLVVP ZERODISTSETPAY LISTHANDSHOWDISTRESTORE PLAYSAFEPCHECK1 PCHECK2 ADVISE '*yBá'*(T A,9;yXáXPyHá:yPéyRÍyPáPPRPzצYOU HAVE 100 SILVER DOLLARS(!2zצ TO GAMBLE(i2`78-A'á.<pd0 * V  h B<d"V~,Z:t2 $NX(2hj L!!P"j"AyAá'*yBá'*(T A,9;yXáXPyHá:yPéyRÍyPáPPRPzצYOU HAVE 100 SILVER DOLLARS(!2zצ TO GAMBLE(i2`78-A'á.< >ȡ",> <>>zB(Ǥ2'*Lj> >ȡ$,> <>>yyAáD?-> >ȡإ5> >>zHANDS: WINS:ת(4Ƿ2\Ƿ*<ǼǷ<3zPAYSת(&Ǥ2Lj> >ȡ",> <>>zצWINS(Ǥ2Lj> >ȡ$5> <>>zR: RESUMETQ<TǛǹ  zYOUR POTת( ǭ2z$(ǡ2ǡ)<ǿ J=Ǜǹ  zYOUR BETת(ǭ2z$(ǡ2ǡ$<ǿ T>Ǜǹ  zHANDSת(ǭ2ǡ*<ǿ  ád'ááȡ á1 á2 á3 á4 á5 á6 á7 á8  á9 á0R: FOR REGULAR PLAYת(0Z2zצX: TO EXIT THE CASINO(0<2yyHéyPÍyRÍyXÍ%;     'ġdġ2ݕ  ߕáݕ ádáIN, YOUR BET AND PAYOFF WILL BEת(2zצSHOWN AT THE TOP OF THE SCREEN.(2zצPRESS RETURN TO PLAY AGAIN.(2y4:-$.Ǭ  *4Ǧ  ǿ zH: FOR THE HOUSE RULESת(0ǖ2zP: FOR PROMPTED PLAYת(0x2z WILL BE DEALT 5 CARDS. TYPEת(V2zצ!THE NUMBERS OF THE CARDS YOU WANT(L2zצ!TO DISCARD. IF A MISTAKE IS MADE(B2zצ JUST TYPE THE SAME NUMBER AGAIN.(82zPRESS RETURN TO DRAW NEW CARDS.ת(.2zAFTER DRAWING NEW CARDS, IF YOUת($2z WACHINES (A OR B). BOTH PLAY THE(ǜ2zצSAME RULES, THE ONLY DIFFERENCE(ǒ2zצIS THE PAYOFF RATES.(Lj2z!YOU BET BY ENTERING THE NUMBER OFת(y2z!DOLLARS YOU WISH TO GAMBLE. FROMת(o2z!1-5 DOLLARS MAY BE BET EACH HAND.ת(e2z YOUONS PLUS, INC.(22y-4>>0š>+.8#9-  Ǽ  Ǽǿ  ǿ  ǿ z!UPON ENTERING THE CASINO, YOU MAYת(ǰ2z SELECT EITHER OF TWO VIDEO POKERת(Ǧ2zצ!M #-  ǿ `RTEHT<U0R$N ǓǷ  ǿ zצAN(ǧ2Ǧ@BLUEת)zצPRODUCT(Ǘ2*  ǿ zצ COPYRIGHT (C) 1986,(22zצAPPLICATIBBB B B B B BBBpD Dȡ9D DD. ..CODE.CODEPDISKWAPDISKԍ֍br r b^br APP`b6 6 ^``Pb6 r   Ʉ  åń Ʉ  åń Ʉ  h Í ȡáȡH$˥$˄$$ȡ  å Ą   åń Ʉ  åń,á  ȡȡB$š,$$ÍÍÍ ȡáȡH$˥$,áY THROW BOTH EXTRA CARDS & TRY FORת( ǀצ4 OF A KIND, OR A FULL-HOUSE.( x,áGצ THROW THE EXTRA CARD & TRY FOR A( ǀ FULL-HOUSE.ת( x צLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.ʥ YOU HAVE A WINNING HAND, DISCARDת( ǰצ ONLY THOSE CARDS THAT ARE NOT AN( ǨINTEGRAL PART OF YOUR HAND. INת( ǠTHIS SITUATION, YOU SHOULD:ת( ǘ,šDHOLD YOUR HAND AND COLLECT YOURת( ǀ WINNINGS.ת( x X: EXIT(a * צ ROYAL FLUSH(`T *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.DDȡ DDDD(6 WINS:ת(4Ƿ\Ƿ.ǼǷ צPAYS(&ǤD Dȡ ǖD0D DDWINSת(ǤD Dȡ"ǖD9D DD򥀀צR: RESUME Z: ZERO X: EXIT(a * צ ROYAL FLUSH(`T *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.D Dȡإ9D DDHANDS: WINS:ת(4Ƿ\Ƿ.ǼǷ צPAYS(&ǤD Dȡ ǖD0D DDWINSת(ǤD Dȡ"ǖD9D DD򥀀צR: RESUME Z: ZERO 4 OF A KINDת(`4STRAIGHT FLUSHת(T&צ ROYAL FLUSH(`T *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.ʥ WINNING HANDSת(XǤ Ǡ  Lǜ  $Hǜ  ǜ  ǿ צ1 PAIR-(pǐצJACKS OR BETTER(PLjצ2 PAIR(tz 3 OF A KINDת(`lSTRAIGHTת(l^צFLUSH(xPצ FULL HOUSE(dB+á0  0  ǐ.d-26 PPb6 *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.ʩ+á0  0 +á0  0 +á0  0 +á0  0 +á0  0 +á0  0  +á0 ( 0 +á0 d 0 KAPPLE1T POKER.CODEz6 z|z6 PPb6 *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.˄$$ȡ  å Ą   åń Ʉ  åń ȡ ȡš= á$$š/ á åń                r       0          2    )ɡ1i      t       BڂC؂ BڂC؂BقC؂BقC؂BڂC؂BBڂCق BڂCقBڂC؂BڂC؂BڂCقB ەڕɡ6ȡ)ɡ40ɩō á  á(  FצORANGE FBLACKׯFWHITEׯ FNONEׯFצBLUE FGREENׯFSNOWׯ  DDȡ; Dá# DDDDDDDȡ DDDDvǹ  ǿ E,š   [  á/á Sá /ũ:Ʉ צ (EXCEPT:10 10 J Q K)(á%* FOUR TO AN OUTSIDE STRAIGHTת(áK* FOUR HIGH CARDSת( צ (EXECPT:3 TO A STRGHT FLUSH)(áL* THREE HIGH CARDSת(  (EXCEPT:HOLD 2 SUITED CARDS)ת( áצ* TWO HIGH CARDS( á* ONE HIGH CARDת( á * DISCARD ALL FIVE CARDSת( + hNDת(á( * FOUR CARDS TO A STRAIGHT FLUSHת(áצ * HIGH PAIR(áצ* FOUR CARDS TO A FLUSH(á<צ * LOW PAIR( צ (EXCEPT:10 10 J Q K)(á%* FOUR TO AN OUTSIDE STRAIGHTת(áK* FOUR HIGH CARDSת( צ (EXECPT:3 TO A STRGHT FLUSH)(áL* THREE HIGH CARDSת(  (EXCEPT:HOLD 2 SUITED CARDS)ת( áצ* TWO HIGH OPTIONS IN PRIORITY ORDERת((ǰǤ ȡ áá)!* TWO PAIR OR HIGHER WINNING HANDת(á( * FOUR CARDS TO A STRAIGHT FLUSHת(áצ * HIGH PAIR(áצ* FOUR CARDS TO A FLUSH(á<צ * LOW PAIR( åń   ȡ)å ōå Ä  å Ä Í  å Ä Í   å  Í    ȡ áá   3: H$$š/ á åń  åń   ȡ)å ōå Ä  å Ä Í  å Ä Í   å  Í     h     j              ÄÄ,Lå Ä Ä Ä Ä, 6åÍÍ,åÄ,å Ä Ä Ä Ä ,åÄÄÄ,åÄåÍ,åÄåÄ,$$å$$Ä$$Ä$$$ȡȡɡDD$D$$$DDD K4K4>F3ȡ3ة& 44ȡ- á3ة4B5ȡ( 0. Bȡ.ááááááá á á á á á6lááá á!6!2ááá á!$4K4ˡ    ǿ X&   Q\   LJǒ   ǽ     ǿ FצWHITE 1T 2NJ 3 4 52 Í FBLACKתÍ FצORANGE6Tá*4ȡK44ȡr44ȡ$K4áK4ٚ8ȡ$K4áK4ٚy4g 1áǿ á   š!6 ,n á   "+   ,   ,-   ,.  /  "0š   "#   $  %   &&  '  (  &) *                !   "                                  $    ؕ    j       Ä,åÄ,åÄ,å ĄåÄ,å ĄåÄ,å ĄåÄ,Rå ĄåÄ,B7,6,á7fDzǡdz@צORANGE @BLACKׯ@WHITEׯ @NONEׯ@צBLUE @GREENׯ@SNOWׯەڕɡ6ȡ)ɡ4ȡ)Bp"LVVP n-a-jd  T  rT| H`8`D6~j> !X!r!!"v#l| AX򥀕P/R/A++=?@)á XáZá=>2:E14 5EáPǀnj  ǿ ,š(Eávǹ  ǿ =>8A..-á0<Xá(Dá ZáCá d-9; R BETTERת(0LJFWHITEת0, )-؂-} צ"BET: ODDS PAYS: })z}0, צ:1}AX򥀕P/R/A++ͥ ROYAL FLUSHת(`LJ,áצSTRAIGHT FLUSH(TLJ,áצ 4 OF A KIND(`LJ,á FULL HOUSEת(dLJ,áFLUSHת(xLJ,áצSTRAIGHT(lLJ,áצ 3 OF A KIND(`LJ,á2 PAIRת(tLJ,á%1 PAIR, JACKS Onצ (1-5 COINS)(`XB*  ǿ 0 FOR DISTRIBUTIONת(D OF WINNING HANDSת(L/ũ6Ʉ0))-š-)-)-8 @0, *)*9, 9, {Ǒ  FצWHITE, áǿ L=Ǜǹ  צYOUR BET(ǭ$(ǡǡ)ǿ V>Ǜǹ  צHANDS(ǭǡ.ǿ F?Rlx  ^ǸVb  ǿ FWHITEתצPLACE YOUR BET(Tá2 á3 á4 á5 á6 á7 á8  á9 á0TQ{TǛǹ  צYOUR POT( ǭ$(ǡǡ-EXIT THE CASINO FOR NOW(<<ȡ 'ġdġ2ݕ  ߕáݕ ádá ád'ááȡ á1 ǧ  ǿ #B B"B B.B B(BB+B B,BB#B B"B B.B B'B B(BB%B B-.ǎ  4Lj  ǿ צC: TO CASH ANOTHER 100 DOLLARS(xD: DISTRIBUTION OF WINNERSת(ZצX: TO  r:D,؏Dȡ DDDD&;JBǭCFצORANGE@ǧǿ  Fǫǻ  ǎǧ  ǎǩ   ǎǫ  @ǧǫ  ǧǫ  ǎǫ  ǎǩ  ǎ  FORANGEתhBǤC0BB(B B+BB+BB%B B-X8`BCFצGREEN&B B,B B,B B$BB*B B/B B#B B)T9/áDPǀnj  FWHITEתצS FOR STRATEGY(Tǂǿ  ȡɡ1i      t         2    r ٫)2*š  á*+4ȡE44ȡr44ȡ$E4áE4ٚ8ȡ$E4áE4ٚy4g ,á&ǿ  , 'á,  , 'á,  , 'á,  , 'á,  ,  'á, ( , 'á, d , K'á,  ,  ǐ*d:%  "&   .'   .( )'á,  , 'á,4      .!   ("   (#   :$    (  (   4  "  "  ۂقL fۂڂȡDۂڂۂقۂقۂڂL f   (   .                 ۂقȡDۂقڂقڂق͂                               $         j     ؕ               h      j                     0        á   š*6 ,n á    ǿ n- -Í @BLACKתÍ @צORANGE6Táááááá á á á á á á á6láááá6!2áááá$.4E4áE4E4@H/ȡ/+ة. Z: ZERO L: LEAVEת(2y_ ,@zצSELECT A MACHINE: TYPE A OR B(Ƿ23zA(2Ǥ2'*Lj> >ȡ",> <>>zB(Ǥ2'*Lj> >ȡ$,> <>>yyAáD?-> >ȡإ5> >>zHANDS: WINS:ת(4Ƿ2\Ƿ*<ǼǷ<3zPAYSת(&Ǥ2Lj> >ȡ",> <>>zצWINS(Ǥ2Lj> >ȡ$5> <>>zR: RESUMETQ<TǛǹ  zYOUR POTת( ǭ2z$(ǡ2ǡ)<ǿ J=Ǜǹ  zYOUR BETת(ǭ2z$(ǡ2ǡ$<ǿ T>Ǜǹ  zHANDSת(ǭ2ǡ*<ǿ  ád'ááȡ á1 á2 á3 á4 á5 á6 á7 á8  á9 á0R: FOR REGULAR PLAYת(0Z2zצX: TO EXIT THE CASINO(0<2yyHéyPÍyRÍyXÍ%;     'ġdġ2ݕ  ߕáݕ ádáIN, YOUR BET AND PAYOFF WILL BEת(2zצSHOWN AT THE TOP OF THE SCREEN.(2zצPRESS RETURN TO PLAY AGAIN.(2y4:-$.Ǭ  *4Ǧ  ǿ zH: FOR THE HOUSE RULESת(0ǖ2zP: FOR PROMPTED PLAYת(0x2z WILL BE DEALT 5 CARDS. TYPEת(V2zצ!THE NUMBERS OF THE CARDS YOU WANT(L2zצ!TO DISCARD. IF A MISTAKE IS MADE(B2zצ JUST TYPE THE SAME NUMBER AGAIN.(82zPRESS RETURN TO DRAW NEW CARDS.ת(.2zAFTER DRAWING NEW CARDS, IF YOUת($2z WACHINES (A OR B). BOTH PLAY THE(ǜ2zצSAME RULES, THE ONLY DIFFERENCE(ǒ2zצIS THE PAYOFF RATES.(Lj2z!YOU BET BY ENTERING THE NUMBER OFת(y2z!DOLLARS YOU WISH TO GAMBLE. FROMת(o2z!1-5 DOLLARS MAY BE BET EACH HAND.ת(e2z YOUONS PLUS, INC.(22y-4>>0š>+.8#9-  Ǽ  Ǽǿ  ǿ  ǿ z!UPON ENTERING THE CASINO, YOU MAYת(ǰ2z SELECT EITHER OF TWO VIDEO POKERת(Ǧ2zצ!M #-  ǿ `RTEHT<U0R$N ǓǷ  ǿ zצAN(ǧ2Ǧ@BLUEת)zצPRODUCT(Ǘ2*  ǿ zצ COPYRIGHT (C) 1984,(22zצAPPLICATI &l7>,؏>ȡ >>>>&8- ǁǓǷ  ǿ 1+.42+.53+.64+.-_i  S]  GQ  ;E  /9  ǫ%J4Ǘ@צORANGE'"J5JǗ@צORANGE#"$J6٫ث@צGREEN""R-ת(pǐ2zJACKS OR BETTERת(PLj2z2 PAIRת(tz2zצ 3 OF A KIND(`l2zצSTRAIGHT(l^2zFLUSHת(xP2z FULL HOUSEת(dB2zצ 4 OF A KIND(`42zצSTRAIGHT FLUSH(T&2z ROYAL FLUSHת(`2>3*ǧ@צORANGE'& 40ȡ- á/+ة.4B1zȡ'z/. @2zצ WINNING HANDS(XǤ2 Ǡ  Lǜ  $Hǜ  ǜ  ǿ z1 PAI'*yBá'*(T A,9;yXáXPyHá:yPéyRÍyPáPPRPzצYOU HAVE 100 SILVER DOLLARS(!2zצ TO GAMBLE(i2`78-A'á.<f$X.\<v4 &PZ*4jl N!!R"l"AyAá YOU HAVE A WINNING HAND, DISCARDת( ǰצ ONLY THOSE CARDS THAT ARE NOT AN( ǨINTEGRAL PART OF YOUR HAND. INת( ǠTHIS SITUATION, YOU SHOULD:ת( ǘ,šDHOLD YOUR HAND AND COLLECT YOURת( ǀ WINNINGS.ת( x X: EXIT(a * צ ROYAL FLUSH(`T *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.DDȡ DDDD(6 WINS:ת(4Ƿ\Ƿ.ǼǷ צPAYS(&ǤD Dȡ ǖD0D DDWINSת(ǤD Dȡ"ǖD9D DD򥀀צR: RESUME Z: ZERO X: EXIT(a * צ ROYAL FLUSH(`T *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.D Dȡإ9D DDHANDS: WINS:ת(4Ƿ\Ƿ.ǼǷ צPAYS(&ǤD Dȡ ǖD0D DDWINSת(ǤD Dȡ"ǖD9D DD򥀀צR: RESUME Z: ZERO 4 OF A KINDת(`4STRAIGHT FLUSHת(T&צ ROYAL FLUSH(`T *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.ʥ WINNING HANDSת(XǤ Ǡ  Lǜ  $Hǜ  ǜ  ǿ צ1 PAIR-(pǐצJACKS OR BETTER(PLjצ2 PAIR(tz 3 OF A KINDת(`lSTRAIGHTת(l^צFLUSH(xPצ FULL HOUSE(dB+á0  0  ǐ.d-26 PPb6 *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.ʩ+á0  0 +á0  0 +á0  0 +á0  0 +á0  0 +á0  0  +á0 ( 0 +á0 d 0 KAPPLE1T POKER.CODEz6 z|z6 PPb6 *,, POKER.CODETEM.SWAPDISK ̅(צPOKER.TEXT - %̅,ړצLis POKER.CODEK.CODE[*]APPLE2:SYSTEM.SWAPDISK.D Dȡ9D DD. ..CODE.CODEPDISKWAPDISKԍ֍br r b^br APP`b6 6 ^``Pb6 r  BBB B B B B BBBp #6:\2> P pLVVP ZERODISTSETPAY LISTHANDSHOWDISTRESTORE PLAYSAFEPCHECK1 PCHECK2 ADVISE '*yBá'*(T A,9;yXáXPyHá:yPéyRÍyPáPPRPzצYOU HAVE 100 SILVER DOLLARS(!2zצ TO GAMBLE(i2`78-A'á.<F3ȡ3ة& 44ȡ- á3ة4B5ȡ( 0. Bȡ.ááááááá á á á á á6lááá á!6!2ááá á!$4K4ˡ    ǿ X&   Q\   LJǒ   ǽ     ǿ FצWHITE 1T 2NJ 3 4 52 Í FBLACKתÍ FצORANGE6Tá*4ȡK44ȡr44ȡ$K4áK4ٚ8ȡ$K4áK4ٚy4g 1áǿ á   š!6 ,n á   "+   ,   ,-   ,.  /  "0š   "#   $  %   &&  '  (  &) *                !   "                                  $    ؕ    j       ٕ               h     j               r       0    $ȡȡɡDD$D$$$DDD åÍ,åÄåÄ,$$å$$Ä$$Ä$$=?@)á XáZá=>2:E14 5EáPǀnj  ǿ ,š(Eávǹ  ǿ =>8A..-á0<Xá(Dá ZáCá d-9; R BETTERת(0LJFWHITEת0, )-؂-} צ"BET: ODDS PAYS: })z}0, צ:1}AX򥀕P/R/A++ͥ ROYAL FLUSHת(`LJ,áצSTRAIGHT FLUSH(TLJ,áצ 4 OF A KIND(`LJ,á FULL HOUSEת(dLJ,áFLUSHת(xLJ,áצSTRAIGHT(lLJ,áצ 3 OF A KIND(`LJ,á2 PAIRת(tLJ,á%1 PAIR, JACKS Onצ (1-5 COINS)(`XB*  ǿ 0 FOR DISTRIBUTIONת(D OF WINNING HANDSת(L/ũ6Ʉ0))-š-)-)-8 @0, *)*9, 9, {Ǒ  FצWHITE, áǿ L=Ǜǹ  צYOUR BET(ǭ$(ǡǡ)ǿ V>Ǜǹ  צHANDS(ǭǡ.ǿ F?Rlx  ^ǸVb  ǿ FWHITEתצPLACE YOUR BET(Tá2 á3 á4 á5 á6 á7 á8  á9 á0TQ{TǛǹ  צYOUR POT( ǭ$(ǡǡ-EXIT THE CASINO FOR NOW(<<ȡ 'ġdġ2ݕ  ߕáݕ ádá ád'ááȡ á1 ǧ  ǿ #B B"B B.B B(BB+B B,BB#B B"B B.B B'B B(BB%B B-.ǎ  4Lj  ǿ צC: TO CASH ANOTHER 100 DOLLARS(xD: DISTRIBUTION OF WINNERSת(ZצX: TO  r:D,؏Dȡ DDDD&;JBǭCFצORANGE@ǧǿ  Fǫǻ  ǎǧ  ǎǩ   ǎǫ  @ǧǫ  ǧǫ  ǎǫ  ǎǩ  ǎ  FORANGEתhBǤC0BB(B B+BB+BB%B B-X8`BCFצGREEN&B B,B B,B B$BB*B B/B B#B B)T9/áDPǀnj  FWHITEתצS FOR STRATEGY(Tǂǿ  ȡؕåÄ,å ĄåÄ,Rå ĄåÄ,B7,6,á7fDzǡdzÄ,åÄ,åÄ,å ĄåÄ,å ĄÄÄ,Lå Ä Ä Ä Ä, 6åÍÍ,åÄ,å Ä Ä Ä Ä ,åÄÄÄ,åÄn-a-jd  T  rT| H`8`D6~j> !X!r!!"v#l| AX򥀕P/R/A++ ȡ áá   3: H$$š/ á åń                 h     j               r       0          2    )ɡ1i      t       BڂC؂ BڂC؂BقC؂BقC؂BڂC؂BBڂCق BڂCقBڂC؂BڂC؂BڂCقB ەڕɡ6ȡ)ɡ40ɩō á  á(  FצORANGE FBLACKׯFWHITEׯ FNONEׯFצBLUE FGREENׯFSNOWׯ  DDȡ; Dá# DDDDDDDȡ DDDDvǹ  ǿ E,š   [  á/á Sá /ũ:Ʉ צ (EXCEPT:10 10 J Q K)(á%* FOUR TO AN OUTSIDE STRAIGHTת(áK* FOUR HIGH CARDSת( צ (EXECPT:3 TO A STRGHT FLUSH)(áL* THREE HIGH CARDSת(  (EXCEPT:HOLD 2 SUITED CARDS)ת( áצ* TWO HIGH CARDS( á* ONE HIGH CARDת( á * DISCARD ALL FIVE CARDSת( + hNDת(á( * FOUR CARDS TO A STRAIGHT FLUSHת(áצ * HIGH PAIR(áצ* FOUR CARDS TO A FLUSH(á<צ * LOW PAIR( צ (EXCEPT:10 10 J Q K)(á%* FOUR TO AN OUTSIDE STRAIGHTת(áK* FOUR HIGH CARDSת( צ (EXECPT:3 TO A STRGHT FLUSH)(áL* THREE HIGH CARDSת(  (EXCEPT:HOLD 2 SUITED CARDS)ת( áצ* TWO HIGH OPTIONS IN PRIORITY ORDERת((ǰǤ ȡ áá)!* TWO PAIR OR HIGHER WINNING HANDת(á( * FOUR CARDS TO A STRAIGHT FLUSHת(áצ * HIGH PAIR(áצ* FOUR CARDS TO A FLUSH(á<צ * LOW PAIR( åń   ȡ)å ōå Ä  å Ä Í  å Ä Í   å  Í       j                       $    ؕåÄ,å ĄåÄ,Rå ĄåÄ,B7,6,á7fDzǡdzÄ,åÄ,åÄ,å ĄåÄ,å ĄÄÄ,Lå Ä Ä Ä Ä, 6åÍÍ,åÄ,å Ä Ä Ä Ä ,åÄÄÄ,åÄåÍ,åÄåÄ,$$å$$Ä$$Ä$$$ȡȡɡDD$D$$$DDD K4K4>F3ȡ3ة& 44ȡ- á3ة4B5ȡ( 0. Bȡ.ááááááá á á á á á6lááá á!6!2ááá á!$4K4ˡ    ǿ X&   Q\   LJǒ   ǽ     ǿ FצWHITE 1T 2NJ 3 4 52 Í FBLACKתÍ FצORANGE6Tá*4ȡK44ȡr44ȡ$K4áK4ٚ8ȡ$K4áK4ٚy4g 1áǿ á   š!6 ,n á   "+   ,   ,-   ,.  /  "0š   "#   $  %   &&  '  (  &) *                !   "                    FORANGEתhBǤC0B B(BB+B B+B B%B B-X8`BCFצGREEN&B B,B B,B B$BB*B B/B B#B B)T9/áDPǀnj  FWHITEתצS FOR STRATEGY(Tǂǿ  ȡ r:D,؏Dȡ DDDD&;JBǭCFצORANGE@ǧǿ  Fǫǻ  ǎǧ  ǎǩ   ǎǫ  @ǧǫ  ǧǫ  ǎǫ  ǎǩ  ǎCá d-9; 0d-L. H  L >`4VxTvPD "Z ~ !P!!!<""# A  X򥀕P/R/A++=?@)á XáhZá=>2:E14 5,š(Eávǹ  ǿ =>8A..-á0<Xá(Dá ZáR BETTERת(0LJFWHITEת0, )-؂-} צ"BET: ODDS PAYS: })z}0, צ:1}Aצ IORESULT = " צ MEMORY = (   ROYAL FLUSHת(`LJ,áצSTRAIGHT FLUSH(TLJ,áצ 4 OF A KIND(`LJ,á FULL HOUSEת(dLJ,áFLUSHת(xLJ,áצSTRAIGHT(lLJ,áצ 3 OF A KIND(`LJ,á2 PAIRת(tLJ,á%1 PAIR, JACKS Onצ (1-5 COINS)(`XB*  ǿ 0 FOR DISTRIBUTIONת(D OF WINNING HANDSת(L/ũ6Ʉ0))-š-)-)-8 @0, *)*9, 9, {Ǒ  FצWHITE, áǿ L=Ǜǹ  צYOUR BET(ǭ$(ǡǡ)ǿ V>Ǜǹ  צHANDS(ǭǡ.ǿ F?Rlx  ^ǸVb  ǿ FWHITEתצPLACE YOUR BET(Tá2 á3 á4 á5 á6 á7 á8  á9 á0TQ{TǛǹ  צYOUR POT( ǭ$(ǡǡ-EXIT THE CASINO FOR NOW(<<ȡ 'ġdġ2ݕ  ߕáݕ ádá ád'ááȡ á1 ǧ  ǿ #B B"B B.B B(BB+B B,BB#B B"B B.B B'B B(BB%B B-.ǎ  4Lj  ǿ צC: TO CASH ANOTHER 100 DOLLARS(xD: DISTRIBUTION OF WINNERSת(ZצX: TO