patienceC !!!XPatience V - Pairs by Colin N Gooch from ZX Computing Apr/May.1985 `NOTE: 2200 to define UDGs; else  c(x)=1+6*(x=2x=7x=12 )+12 *(x=3x=8x=13 )+18*(x=4x=9 x=14)+24*(x=5x=10 x=15):d(x)=7*(x>5x<11 )+14*(x>10 ) ::23658j\,8 $1690:1580,:1380d 4:4: $Xm=115:d(m)+4,c(m)-1;6;(m+64@):m:1090B .)1190:resűh$=01490 81110V:1070. B PRINT HAND LXh$=p$(175K):p$=p$(76L):z(1)=1:psl=1:1120` VZm=z(1)15:x=c(m):y=d(m):n=05:y+n,x;4;" ":n:m `m=z(1)̱h$/5:c$=h$(pslpsl+4):x=c(m):y=d(m):1140t:psl=psl+5:m:21,6;1;5;" ";21,6;" CARDS LEFT ";p$/5 j t PRINT CARD ~{7:ٰc$(5):n=04:y+n,x;7;" ":n:y,x;c$(1);c$(4);c$(4);c$(1) H9100#+c$(23):n=14:a:y+n,x;n$(a):n 'y+5,x;4;7;""  CHOOSE CARDS 0,0;0;"WHICH PAIR TO MOVE? ENTER TWO";1,0;"LETTERS eg.AE(00 TO RESIGN) ";z$:z$="00"res=1: z$21370Z In=12:z$(n)=""ůz$(n)<65Aůz$(n)>79O1370Z z(n)=z$(n)-64@:n \z(1)>z(2)z(3)=z(1):z(1)=z(2):z(2)=z(3) Kh$(z(1)*5-4)h$(z(2)*5-4)1370Z Xdif=z(2)-z(1):dif6dif5dif4dif11370Z (z(1)=1Ʊh$=10 h$="" z(1)=1z(2)1z(2)1z(2)=h$/5h$=h$(z(1)*5-5)+h$(z(1)*5+1z(2)*5-5) 2Rpsl=1+5*z(1)*(z(1)>1)-5*(z(1)>1) < p$="" F>p$10 h$=h$+p$(110 ):p$=p$(11 ): Ph$=h$+p$:p$="": Z[#1;0,0;"INPUT UNNACCEPTABLE":.5,20:100d:1200 d SET UP PACK n5a$="":d$="A0120230340450560670780890910J11Q12K13" x8,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-10 _n/2ɺ(n/2)a$=a$(a-1)+a$(a+5)+a$(aa+4):.01z# =,n+5 n:p$=a$:: 4"PRES ENTER TO CONTINUE";z$:.05|L,10 :  END GAME b5:1:n=12 21:n,0;5;" ":n Xres13 ,1;"BAD LUCK: THE CARDS DID NOT ";14,1;"RUN YOUR WAY" rres13 ,1;1;"!!!!! WELL DONE !!!!!!";14,1;0;"YOUR PATIENCE IS REWARDED" c16,3;"YOU MAY";17,5;"1)PLAY AGAIN";18,5;"2)FINISH PLAYING"  0 I="1"4:4:0::res=0:1440:1050 r="2":I've just put in ahere,as it's more convenient. [JimG]:10,0;"START TAPE TO LOAD NEXT GAME":"" " 1530 ,INSTRUCTIONS 6t$=" PATIENCE PAIRS ":6::m=01616:n=021:1+(*7);1;9 ;n,m;t$:.05|L,(n,m)/10 :n:m @Fn=813 :n,5;1;" ":n Jb9 ,7;7;1;"FOR RULES PRESS ""1""";12 ,7;"OTHERWISE ANY KEY" T0:"1": ^Vn=219:n,1;6;0;" ":n h""1640h r3,3;0;6;"A HAND OF 15 CARDS WILL BE";4,3;"DEALT OUT.":75K:5,3;0;6;"YOU MAY REMOVE ANY PAIR OF";6,3;"CARDS OF THE SAME VALUE " |7,3;6;0;"AND THAT TOUCH VERTICALLY,";8,3;"DIAGONALLY OR HORIZONTALLY.":75K:10 ,3;6;0;"ANY ILLEGAL MOVE IS REJECTED" 100d:.1}L,30:14,4;2;7;"PRESS ANY KEY TO CONTINUE";17,10 ;1;"GOOD LUCK!!!!"  0:: "n$(32 ,4):z(3) n$(1)=" " n$(2)=" " n$(3)=" " n$(4)=" " n$(5)=" " n$(6)=" " n$(7)=" " n$(8)=" " n$(9 )=" " n$(10 )=" " n$(11 )=" " n$(12 )=" " n$(13 )=" " &n$(14)=" " 0n$(15)=" " :n$(16)=" " Dn$(17)=" " Nn$(18)=" " Xn$(19)=" " bn$(20)=" " ln$(21)="" vn$(22)="" n$(23)=" " n$(24)=" " n$(25)=" " n$(26)=" " n$(27)=" " n$(28)=" " n$(29)="" n$(30)=" " n$(31)="" n$(32 )=" "  b$=""  res=0  INIT 52::10 ,2;"STOP THE TAPE PLEASE" D2230:n=017:m=07:m:.01z# =,n: )a:(97a+n)+m,a:m:n:1030 G0,94^,82R,82R,82R,82R,94^,0 K0,16,568,124|,254,124|,568,16 M16,568,124|,124|,254,214,84T,16 M0,108l,254,254,124|,124|,568,16 K0,568,568,16,214,254,214,16 O240,240,240,240,224,192,128,0 H1,3,7,15,31,63?,127,255 O254,252,248,240,224,192,128,0 Q254,252,248,240,255,255,255,255 Q240,240,240,240,224,192,192,224 Q254,252,248,240,240,240,240,240 $O240,240,240,240,127,63?,63?,127 .D0,0,0,0,0,96`,480,480 8K255,255,255,255,24,12 ,6,0 BQ128,192,224,240,248,252,254,255 LH255,127,63?,31,15,7,3,1 VQ255,255,255,255,255,231,195,129 `Q128,192,224,240,240,240,240,240 ##1,15,1,15 #!1,2,3,4 #!1,5,6,7 #"8,8,9 ,10 ##11 ,12 ,6,7 #$13 ,14,15,7 ##16,2,3,32 ##1,18,15,7 #$1,15,17,19 #%29,30,30,31 #%26,27,27,28 #$1,15,24,25 #%20,21,22,23 '"patienceC"2200 '8:"SWITCH PLUGS AND REWIND TO "'"VERIFY. START TAPE" ' "patienceC"::"ALL OK"