#ee@@@@@@@@ @ @ @ @ @@@@ @@A A< Ax A A A, AhA   A A$ A` A  A! A" A#P A$ A% A& A' A(V A) A* + ,! -= .> A/D A0 5A152TA3Z A4 A5 A6 7@8A 9A4:@;A<@=@>@?@@@A@B@C@D@ E@ F@G@HI@JK@L@M@N@ O@P@ Q@RST@UVW@X@YZ@[@\]@^@_@`a@b@cdAef@ghij@kl@m@nopB(qrs@tuvw XXx@yz@{|@}@~@@@@@A A A@ A| **dd/TURBO TEXAS HOLDEM 2.1/(C)MAY.1988/G.MARTIN/USES TURBO-BASIC XL 1.5/ATARI 1200XL/6502 CPU/64K6-6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@ {6-@ 6-@ 6-@6-@6-@6-@6-@6-@ 6-@6-@9,9,9,339,9,9,9,9,;,;@&,9,LL9,9,9,9,9,9,9, 9, 9, 9,9,;@B,229<,9<,9,9,9,9,;@#,00;@(,;@,;,9,;A,449@R,9@R,;,9,9,9,9,:6.^%@&6-@ 6--6 -@:6 -@ )6. FDARZ#6-)6- I6. A23456789;JQKI6.*out____BETS___CALL___RAZE!__RAZE!!_RAZE!!! 16-A 6-A4!6-'6--6-1+ 3@A'B7tA-3,(,(!TEXAS HOLDEM 2.1(C)1988 G. MARTIN))(!PO BOX 31241 BETHESDA MD. 20814!!( Ů((( ALL RIGHTS RESERVED. YOU MAY --(%SELL THIS, BUT A DISK COPY FEE OF $10++(#OR LESS IS O.K. THIS NOTICE MAY ,,($BE REMOVED AND YOU MAY NOT ALTER THE))(!SOURCE CODE OR INTERFERE WITH IT.0(0(% IS $5. AND IS DEDUCTIBLE--(%FROM 1ST ORDER. ɠ̯ŠĠ--(%IBM-PC 128K/ MS/PC-DOS/ 5.25 DISK.FOR0(0(%$11.00, TEXAS HOLDEM OR OMAHA.,,($ TEXAS AND OMAHA HOLDEM, $16.00.,,($PRICE INCLUDES $1.00 SHIPPING. ''(TERMS:DEFECTIVE DISKS REPLACED. $$( ŠˠΠŠ!'('( ŠˠǮ#T:,@5(0 -68,-A#68,-,68,-0 3WW67@<@`,.< ^ % @ & 4WW67@a<A ,.< ^ ^ % % @ @ & & 5WW67A!<A,.< ^ ^ ^ % % % @ @ @ & & & 6WW67A<A@,.<^ ^ ^ ^% % % %@ @ @ @& & & &7WW67AA<A,.<^ ^ ^ ^ ^% % % % %@ @ @ @ @& & & & &8WW67A<A`,.<^ ^ ^ ^ ^ ^% % % % % %@ @ @ @ @ @& & & & & &9WW67Aa<A ,.<^ ^ ^ ^ ^ ^ ^% % % % % % %@ @ @ @ @ @ @& & & & & & &:WW67A!<A,.<^ ^ ^ ^ ^ ^ ^ ^% % % % % % % %@ @ @ @ @ @ @ @& & & & & & & &;WW67A<A@,.<^ ^ ^ ^^^ ^ ^ ^% % % %%% % % %@ @ @ @@@ @ @ @& & & &&& & & &<WW67AA<A,.<^^^ ^ ^ ^ ^ ^^^%%% % % % % %%%@@@ @ @ @ @ @@@&&& & & & & &&&B$ AI A@$GOSUB 5200D A  A!E A" A6-KAY@4 AMA0O A1Q 6- AU Au6- AX! 6-6-6-6-!6-Y 6-6- A[A0_ A16- Apb Au6- Af! 6-6-6-6-!6-g 6-6- AiA0m A16- App Au6- As! 6-6-6-6-!6-x# 6-6- A# A0$8,")8%,"$68,-@% )8,@E$+8,&8%,,$-%+8,&8%,,'$# 68,-@E'# AY 6-68,-68,-$68,--68,-668,-?68,-H68,-P6-%Y68,-! 6-6-6-6-!6--%66- !6-& A5 6--&68<,8<,A%  6-%6- 6-%/ 6-%68,-8<,&8,"/68,- "68,-8, A5&"*8, 68,-8,& A5&"*8,!68,-8,& A5&"*8, 68,-8,& A5-"*8,!*8, #68,-8,- A5 "68,-8, A5 - 8,"68,-8,$68,-8,-68,-! 8,"68,-8,!68,-! 8,"68,-8,!68,-9-+8,8,)8,8,,*+8,)+8,",,36-96-*+")",*8, *68,-8,%?%A 8,!* A >;+&,AEAHAQAWA`A>$8 68,-%+!)!,*8, @P468,-@P8  68,-8, 68,- % !68,-@P!68,-%  68,-8, 68,- " 8,!68,-68,-" 8,!A ;8,!*!68,-(8, @P768,-@P; ' 8,!68,-8, '68,- % 68,-68,-!68,-8,% " 8,!68,-68,-" 58,!*8,!68,-%68,-168,-8,5 8,!A c68,!*+8,!)8,!,*!*!E68,-@T8, @Pc68,-@P8,!A 0+8,!*8,!,68,-'8, 068,- + 6-"+ * ,*+8,*!,+68,-" 8,!68,-68,-" 18,!*8,!68,-8,(68,-168,-.8,!*+!*!,%68,-@P.68,- ( --6-"6-8,(6-8, Ap, 6-8,6-8%, 6-8,,6-8%,"+"* ,*+* ,6-"$+"*,6-$+"* ,AU& 6- "*!*$+&8,, &6- "*!*$+&8,,  6-08,!*0+&,AAA  8,  A 8,  A 8,  A+ " A(0 6- A%5 6-$: 6-6- ?   $X$ 6-6-- 68,-$ Z --] 8,"68,-8,%b  6-6-6-e "6-g 6-6--h !*"6-%8,j 8,"6-8,6-l' 8,!6-6-8,!6-'6-n  6-6-6-q##+&,APAPAuv$++")")",*"+68,-8,%?%  $ "6-% "6-% "6-% "6-%   $. !68,-68,-$68,-. AQ+")",68,-@P$   $ "6-% "6-%+ !68,-68,-!6-+ AQ,*++!)",)+!)",,,68,-@%A $7 6-6-6-%"8<,"/68<%,-76-%-68<,"8<&,A 6-%68,-8<,  6-%68,-8<, A"* A"AU -&;8,&8%,"68,-%68,-168,-8,; A "A -&68,&8%,""68,-@%, A6 A  -&68,&8%,""68,-@E, A6 A  68<%,-- 68,- 8,A $p6-P:H:,$+8,%,%,t)"*"* 68,-#68,-&')$v)"* *"68,-#68,-&')$x "* 68,-'$z$$ 6-6-%6-6-$6-6*8, *!*+8, @P)8,!,*!368,-6$ 8,*+ )",68,- $  6-P:H:,$%,7+"*++"*+!)!)")",,)8,!,468,-7$1'+")")",*++"* ,)")",1 A=+ *+")+"*8,!* *",,*8,!16-:68,-=$68,--!8, *!*8, @P*!*68,--$=6"*++8,"*8&,!,)8&,!)+8,&8&,",,=6-!*8,&8&,"6-''+8,"*,*8, @EAA''+8,"*,*8, @EA1 "*8, *!68,- $##+&,A %A PA 68,-$ 6- * 6-C7+)++ @P$)!,*!,,*+8, *8, @ ,@68,-C$?3+)++ @P$)!,*!,,*8,"*8, *!<68,-?$ "* *8, 68,- $>#8,"*+8,8,)8,",* ,68,-2!;68,->$ 8,!$9-"*+8,!*8, ,)+8,!*8, *",668,-9$4(8,!)+"*++8,!*",)8,!,,168,-4$7+"*+") ,*"*"*+")8,!8,,468,-7$")+!*!,A H! * *!*!68,-!$:.8,"*++"8,*!8,,)+"8,*!8,,,768,-:$$"*8,!*"* !68,-$$>2"* *+"8,)"8,,*+8,!8&,*8,,;68,->$ 68,-$ "* *8,!68,- $*+"*!,*+ 8&,*,'68,-*$9-8,"*!*8,"*++* ,)+* ,,668,-9$ "* *8,!68,- $+"*+8,!)+8,!*",,(68,-+$4(8,!)+"*++8,!*",)8,!,,168,-4$! 6-+"8,)"8,,!6-5) * *+")",*+")")")",268,-5$4(* *+ )8,")8,!8&,,* 168,-4$ 68,-$* 6-%6-8, *!'68,-*$- 6-6-6-6-!6-'6--6--!"*!*8, *+!)8, ,*68,--$JJ8,A A0A@APA`ApAA0$"*"*+!)!)+8,!*",,-68,-0$ 68,-$&"*+!*!,*8, #68,-&$&*!*!*8, 8,#68,-&$, +"8,)"8,,*8,!*")68,-,$3'+"8,)"8,,*8,8,* * 068,-3$:.+"8,)"8,,*+8,!8&,*8,,*"768,-:$'"* *"*+!)!,$68,-'$ 68,-$-!*!*!*8, 8,*8,*68,--$(*!* ***!%68,-($< 6-0++8,!)8,",*8,*8,,)"<6-@ UC+"8,)"8,,*8,8,* @* @*+ @)",R68,-@U$ *8,"* * * @'68,-*$ "*+!*!,68,-$ 9-+"8,)"8,)"8,)"8,,*+")",668,-9$ ?3+8,")8,",*+")",*+") ) @,<68,-?$A5+"8,)"8,,*+8,8,*+") ) @,,>68,-A$ 68,-$7++!*",*++8,&8&,,",*8, 8,468,-7$5 68,-)*!*+"8,)"8,,* 268,-5$3'"*+"8,)"8,,* *8,8,068,-3$.+!)!,*"68,-""+68,-.$)"*+"8,)"8,,* &68,-)$2&+"8,)"8,,*++"* ,) ,/68,-2$ 8,!$ 68,-$0$+8,"* ,*+8,"*8&,",-68,-0$9 68,-6-8,!8,'68,--"668,-9$)+")",*+ *"* ,&68,-)$<0+")",*++8,*8&,,)",* *"968,-<$"*!*!68,-$ 8,!$ >+"&)"&,68,-2!)+!*+!)!,,;68,->$!@!+"&)"&,)+"&)"&,*68,-4!)"=68,-@$" 8,!$# 6-68,-$$4 68,-("*!* * *+")",168,-4$%/#"*!* * *+")8, ,,68,-/$(. 6-8,6-8,6-"6-(6-.6-)7+"*"*++"*!,)+"*!,,*"* 468,-7$*/+")",68,-#"* ,68,-/$+ 8,!$,  *"68,-$- 68,-$.< 68,-6-6++"8,)"8,,)+"8,)"8,,,<6-/S 6-8,G* @*+8,")8,",*+8,)"@)"@,P68,-S$00$*+")+"*"*+8,)",,,-68,-0$3B+"8,)"8,,68,-9+8,!8&,)8,",*"B68,-4 8,!$5 )"68,-$6%+"8,)"8,,*""68,-%$7 68,-$8( 68,-"8,)"8,%68,-($:2!8,)!8,68,-&"* /68,-2$; 8,!$<"+ * ,*+!)!,"68,-= 8,!$> "68,-$A 68,-$B? 6-8,3+"8,*",)+"8,*",)+ *",<68,-?$C1%+")",*+")! 8,)! 8,,.68,-1$G:.++"8,*! 8,%,)+"8,*! 8,%,,768,-:$H5) *++"8,*!8,,)+"*!8,,,268,-5$I/# )8,")"8,)"8,)",68,-/$J3' )"8,)"8,)")8,") 068,-3$K 68,-$LI -6-+&,$6--68,-8$%,=68,-8$%,C6-I6-O 8,  APP 8,! AuQ  6-$~) -%) @78,<8,, //6-%+@`$+8,&,,%+@$+8,&,,D --%%@ @7%+$+&,,<+%,%+$+&,,,D , -%) @ 78,<8,,,$) -%) @78,<8,, + -%%+ @78,<8,, + --%%' @]]]+ * -%%* @ 78,<8,,, -%) @ 78,<8,,,$8 6--&"-+%,688,!8&,A # 6-8,6-8,#68,-8&,=68,-8&,68&,-'68&,-58,"8&,=6-% !6-  6-$68,-8$%,68,-8$%,!6-+&,$6-6-!6-"*8,  AP$"*8,! Au$8 8, 86-%+@`$+8,&,,%+@$+8,&,,2-@2 @'78,<8,, )1 --@%- @' )1 K 8, --%G @7%+$+&,,<+%,%+$+&,,,K 7 8,!-@@7 @78,<8,,> 8,!-(-@@%: @]]]>  7 8,!-@@7 @78,<8,, 5-@2 @' 78,<8,,)5$. 6-6-%"8,*+ )",+68,-.$:.!*8, *!*+8, @P)8,!,*!768,-:$4"*8,!* *"*8,!(68,-168,-4$'+")")",*+ )",' A*+"*!,*+ 8&,*,'68,-*$2 6-,!*+ )8,!)+"*+!)",,,26-**!*!*+"* *,'68,-*$(+"*!,*+8, *!,%68,-($2&+"*+8,!* ,)8,!,)8,!/68,-2$/#"*++8,!*",)8,!,* ,68,-/$'++8,!*",)8,!,$68,-'$ 5)8,"*!*+!)+8,"*+*,,,268,-5$!! 68,-!8,"*!A!"8,"A1#8,"AA%8, A %& 68,-$( 68,-6-6-%)8,*"68,-$*8#"*8,!* *"*8,!* ,68,-568,-8$,!+")")",*"! A-(+"*!,*+8, *!,%68,-($7$+",*+!*8, ,!68,-$$AJJ8,A A0A@APA`ApAAC+"*"*+")")")",(68,-+$F 68,-$_ -6-8,a8, Ad " Af ! APh Al   $xT 6-6-6-6-!6-'6--6-36-96-E@wK6-Q6-T$ -@w5 -6-8,6- 6-)6-8,56-8%, 6-8,6-8%,8, A("A" 8, A) ! A#!"*"**8, 6-!$ 6-$ "*!6-$8, )8,!68,-- " A($"*"*8, *6--$ A%   A1@+ -68<,-8,'68<,-8,+ O68<%,-8,T68<%,-8,Y68<%,-8%,^68<%,-8%,$r68<%,-8,w68<%,-8,$ -%-%+%,68<,!8<&,A56-8<,6-8<,68<,-8<&,68<,-8<&,68<&,-68<&,-  $- 6-6-6-6-!6-'6--6-  -6-8,6- 8<,"6- 68<,-`J+8,"@)8,"@,)8,"@)+8,"@)8,"@,U68<,-`68<,-$8<,"6-$68<,-8<, 8," A0 8," AQ 6-%68,-8,& 0 -68,-68,-5  6-6-88,,:68,-8,6-? ")"$D -6-8,I!8,AN' "8,6-%68,-' AS9  8,6-8,68,-$6-,-568,-9 X  "$]< -68,-68,-! '6-06-8,66-<6-b`68,-8,]%AAAA A0A7APA`A0`$g 6-6- A5l 6-6-q -68,-8,s 6-8, v 6-6--w68,-8,{ 6-8,  6-6--68,-8, 6-8, G 6-6-8,6- -,68,-8,58,">68,-G68,-    6-6--68,-8, 6-8,  6-6-- 8<,"*8, 68<,-68,-8, 6-8, G -6-+&,$-/A5%%?A%%C G  A P-@R66-P:H:,$%,+ )!,A !+68,-F:A5%,+68,-F:A%,5A5%F:A5%,5A%F:A%,2 68,-F:A5%,/68,-F:A%,2$ A P @h48 -68,-68,-&68,-/68,-868,-9 68,- 68,-8,&< >, !-68,-(68,-8,&, H) --% @_ () K - @___R 6-8,6-8,W6-8$,6-8$,Z5 - @7<,"-5 @7<,\5 - @7<,"-5 @7<,]/ !--%+ @]]]/ ^5 - @7<,"-5 @7<,kH -68,-68,-&68,-/68,-868,-A68,-E H$ 6-8,-&68,-8%,  68,-6--8,%688,,- @!BET 5  6-8,6-&% 6-%68,-8,&$4 6-"68,-%&+',$%+',(6-.6-46- 8,"68,-$8,"*"68,-$8,"* 68,-$ # "68,-8,%@#6-  "68,-8,%6-  6-%$6-O:&, <2+")")",* *+++!)!,* ,)")",< A $8,* *!* !68,-$$ $8,!&*!*+, !68,-$$  ")"6-$ &+!)!,*+",* #68,-&$(  "6-*  "6-,  !*!68,-$. #"*+ )!)!, 68,-#$1 "*"*!68,-$2 '!*+8,!)",*"$68,-'$3 +"*+!)!)")")",(68,-+$8  68,-$ ( 6-- ((@&8,_ "*8,   -%(@pass  "6- $ A ""8,A% A%0A%@ 9 6-6-6-& 68,-)68,-3 A%`9OUT . 6-6- 6-@!' A%P.CALL 8 "6-6-6-"6-(6-.6-8 A%P % 6-%6-%!6-%6- . "6-6-"6-@".6-@( . "6-6-"6-@).6-@5 . "6-6-"6-@6.6-@B # "6-6- #6-@! ;6-%&8,%)68,-8,&%8,&26-%;68,- K -%(@7<,%- 3(@:- H(@K$ ' -2 #2'M J -% @ *-@A @&8,_J68,- 4R:,"@ A(p"-4 @CLL  8,!$ . R:," A(-. @RAZE  8,!$ . R:," A(-. @FD  8,!$ A(6 E --%# @ 9R:,"@*T:,"B68,-E$;  -  < ' - @Al#-' = R:,@$?  A(p$@ ? --%# @ 3R:,"*T:,"<68,-?$E  -  F ' - @AE#-' G  R:,$I  A($J ? --&# @ 3R:,"*T:,"<68,-?$O  -  P  R:,$Q ( - @OL$-( S  A($T I 6-6-%6-6-(68,-.6-46-;6-C6-%I6-V  "6-%X % 6-+!)",*+!)",%6-\ 0*"**6-$68,--68,-0$^ ' *"6-68,-$68,-'$` *"68,-68,- $a !6-@%+$,6-!6-b  "6-%6-%c  "6-%6-%d 6-O:&,e <2+")")",* *+++!)!,* ,)")",< Af 68,-+%,&$%+',g  "6-%h  "6-&i +8,!*",68,-$l (+8,!%* *!,* %68,-($m  6-&6-"6-n "+8,!**!,68,-"$r  "68,-$s $++,!)+,!,*"!68,-$$u "*"*!68,-$v $"*!*+!)!,!68,-$$~ /#"*"*+")")!)!)",,68,-/$ +"*+!)!)")")",(68,-+$ #"*+ )!)!, 68,-#$  68,-$ 8 --%' @_____88,"A0 = -6-8%+&,$,-6-8%+&,$,=-+&,$%% ! @7<,7<,!  $ 6-P:?$,!$6-  -68,-8,  , A6--$8, ,6-&    6- 6-& F -6-8,"-@82@@@< F2 4 -%! @WN _<_468,-8,%P:',    -68,-8,  ! -! @ ____CONT? T:,A0# > - @________4-@A8 >6- Q --%/ @)8,____3 96-?6-E6-K6-Q6- D 6-8,)8,!AI)8, 6A91-@68,-AD  ! -! @ ____DEAL? T:,A0` 00COUNT=COUNT+N1:IF COUNT>C8 THEN GOSUB 5200 AY A@  -- '68<,-68<,- ! '6- ;;FOR K=C2 TO C10:POSITION C2,K:PRINT #6;"_ ";:NEXT K  !6- + -68,-68,-! + @h  A1  - @READY? T:,A1  - @ ! 0 --8,%@088,,"A1'  @_______(   6-6-* !-@! @____0  6-6-6-6-5 A -68,-68,-&68,-/68,-868,-A68,-:   $H  -&"6-J  6-8,6-8%,M ) !8,68,- A8) A4 R ' 8,"6-%68,-' A4 W 3 8,!6-!68@,-*6-8,368,-\ "  "68@,-8,"$]  -68,-8, _ 6-8,a $$*8,*8,*8,A5f +*+8,")8,",)8,"( A8P+$k 8,"A4Up $ 6-6-8,6-6-$6-u  -68,-8,w  68,-68,-8,x  8,"68,-y  68,-8,z   0 6-6-88,,6-!6-'6-06-8,  8,!6-8, - 68,-8,68,- 68,-8,   , -6-8, 8,!8,,68,-8, 8,!8,68,-8,  68,-8,  3 6-6-6-6-!6-'6--"36-  "6- < -68,-68,-&68,-/68,-868,-<   -&6-8, 6-8%, # 6-6-#A6A9  -68,-8,  # 6-6-#A6A9  -68,-8,   -68,-   -6- .8,!8,6-68,-$6-. A5f @8, 8,6-68,-&-268,-8,6 @ A5f %  6-68,-%68@,-  6-- G8,!8, A5!--68,-8,1 76-=6-G A5 8, 8,A5   6-- 8%,"8,A5v " 6-%68%,-8,"68,-  6-%6-6-  A8/  6- A8P-(68,-, /$ -68,-8, $-6((8<,")8<,")8<,"A6  6-%68,-8<,$   $t+ 6-6-6-6-!6-+ A5 6-6-6-$  -68,-8, $< -8<,A9>8<,8,A9?&68<,-68<,-8,& A9@ F-6H8<,8,A9 I8<,"A9 K 6-%68,-8<,P   $+-@-' @_+ $ -- @_$ -@) --! @'% ) - --@) @##)- % --! @_% J-@!@##-F @____________________J # -# @ TEXAS HOLDEM - @ - @BET=____ - @POT= %%6.CAPRYPATRNYOU/ --%+ @7$&<$,/  -+ --# @###' + ' --# @___' A 6.(--#-1 @5 =6.)A % --! @(% . -%-* @ _________. $$ 6-F:A,& A.P +@A%A1AY> APB7tA36-AV$/CIO CALL/8AV AIP=--@@ D1:FONT1.BAS>C@A$?@$V AIP @& 6-%6--"68,-&  -8<,AQ<8<,"8,68<,-*68<,-8,26-%< AQ -68<,8,AQ" 6-%68,-8<,   $ AQ@ -& :8,&8%,"68,-(68,-8,76 8,-8%,:$  -&A8,&8%,""68,-@16 8,-8%,>6 8,-8,A$   $ D:TH21.TUR