8-CardPat = ==XEight Cards Patience by Colin Gooch from ZX Computing Aug/Sep.1984 U.D.GRAPHICS CHARACTERS IN LINES 1240.1310.1320.1350.1740.1820 [I've reproduced this REM as it was printed in the mag- although it's bollocks. JimG] (2700 to set up UDGs else  I added the ٰc$(5) in lines 1220 & 1890 so that themarker characters would print inthe correct colours. [JimG] PATIENCE-C.N.GOOCH 1984 2a(x3):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$ 2(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$ F#(f$="7")y+3,x+3;e$ P}(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$ Z9f$=""y+3,x+2;e$;y+3,x+4;e$ df$="J"y+1,x+3;"";y+2,x+4;"";y+3,x+4;"";y+4,x+2;" ";y+5,x+2;"" nf$="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;"" xf$="K"y+1,x+2;"";y+2,x+2;"";y+3,x+2;"";y+4,x+2;"";y+5,x+2;""  ELECT TO MOVE Zstackpcdr(5)+r(6)+r(7)+r(8)=4res=0:2180 j#1;0,0;" PRESS(1)MOVE CARD (2)DEAL ";1,0;" OR (0)RESIGN ":0 ="1"1490 ="2"1900l $="0"res=1:"":2180 0:1450 h0,0;"ENTER TWO NUMBERS TOGETHER. CARD";1,0;"TO MOVE & DESTINATION.eg.95";z$ +z$=""űz$<2űz$>21490 (z$(1)<491ůz$(2)<491)+(z$(1)>579ůz$(2)>579)"ENTRY UNACCEPTABLE.RE-ENTER";z$:1500 "z1=z$(1):z2=z$(2) Lz1<5z1=z2z2=9 "ENTRY UNACCEPTABLE.RE-ENTER";z$:1500 Ndealtz$(1)="9"#1;"NO CARDS DEALT YET":100d:1490 z$(1)"9"15906 Oflt=0:z$(1)="9"1670:1570":flt=0:1430 "flt ,&y=14:x=25:1260: 6vflt=0:z25fd=1:d$="":m=r(z1)-11-5:d$=d$+r$(z1,m-4m):m:r$(z1)=d$ @'flt=0:n=r(z1)6-5 J]n=6fdm=17:13 +m,1+c(z1);4;" ":m:1630^ TJc$=r$(z1,r(z1)-10 r(z1)-6):y=14:x=c(z1):1260 ^^c$=r$(z1,r(z1)-5r(z1)-1):y=2+12 *(z25):x=c(z2):1700 h\fltc$=r$((z1),r(z1)-5r(z1)-1):y=14:x=c(z1):1260:1430 r 1810 |n:fd=0:1430 Opsl=1n=1420:n,26;4;" ":n:1690 Dc$=p$(psl-5psl-1):y=14:x=25:1260 Cc$=p$(pslpsl+4):y=2+12 *(z2>4):x=c(z2) 8r(z2)=1c$(1)=k$1260:1790: ;r(z2)=1r$(z1,1)=k$1260:1790: r(z2)=1flt=1: ‘z2<5ưc$(23)=1ưr$(z2,r(z2)-4r(z2)-3)=13 c$(4)=r$(z2,r(z2)-2)1260:1790: ̑z25ưc$(23)=13 ưr$(z2,r(z2)-4r(z2)-3)=1c$(4)=r$(z2,r(z2)-2)1260:1790: ֈz2<5ưc$(23)=r$(z2,r(z2)-4r(z2)-3)+1c$(4)=r$(z2,r(z2)-2)1260:1790: z25ưc$(23)=r$(z2,r(z2)-4r(z2)-3)-1c$(4)=r$(z2,r(z2)-2)1260:1790: flt=1: MOVE CARD; DEC PACK r$(z2,r(z2)r(z2)+4)=c$:r(z2)=r(z2)+5:z1=9 p$=p$(psl-1)+p$(psl+5):psl=psl-5:pcd=pcd-1:  REMOVE CARD FROM TRICK 0r(z1)=r(z1)-5:r(z1)11850: &"r$(Z1)=r$(z1,(r(z1)-1)): 0CARD OFF STACK :""1850: D stack Nrstack=stack-1:c$=s$(slstslst+4):slst=slst+5:r$(z1)=c$:r(z1)=6:y=14:x=c(z1) X#1;0,0;"PRESS ""ENTER"" TO FETCH NEW";1,0;"CARD FROM STACK":0:stack=0n=28:n,26;4;" ":n b1260:10 ,30;6;0;" ";10 ,30;stack;13 ,c(z1)+3;5;ٰc$(5);c$(1): lDEAL v""1910v ypcd=014,27;7;2;"NO";16,26;"CARDS";19,26;"LEFT":1430 dealt=dealt+1 !endppsl=1:endp=0 (psl=psl+15-5*(psl=1) Ppslpcd*5psl=pcd*5-4psl=pcd*5-4:endp=1 8dealtyp=2psl=pcd*5-14endp=1 dealtyp=22000 Hc$=p$(pslpsl+4):y=14:x=25:1260:1430 `pcd=3p$=p$(pslpsl+4)+p$(psl-5psl-1)+p$(psl-10 psl-6): Cpcd=2p$=p$(pslpsl+4)+p$(psl-5psl-1): pcd=1 !d$=p$(psl-10 psl+4) ]p$(psl-10 psl-6)=d$(11 15):p$(pslpsl+4)=d$(15)   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 4"a$=a$+d$(qq+2)+b$(p)+col >p:q H:8,9 ;5;1;b$;b$;b$;b$;10 ,12 ;7;1;"SHUFFLING";12 ,9 ;5;1;0;b$;b$;b$;b$ Rn=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 fn:: p5"PRESS ENTER TO CONTINUE";z$:.05|L,10 : z 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" 16,3;"YOU MAY";17,5;"1)PLAY AGAIN:SAME DEAL";18,5;"2)PLAY AGAIN:OTHER DEAL";19,5;"3)FINISH PLAYING"  0 H="1"4:4:0::2640P :2120H:1070. {="2"dealtyp=dealtyp+1-2*(dealtyp=2):4:4:0::2640P :2120H:1070. ʋ="3"::[I've put in a STOP and disabled this next bit, as it's not very sensible. JimG]: 10,0;"START TAPE TO LOAD NEXT GAME": "" 0:2230 INSTRUCTIONS 2:7:5: 0,9 ;1;7;"":n=120:.01z# =,2*n:n,9 ;1;7;"":n:21,9 ;1;7;"" Q2,14;1;6;0;"EIGHT";18,14;"CARDS" t$="PATIENCE":m=2172:.01z# =,20-m:m+1,11 +m/2;6;1;0;t$(m/2):m 10 ,1;1;"DO YOU";12 ,0;"WANT THE";14,1;"RULES?";10 ,25;" PRESS";12 ,24;"""Y""OR""N""";14,24;"(YES/NO)" ^0:="N"Ŧ="n"n=10 20:n/100d,20:n::2620< :2530 $"Y"Ʀ"y"2330 .K4:0::0,4;5;"RULES FOR 8 CARD PATIENCE" 8 2620< B2,8;7;"The playing area";3,8;"is set out thus-";4,8;1;"*";4,9 ;0;"A Spare Stack";5,13 ;"of 13 cards":l=2:m=26:1240:22716X,a(22716X) LH2160p:22716X,b(22716X):4,8;7;" " V6,8;0;7;1;"*";6,9 ;0;"A bottom row":l=14:m=1206:1240:23074"Z+m,a(23074"Z+m):m `k2160p:m=1206:23074"Z+m,b(23074"Z+m):m:6,8;7;" " j7,8;7;0;1;"*";7,9 ;0;"A Top card":c$="4040":x=0:y=2:1260 te22691X,a(22691X):2160p:7,8;7;" ":22691X,b(22691X) ~8,8;7;0;1;"*";8,9 ;0;"An area where ";9 ,9 ;"cards may be ";10 ,18;"dealt" Jn=1420:n,26;" ":n:23100