% <<< HI-LO * ANDY/JIM/GREG >>>R1910:52,55:54,55:56,55:1930:882:8vPA(52),AV(52),PA$(5,13),BC(11)(CX(11),CY(11)2HI0:GA$"HI-LO":65298,192:65299,((65299)3)56<0,2F1370P:0,2:4,2:A$""ZX13:Y17:370:"HI - LO"d390n500#x870AX10:Y18:370:"STAKE:"ZY19:370:"TOTAL:"zX26:Y17:370:"HI-SCORE"TT150BE010301140C1CXCX(C):CYCY(C)1030C111450PC(1,1)BC(C):Q1:W1970:580 1080121010309"CXCX(C1):CYCY(C1)S,PC(1,1)BC(C1):CRCAd6Q1:W1:970m@580JCACRA$"H"1330:210TCACRA$"L"1330:210^1280h210r208,X:209,Y:828:| ** GENERATE PACK **SU14CA113PA$(SU,CA)(SU96)QCA11CA1PA$(SU,CA)PA$(SU,CA)(32)(CA48)vCA1PA$(SU,CA)PA$(SU,CA)" A"CA11PA$(SU,CA)PA$(SU,CA)" J"CA10PA$(SU,CA)PA$(SU,CA)"10"CA12PA$(SU,CA)PA$(SU,CA)" Q"CA13PA$(SU,CA)PA$(SU,CA)" K"::, ** SHUFFLE **JN152:PA(N)N:AV(N)1:VA130zN1((1)51)1:N2((1)51)1CCPA(N1)PA(N1)PA(N2)&PA(N2)CC0:: ** DRAW CARD **DXCX1:YCY:370N1,1:(111); X"";(112):CL1:SE0$bYCY1:370:(165);\lZ1$(PA$(SU,CA),1):Z1$(98)Z1$(100)CL3:SE2{v1,CL,SE:(PA$(SU,CA),2);(PA$(SU,CA),1);:1,1:" ";(167)YCY2:370:(165);:N3$" "N3$;:(167)YCY3:370:(165);" ";)1,CL,SE:(PA$(SU,CA),1);:1,1:" ";(167)LYCY4:370:(165);N3$;(167)oYCY5:370:828:(165);" ";1,CL,SE:(PA$(SU,CA),2);" ";:1,1:(167)YCY6:370:(108);"";:(186)1,200,2:C((1)51)1AV(C)0750 AV(C)0:NCNC1:BC(NC)C:;  ** DRAW CARD BACK **YXCX1:YCY:370:(111);o "";:(112)*CB$(165)""(167)4N15:YCYN:370:CB$:>YCY6:370:(108);H"";(186)R1,300,2: \ >>>>>>>> DRAW CARDS <<<<<<<<<f930:A111-pCX(A),CY(A)CzCXCX(A):CYCY(A)L790SAYu1,0,9,0,17,0,25,0,33,01,8,9,8,17,8,25,8,33,81,16 >>>>>> DECODE CARD <<<<<<<<SIPC(Q,W):CT1:CD1SXSI:SISI13:SI0CDCD1:980SUCD:CASX:980> >>> PRINT HI TOTAL BET <<<j1,6,2:X16:Y18:370:" ":370:BE;Y19:370:" ":370:TTX27:Y18:370:" ":370:HI$. >>>>>>>> PLACE BETS <<<<<<<<<8X14:Y22:370:"YOU HAVE \";TT%BY23:370:"WHAT IS YOUR BET ";BE:LBE1BETT1080MVTTTTBE:1030S`xj >>>>>>> GENERATE CARDS <<<<<<<tA111~C((1)51)1AV(C)01150BC(A)PA(C)AV(C)0A: >>>>>>>> HIGHER LOWER <<<<<<<<X14:Y23:370:B125:" ";:B;X14:Y22:370:A120:" ";:AaX14:Y23:370:"HIGHER / LOWER"iA$A$"H"A$"L"1240 >>>>>>>>>>> LOSE <<<<<<<<<<<<1,300,20:1,0,10 1,500,40TT11490CC1:210( >>>>>>>>>>>> WIN <<<<<<<<<<<<<'2S500300105<1,S,2:SDFTTTTBE2SPCC1:210wZ1380:T023:A:14864T,A::d16,56,124,254,124,56,16,0n56,56,254,254,254,16,56,0x108,254,254,254,124,56,16,0T13000:: >>>>>>>> HIGH SCORES <<<<<<<<<*TTHIHITT:SCTT:1580B80g >>>>>>> NO MONEY LEFT <<<<<<<<X14:Y23:370:A125:" ";:AX14:Y23:370:"RUN OUT OF MONEY !"1430:80LE0:RI0:FI0KS(198)KS10LE1KS13RI1KS60FI1"),RR0:187076A511U@SCSC(A)SCSC(A1)RRA[JjTRR01850^A4RR1:NA$(A1)NA$(A):SC(A1)SC(A):hNA$(RR)"":SC(RR)SCr1870|X6:Y12:370:"PLEASE ENTER YOUR NAME "N$"ABCDEFGHIJKLMNOPQRSTUVWXYZ.]"+X4:Y14:370:N$:XX4RX0:Y16:370:" ] = END."jXXX:Y15:370:"-"X9:Y21:NA$(RR)1520LE1XX4XXX:Y15:370:" ":XXXX1RI1XX32XXX:Y15:370:" ":XXXX1 FI1(N$,(XX3),1)"]"1790, FI1NA$(RR)NA$(RR)(N$,(XX3),1)D (NA$(RR))151790N 1700X 1870 X7:Y16:370:"PRESS SPACE TO PLAY AGAIN." KS(198) KS601810 &A$ 0T08:1319T,0:: :SCSC(1)1790 DRR1:1630!N:X6:Y1:370:"HIGH SCORES FOR "GA$,!X1,3,2:X3:A15V!bYA4:370:A;"....";NA$(A);30)SC(A)^!l:!v1920:N08:A:828N,A::!24,166,209,164,208,32,240,255,96!1940:N030:A:882N,A::"160,0,132,212,132,214,169,208,133,213,169,56,133,215,162,3F"177,212,145,214,200,208,249,230,213,230,215,202,16,242,96