pontoon >.+@.aPONTOON was written C.Taft of Coventry ZX Computing aug/sept 1983-22 (Play Your Cards Right)  "236099\,30:1850: a1=500 (s1=10 :z$(1,8):s$(4):c(524):h(5,2):t(4):s$(1)="":s$(2)="":s$(3)="":s$(4)="" 2i1=100d:a2=0:w=0:k=1:a=1:c=0:m1=0:v=0:b1=0:b2=0:a1=a1-s1:n=0 <s=14 Fr=214 P n=n+1:c(n)=10 *r+s Zr:s dn=1524 nL.003xD,-n+524:m=(*524)+1:t=c(m):c(m)=c(n):c(n)=t x.003xD,n:n } n=0 4:2: pn=084:7:2:0,0+n;"";0;"";2;"";0;"";:n 1:7:"PONTOON"; xn=19274:7:2:0,n;"";0;"";2;"";0;"";:n:2;"" v7:1:2,11 ;"YOUR HAND:";15,2;"YOUR TOTAL:";15,19;"CREDIT `:";a1 580D !a2=0t23106 510:470 4:18,0;" ";7;2;18,7;" ENTER: ";1;"YOUR CHOICE";4;" ";7;"s = STICK,t = TWIST,b = BUY" $t=5m1=21:1550 a$ !a$"s"a$"t"a$"b"250 a$="s"502:470 a$="b"340T ,t=t+1:600X @v>21410 J 220 ^;7:2:18,2;"AMOUNT (WHOLE `'S)?" h4;20,1;"":7:2:20,2;"UPTO: ";((((a1-b2-b1)*.1}L)+.5))-1;4;" " rb3 |/b3>((a1-b2-b1)*.1}L)+.5370r  b1=b1+b3 502:290" 20:z=140(:.05|L/(z/7),-z/7:1:13 ,12 ;7;2;"SORRY,YOU HAVE BUST!":z:0 24:13 ,6;" " a1=(a1-(b1+b2)+.5) 67:1:15,27;a1;4;" "  502 v15m1=v:860\ g.5,-5:3:7:13 ,2;"YOU CANNOT STICK ON LESS THAN 15 !":75K J4:13 ,0;" ":220 7:2:18,2;"YOUR BET (WHOLE `'S) ?";20,2;2;"UPTO: ";(((a1*.1}L)+.5))-1; 4:" " b2 &'b2>(a1*.1}L)+.5540 0#a2=1600X:1720 :#t=t+1:600X:220 N t=1 XDd=1:n=n+1:h(t,d)=c(n)*10 +t:t1=c(n):760 b 70F l 1780 vHr$(1)=""r$(1)=""r$(1)="".1}L,r:650 %.1}L,r:1270+(r*20) r$(1)=""1490 r$(1)=""1510 r$(1)=""1530 -i1=100d1:15,13 ;v i1100d7:1:15,2;"MY TOTAL: ";v;15,19;"PAY: ";19,2;"AMOUNT BET `: ";b2+b1;19,20;"CREDIT `:";a1 ^i1100dv21i1100dt=5740  Ji1100dv=20v+1;17,14;"FIVE CARD TRICKS" ,i1100d15,23;v+1 i1100d750 4i1100d4:15,19;" "  7r=(t1/10 ):s=t1-r*10 :r=r+1:r$=r r=15r$=""  #r=15a2=01680 "r=15a2=1600X  r=14r$(1)="" *r=13 r$(1)="" 4r=12 r$(1)="" >#r12 r<15r=11 Hr=r-1:v=v+r R f :4 ppz=084:7:2:0,0+z;"";0;"";2;"";0;"";:z z1:7:"PONTOON" jz=19274:7:2:0,z;"";0;"";2;"";0;"";:z 07:2:2,12 ;"MY HAND:" Fc=c+6:v=0:v1=0:i1=0:t=0:a=1 "t=5v211030 v<151000 v=211030 v>211100L 3o1=((v/((b2+b1)+(a1/5)))/502)+1 #o1<4v171010 o141010 #t=t+1:600X:930 vm1v=m1+11030 v,28,8,0,0 vH"d",0,0,8,28,62>,28,8,0 I"c",0,0,28,42*,62>,42*,8,0 H"s",0,0,8,28,62>,546,8,0 K"t",0,94^,82R,82R,82R,82R,94^,0 L"a",0,0,243,121y,63?,31,15,7 Q"b",0,0,231,231,255,255,255,255 Q"e",0,0,207,158,252,248,240,244 L"i",4,12 ,14,16,32 ,64@,64@,568 L"j",84T,85U,42*,21,10 ,10 ,10 ,5 R"k",160,80P,144,88X,164,172,162,86V I"l",8,4,24,16,16,15,1,2 I"m",5,5,5,29,98b,191,0,0 N"n",82R,86V,82R,82R,212,88X,232,4 L"f",0,0,240,121y,63?,31,15,7 P"g",0,0,195,231,255,60<,255,255  P"o",0,0,15,158,252,248,240,224 K"p",0,0,255,121y,480,16,9 ,7  P"q",0,0,255,231,195,195,231,25 *N"r",0,0,255,158,12 ,8,144,224 4 30 >"pontoon"1 :Da dwkcv<Fm(td6(  43 R"^I=qTz|Qef@{h\[H)G,6]oy!JSg+r5p>?*47AtR6Pk