--- title: "Poker 2" id: 55871 type: "computer_media" slug: "poker-2" url: "http://localhost/computer_media/poker-2/" markdown_url: "http://localhost/computer_media/poker-2.md" published_at: "2024-07-06T17:27:01+00:00" modified_at: "2026-03-30T21:44:46+00:00" author: "David Anderson" featured_image: url: "http://localhost/wp-content/uploads/2019/02/20230809-041332.jpg" excerpt: "A complete draw poker game where you bet against the computer, with shuffling, hand evaluation, card drawing logic, and a full betting system packed into BASIC." category: - name: "Archived Media" slug: "archived-media" taxonomy: "category" url: "http://localhost/category/archived-media/" post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" model: - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" indiv: - name: "Tim Hartnell" slug: "tim-hartnell" taxonomy: "indiv" url: "http://localhost/indiv/tim-hartnell/" genre: - name: "Card Game" slug: "card-game" taxonomy: "genre" url: "http://localhost/type/card-game/" - name: "Game" slug: "game" taxonomy: "genre" url: "http://localhost/type/game/" media_contents: - id: 55879 title: "ISTUG Public Domain Library 7" type: "computer_media" url: "http://localhost/computer_media/istug-public-domain-library-7/" media_type: "Program" programmers: - name: "Tim Hartnell" slug: "tim-hartnell" taxonomy: "indiv" url: "http://localhost/indiv/tim-hartnell/" download_url: "https://archive.org/download/timex-sinclair-software-archive/Poker%202%20%28198x%29%28TS2068%29%28US%29%28Program%29.zip" mediadate: "198x" images: - url: "http://localhost/wp-content/uploads/2024/07/SCR-20260329-ohlv.png" - url: "http://localhost/wp-content/uploads/2024/07/SCR-20260329-ohik.png" media_type_tags: "Card Game, Game" --- # Poker 2 This program implements a five-card draw poker game for one player against the computer. The deck is represented as a 104-character string in `A$`, where pairs of characters encode rank (ASCII characters “2” through “>” for 2–Ace) and suit (C, D, E, F for clubs, diamonds, hearts, spades), and shuffling is performed by randomly extracting pairs from the string. Hand evaluation relies on comparing `CODE` values of sorted card characters rather than named constants, using a numeric scoring system stored in `V` to rank hands from high card through royal flush. The computer’s draw and betting logic occupies subroutines from lines 900–1540 and 1550–1870, with the machine deciding discards based on pattern-matching the sorted hand string. Block graphics characters drawn with `PRINT AT` statements construct simple card outlines on screen. *** ## Program Analysis ### Program Structure The program is organized into a set of subroutines accessed via `GO SUB`, each performing a distinct task. The main game loop runs from approximately line 2180 to 3130. The overall flow is: 1. Lines 2040–2110: Initialization — screen setup, deck string, dimension arrays, starting cash. 2. Lines 10–190: Shuffle subroutine — randomly extracts 18 card pairs from the deck into `C$`. 3. Lines 200–310: Sort subroutine — bubble-sorts a hand string `K$` by rank (high to low). 4. Lines 320–420: Card value translation — converts ASCII rank characters to display labels (T, J, Q, K, A) and suit letters (H, S). 5. Lines 430–530: Card outline and value display using block-graphic `PRINT AT` statements. 6. Lines 540–890: Hand evaluation — scores the hand into variable `V` using cascading `IF` tests. 7. Lines 900–1540: Computer draw logic — decides which cards the computer replaces. 8. Lines 1550–1870: Betting routine — computer raises or folds based on hand value and random factors. 9. Lines 1900–1930: Hand name printer — translates `V` ranges to hand name strings. 10. Lines 2190–3130: Main deal/play/evaluate/payout loop. 11. Lines 3300–3360: Instructions screen. ### Deck Representation and Shuffling The full 52-card deck is stored as a 104-character string in `A$` at line 2050. Each card occupies two characters: a rank character (ASCII “2”–”9″, then “:”=10, “;”=J, “<“=Q, “=”=K, “>”=A) and a suit character (C, D, E, F). The shuffle at lines 60–130 picks a random starting offset, rotates the string, then iteratively extracts random pairs into `C$`, shrinking the source string each time — a standard in-place selection without replacement. Only 18 cards (9 pairs × 2 characters each) are extracted per game, enough for two hands of five plus draw replacements. ### Hand Sorting and Evaluation The sort subroutine (lines 200–310) performs a bubble sort on the 10-character hand string `K$`, comparing `CODE K$(L)` with `CODE K$(L+2)` to order cards by rank from high to low. The hand evaluator (lines 540–890) then uses a cascade of `IF` tests on positions 1, 3, 5, 7, 9 (odd indices, rank characters) and 2, 4, 6, 8, 10 (even indices, suit characters). The score in `V` encodes both hand type and the leading card rank: | V range | Hand | | --- | --- | | < 80 | High card | | 70–134 | One pair | | 120–182 | Two pair | | 170–232 | Three of a kind | | 200+ | Straight | | 250+ | Flush | | 320+ | Full house | | 370+ | Four of a kind | | 400+ | Straight flush | | 450+ | Royal flush | The ranges overlap slightly (e.g., “straight” starts at 200 but “two pair” can reach 182), which can cause misidentification at boundary values. The hand-naming subroutine at line 1910 uses a slightly different set of boundary constants than the evaluator itself, which is a potential source of display errors noted in the REMs. ### Key BASIC Idioms - `SGN PI` evaluates to 1 (since PI > 0), used throughout as an index of 1 into strings — a memory-saving alternative to the literal `1`. - `PI TO` in string slices such as `K$(PI TO )` similarly uses PI≈3.14159 truncated to integer 3, effectively meaning `K$(3 TO )`. This is used to advance through the hand string. - `P2=2` is set at line 2060 and used as a named index constant throughout (e.g., `K$(P2)`), saving a few bytes over the literal digit. - `GO SUB 0430` / `GO SUB 0010` etc. — leading zeros in line numbers are valid but unusual; they refer to lines 430 and 10 respectively. - Line 3040 uses the Sinclair boolean expression idiom: `("OK...,YOU WIN" AND YV>MV)` evaluates to the string if the condition is true, or an empty string if false, allowing conditional text in a single `PRINT`. - `LET Y=250` gives the player a starting bankroll of $250. ### Computer AI — Draw Logic The computer draw subroutine (lines 900–1540) examines the sorted hand `K$` against its score `V` and applies rule-based replacement. For hands better than a straight (V>220) it keeps all cards. For two pair it draws one, for one pair it draws three, and for nothing it either draws four or attempts to complete a three-card straight sequence. The replacement cards are sliced from the shared `C$` deck string, which is consumed as cards are dealt to both sides. ### Betting System The betting subroutine at lines 1550–1870 has the computer fold (line 1670 via `WL=5` path), call, or raise based on `MV` (computer’s hand value) and a random number. If `MV>200` the computer raises proportionally; otherwise it uses `RND` thresholds to decide between raise, call, or fold. The player’s maximum initial bet is $25 (enforced at line 2850), and bets must be multiples of the current stake. The game ends when the player’s balance exceeds $2000 (line 3110) or falls below $6 (line 3120). ### Display Card outlines are drawn using Spectrum block-graphic characters in `PRINT AT` statements (lines 440–460), producing 7-row × 6-column card frames. Card values are printed inside the frames by subroutine at lines 490–530, which steps through `K$` using `PI` as an advancing pointer after slicing. Screen colors are set at line 2041 with `BORDER 2: PAPER 6: INK 0: BRIGHT 1` (red border, yellow paper, black ink). ### Bugs and Anomalies - Line 2950 calls `GO SUB 490` (not 480), which enters the card-value-printing subroutine mid-flow, skipping the loop initialization at line 490 — this is likely a typo for `GO SUB 480`. - Line 1919 prints `AT V-1,0` instead of `AT B-1,0` for the royal flush case, which will place the text at a screen row derived from the hand’s numeric score — almost certainly a typo. - The hand value ranges in the evaluator and the hand-name printer (lines 1910–1919) overlap and use inconsistent boundary values, which can cause wrong hand names to be displayed at edge cases. - The variable `T` is reused as both the number of cards drawn (lines 1000, 1090, etc.) and as the loop counter in the delay subroutine at line 1950, meaning a call to the delay after a draw could overwrite the draw count — though in practice `T` is read before the delay is called. - Line 12 sets `P=0` with the comment “ERRORTRAP”, but `P` is never used as an error trap variable elsewhere; it appears vestigial from the original TS1000 program. - The `C$` deck string is consumed destructively as cards are dealt; if more cards are needed than remain in `C$`, string slice operations will cause an error. The shuffle only pre-deals 18 cards, which may be insufficient in heavy-draw games. ## Source Code ``` 1 REM THIS GAME COULD STAND SOME IMPROVEMENT IN AREA OF BETTING FLEXIBILITY AND GRAPHICS. THERE MAY STILL BE SOME ERRORS IN HAND EVALUATION,BUT FEW. 2 REM ORIGINAL WRITTEN BY HANS MEIER OF RUSTENBURG, SOUTH AFRICA AND VERY GOOD FOR A TS1000 EFFORT BUT IT CLEARLY DOES NOT TAKE ADVANTAGE OF TS2068 STRENGTHS. 3 REM CAN YOU IMPROVE??? 10 REM POKER FROM "51 GAME PROGRAMS FOR TIMEX SINCLAIR 1000 AND 1500"(P.153-169) BY TIM HARTNELL--ADAPTATION FOR TS2068 FROM TS1000 PROGRAM 11 REM SHUFFLE CARDS 12 LET P=0: REM ERRORTRAP 20 LET C$="" 30 PRINT AT 20,0,,"STAND BY, PLEASE", 40 GO SUB 2020 50 RANDOMIZE 60 LET C$="" 70 LET R=INT (RND*52)*2+1 80 LET X$=A$(R TO )+A$( TO R-1) 90 FOR L=1 TO 18 100 LET R=INT (RND*(LEN X$/2))*2+1 110 LET C$=C$+X$(R TO R+1) 120 LET X$=X$( TO R-1)+X$(R+2 TO ) 130 NEXT L 140 PRINT AT 21,0;"READY_PRESS ENTER " 150 INPUT R$ 160 CLS 170 LET A=0 180 GO SUB 0430 190 RETURN 200 REM SORT HI-LO 210 LET R=1 220 FOR L=1 TO 7 STEP 2 230 IF CODE K$(L)220 THEN RETURN 940 IF V>120 THEN GO TO 1190 950 IF V>70 THEN GO TO 1330 960 IF K$(P2)=K$(4) AND K$(P2)=K$(6) AND K$(P2)=K$(8) OR K$(P2)=K$(4) AND K$(P2)=K$(6) AND K$(P2)=K$(10) OR K$(P2)=K$(4) AND K$(P2)=K$(8) AND K$(P2)=K$(10) OR K$(4)=K$(6) AND K$(4)=K$(8) AND K$(4)=K$(10) THEN GO TO 1420 970 IF K$(P2)=K$(4) AND K$(P2)=K$(6) OR K$(P2)=K$(4) AND K$(P2)=K$(8) OR K$(P2)=K$(4) AND K$(P2)=K$(10) OR K$(P2)=K$(6) AND K$(P2)=K$(8) OR K$(P2)=K$(4) AND K$(P2)=K$(10) OR K$(P2)=K$(6) AND K$(P2)=K$(10) OR K$(4)=K$(6) AND K$(4)=K$(8) OR K$(4)=K$(8) AND K$(4)=K$(10) OR K$(6)=K$(8) AND K$(6)=K$(10) OR K$(6)=K$(4) AND K$(6)=K$(10) THEN GO TO 1020 980 IF CODE K$(SGN PI)=CODE K$(PI)+1 AND CODE K$(PI)=CODE K$(5)+1 OR CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 OR CODE K$(5)=CODE K$(7)+1 AND CODE K$(7)=CODE K$(9)+1 THEN GO TO 1110 990 LET K$(PI TO )=C$( TO 8) 1000 LET T=4 1010 RETURN 1020 IF K$(P2)=K$(4) AND K$(P2)=K$(6) OR K$(P2)=K$(4) AND K$(P2)=K$(8) OR K$(P2)=K$(4) AND K$(P2)=K$(10) OR K$(P2)=K$(6) AND K$(P2)=K$(10) OR K$(P2)=K$(6) AND K$(P2)=K$(8) OR K$(P2)=K$(10) THEN LET G$=K$(P2) 1030 IF K$(4)=K$(6) AND K$(4)=K$(8) OR K$(4)=K$(6) AND K$(4)=K$(10) OR K$(4)=K$(8) AND K$(4)=K$(10) THEN LET G$=K$(4) 1040 IF K$(6)=K$(8) AND K$(6)=K$(10) OR K$(6)=K$(8) AND K$(6)=K$(10) THEN LET G$=K$(6) 1050 FOR L=2 TO 10 STEP 2 1060 IF K$(L)<>G$ THEN LET K$(L-1 TO L)=C$( TO 2) 1070 LET C$=C$(PI TO ) 1080 NEXT L 1090 LET T=2 1100 RETURN 1110 IF CODE K$(SGN PI)=CODE K$(PI)+1 AND CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 OR CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 AND CODE K$(7)=CODE K$(9)+1 THEN GO TO 1500 1120 IF CODE K$(SGN PI)=CODE K$(PI)+1 THEN LET O$(7 TO 10)=C$( TO 4) 1130 IF CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 THEN LET O$(9 TO 10)=C$(PI TO 4) 1140 IF CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 THEN LET O$( TO 2)=C$( TO 2) 1150 IF CODE K$(7)=CODE K$(9)+1 THEN LET O$( TO 4)=C$( TO 4) 1160 LET T=2 1170 LET K$=O$ 1180 RETURN 1190 IF V>150 THEN GO TO 1260 1200 IF K$(SGN PI)=K$(PI) AND K$(5)=K$(7) THEN LET O$(9 TO )=C$( TO 2) 1210 IF K$(SGN PI)=K$(PI) AND K$(7)=K$(9) THEN LET O$(5 TO 6)=C$( TO 2) 1220 IF K$(PI)=K$(5) AND K$(7)=K$(9) THEN LET O$( TO 2)=C$( TO 2) 1230 LET T=1 1240 LET K$=O$ 1250 RETURN 1260 IF K$(SGN PI)=K$(PI) AND K$(SGN PI)=K$(5) THEN LET O$(7 TO )=C$( TO 4) 1270 IF K$(PI)=K$(5) AND K$(PI)=K$(7) THEN LET O$( TO 2)=C$( TO 2) 1280 IF K$(PI)=K$(5) AND K$(PI)=K$(7) THEN LET O$(9 TO )=C$(PI TO 4) 1290 IF K$(5)=K$(7) AND K$(5)=K$(9) THEN LET O$( TO 4)=C$( TO 4) 1300 LET T=2 1310 LET K$=O$ 1320 RETURN 1330 IF K$(SGN PI)=K$(PI) THEN LET O$(5 TO )=C$( TO 6) 1340 IF K$(PI)=K$(5) THEN LET O$( TO 2)=C$( TO 2) 1350 IF K$(PI)=K$(5) THEN LET O$(7 TO 10)=C$(PI TO 6) 1360 IF K$(5)=K$(7) THEN LET O$( TO 4)=C$( TO 4) 1370 IF K$(5)=K$(7) THEN LET O$(9 TO )=C$(5 TO 6) 1380 IF K$(7)=K$(9) THEN LET O$( TO 6)=C$( TO 6) 1390 LET T=3 1400 LET K$=O$ 1410 RETURN 1420 IF K$(P2)=K$(4) OR K$(P2)=K$(6) THEN LET V$=K$(P2) 1430 IF K$(P2)<>K$(4) AND K$(4)=K$(6) THEN LET V$=K$(4) 1440 FOR L=2 TO 10 STEP 2 1450 IF K$(L)<>V$ THEN LET K$(L-1 TO L)=C$( TO 2) 1460 LET C$=C$(PI TO ) 1470 NEXT L 1480 LET T=1 1490 RETURN 1500 IF CODE K$(SGN PI)=CODE K$(PI)+1 AND CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 THEN LET O$(9 TO )=C$( TO 2) 1510 IF CODE K$(PI)=CODE K$(5)+1 AND CODE K$(5)=CODE K$(7)+1 AND CODE K$(7)=CODE K$(9)+1 THEN LET O$( TO 2)=C$( TO 2) 1520 LET K$=O$ 1530 LET T=1 1540 RETURN 1550 REM BETTING ROUTINE 1560 LET C=0 1570 IF MV>200 THEN LET C=MV/50 1580 IF MV>200 THEN GO TO 1680 1590 LET X=RND 1600 IF X>.9 THEN LET C=8 1610 IF C=8 THEN GO TO 1680 1620 IF X>.45 OR BTG<3 THEN LET C=2 1630 IF C=2 THEN GO TO 1680 1640 LET Y=Y+BTG 1650 LET WL=5 1660 GO SUB 1940 1670 GO TO 3190 1680 FOR L=1 TO C 1690 PRINT AT 19,0;"I SEE YOU AND RAISE YOU $";BTG, 1700 PRINT AT 21,0;"ENTER YOUR BET",, 1710 GO SUB 2020 1720 INPUT I 1725 LET BTG=I 1730 IF Y<2*BTG OR I=0 OR I=BTG OR I=2*BTG THEN GO TO 1760 1740 PRINT AT 21,0;"SEE OR RAISE ME?" 1750 GO TO 1720 1760 LET WL=WL+I 1770 LET Y=Y-I 1780 IF Y3 AND RND>=.6 THEN GO TO 3170 1840 NEXT L 1850 GO SUB 1950 1860 PRINT AT 19,0;"I SEE YOU...",, 1870 RETURN 1880 PRINT AT 19,0;"SO YOU SEE ME...", 1890 RETURN 1900 REM NAME THE HANDS 1905 REM THIS AREA OK IF CODE K$WAS PRODUCING CORRECT VALUES 1906 LET J=V 1910 IF J<80 THEN PRINT AT B-1,0;"A HIGH CARD" 1911 IF J>80 AND J<135 THEN PRINT AT B-1,0;"A PAIR" 1912 IF J>134 AND J<182 THEN PRINT AT B-1,0;"TWO PAIRS" 1913 IF J>182 AND J<233 THEN PRINT AT B-1,0;"THREES" 1914 IF J>232 AND J<280 THEN PRINT AT B-1,0;"A STRAIGHT" 1915 IF J>279 AND J<330 THEN PRINT AT B-1,0;"A FLUSH" 1916 IF J>329 AND J<380 THEN PRINT AT B-1,0;"A FULL HOUSE" 1917 IF J>379 AND J<430 THEN PRINT AT B-1,0;"FOUR OF A KIND" 1918 IF J>429 AND J<480 THEN PRINT AT B-1,0;"A STRAIGHT FLUSH" 1919 IF J>479 THEN PRINT AT V-1,0;"A ROYAL FLUSH" 1930 RETURN 1940 REM DELAY LOOP 1950 FOR T=1 TO 90 1960 NEXT T 1970 RETURN 1980 GO SUB 2050 1990 PRINT AT 19,0;"YOU WILL HAVE TO SEE ME...": 2000 GO SUB 1950 2010 RETURN 2020 PRINT AT 21,18;"YOU HAVE $";Y 2030 RETURN 2040 REM START OF PROGRAM 2041 BORDER 2: PAPER 6: INK 0: BRIGHT 1: CLS 2045 POKE 23658,8: REM SETTING CAPS LOCK 2050 LET A$="2C3C4C5C6C7C8C9C:C;CC2D3D4D5D6D7D8D9D:D;DD2E3E4E5E6E7E8E9E:E;EE2F3F4F5F6F7F8F9F:F;FF" 2060 LET P2=2 2070 DIM M$(2,10) 2080 DIM Y$(2,10) 2090 LET BT=0 2100 LET Y=250 2110 PRINT AT 9,4;"TIMEX/SINCLAIR POKER" 2120 REM INSTRUCTIONS 2130 PRINT AT 20,0;"DO YOU REQUIRE INSTRUCTIONS? (Y OR N)" 2140 IF INKEY$<>"" THEN GO TO 2140 2150 IF INKEY$="" THEN GO TO 2150 2160 LET S$=INKEY$ 2170 IF S$="Y" THEN GO TO 3300 2180 GO SUB 0010 2190 REM DEAL HANDS 2200 FOR L=1 TO 9 STEP 2 2210 LET M$(1,L TO L+1)=C$( TO 2) 2220 LET Y$(1,L TO L+1)=C$(PI TO 4) 2230 LET C$=C$(5 TO ) 2240 NEXT L 2250 LET K$=Y$(SGN PI) 2260 GO SUB 0200 2270 LET Y$(SGN PI)=K$ 2280 GO SUB 0320 2290 LET Y$(P2)=K$ 2300 REM INITIAL STAKE 2310 LET Y=Y-5 2320 LET B=1 2330 GO SUB 0480 2340 LET K$=M$(SGN PI) 2350 REM NUMBERS UNDER CARDS 2360 PRINT AT 7,3;"1";AT 7,9;"2";AT 7,15;"3";AT 7,21;"4";AT 7,27;"5" 2370 GO SUB 0200 2380 REM DISCARD WHICH CARDS? 2390 PRINT AT 19,0;"SWAP WHICH CARD? (IE.,PRESS 2 FOR NO.2,ETC. AND/OR

