ZXTape! 0Created with Ramsoft MakeTZXpycr1 $)=game=1:pwin=0:cwin=0:flag=(*3) e8,6;7;0;"PLAY YOUR CARDS RIGHT";10 ,10 ;0;"Game No. 1" -u$(x$v)=(x$-(x$>90Z)*32 )  280 *** PRINT A CARD p:7 4;20,0;B$ i=15 2(p-1)*11 +i,c*5-4;" " (i 24c*40(-32 ,168-(p-1)*88X <%31,0:0,-40( F%-31,0:0,40( H!card<30:80P Jcard<52 Pi=13 ZW(p-1)*11 +i+1,c*5-3;(card+143)+(card+143) di nScard<51;(p-1)*11 +1,c*5-3;c$(h(c,p)) s 4 u.01z# =,0 x DEAL A CARD deal=(*524)+1 u$(deal)="U"130 u$(deal)="U"  PLAY THE SIG. TUNE 210 i=19 du,no:du,no i Ҡ.25~,0,.1}L,12 ,.353333,7,.25~,5,.1}L,7,.2~L,9 ,.05|L,7,.25~,5,.4L,0  BEEP FOR WRONG 0i=1-4-.3:.02{# =,i:i: CARD VALUE & TYPE Mknd=((n-1)/13 )+1:crd=n-13 *(knd-1)+1:  900 "<7;0;8,6;"PLAY YOUR CARDS RIGHT" #710 ,10 ;7;0;"Game No. ";GAME ' 170 ,0pc=1:cc=1:ps=1:cs=1 6flag=0540 ;flag=1320@ ?PLAYERS TURN @flag=0 En=h(pc,1):240 J card=knd O19,0;b$ Tc=pc:p=1 ^ 10 hI#1;1;"Do you want to change that card?":.1}L,30 iI$= m i$=u$(i$) oi$"Y"i$"N"361i rR"":i$="Y"130:h(pc,1)=deal:n=deal:240:card=knd:10 wpc=6760 |.1}L,30:#1;1;"Is the next card going to be Higher(H) or Lower(L) Press F to freeze " }I$=  i$=u$(i$) ki$="F"6,ps*5-3;" ":ps=pc:6,ps*5-3;1;"":500 i$"H"i$"L"381} $"":pc=pc+1:n=h(pc,1) .c=pc:240:card=knd:cur=crd:10 -n=h(pc-1,1):240:pre=crd *precuri$="L"375w  230 rpre=cur0;1;20,0;"You dont get anything for a pair":100d:20,0;b$ c=ps+1pc  130 h(c,1)=deal card=5:10 c pc=ps COPUTERS TURN flag=1 ! "":n=h(cc,2):240 &cpr=crd:card=knd +19,0;b$ 0c=cc:p=2:10 :cpr>5cpr<11 7;1;20,0;"I'll change that card.":75K:130:h(cc,2)=deal:n=deal:240:card=knd:10 :20,0;b$ Dcc=6780  N%n=h(cc,2):240:cpr=crd Xpos=8-cpr bpos<3cscc20:7;1;20,9 ;"I freeze";4;" ":17,cs*5-3;" ":cs=cc:17,cs*5-3;2;"":75K:320@ l(m$=("L"pos<0)+("H"pos>0) v3pos=0r=(+.5):m$=("H"r)+("L"r) \20:20,9 ;7;1;"I say ";("Higher"m$="H");(" Lower"m$="L") +75K:20,9 ;b$(12 )  cc=cc+1:n=h(cc,2) .c=cc:240:card=knd:cuc=crd:10 *cprcucm$="L"580D  230 rcpr=cuc7;1;20,0;"You dont get anything for a pair":100d:20,0;b$ c=cs+1cc  130 !h(c,2)=deal:card=5  10 c cc=cs  320@ GAME OVER pwin=pwin+1:3,0;1;7;PWIN:20,8;0;1;"You won that one"pwin3:170 pwin=3850R flag=0:800   cwin=cwin+1:14,0;2;7;CWIN:20,9 ;1;7;"I won that one"cwin3:170 cwin=3870f flag=1  game=game+1 4 280 RB19,5;1;1;7;"You win the match" \ 880p fA19,5;1;1;7;"I win the match " p8170:21,0;0;"Another game ?" qI$= z%u$(i$)="N"23693\,568: U$(I$)="Y" I$"Y"I$"N"881q SET UP PACK !a$=" 2 3 4 5 6 7 8 910 J Q K A" t$=a$ c$(524,2) i=1524 c$(i)=t$(2) t$=t$(3) t$=""t$=a$ i u$(524):b$(64@) h(6,2) card=5 SET UP INITIAL DISPLAY 820,9 ;b$(12 ):"":p=12 c=16  10  130  DEAL 2 HANDS  h(c,p)=deal c p T3,0;1;7;PWIN;14,0;2;7;CWIN J6,2;1;"";b$;17,2;2;"";b$  #SET GRAPHICS $ 4:4::1110V )i=04 .j=07 8n:"a"+i*8+j,n Bj:i VG0,8,28,42*,127,42*,8,28 `K0,16,568,124|,254,254,84T,16 jK0,108l,254,254,124|,568,16,0 tK0,16,568,124|,254,124|,568,16 ~K85U,34",85U,136,85U,34",85U,136  #(:"pycr1"1060$:"pycr1"