PatienceB uX11-Up Patience by Colin Gooch from ZX Computing Oct/Nov.1984 BRUN 1760 to define UDGselse justRUN yꉉPATIENCE B  C.N.GOOCH 1983 c(x )=6*(x=2x=6)+12 *(x=9 )+18*(x=3x=7)+24*(x=4x=8):d(x )=2+6*(x>4)+6*(x>4x<9 ) : M1600@:4:4:0::1710:1400x:1500 PRINT STARTING HAND ${a=1:n=144,5:x=c(a)+2:y=d(a)+7:y,x;6;0;" ";a;" ":a=a+1:n .a=1:n=144,5:x=c(a):y=d(a):c$=p$(nn+4):r$(a)=c$(23):1260:a=a+1:n:cd=9 8p$=p$(46.) B21,13 ;5;0;" ";19,13 ;"CARDS";20,13 ;"LEFT ";21,15;524-cd:0,0;"ENTER POSITION OF CARDS TO BE";1,0;"COVERED eg. 35 (0 TO RESIGN)";z$:z$=""1230 L%z$>31230:1100L VPz(z$):n=1̱z$:z$(n)<480ůz$(n)>5791230:1100L `Uz(n)=z$(n):n:z$=1z$(1)"9"z$(1)"0"1230:1100L jHz$=2fa=0:z(1)=z(2)1230:1100L tzz$=3fa=0:(z(1)=z(2))+(z(1)=z(3))+(z(2)=z(3))1230:1100L ~&z$=0res=1:1510 fa1230:1100L z$=1fa=fa+1 gn=1̱z$:t=t+r$(z(n)):n:t11 t36$Ʊz$11230:t=0:1100L ;t=11 Ʊz$21230:t=0:1100L ;t=36$Ʊz$31230:t=0:1100L `n=1̱z$:c$=p$(15):p$=p$(6):cd=cd+1:cd=5241510 \x=c(z(n)):y=d(z(n)):1260:r$(z(n))=c$(23):n:t=0:1090B d0,0;"INPUT UNACCEPTABLE";1,0;"PLEASE ENTER AGAIN";z$:z$=""1230   PRINT CARD .ٰc$(5):e$=c$(4):f$=c$(1) 7:m=y8+12 *(y>10 )+6*(y=8):m,x+1;0;" ":m:y,x+1;f$;y+6,x+5;f$ 1y+1,x+1;e$;y+5,x+5;e$  >(f$="A")+(f$="3")+(f$="5")+(f$="9")y+3,x+3;e$ D(f$="2")+(f$="3")y+2,x+3;e$;y+4,x+3;e$ (f$="4")+(f$="5")+(f$="8")+(f$="9")+(f$="")y+2,x+2;e$;y+2,x+4;e$;y+4,x+2;e$;y+4,x+4;e$ ((f$="6")+(f$="7")y+1,x+2;e$;y+1,x+4;e$;y+3,x+2;e$;y+3,x+4;e$;y+5,x+2;e$;y+5,x+4;e$ 2#(f$="7")y+3,x+3;e$ <}(f$="8")+(f$="9")+(f$="")y+1,x+2;e$;y+1,x+4;e$;y+5,x+2;e$;y+5,x+4;e$ F;(f$="")y+3,x+2;e$;y+3,x+4;e$ Pf$="J"y+1,x+3;"";y+2,x+4;"";y+3,x+4;"";y+4,x+2;"";y+5,x+2;"" Zf$="Q"y+1,x+2;"";y+2,x+2;"";y+3,x+2;"";y+4,x+2;"";y+5,x+2;"";y+6,x+3;"" df$="K"y+1,x+2;"";y+2,x+2;"";y+3,x+2;"";y+4,x+2;"";y+5,x+2;"" n x SET UP PACK 5a$="":d$="A0120230340450560670780890910J11Q12K13" 8,9 ;1;5;b$;b$;b$;b$;10 ,10 ;1;7;2;"PREPARING PACK";12 ,9 ;0;5;1;b$;b$;b$;b$ ^q=139'3:p=14:col=0:p=1p=3col=2 "a$=a$+d$(qq+2)+b$(p)+col p:q :8,9 ;5;1;b$;b$;b$;b$;10 ,12 ;7;1;"SHUFFLING";12 ,9 ;5;1;0;b$;b$;b$;b$ n=160<:a=1+(5*(1+(*502))):n/2=(n/2)a$=a$(aa+4)+a$(a-1)+a$(a+5):.01z# =,n `n/2ɺ(n/2)a$=a$(a-1)+a$(a+5)+a$(aa+4):.01z# =,n+10 n:p$=a$:: 5"PRESS ENTER TO CONTINUE";z$:.05|L,10 :  END GAME b5:1:n=12 21:n,0;5;" ":n res13 ,1;"BAD LUCK: THE CARDS DID NOT ";14,1;"RUN YOUR WAY":n=-10 -30-1:׽n/100d,n:n res13 ,1;1;"!!!!! WELL DONE !!!!!!";14,1;0;"YOUR PATIENCE IS REWARDED":n=13:m=10 40(3:.01z# =,m:m:10 :n u16,3;"YOU MAY";17,5;"1)PLAY AGAIN";18,5;19,5;"2)FINISH PLAYING"  0 "`="1"4:4:0::1710:1710:1460:1500:1050 ,="2"::I've just replaced the following with a , as it's rather more convenient. [JimG]:10,0;"START TAPE TO LOAD NEXT GAME":"" 60:1570" @INSTRUCTIONS Jt$=" " T2:3:1::7,0;1;t$:n=51510 :n,8;0;6;1;1;" P A T I E N C E ":n ^q#1;0,0;"FOR INSTRUCTIONS PRESS ""1""";1,0;"OTHERWISE ANY KEY":0:"1" hA:1,5;6;" 11-UP PATIENCE:RULES ":100d ru$(6,30):u$(1)="NINE CARDS WILL BE DEALT OUT":u$(2)="YOU MUST COVER EITHER :-":u$(3)="TWO NON-PICTURE CARDS TOTALING":u$(4)="ELEVEN (ACE = 1) OR":u$(5)="A RUN OF J-Q-K ":u=5 |1690:1500:u$(1)="IF YOU CAN'T MOVE THEN YOU MAY":u$(2)="DEAL A SINGLE CARD INTO THE":u$(3)="CENTRE: CARD (9)":u$(4)="IF YOU ARE STILL UNABLE TO":u$(5)="PLAY THEN YOU HAVE FAILED AND":u$(6)="MUST RESIGN":u=6 1690:1500  Mn=217:n,1;5;" ":n b=1:n=43+(u*2)2:m=130:n,m;7;1;"*":2:n,m;5;u$(b,m):.01z# =,0:m:b=b+1:n INIT ;a=1:cd=0:t=0:fa=0:res=0 r$(9 ,5)  b$=""   GRAPHICS 52::10 ,2;"STOP THE TAPE PLEASE" B1800:n=04:m=07:m:.01z# =,n a:(97a+n)+m,a:m:n: G0,94^,82R,82R,82R,82R,94^,0 K0,16,568,124|,254,124|,568,16 M0,108l,254,254,124|,124|,568,16 &M16,568,124|,124|,254,214,84T,16 0K0,568,568,16,214,254,214,16 : '"patienceB"1760 '8:"SWITCH PLUGS AND REWIND TO "'"VERIFY. START TAPE" ' "patienceb"::"ALL OK"