1 poke59468,14 2 print"{clr}" 5 print 10 gosub2000 15 dimp(52),x(7) 20 t1=0 30 t2=0 40 print 50 print"Shuffling pack....." 55 print 60 fora=1to52 70 p(a)=int((a-1)/4)+1 80 nexta 100 fora=52to1step-1 110 r=int(rnd(1)*52+1) 120 v=p(a) 130 p(a)=p(r) 140 p(r)=v 150 nexta 160 forb=1to7 170 x(b)=0 180 nextb 190 gosub790 200 gosub790 210 ifx(3)=0thengoto290 220 ifx(1)<>12then goto290 230 print"Do you wish to 1 Split 2 Twist" 240 getm$:ifm$=""then240 245 m=val(m$) 250 ifm<>1then goto320 260 letx(7)=x(7)+1 270 letx(1)=11 280 letx(5)=1 290 print"Do you wish to 1:Pass 2:Twist 300 getm$:ifm$=""then300 305 m=val(m$) 310 ifm<>2then goto410 320 gosub790 330 ifx(1)<22then goto290 340 print"You are bust !" 350 ifx(7)<>1then goto390 360 letx(3)=1 370 x(7)=0 380 goto270 390 ifx(7)=0then goto670 400 x(1)=0 410 ifx(7)<>1then goto460 420 letf=x(1) 430 letg=x(5) 440 letx(3)=1 450 goto260 460 gosub820 470 ifx(6)=5then goto550 480 ifx(2)<16then goto460 490 lete=0 500 ford=ato52 510 ifp(d)>21-x(2)then goto530 520 lete=e+1 530 nextd 540 ifrnd(r)<((e*(x(4)*2+1))/(53-a)-.2)then goto460 550 ifx(7)<>2then goto590 560 ifx(1)>fthen goto590 570 x(1)=f 580 x(5)=g 590 ifx(2)<>21then goto610 600 ifx(6)=2then goto680 610 ifx(1)<>21then goto630 620 ifx(5)=2then goto720 630 ifx(2)>21then goto710 640 ifx(6)=5thenprint"house got a Five card trick!!-":goto670 650 ifx(5)=5thenprint"you got a Five card trick!!-":goto710 660 ifx(1)>x(2)then goto710 670 b=1 675 print 680 print"Sorry house won " 690 t2=t2+1 700 goto740 710 b=1 720 print"You won " 730 t1=t1+1 740 print"You got";x(1),,,"House got";x(2) 750 print"Your wins=";t1,,,"House wins=";t2 760 forq=1to2000 765 nextq 769 printchr$(147) 770 ifb=1then160 780 goto40 790 c=1 795 ifp(a)=0thenp(a)=int(rnd(5)*13+1) 800 print"Your card is a "; 810 goto840 820 c=2 830 print,,," House card is a "; 840 ifp(a)<11then goto930 850 ifp(a)<>13then goto870 860 print"King" 870 ifp(a)<>12then goto890 880 print"Queen" 890 ifp(a)<>11then goto910 900 print"Jack" 910 x(c)=x(c)+10 920 goto1000 930 ifp(a)<>1then goto980 940 x(c)=x(c)+11 950 x(c+2)=x(c+2)+1 960 print"{left}n Ace" 970 goto1000 980 printp(a)"." 990 x(c)=x(c)+p(a) 1000 a=a+1 1010 x(c+4)=x(c+4)+1 1020 ifa<>53then goto1040 1030 a=1 1040 ifx(c)<22then goto1090 1050 ifx(c+2)=0then goto1090 1060 x(c)=x(c)-10 1070 x(c+2)=x(c+2)-1 1080 goto1040 1090 return 2000 print"{clr} Pontoon" 2005 print" {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}" 2010 print"{down} This program plays pontoon." 2015 print" The computer shuffles the pack," 2016 print" and deals the cards." 2017 print" You decide if you want to twist,split etc." 2018 print"{down}{down}{rght}{rght}A record of the score is kept" 2030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Press a key to start:-" 2040 geta$:ifa$=""then2040 2050 print"{clr}":return