I?j!6:\68<|~<>B~Bx>|~<@|~~<|~B~N) ";C$ jC$"Y"C$"N"2400` t C$="N" ~  S10P=S(S1) N10P=N(N1) )P>1P<11 P$=P:7950 P=1P$="A":7950  P=11 P$="J":7950  P=12 P$="Q":7950  P=13 P$="K":7950 /1:N=XX+2:N,Y;P$:N:0: + ,C1:X,Y;"++";X+1,Y;"++";X+2,Y;"++":0: 5 61:X,Y;"";X,Y+22;"":X,Y;"";X,Y+22;"";X+1,Y;"";X+1,Y+22;"";X+2,Y;"";X+2,Y+22;"";X+2,Y;"__";X+2,Y+22;"__":0: ? @60,4;1;"THIS GAME WAS WRITTEN BY" ABI=72H79O:23681\,I:" G.D.BRASSINGTON":I BI=1500:I: D Em0,0;" HI!MY NAME IS THE ZX SPECTRUM. PLEASE TYPE IN YOUR NAME. (MAX 8 CHARACTERS)" J"ENTER NAME ";N$ ON$>88010J T ^M0,10 ;"INSTRUCTIONS";0,10 ;1; " _" h2,0;"THIS IS A COMPUTERISED VERSION OF PONTOON.THE OBJECT OF THE GAME IS TO GET AS NEAR TO 21 AS POSSIBLE WITHOUT GOING OVER.THE COURT CARDS ARE WORTH 10.THE ACEIS WORTH 1 OR 11" r@8,0;"IF YOU ARE DEALT AN ACE AND A 10OR A COURTCARD YOU CAN'T BE BEATEN YOU CAN ALSO GET A FIVE CARD TRICK WHICH MEANS THAT YOU HAVE FIVE CARDS THAT ADDED TOGETHER ARE EQUAL OR LESS THAN 21.THIS CAN ONLY BE BEATEN WITH A FIVE CARD TRICK OF A HIGHER VALUE OR AN ACE AND A 10 OR COURT CARD." |n18,0;"IF IT IS A DRAW THE MONEY STAYS IN THE MIDDLE.YOU MAY NOT STICK AT A VALUE LESS THAN 16." 9#1;"PRESS ANY KEY TO CONTINUE.":1:0 #(&N=07:"A"+N,1:N #2(N=07:"B"+N,128:N #<"C",1 #F&N=17:"C"+N,0:N ' B""  PONTOON ** ZW P P PM(MŇ36}B>>BB<DHpHDB@~BfZBBBBbRJFBB<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<0,0;1;" _" 2>1,0;1;" _" <(1,12 ;1;"PLAY AREA" F>3,0;1;" _" P?16,0;1;" _" U?17,0;1;" _" ZG4,0;1;" _";4,22;" _" dI14,0;1;" _";14,22;" _" n"7,10 ;" _" x"5,10 ;" _" #12 ,10 ;" _" &80P,40(:0,120x '176,40(:0,120x &128,72H:0,568 1 $2,0;N$;"'S"'" AREA" 92,22;"SPECTRUM'S";3,25;"AREA" 62,13 ;"MONEY";3,13 ;"BETTED" 44,3;"CARDS";4,25;"CARDS" M6,11 ;"PACK";6,17;"TWIST";7,17;"CARD" 4,11 ;"`" 14,11 ;"GO NUMBER" :15,0;"MONEY=`";15,22;"MONEY=`" #17,10 ;"INSTRUCTIONS" 814,0;"TOTAL=";14,22;"TOTAL=" 1:9 ,12 ;"";9 ,18;"":N=9 11 :N,12 ;"";N,18;"":N:11 ,12 ;"__";11 ,18;"__"  0 kX=6:Y=173:79906:Y:X=10 :Y=143:79906:Y ,'TN=0:TS=0:MB=MB+4 1 Q=0 6MN=MN-2:MS=MS-2 @GO=GO+1 E 1 J#MN>99c15,7;MN T(MN<100d15,7;" ";MN ^)MS100d15,28;" ";MS h*MS<100d;15,28;" ";MS r15,15;GO |4,12 ;MB;" " #X=9 :Y=12 :7980,  N(5)  S(5) NX=15:N(X)=(*13 )+1:S(X)=(*13 )+1:X :X=6:Y=1:S1=0:N1=1:7900 :X=6:Y=4:S1=0:N1=2:7900 TN=0:A=15 $N(A)>1N(A)<11 P=N(A) N(A)=11 P=10 N(A)=12 P=10 ܈N(A)=1TN+11 <22Q=0Q=1:P=11 :18,0;"ACE.COUNTED AS 11.COUNTED AS 1 IF YOU GO BUST" .N(A)=1TN+11 >21P=1 N(A)=13 P=10  TN=TN+P Q=2507 TN>21Q=1Q=2:18,0;"@ ":TN=TN-10 14,6;TN -TN>9 1;14,6;"__" -TN<10 1;14,6;"_" A=1A UTN>2118,10 ;"YOU WENT BUST":V=1200:V:1000 A=518,0;"@ ":18,3;"YOU HAVE A FIVE CARD TRICK":V=1200:V:1000  xTN<1621,0;"YOU MUST TWIST":V=1200:V:21,0;" ":550& ""DO YOU WISH TO STICK(YN) ";B$ B$"Y"B$"N"520 B$="Y"1000 &PA=2X=6:Y=7:S1=0:N1=3:7900:600X 0QA=3X=10 :Y=1:S1=0:N1=4:7900:600X :QA=4X=10 :Y=4:S1=0:N1=5:7900:600X X9 ,18;" ";10 ,18;" ";11 ,18;" ":1:9 ,18;"";9 ,18;"";10 ,18;"";11 ,18;"";11 ,18;"__":9 ,18;P$;10 ,18;P$;11 ,18;P$:0 bA  GV=1821:V,0;" ":V  Q=0 "19,10 ;"IT IS MY GO" _V=1400:V:V=1821:V,0;" ":V B=15 B>29 ,18;" ";10 ,18;" ";11 ,18; ":1:9 ,18;"";9 ,18;"";10 ,18;"";11 ,18;"";11 ,18;"__":X=9 :Y=18:N1=0:S1=B:7900:0 $S(B)>1S(B)<11 P=S(B) S(B)=11 P=10 S(B)=12 P=10 $S(B)=13 P=10 .:S(B)=1TS+11 <22Q=1:P=11 8.S(B)=1TS+11 >21P=1 B TS=TS+P G2TS>21Q=1Q=2:TS=TS-10 LTS>1718,12 ;"I STICK":V=1200:V:18,0;" ":2000 VTS<18B>1B<518,12 ;"I TWIST":V=1200:V:18,0;"  " `B eB=6B=5 j 2000  *ZXC=20:MXC=20:NXC=20 ]18,5;"ENTER AMOUNT TO RAISE";19,1;"(5 IS THE LEAST YOU CAN RAISE" MN<20ZXC=MN MS<20MXC=MS ZXCNXC2020 C=C #MN=MN-C:MS=MS-C:MB=MB+C*2 v18,0;"` " 4,12 ;MB  3MN<100dMN>9 15,7;MN;" " #MN>99c15,7;MN (MN<10 15,7;MN;" "  4MS<100dMS>9 15,29;MS;" " %)MS<10 15,29;MS;" " *$MS>99c15,29;MS 4 C=1B >RC=1X=6:Y=23:N1=0:S1=1:7900:2190 HRC=2X=6:Y=26:N1=0:S1=2:7900:2190 RRC=3X=6:Y=29:N1=0:S1=3:7900:2190 \SC=4X=10 :Y=23:N1=0:S1=4:7900:2190 fSC=5X=10 :Y=26:N1=0:S1=5:7900:2190 C  1;14,28;TS GV=1821:V,0;" ":V eTS=21TN=21B=2A=2J$="DRAW BECAUSE BOTH HAVE 21 WITH 2CARDS":2300 eA=5B=5TN=TSTN<22J$="DRAW BECAUSE SAME SCORE AND FIVECARD TRICK.":2300 aTN=21TS=21A<5A>2B<5B>2J$="DRAW BECAUSE BOTH HAVE 21" UA5B5TN=TSTS<22J$="DRAW BECAUSE OF SAME SCORE.":2300 KTS>21TN>21J$="DRAW BECAUSE WE BOTH WENT BUST.":2300 PB=2TS=21J$="I WIN BECAUSE I HAVE 21 WITH 2 CARDS.":2300 RA=2TN=21J$="YOU WIN BECAUSE YOU HAVE 21 WITH2 CARDS.":2300 9B=5TS<22A=5TN>212275 B=5TS<22A=5TN21J$="I WIN BECAUSE I HAD A FIVE CARD TRICK OF HIGHER VALUE THAN YOURS":2300 9A=5TN<22B=5TS>212280 A=5TN<22B=5TS21J$="YOU WIN BECAUSE YOUR FIVE CARD TRICK IS OF HIGHER VALUE THAN MINE.":2300 YB=5TS<22A<5J$="I WIN BECAUSE I HAD A FIVE CARD TRICK":2300 ^A=5TN<22B<5J$="YOU WIN BECAUSE YOU HAD A FIVE CARD TRICK":2300 8TS=21J$="I WIN BECAUSE I HAVE 21.":2300 <TN=21J$="YOU WIN BECAUSE YOU HAVE 21.":2300 aTS>TNTS<22TN<22J$="I WIN BECAUSE I HAVE A HIGHER TOTAL THAN YOU.":2300 gTN>TSTS<22TN<22J$="YOU WIN BECAUSE YOU HAVE A HIGHER TOTAL THAN ME.":2300 ;TN>21J$="I WIN BECAUSE YOU ARE BUST.":2300 :TS>21J$="YOU WIN BECAUSE I AM BUST.":2300 GV=1821:V,0;" ":V 18,0;J$ 'J$(1)="I"MS=MS+MB:MB=0 'J$(1)="Y"MN=MN+MB:MB=0 $V=1400:V .GV=1721:V,0;" ":V 8@MS<718,0;"YOU WIN.I AM BROKE":2400` BAMN<718,0;"I WIN.YOU ARE BROKE":2400` L 10 _ `"ANOTHER GAME?(Y