TO PASS. DISCARD OR NOT--PRESS

)", 2400 FOR L=1 TO 4 2410 IF INKEY$<>"" THEN GO TO 2410 2420 IF INKEY$="" THEN GO TO 2420 2430 LET T$=INKEY$ 2440 IF T$="P" THEN GO TO 2510 2450 IF T$<"1" OR T$>"5" THEN GO TO 2410 2460 PRINT AT 7,VAL T$*6-3;"*" 2470 LET T=VAL T$*2-1 2480 LET Y$(1,T TO T+1)=C$( TO 2) 2490 LET C$=C$(PI TO ) 2500 NEXT L 2510 PRINT AT 19,0,,,,TAB 10;"DEALING", 2520 LET K$=Y$(SGN PI) 2530 GO SUB 0200 2540 LET Y$(SGN PI)=K$ 2550 GO SUB 0320 2560 LET Y$(P2)=K$ 2570 LET B=1 2580 GO SUB 0480 2590 PRINT AT 7,0,, 2600 PRINT AT 21,0;"BET TILL NOW $5",, 2610 GO SUB 2020 2620 LET K$=Y$(SGN PI) 2630 GO SUB 0540 2640 LET YV=V 2650 LET K$=M$(SGN PI) 2660 GO SUB 0540 2670 GO SUB 0900 2680 PRINT AT 19,0;"DEALER TAKES ";T;" CARD"+("S" AND T<>1), 2690 LET M$(SGN PI)=K$ 2700 GO SUB 0200 2710 LET M$(SGN PI)=K$ 2720 GO SUB 0320 2730 LET M$(P2)=K$ 2740 LET A=10 2750 GO SUB 0430 2760 LET K$=M$(SGN PI) 2770 GO SUB 0540 2780 LET MV=V 2790 REM BETTING BEGINS 2800 PRINT AT 21,0;"YOUR BET?",, 2810 GO SUB 2020 2820 INPUT BTG 2830 LET BTG=INT BTG 2840 IF BTG=0 THEN GO TO 3150 2850 IF BTG>Y OR BTG>25 THEN PRINT AT 21,0,, 2860 PRINT AT 21,0;("YOU DO NOT HAVE THAT MUCH..." AND BTG>Y)+("LIMIT IS $25" AND BTG>25) 2870 IF BTG>Y OR BTG>25 THEN GO SUB 2020 2880 IF BTG>Y OR BTG>25 THEN GO TO 2820 2890 IF BTG>Y OR Y-BTGMV)+("TOUGH LUCK, I WIN" AND MV>YV)+("IT IS A DRAW..." AND MV=YV) 3050 REM ADJUST MONEY 3060 IF YV>MV THEN LET Y=Y+WL*2 3070 IF YV=MV THEN LET Y=Y+WL 3080 GO SUB 2020 3090 GO SUB 1940 3100 GO SUB 1940 3110 IF Y>2000 THEN GO TO 3220 3120 IF Y<6 THEN GO TO 3270 3130 GO TO 2180 3140 REM VARIOUS REMARKS 3150 PRINT AT 19,0;"SO YOU ARE CHICKEN.....?",,, 3160 GO TO 3080 3170 LET WL=WL-I 3180 LET Y=Y+I 3190 PRINT AT 19,0;"I AM OUT..........",,, 3195 PRINT AT 21,0,, 3200 LET Y=Y+WL*2 3210 GO TO 3080 3220 GO SUB 1940 3230 GO SUB 1940 3240 CLS 3250 PRINT AT 10,0;"WELL, THAT BEATS ME. I AM GOING HOME. BYE-BYE FOR NOW." 3260 STOP 3270 CLS 3280 PRINT AT 10,0;"IT APPEARS YOU HAVE NO MORE CASH. THANKS AND BYE-BYE." 3290 STOP 3300 CLS 3310 PRINT '" THIS IS A GAME OF DRAW POKER PLAYED BY YOU AGAINST THE 2068 TIMEX/SINCLAIR" 3320 PRINT '" YOU WILL BE DEALT FIVE CARDS, AND THEN BE ASKED WHICH ONES YOU WISH TO DISCARD. YOU MAY DISCARD A MAXIMUM OF FOUR CARDS." 3330 PRINT " ON EACH DEAL YOUR TOTAL WILL AUTOMATICALLY BE DEBITED WITH $5 ANTE" 3340 PRINT '" THE MAXIMUM INITIAL BET IS $25. THEREAFTER, YOU MUST ALWAYS DOUBLE OR SEE OPPONENT'S HAND. TO THROW IN YOUR CARDS,ENTER <0>." 3350 PRINT '" GOOD LUCK..." 3355 PAUSE 360 3360 GO TO 2140 3370 STOP 9998 SAVE "POKER 2" LINE 2040 ```