Patience JJLePatience by Andrew Price from Sinclair User #18 (Sep'83S) 35# cards are arranged in 7 rows of 5 on the left of the screen. On the right is an upturned card and a pile of cards face down. The aim is to finish with the 35# cards piled on the right. |A card at the bottom ofthe row may be removed & placed on the right by pressing the number of its row, so long as itis next in number to the card onthe right. Thus a 5 or a 7 may be placed on a 6, a Queen on a King, or a 2 on an Ace. If no other move is possible, another of the cards on the right can beupturned by pressing "S".  9000(# 0:7:0: O8,12 ;6;2;"PATIENCE":e=0:a$="A23456789TJQK" :.05|L,0:.05|L,10 :.05|L,0 b$="" ~s$(704):c(4,13 ):n(7):z=17:v(17):p(7,5):q(7,5):w(17) -Wi=32 70432 :s$(i-31i)="":i 2$x=17:n(x)=5:x <i=117 >.05|L,0 A 1e3z F^v(i)=s:w(i)=t:s$(32 *i+34"32 *i+60<)=" ":i _ii=413 3:s$(32 *i+232 *i+28)="":i i]i=28641432 :s$(ii+2)=" ":s$(i+288 i+290")="":i }i=17 j=15 .05|L,2 1e3z Bp(i,j)=s:q(i,j)=t:s$(j*96`+i*4-34")=a$(q(i,j)) -s$(j*96`+i*4-2)=b$(p(i,j)) j .05|L,4 {s$(i*4+639)=(480+i):s$(576@+i*4)=a$(q(i,5)):s$(544 +i*4)=b$(p(i,5)) i &s$(255)="F":s$(543)="s" ,a=w(z) 1b=v(z) 6 z=z-1 ;s$(286)=a$(a) @?s$(416)=a$(a):s$(318>)=b$(b):s$(384)=b$(b) c0,0;s$ i(19,30;7;0;z mz$= rz$="s"600X wz$>"7"ůz$<"1"365m |y=z$ n(y)=02e3z #(q(y,n(y))-a)12e3z L21,13 ;0;6;2;"..OK..":.05|L,10 -i=n(y)*3-1n(y)*3+3  g=i*32 +y*4-2 s$(gg+2)="":i  a=q(y,n(y))  b=p(y,n(y)) n(y)=n(y)-1 n(y)=0315; -i=n(y)*3+1n(y)*3+3  g=i*32 +y*4-2 s$(gg+2)=" " i 4s$(96`*n(y)+96`+y*4)=a$(q(y,n(y))) 4s$(96`*n(y)+64@+y*4)=b$(p(y,n(y)))  315; XNz>021,13 ;6;2;"..OK..":.05|L,10 Zz>0300, ] e=1 b 2e3z  s=(*4+1) t=(*13 +1) c(s,t)=11e3z c(s,t)=1   o=0 i=17  o=o+n(i) i o=021004 !z=0e=12070  350^ q15,12 ;2;7;"HARD LUCK";17,7;7;2;"You lost by ";o;" card";  "o17;2;"s" *0:150 , - 415,12 ;2;6;1;"WELL DONE";17,0;6;2;"You won with ";z;" stock card"; >+z16;2;1;"s" H$6;2;1;" left" MJm=12:n=07:.05|L,n:n:.05|L,-n:n:m R 2090* #' #(a="a""d"+7 #2user:a,user #<a #FM16,568,124|,254,254,254,84T,16 #PM16,568,124|,254,254,124|,568,16 #ZO102f,231,255,255,255,126~,60<,24 #dM24,60<,126~,255,255,126~,24,24 # &"PATIENCE"1 patience 3):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$ Z;(F$="")Y+3,X+2;E$;Y+3,X+4;E$ d(F$="J")Y+1,X+2;"";Y+2,X+3;"";Y+3,X+3;"";Y+4,X+1;" ";Y+5,X+2;"" n(F$="Q")Y+1,X+2;"";Y+2,X+2;" ";Y+3,X+2;" ";Y+4,X+2;" ";Y+5,X+2;"";Y+6,X+2;"" x(F$="K")Y+1,X+2;"";Y+2,X+2;"";Y+3,X+2;"";Y+4,X+2;"";Y+5,X+2;" "  LEPES ZPAKLIPCDR(5)+R(6)+R(7)+R(8)=4RES=0:2180 c#1;0,0;" NYOMD(1)INDULSZ (2)UTSZ ";1,0;" VAGY(0)ELDOBOD":0 ="1"1490 ="2"1900l $="0"RES=1:"":2180 0:1450 Z;0,0;"IRD BE A KET KARTYAT EGYUTT";1,0;"95 LEPES A CELIG ";Z$ +Z$=""űZ$<2űZ$>21490 (Z$(1)<491ůZ$(2)<491)+(Z$(1)>579ůZ$(2)>579)"NEM JO A BELEPES,ISMETELD";Z$:1500 "Z1=Z$(1):Z2=Z$(2) JZ1<5Z1=Z2Z2=9 "NEM JO A BELEPES,ISMETELD";Z$:1500 ADEZ$(1)="9"#1;"NINCS UTES":0: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: KARTYA LEPES 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:  0R(Z1)=R(Z1)-5:R(Z1)11850: & R$(Z1)=R$(Z1,R(Z1)-1): 0 LEOSZTAS :=""1850: D PAKLI NrPAKLI=PAKLI-1:C$=S$(SLSTSLST+4):SLST=SLST+5:R$(Z1)=C$:R(Z1)=6:Y=14:X=C(Z1) X#1;0,0;"NYOMD""ENTER-T"" UJBOL";1,0;"KARTYA CSOMAG":0:PAKLI=0N=28:N,26;4;" ":N: b1260:10 ,30;6;0;" ";10 ,25;PAKLI;13 ,C(Z1)+3;5;C$(1): lOSZTAS v""1910v {PCD=014,27;7;2;"NEM";16,26;"LAPOK";19,26;"BALRA":1430 DE=DE+1: !ENDPPSL=1:ENDP=0 (PSL=PSL+15-5*(PSL=1) PPSLPCD*5PSL=PCD*5-4PSL=PCD*5-4:ENDP=1 6TIPUS=2PSL=PCD*5-14ENDP=1 TIPUS=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)   CSOMAG 5A$="":D$="A0120230340450560670780890910J11Q12K13"  8,6;1;5;B$;B$;B$;B$;B$;10 ,8;1;7;2;"KEVEREM A KARTYAT";12 ,6;0;5;1;B$;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 ,9 ;7;1;"KEVEREM-";0;1;" KEVEREM";0;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:: p/"NYOMD AZ ENTER-T ";Z$:.05|L,10 : zA JATEK VEGE b5:1:N=12 21:N,0;5;" ":N XRES13 ,1;"BALSZERENCSE:VESZTETTEL";14,1;"PROBALD MEG UJRA " gRES13 ,1;1;"!!!!!! JOL VAN !!!!!";14,1;0;" TURELMES VOLTAL" 16,3;"VALASSZ:";17,5;"1 ISMET EZT";18,5;"2 MASIKAT";19,5;"3 KIMENTETT JATEK"  0 H="1"4:4:0::2640P :2120H:1070. u="2"TIPUS=TIPUS+1-2*(TIPUS=2):4:4:0::2640P :2120H:1070. H="3":10 ,0;"INDITSD A MAGNOT A KIMENTETT JATEKHOZ":"" 0:2230  MAGYARAZAT 2:7:5: 0,9 ;1;7;"":N=120:.01z# =,2*N:N,9 ;1;7;"":N:21,9 ;1;7;"" R2,14;1;6;0;"NYOLC";18,14;"KARTYA" T$="TURELEM "::M=2172:.01z# =,20-M:M+1,11 +M/2;6;1;0;T$(M/2):M 10 ,1;1;"KERED A ";12 ,1;"SZABA-";14,1;"LYOKAT ?";10 ,25;"NYOMD";12 ,24;"""I""/N""";14,24;"IGEN/NEM" ^0:="N"Ŧ="n"n=10 20:n/100d,20:n::2620< :2530 $="I"Ʀ"i"2330 .I4:0::0,4;5;" KARTYA SZABALYOK : " 8 2620< B2,8;"A kartyaasztal";3,8;"szelen-";4,8;1;"*";4,9 ;0;"tartalek csomag";5,13 ;" 13 kartyaja":L=2:M=26:1240:22716X,A(22716X) LH2160p:22716X,B(22716X):4,8;7;" " V6,8;0;7;1;"*";6,9 ;0;"Az also sor":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 felso kartya":C$="4040":X=0:Y=2:1260 te22691X,a(22691X):2160p:7,8;7;" ":22691X,B(22691X) ~8,8;7;0;1;"*";8,8;0;"Ez a terulet,ahol ";9 ,8;"a kartyat lehet ";10 ,8;"ujbol huzni " Jn=1420:n,26;" ":n:23100