.8: NOTICE! -------: PROGRAM MUST RELOCATE ITSELF OVER : THE HI-RES SCREEN BEFORE IT CAN: RUN. THIS WAS DONE TO AVOID : HAVING TO LOAD IN A SECOND: PROGRAM FOR THE CUSTOM CHARACTER : SET.%%: 1,1:"VIDEO POKER",8,1`<|bf 0fFf<00`0~~p  p>00000000 88p88p<~~~~<6>````````~<<~<~ff~<ff<>>0000>v66?333333ÙÙÙÙÙÙÙÙϟσϝÁπϙÙǘÙϟÙÙϟÙᙀÙÙÙÙϟÙ???????Ǐ???????Áɀ<Á<Á癙????????????333333?????????f>``|fff|fff>60x000>ff>|``|fffff<``flx|f8<cwkc|ffffff>|f```<`<|00006ffff<fff<ck6"f<|~ 0~<00000< 0|0b< <<~00ffffffff>`<|bf 0fFf<00`0~~p  p>???>???>>||>>>>>>>>>>?>>?????>|?????????????||||||?||||?|>|??~~???gmlm=9=mm=1aB$$B>>";TK: A$: A$(13)K"FTER YOU'VE DECIDED WHICH CARDS YOU WANT TO HOLD (IF ANY), PRESS THE [] KEYTO DRAW YOUR NEW CARDS (IF ANY)."YL"HE COMPUTER WILL THEN CHECK YOUR HAND FOR ANY WINNING COMBINATIONS AND IF PRESENT, WILL PAY ACCORDING TO THE CHARTON SCREEN."L""AVE FUN AND GOOD LUCK!!! "L'"<<>>"L,: A$: A$(13)L1CR50: STARTING CREDITSL6%: 0,13M; **** DRAW MAIN SCREEN *****M@"  00000000 00"ME""NJ"ݗ ...............ݗ 250 ݗ 600 "PNO"ݗ ............ݗ 50 ݗ 100 "NT"ݗ ............ݗ 25 ݗ 50 "NY"ݗ ................ݗ 7 ݗ 14 "N^"ݗ.....................ݗ 5 ݗ 10 "(Oc"ݗ..................ݗ 4 ݗ 8 "^Oh"ݗ ...........ݗ 3 ݗ 6 "Om"ݗ ..................ݗ 2 ݗ 4 "Or"ݗ ...........ݗ 1 ݗ 2 "Ow""4P|"":"SP **** MAKE CARD DECK ****rP C$(52),C%(51),C(10),H(5)PA$""P Y1 8PA$A$""(27)"Oݝ"PPA$A$""Q 80,84,88,92,32,36,40,44,48,52,56,60,965Q X0 12: Z: Y0 3NQ(A$,21)(Z)(Z1)iQ(A$,44)(Z2)(Z3)Q(A$,163)(A$,21,2)Q(A$,186)(A$,44,2)Q(A$,92)(64Y4)(65Y4)Q(A$,115)(66Y4)(67Y4)R A0 7: Y2 (A$,2023A)"": (A$,2023A)""8R:C$(X4Y)A$:::"\R **** C$(52)=BACK OF CARD ****yRA$""R Y1 8RA$A$"̶"RRA$A$""S(A$,61)"":(A$,80)"":C$(52)A$:"'S **** OPENING CARD DISPLAY ****S 248,192: ,0,15,"": C$(51);C$(44);C$(42);C$(37);C$(35);: ,18,1,("00000"((CR),2),5):X(1):"S **** IS ANY MONEY LEFT? ****S CR0 935:"S  **** PICK CRDS FOR NXT GAME ****T X0 51:C%(X)0:T X1 10WT:RN(54299)63: RN52: C%(RN) 540: C%(RN)1qT!C(X)RN:: 54296,143T& 760:"T+ **** ATTRACTION SCREEN ****T0 1,0: 2,0: 24U5X$"... ...... 25 ... 1 2 "nU:X$X$" ... 600 2 ... 21 "U? X0 1: ,0,20X2,""::X2: 208,0: 209,0:&UD: ,0,21,""(X$,40):X$(X$,2)(X$,1).VI 5,X: ,16,2," ": X2 X12: X2^VN Y0 25::Y(1): A$: A$"S" A$"M"VS (A$"S" CR1) (A$"M" CR2) 580:"VX **** MONEY IN / CARDS OUT ****W]CN1: ,0,0,"": ,5,1,"000":CRCR1:,18,1,("0000"((CR),2),5):"V1T1O5SC"sWb ,16,2,"":,39,1,"1": 1,244,79: 2,244,115: 1,1,16,1,1,1: 2,1,16,1,1,1Wg 2619,20: 5,12: 1,4,26,12,1: 28,4,32,12,1: 34,4,38,12,1: 2619,4:"";6Xl ,0,14,"": A$"M" 635: X1 5:"V2T0O5SCR": C$(52);:cXq: A$: A$"S" A$"D": A$"D" 645|Xv A$"S" CR1 625X{CN2:"V1T1C": ,39,1,"2": 1,292,79: 2,292,115: 1,1,16,1,1,1: 2,1,16,1,1,1YCRCR1: ,18,1,("0000"((CR),2),5):" Y **** DEAL HAND ****TY ,0,15,"": X1 5:"V2T0O5RC": C$(C(X));:Y LN 2619,20:"";: ,0,3LN,"---------------------------": (6(CN2)));"------": 2619,4Y 208,0: 209,0: X1 5:C(X)C(X)128:Z: A$: ("12345D",A$):X(A$): X0 680XZ C(X)128 C(X)C(X)127: ,X87,14," ": 665ZC(X)C(X)128: ,X87,14,"": 665Z LN 2619,20: ,0,3LN,"------------------------------------": 2619,4-[ X0 4: C(X1)128 "V1T0O5SRC": ,X8,15,""C$(52):C(X1)C(6X)1289[: 760[ X0 4: C(X1)128 C(X1)C(X1)127:"V1T0O5SRC": ,X8,15,""C$(C(X1))[: LN0 1: 54296,136: X17000 4000 512: 1,X,3:: ,16,2," ": 515\ ,0,0,""}\ 2619,20: 2,12288,76,2,4096,1792: 2,1,1: ,0,3LN,"---------------------------": (6(CN2)));"------": 2619,4\ 14:A$"RC":"V1T1O5S"\ PY7  16\ PY14  25:A$"C"\ PY25  19\ PY50  22] PY100  35] PY250  40t] X1 PY:CRCR1: A$: ,18,1,("0000"((CR),2),5): ,5,1,("00"((X),2),3):] 515:"] **** CHECK HAND ****]P10:P20:P30:P40:LN0:FL0:SR0:PY0] X1 5:H(X)C(X)127:]X10^  H(X1)H(X) YH(X):H(X)H(X1):H(X1)Y: 775: XX1A^ X5 780I^Z1|^A1: YZ1 5: (H(Z)60)(H(Y)60) AA1:^  A1 P10 P1A:P2H(Z)60: A1 P3A:P4H(Z)60^%ZZA: Z5 795^* P1P2P3P4 ^/ P14 LN3_4 P12 P235 LN9+_9 P13 P33 LN7@_> P1P35 LN4S_C P1P3 LN8__H: _MA1: X2 5: (H(1)3)(H(X)3) AA1_R: A5 FL1_WA1: X2 5: (H(X)60)((H(X1)60)4) AA1_\: A5 SR16`a A4 (H(2)60)4 (H(3)60)8 (H(4)60)12 (H(5)60)48 SR1H`f SR1 LN6Z`k FL1 LN5s`p SR1 FL1 LN2`u SR1 FL1 (H(1)60)32 LN1`z` LN ` 905` 250,50,25,7,5,4,3,2,1` X1 LN: PY:a CN2 PYPY2: PY500 PY600a'a:"Aa **** GAME OVER ****ha 1: 1,0: 2,0:"";: 53281,6a ,4,7,"OUR SUPPLY OF MONEY IS DEPLETED"a ,6,9,"RESS [RETURN] TO PLAY AGAIN"a 208,0: 209,0:: A$: A$(13):