cards L&LL23635S\,201 B.RUTHERFORD&CO.LTD.1983  score1=0:score2=0 AVOID=1 :9800H& sc1=0:sc2=0 r=0 fa$(524,2):t(10 ):m=110 :t(m)=60<+m:m:v(10 ):i(10 ) twist=0  9500% 30:4:4:7::mid=0 Xp=4:q=0:totme=0:totco=0:R=0:AVOID=085U K7:0:3,0;" shuffling pack now " Zshape=1:p=8:q=11 :5000:p=4:q=0:0:0 AVOID=124  85U u=110 bruce=(*524)+1 m=110 #t(m)bruce45- (m=10 :m:25 -m 2 t(u)=bruce 7u:m <m=110 =i(m)=2 >t(m)<14i(m)=0 ?t(m)>39'i(m)=0 @m Am=110 Ch=t(m) F>r$=a$(h,1):r$="K"r$="Q"r$="J"r$=""v(m)=10 Hr$="A"v(m)=11 J.r$="A"r$="K"r$="Q"r$="J"r$=""80P L v(m)=(r$) Pm Q U5AVOID=1m=1524:.0007v74m,m:m V4:7: Wend=1:21004 mtwist=0 nYOU START NOW u 2490 2499 u=r+1 -s=082:r=r+1:q=s twist=0 shape=0:5000 r=u170 r>u9610% <shape=1:q=22:r>1s<85000 &totme<21s88000@ twist=1170 A8030^:8031_:totme>20twist=0s=8 s works out score and display 1:i(r):7 midco=u-1 stotme>2119,0;" you have bust ":.4L,-18:1,-24 Ttotme=21ru+119,1; "  wow!!!! 21 with ";r-midco;" cards!  " )r=u+4totme<22 2050 ~totme=21m=-2020:0.01z# =,21-m:0.01z# =,m:m:m=-3040(20:0.07}\(,m:m ctotme<21totme>1619,1; " you have stuck on ";totme;",not bad " Ztotme<21totme<1719,1; " are you trying to let me win?" totme<21.15~,0:.15~,0:.15~,0:.15~,4:.15~,4:.15~,12 :.158~!,12 :.15~,10 :.15~,10 :.15~,12  2069 <19,1;"  a five card trick! " nm=-2020:0.01z# =,21-m:0.01z# =,m:m:m=-3040(20:0.07}\(,m:m !m=1190:m:0  7000X 4+THIS IS WHERE THE COMPUTER PLAYS THE GAME 5#u=1:2490 :2499 6 2110> 8Mshape=1:q=5:5000:q=20:5000:shape=0 9R7:2:19,1;" i have seen my cards ":70F: :54:7:0::2490 :2499 /s=14222:r=r+1:q=s @F1:19,1;" ":0 Ar<221048 B%r=3twist=12106: C$q=s-1:r=52143_ Dr>25000 Hr=12160p Mr>19650% ] 2500 ^ 90Z _totco>21s=22 `r=5s=22 atwist=12160p c s=22 pace=0:s uY1:7:2:90Z:19,1;" now it is your turn " v'70F:7:4:0: end=0:110n -f$="your hand":end=1f$=" my hand " 1:1:6:0,11 ;"";1,11 ;"";1,21;"";7;1,12 ;f$;6;2,11 ;"":0: Ü1:1:6:18,0;" ":0: +display info as to the computers decision 1:7:i(r) totco>172600( (totco=17ace=02600( (totco=16ace=02600( "g$="i will twist":twist=1 2700 ("twist=0:g$="i will stick" #hj=(32 -g$)/2+1 V1:19,1;" ";19,hj;g$:0 T 0: .this is the analysing section for score ect. (AVOID=1:24:AVOID=0 1:1:7: mid=r-midco +totco>20totme>203030 #totme=totcomidmidco3076 +totme>21totco>213070 totme>totco3076 %totme21totco>213070 Amid=2mid=5midco=2midco=53035 5mid=2midco2midco53076 3midco=2mid2mid53078 'mid=5midco53076 'mid5midco=53078 :totme>21totco<22totco>11 3078 :totme>11 totme<22totco>213076  3080 #score1=score1+1:3080 score2=score2+1 sc1=score13082 (sc1score1-1score1=sc1+1 sc2=score23084 (sc2score2-1score2=sc2+1 ( 3500 +%12 ,13 ;"result":: -1:7 0+totme>21totco>213170b 1(totme=totcototco=213150N 2+totme=21totco213140D 3+totco=21totme213140D 41totme>totco"you win as you have better cards" 52totme=totcomid=midco" that was a draw" 6Xtotme=totcomidmidco"although it was a draw,you win because you used more cards" 8/totmemidco"although we both got 21.you win because you used more cards." TKmid21" you busted,i win" d;totme<22totco>21" i busted,you win" e:totme>21totco>21" we both busted!" hCONVENIENT ISNT IT H0:7 I`m=301-2:.02{# =,m+3:.028{e`A,m+6:.02{# =,m+3:m J20,5;" another game? ";19,5;"";21,5;"" Mw23658j\,8:.01z# =,( *8)-10 :=""ƿ65278=255ƿ32766=2553405M Ry$= Wy$="Y"y$="N"3425a \ 3405M asc1=score1:sc2=score2 b)23658j\,0:y$="N"4999 f 18  0:7:0,8;"":1,8;" score so far ":m=27:m,8;"":m:8,8;"" O3,10 ;"you..... ";score1;5,10 ;"me...... ";score2  b0::0:7::10 ,6;"thank you for playing":23635S\,201: #1:THIS IS THE CARD ROUTINE yshape=04:7:p,q;"":w=111 :p+w,q;"":w:p+12 ,q;"" shape=14:7:p,q;"":w=111 :2:7:p+w,q;"":w:4:7:p+12 ,q;"" Xq=0Q=22q=18q=17q=11 q=5q=205010 R7:5:p,q;"":m=111 :p+m,q;"":m:p+12 ,q;"" U.1}L,1:.02{# =,12 :m=3045-5:0.005y# =,m:m shape=1 p1: 7:i(r) za$(t(r),2)=""m$="" {a$(t(r),2)=""m$="" |a$(t(r),2)=""m$="" }a$(t(r),2)=""m$="" r$=a$(t(r),2) ?p+2,q+1;r$;p+1,q+1;a$(t(r),1) %q0p+10 ,q+7;m$ q=06500d Ov(r)=11 v(r)=1p+6,q+4;r$;p+11 ,q+7;"" (v(r)=11 v(r)=16500d 6020+(v(r)*5) Wp+11 ,q+7;"E";p+3,q+4;r$;p+9 ,q+4;m$:6500d op+3,q+4;r$;p+11 ,q+7;"F";p+9 ,q+4;m$;p+6,q+4;r$:6500d ip+11 ,q+7;"G";p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$:6500d p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$;p+6,q+4;r$;p+11 ,q+7;"":6500d p+11 ,q+7;"9";p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$;p+6,q+2;r$;" ";r$:6500d p+11 ,q+7;"H";p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$;p+6,q+2;r$;" ";r$;p+5,q+4;r$:6500d p+11 ,q+7;"I";p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$;p+5,q+2;r$;" ";r$;p+7,q+2;m$;" ";m$:6500d p+11 ,q+7;"6";p+6,q+4;r$;p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$;p+5,q+2;r$;" ";r$;p+7,q+2;m$;" ";m$:6500d "a$(t(r),1)""6075 p+11 ,q+7;"D";p+3,q+2;r$;" ";r$;p+9 ,q+2;m$;" ";m$;p+5,q+2;r$;" ";r$;p+7,q+2;m$;" ";m$;p+4,q+4;r$;p+8,q+4;m$:6500d {7:i(r):p+3,q+2;"S:::T":m=p+4p+8:m,q+2;"- ;":m:p+9 ,q+2;"*<<<+" 1a$(t(r),1)="J"p+11 ,q+7;"" ƒa$(t(r),1)="J"p+4,q+3;"]^_";p+5,q+3;"`{|";p+6,q+3;"}~";p+7,q+3;"zx/" 1a$(t(r),1)="Q"p+11 ,q+7;"" ǃa$(t(r),1)="Q"p+4,q+3;"NOP";p+5,q+3;"RUV";p+6,q+3;"WYX";p+7,q+3;"Z[\" 1a$(t(r),1)="K"p+11 ,q+7;"" ̃a$(t(r),1)="K"p+4,q+3;"]#$";p+5,q+3;"%&=";p+6,q+3;">@B";p+7,q+3;"CLM" p+8,q+3;r$;r$;r$ d 0: Xn2:2::1:6:0:1,6;"-your score was ";totme;";" ]O0,6;"S:::::::::::::::::T";2,6;"*<<<<<<<<<<<<<<<<<+" bL7:1:4,2;"here are my two hidden cards":0 g4:7:6,3;"S:::::::::::::::::::::::T":m=719:m,3;"- ;":m:20,3;"*<<<<<<<<<<<<<<<<<<<<<<<+" lv0:p=7:shape=0:q=5:pit=r:r=1:5000:q=17:r=2:5000:r=pit q{1:6:0:21,3;" ";21,8;"my total was ";totco:0 v 3000 ? @23658j\,8:totme>11 totme<221:1:7:19,1;"cards are worth ";totme;19,22;" twist?":0 Atotme<12 8020T B@=""ƿ65278=255ƿ32766=2558001A C!y$=:y$="Y"y$="N"8005E D 8001A E&twist=0:y$="Y"twist=1 FF1:1:19,1;" " Gtotme>11 8013M HL1:7:i(r):19,1;"you can only stick on 12 plus " Im=1120x:m JE19,1;" i will twist for you ":0 Km=1120x:m MZtwist=10:4:4:m=416:m,22;" ":m N23658j\,0 OF1:1:19,1;" " P Ty$="Y" V 8005E ^M0:4:4:m=416:m,22;" ":m: _4:0:8,24;"card";10 ,22;"returned";12 ,25;"to";14,24;"pack.": %=m=10 20:0.01z# =,21-m:0.01z# =,m:m %1:1:7:: %w=1524 %!w<14a$(w,2)="" %&*w>13 w<27a$(w,2)="" %+*w>26w<40(a$(w,2)="" %0w>39'a$(w,2)="" %?b$:a$(w,1)=b$ %D9w=13 w=26w=39'w=5249750& %Nw % %o=ur %8o21v(o)=1 %&r21v(o)=1 %o % %o=ur %,v(o)=11 totco>21v(o)=1 %v(o)=11 ace=1 %&r21v(o)=1 %o: %0,.25~,5,.5,0,.25~,5,.25~,9 ,.5,5,.25~,9 ,.25~,12 ,.5,12 ,.25~,11 ,.25~ %14,.25~,12 ,.5,9 ,.25~,12 ,.25~,9 ,.25~,5,.25~,2,.25~,0,.5,5,.5,4,1.5@ %2,.25~,7,.5,2,.25~,7,.25~,11 ,.5,7,.25~,11 ,.25~,16,.5,16,.25~,15,.25~ %18,.25~,16,.25~,12 ,.25~,11 ,.25~,9 ,.25~,9 ,.5,9 ,1,2,.25~,4,.25~,2,.25~,4,.25~,2,.25~,11 ,.25~,11 ,.25~,11 ,.5 %14,.5,13 ,.5,14,.75@,11 ,.25~,12 ,.5,11 ,.5,12 ,.5,11 ,.25~,12 ,.25~,14,.5,11 ,.25~,9 ,.25~,7,.5,6,.25~ %7,.25~,9 ,1.5@,2,.25~,7,.5,2,.25~,7,.25~,11 ,.5,7,.25~,11 ,.25~,14,.5,11 ,.25~,14,.25~,18,.5,16,.5,19,.25~,16,.25~,12 ,.25~,9 ,.25~,16,.5,18,.5,19,1.5@ &5"A","2","3","4","5","6","7","8","9","","J","Q","K" &H0:1:0:1::4;" ";6;6,12 ;" ";7,13 ;" ";8,13 ;" ";2;12 ,2;" ":0  &I7:1:u$="written by bruce rutherford":m=127:n=15:19,2+m;"";19,2+m;"":n:7:19,2+m;u$(m):.02{# =,35#:m:0 &J<m=180P:a,b:n=13:n:b,a:m: &P@5:5::0::0,10 ;"introduction" &Q" ::::::::::::"'' &R" the game of pontoon is no doubtfamiliar to many of you.in this game the computer always starts first.as the computer begins,youare not allowed to see his firsttwo cards.however,at the end of each game all will be revealed." &S'" after the computer has closely scrutinised his hand,he will either twist or stick and informyou of any decision he has made." &W '" when the computer is satisfied with his hand he will inform youthat it is now your turn and will deal you two cards face up." &Z021,3;"press any key to continue." &]&0:6:6:0: &^" you will then be asked whether you wish to twist.to this you press the 'y' key if you do wantto twist and the 'n'key if you do not want to twist,it's as simple as that."''' &_"the values of the cards are....."''';10 ;"Ace...1 or 11"'';10 ;"King.......10"'';10 ;"Queen......10"'';10 ;"Jack.......10"'';8;"others,face value" &c/21,3;"press any key to continue" &d&0:7:9 :7: &ep" at the end of each round the "''"computer will reveal his two "''"hidden cards and his overall "''"points." &fu'" An analysis of the results and"''"an update on the score is"''"provided at the end of each"''"game. good luck!" &h/20,3;"press any key to continue" &j&0:1:9 :1: &l!10 ,9 ;"please wait" &z &"cards"9902& &m=1150:m &,RAMTOP=23730\+256*23731\ &(RAMTOP-1024) &3CHBAS=23730\+256*23731\+1 &D236066\,23730\+1:236077\,23731\-1 & "cards" & ""CHBAS & 4 & '  corecorevoiUwritten by bruce rutherfordPJ&I&ab~~cards X˪<~~<<<~$~~<<~~??~<<<~~$~~<" >LRRRRRRLffffBB~BB<B""<UU|,쾾 *>BB<HPpHD@@@@~BfZBBbRJFB