PATIENCE 8 )5d8 2700 6A(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$ Z;(F$="")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;"" xF$="K"Y+1,X+2;" ";Y+2,X+2;"";Y+3,X+2;"";Y+4,X+2;"";Y+5,X+2;" "  ZSTACKPCDR(5)+R(6)+R(7)+R(8)=4RES=0:2180 G#1;1,0;"(1)MOVE CARD (2)DEAL (0)RESIGN":0 ="1"1490 ="2"1900l $="0"RES=1:"":2180 0:1450 <#1;1,0;"CARD No & MOVE No (ie 93) ";Z$ +Z$=""űZ$<2űZ$>21490 (Z$(1)<491ůZ$(2)<491)+(Z$(1)>579ůZ$(2)>579).6,7:"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-4N):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(Z2):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 KPSL=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: 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)): :""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;1,0;"PRESS ""ENTER"" FOR NEW CARD ":0:STACK=0N=28:N,26;4;" ":.05|L,N*5:N: bR1260:10 ,30;6;0;" ";10 ,30;STACK: 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) QPSLPCD*5PSL=PCD*5-14PSL=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)  6A$="":D$="A0120230340450560670780890910J11Q182K13"  8,8;1;5;B$;B$;B$;B$;10 ,9 ;1;7;2;" SHUFFLING ";12 ,8;0;5;1;B$;B$;B$;B$ *kQ=139'3:P=14:COL=0:P=1P=3COL=2:.01z# =,Q 4"A$=A$+D$(QQ+2)+B$(P)+COL >P:Q C 2160p H:8,8;5;1;B$;B$;B$;B$;10 ,10 ;7;1;" SHUFFLING ";12 ,8;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:: p6"PRESS ENTER TO CONTINUE ";Z$:.05|L,10 : b5:1:N=12 21:N,0;5;" ":N XRES13 ,1;"BAD LUCK: THE CARDS DID NOT ";14,1;"RUN YOUR WAY" pRES13 ,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":10 ,4;"Ancient Proverb:"'';0;" OH LORD GIVE ME PATIENCE...":100d:1;7;1;15,11 ;" BUT HURRY!": 0:2230 4:7:4: 0,9 ;1;7;"":N=120:.01z# =,2*N:N,9 ;1;7;"":N:21,9 ;1;7;"" T6,13 ;1;6;0;" EIGHT ";8,13 ;" CARDS " r6;0;1;10 ,11 ;" PATIENCE "::M=2172:.01z# =,20-M:M H0;7;14,0;"DO YOU WANT INSTRUCTIONS? (Y/N)" S0:="N"Ŧ="n"N=10 20:N/100d,n*2:N::2530 $"Y"Ʀ"y"2330 .94:0::0,8;"THE PLAYING AREA" 8 2620< B3,8;1;"*";3,9 ;0;7;0;"The Spare Pack ":l=2:m=26:1240:22716X,a(22716X) LH2160p:22716X,B(22716X):3,8;7;" " V5,8;0;7;1;"*";5,9 ;0;"The 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:5,8;7;" " j7,8;7;0;1;"*";7,9 ;0;"The top card ":c$="4040":X=0:Y=2:1260 t22691X,A(22691X):2160p:7,8;7;" ":22691X,B(22691X):7,8;7;" " ~\9 ,8;7;0;1;"*";9 ,10 ;0;"Dealing area " Jn=1420:n,26;" ":n:23100