ZXTape! 0Chinese Patience (Atlantis)CHINESEPAT@ 98;?;>|18;?;0`0~c~?0''Wp"v%pw%WWRp'a 0` 6ǃ8;???8888880x>c0`09g0URTPUUW@EWTRUPTa 0 6 ffa8;???888888101a`~7gURvPEUW`uWvRuPW 0` ` 7 a8<;8;<;8;8?881`0?a`0fuRT`Gew@FWTRU`Ta 0` ` fa08<;8;<;8;8?88`00c000fpURT`UeU@FUTRU`Ta0|`f `s8?;8;?;a~0Ã~?0U"WP%VUpE%WrRP$ 8?;8;?; 88>?>c>c>>~|>>c>>~>>Wwwpup"qr5rrrgs %'`WWspb'a"vWtp"Wp"qPus0U'Www#'`&%pWrW50W#pwww7w "v%puduwrw'8pRWwwprpup"VWw'#P qp wDrw'`"Wupgwrp"W:` cc`c`cccfccw`c``cc`cfrUE@%@eSUE%UETT@WUPRTD UUQUUQ@Ut@eSP%$@uRTR"TRPUU T%RETT %$TB%PUUW@'TGE%"U8 UTBDPEP%@UuREUTPSpSAARD%RUPUt%@TTE Ut~ `>~`ccc`c~c~>cc~`<rUep'`%%U'$UeVRWUPvb eUREU%R$`Evp%%'" wRvR"BRPVU $r g vR %&V"%@EUW`'Tge%"U0 uVbfPuP'`EuReERpT %ccRD%RUPEv'`VWd Evl` oc?c``~coc`c`~`orUF@%@#Ug$eGTawvPTA UvRGe&R$@wt@#U%!urTb"ArPuU 'RwprTQ %$d%pGew@'dGE'"U@ WTBDPE`%@EvRFFqPT UwqwwbD'RvPwt%@ddD wt8` cccc`ccffccc`c`cfc`crUF@%@!We%eETaWVPTA UVTUeDTD@UT@!W%!uRTb"QRPUU %RH TQ %$d%PUeU@%DEE%"Ub` UTBDPE`%@UTRFVQPT W7R6bD%RVPUTf%@DdE UTf`?>c>c>cc|>cc>`>cc>'Uu@%pvqUerRugVRU`Wv bUd%VDwwp%W@vq%v`%RWW'&W`V' rR`x W& u'Wbu %VUpuGuu%'%vlpU'rwPBP%p"Tru%VP#qpsWwuRU`%Wf%pGTr %Wf`ՀHv8AԀc  #82wRw&%ww*%ewpd%0 W'%puwpGW@ c2ww%%psRtGwwPd%&G'rpREprpRwPrr5'gwT$W''u U7b`"VWuEaqqpEBuTUU#fA6WU$PTU@PtUW@EEPDT@`ETEUU $UDDREPTUUDUE UE@EPuTPEUE71UTTTTTUUEPuBUPUutEEQS%ruVUUT!apWU&PTU PvUW`eePFV@ !@$VeUU "$dFRePTUVFEe UE`uPuVPDU'BQUVWTTVUUePu"UPEuvfEb"%BwdUrd%u tWe$`drptuw@EEPDT@ لdErU !$DDRF druDvG WE@E`uT DgBQwUTdTtTVUBpue`EvtFBRUBudURDEUDUE$`DRPTUU@EEPDT@&fadERU !UDDRfeF DRUDf`VE UE@E`UT EeBqUTdTTTVUBfPUE@UTtEBTWbB%W&R3Bug%G'PGR`PWUUpruPw'pvfd0bWuR' vRwwRfbu GRVwf`%u %wpBPRW rUe1%gTwWw%%rfPWbB@"T'urdtqpd8pOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOhhhhhhhhhhhhhhhhhhhhhhOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWWWWWOOOOOOWWWWWWWWWWWWWWWWWWWWWWWWWWOOOOOOWWWWWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOhhhhhhhhhhhhhhhhhhhhhhhhOppppppOppppppppppppppppppppppppOppppppOppppppppppppppppppppppppOppppppOhhhhhhhhhhhhhhhhhhhhhhooOppppppOoooooooohhhhhhhhhhhhhhooOppppppOppppppppppppppppppppppppOppppppOpppppppppppppppppppppppwOOOOOOOOpppppppppppppppppppppppwOOOOOOOOhhhhhhhhhhhhhhhhhhhhhhhoOOOOOOOOhooooooooooooohhhhhhhhhoOOOOOOOOZ# # <@=%%@\\\\AFLN__\1X![!@@P!!8 K SR P` CHINESE PATIENCE Copyright 1984 D A Simon t(t$F)=((0t$=" ")+((t$-480)Ưt$>47/Ưt$<58:)+(1Ưt$=65A)+(10 Ưt$=84T)+(11 Ưt$=74J)+(12 Ưt$=81Q)+(13 Ưt$=75K)) wu(t$F)=((1t$(2)="c")+(2t$(2)="d")+(3t$(2)="h")+(4t$(2)="s")) q$(q,r)=((" "(q<1r<1))+(qq>1q<10 )+("A"q=1)+("T"q=10 )+("J"q=11 )+("Q"q=12 )+("K"q=13 )+("c"r=1)+("d"r=2)+("h"r=3)+("s"r=4)) Nx(s)=((1(s=2s=3))+(2(s=1s=4))) Ny(s)=((4(s=2s=3))+(3(s=1s=4)))  1 ***rub 25o:7:1,0;o$;1,0;: ; ***rubw < #o;o,o;4;o$;o$;o,o;: E***prwin F##o;x;1;o,o;o$;o$;o,o;: c ***ik di=0: ""100d f..03{u\,7:rr=*:.03{u\,7 h&i=i+1:i>2500 110n j""108l k 104h li$=:.01z# =,24: n!i=0:.3,-12 : ***setef k=18 a(k)e$(k)=" ":206 e$(k)=a$(k,a(k)) k %pile9e$(9 )=" ":213 e$(9 )=c$(2,pile9) &pile0e$(10 )=" ":215 e$(10 )=b$(2,pile0) k=14 &a(k+4)f$(k)=" ":218 f$(k)=a$(4+k,1) k: ***setspcs spaces=0 k=58 a(k)spaces=spaces+1 k  + ***lwrc ,:x=23658j\:k=(x/8):k=2*(k/2) 123658j\,x-8: ***prpi0 !pile0x=1:9350$: 4q1=t(b$(2,pile0)):q2=u(b$(2,pile0)) ;0:1:7:q2=2q2=32 :s$=r$(q2):p$(2)=" "+s$+" ":p$(3)=s$+" "+s$ l=13 :c=2 pile0=19360$ (3490 +10 *q1) L4;7;0;20,3;" ";20,3;pile0; 0:0: ***prpi9 "pile9x=17:9350$: 4q1=t(c$(2,pile9)):q2=u(c$(2,pile9)) ;0:1:7:q2=2q2=32 :s$=r$(q2):p$(2)=" "+s$+" ":p$(3)=s$+" "+s$ l=13 :c=18 pile9=19360$ (3490 +10 *q1) N4;7;0;20,19;" ";20,19;pile9; 0:0: ***prpi18 pn<1pn>8 ka(pn)1+2*pn-(8pn>4),(1+(5pn>4));4;0;" ";: 236077\,246 pn>0pn<5550&:1+2*pn,1;ink;7;1;a$(pn,a(pn));4;0;" ";:236077\,60<: 2*pn-7,6; #7:0:i=1a(pn) 5600:ink;a$(pn,i);  i -4:i=a(pn)+113 :" ";:i Z550&:1;ink;7;2*pn-7,4+2*a(pn);a$(pn,a(pn)) 236077\,60<: &Tz$=a$(pn,a(pn),2):ink=(0(z$="c"z$="s"))+(2(z$="d"z$="h")): 0Pz$=a$(pn,i,2):ink=(0(z$="c"z$="s"))+(2(z$="d"z$="h")): W***bmove Xfrompi=topi Yfrompi=9 ZEfrompi>4frompi<9 pn=frompi:mvfr58:prpi18:610b \9frompi=0mvfr0:prpi0:Bcantw=1:612d ^!frompi<5frompi>8 b.topi=0mvto0:prpi0:Bmoved=1: d.topi=9 mvto9:prpi9:Bmoved=1: fFtopi>0topi<9 pn=topi:mvto18:prpi18:Bmoved=1: htopi<0topi>9 ***cmove frompi=topi frompi=0 Efrompi>4frompi<9 pn=frompi:mvfr58:prpi18:660 9frompi=9 mvfr9:prpi9:Ccantw=1:660 !frompi<5frompi>9 .topi=0mvto0:prpi0:Cmoved=1: .topi=9 mvto9:prpi9:Cmoved=1: Ftopi>0topi<9 pn=topi:mvto18:prpi18:Cmoved=1: topi<0topi>9  ++MACHINE SUBROUTINES++ i=14 e$(i)=" "1025 den=t(e$(i)):suit=u(e$(i)) 4den=den+1:den>13 n$=" ":1025 n$=q$(den,suit) he$(9 )=" "e$(9 )=n$frompi=9 :topi=i:m3:cmove:Ccantw=1:Cmoved=1: i :Cmoved Li=58 Ne$(i)=" "1145y Qden=t(e$(i)):suit=u(e$(i)) V*den=den-1:den<21145y jn$=q$(den,x(suit)) lj$=q$(den,y(suit)) tx(n$" "e$(9 )=n$)(j$" "e$(9 )=j$)frompi=9 :topi=i:m3:cmove:Ccantw=1:Cmoved=1: yi ~:Cmoved e$(10 )=" "1240 -den=t(e$(10 )):suit=u(e$(10 )) 4den=den+1:den>13 u$=" ":1220 u$=q$(den,suit) 4den=den-2::den<1l$=" ":1230 l$=q$(den,suit) }e$(9 )=" "e$(9 )=u$e$(9 )=l$frompi=9 :topi=0:m3:cmove:Ccantw=1:Cmoved=1: :Cmoved i=14 den=t(e$(i)):suit=u(e$(i)) +den=den+1:den>13 13302  n$=q$(den,suit) (j=58 *Fe$(j)=" "e$(j)=n$frompi=j:topi=i:m3:cmove:Cmoved=1: ,j 2i <:Cmoved xe$(10 )=" "1440 }-den=t(e$(10 )):suit=u(e$(10 )) 4den=den+1:den>13 u$=" ":1420 u$=q$(den,suit) 3den=den-2:den<2l$=" ":1430 l$=q$(den,suit) j=58 Ue$(j)=" "e$(j)=u$e$(j)=l$frompi=j:topi=0:m3:cmove:Cmoved=1: j :Cmoved j=58 e$(j)=" "1550 den=t(e$(j)):suit=u(e$(j)) *den=den-1:den<21550 n$=q$(den,x(suit)) j$=q$(den,y(suit)) ,i=14:i=j-41544 ]f$(i)=" "f$(i)=n$f$(i)=j$mvwhfr=i+4:mvwhto=j:m4:mvwholepi:Cmoved=1: i j :Cmoved 7den=t(c$(2,pile9)):suit=u(c$(2,pile9))  den=den-1 n$=q$(den,x(suit)) j$=q$(den,y(suit)) j=58 a(j)1826"  /f$(j-4)=n$f$(j-4)=j$1834* "j &den>61834* (Ccantw1900l *k=58 ,a(k)topi=k:18400 .k / 0=frompi=9 :m3:cmove:Ccantw=1:Cmoved=1: j k TWIST l"cdeckpile9>11950 qCm$=c$(1,cdeck):c$(1,cdeck)=" ":cdeck=cdeck-1 v2pile9=pile9+1:c$(2,pile9)=m$:m$="" !x=24:z=cdeck:9300T$ 'prpi9:Ccantw=0:Cmoved=1  INVERT Pile 9 k=pile9+1 i=1pile9 j=k-i 1c$(1,i)=c$(2,j):c$(2,j)=" " i Ucdeck=pile9:pile9=0:x=17:9350$:x=24:z=cdeck:9320h$  ++END OF MACHINE SUBR++ ***mvfr0 Q1;3;7;1;13 ,3;"*":1,10 :p1 Cm$=b$(2,pile0):b$(2,pile0)=" ":pile0=pile0-1  3***mvto0 4Q1;1;6;1;13 ,5;"<":1,17:p2 >2pile0=pile0+1:b$(2,pile0)=m$:m$="" H ***mvfr58 #pn>4pn<9 2210  236077\,246:550&:ink;7;1;1;2*pn-7,4+2*a(pn);a$(pn,a(pn)):1,10 :p1:236077\,60< Xm$=a$(pn,a(pn)):a$(pn,a(pn))=" ":a(pn)=a(pn)-1:a(pn)spaces=spaces+1  ***mvto18 #pn>0pn<52305 #pn>4pn<9 2350.  [1;1;6;1;2*pn+1,3;"<":1,17:p2 -a(pn)=a(pn)+1:a$(pn,a(pn))=m$:m$=""  .i1;1;6;1;2*pn-7,2*a(pn)+6;"<":1,17:p2 0a(pn)spaces=spaces-1 3-a(pn)=a(pn)+1:a$(pn,a(pn))=m$:m$="" 8 _***mvfr9 `R1;3;7;1;13 ,19;"*":1,10 :p1 eCm$=c$(2,pile9):c$(2,pile9)=" ":pile9=pile9-1 j ***mvto9 R1;1;6;1;13 ,21;"<":1,17:p2 2pile9=pile9+1:c$(2,pile9)=m$:m$=""  ***mvwholepi 1;3;7;1;2*mvwhfr-7,5;"*";2*mvwhfr-7,2*a(mvwhfr)+6;"*"; 1,10 :ct=0 k=1a(mvwhfr) Hct=ct+1:a$(mvwhto,a(mvwhto)+ct)=a$(mvwhfr,k):a$(mvwhfr,k)=" " k Ba(mvwhto)=a(mvwhto)+ct:a(mvwhfr)=0:spaces=spaces+1 ~p1:0;6;1;2*mvwhfr-7,5;mvwhfr;4;0;0;" " |pn=mvwhto:1;1;6;1;2*pn-7,2*a(pn)+6;"<":1,17:p2:prpi18 rubw: Q R*****MACHINE MENUS***** S Tx=4:prwin:#0;x;0;1;" I'm MOVING TOP CARD FROM Pile ";0;6;frompi;x;0;" TO Pile ";0;6;topi;::m3 ^x=4:prwin:#0;x;0;1;" I'm MOVING WHOLE of Pile ";1;mvwhfr;0;'" TO the END of Pile ";1;mvwhto;:  *****MACHINE'S TURN****  7rub:1;"....IT'S MY TURN............." ^cnx=4:prwin:#0;1,7;x;1;0;"I'm THINKING........." Ccantw=1:Cmoved=0 p1=20:p2=10 cncn=0:3270 mt cdeckpile96500d CcantwCmoved4000 &cdeckpile9=1Ccantw=0 Zx=4:prwin:#0;1,7;x;1;0;"I'm THINKING........."  setef:setspcs:Cmoved=0 1000:Cmovedmt 1100L:Cmovedmt 1200:Cmovedmt 1300:Cmovedmt 1500:Cmovedmt 1400x:Cmovedmt .spacespile91800:Cmoved=1:mt (Ccantw1900l:Cmoved=1:mt 3mt:-Now Cmoved=0 and Ccantw=0 *********************** CARDS l,c-1;"A A";l+1,c;p$(1);l+2,c;p$(1);l+3,c;p$(2);l+4,c;p$(1);l+5,c;p$(1);l+6,c-1;"A A"::A l,c-1;"2 2";l+1,c;p$(2);l+2,c;p$(1);l+3,c;p$(1);l+4,c;p$(1);l+5,c;p$(2);l+6,c-1;"2 2"::2 l,c-1;"3 3";l+1,c;p$(2);l+2,c;p$(1);l+3,c;p$(2);l+4,c;p$(1);l+5,c;p$(2);l+6,c-1;"3 3"::3 ʹl,c-1;"4 4";l+1,c;p$(3);l+2,c;p$(1);l+3,c;p$(1);l+4,c;p$(1);l+5,c;p$(3);l+6,c-1;"4 4"::4 Թl,c-1;"5 5";l+1,c;p$(3);l+2,c;p$(1);l+3,c;p$(2);l+4,c;p$(1);l+5,c;p$(3);l+6,c-1;"5 5"::5 ޹l,c-1;"6 6";l+1,c;p$(3);l+2,c;p$(1);l+3,c;p$(3);l+4,c;p$(1);l+5,c;p$(3);l+6,c-1;"6 6"::6 l,c-1;"7 7";l+1,c;p$(3);l+2,c;p$(2);l+3,c;p$(3);l+4,c;p$(1);l+5,c;p$(3);l+6,c-1;"7 7"::7 l,c-1;"8 8";l+1,c;p$(3);l+2,c;p$(2);l+3,c;p$(3);l+4,c;p$(2);l+5,c;p$(3);l+6,c-1;"8 8"::8 l,c-1;"9 9";l+1,c;p$(3);l+2,c;p$(3);l+3,c;p$(2);l+4,c;p$(3);l+5,c;p$(3);l+6,c-1;"9 9"::9 l,c-1;" ";l+1,c;p$(3);l+2,c;p$(3);l+3,c;p$(3);l+4,c;p$(3);l+5,c;p$(3);l+6,c-1;" ":: 236077\,249:l,c-1;" ";l+1,c;s$;"01";l+2,c;"234";l+3,c;"567";l+4,c;"89:";l+5,c;";<";s$;l+6,c-1;" ":236077\,60<::J 236077\,249:l,c-1;" ";l+1,c;s$;"AB";l+2,c;"CDE";l+3,c;"FGH";l+4,c;"IJK";l+5,c;"LM";s$;l+6,c-1;" ":236077\,60<:::Q $236077\,249:l,c-1;" ";l+1,c;s$;"ab";l+2,c;"cde";l+3,c;"fgh";l+4,c;"ijk";l+5,c;"lm";s$;l+6,c-1;" ":236077\,60<::K t***********************  *****PLAYER MENUS*****  زx=6:prwin:#0;x;0;1;"MOVE TOP CARD ";5;"FROM Pile-";1;"?";0;x;"(0 5-8)";" [P-move WHOLE PILE X-QUIT]";: x=6:prwin:#0;x;0;1;"MOVE TOP CARD FROM Pile ";pfr;'" ";5;"TO Pile-";1;"?";0;x;" [1-9 X]";: x=6:prwin:#0;1,0;x;0;1;"...MOVING TOP CARD FROM ";1;pfr;0;" TO ";1;pto;::m1 x=1:prwin:#0;x;6;1;" MOVE WHOLE PILE - ";5;0;"WHICH PILE-";1;"?";0;" ";x;6;'" [5-8 X]";: x=1:prwin:#0;x;6;1;" MOVE WHOLE of PILE ";pfr;'" ";5;0;"TO END of PILE ";1;"?";0;" ";x;6;" [5-8 X]";:  x=1:prwin:#0;x;7;1;" ...MOVING WHOLE of PILE ";1;pfr;0;'" TO the END of PILE ";1;pto;: {x=2:prwin:#0;x;6;1;1,7;"MOVE NOT ALLOWED...":1.5@,-10 ::m2 Sx=5:prwin:#0;x;0;1;'" TURNING YOUR DECK OVER...": 1Bcantw4;7;14,9 ;" T";15,9 ;"will";16,9 ;"TURN";17,9 ;"PILE";18,9 ;"OVER"; 6x=5:prwin:#0;x;1;1;" PRESS M-MOVE T-TWIST Z-FINISH "; 8Bmp#0;1,11 ;x;1;1;1;"T" ; lwrc:ik @i$="t"4300 E$mp.1}L,-10 :4155; Ji$="m"4500 Oi$="z"3000 T .1}L,-10 :4155; ^.k=07:.25~,15+k:k:  TWIST ̟Bcantwx=2:prwin:#0;x;7;1;1,5;"YOU CANNOT TWIST NOW!":i=110 :.1}L,27:i:20:pt mpmp=0 "bdeckpile0>14350 Cm$=b$(1,bdeck):b$(1,bdeck)=" ":bdeck=bdeck-1 2pile0=pile0+1:b$(2,pile0)=m$:m$=""  x=8:z=bdeck:9300T$ 'prpi0:Bcantw=0:Bmoved=1 pt INVERT Pile 0 3870:k=pile0+1 i=1pile0 j=k-i  1b$(1,i)=b$(2,j):b$(2,j)=" " i \bdeck=pile0:pile0=0:x=1:z=pile0:9350$:x=8:z=bdeck:9320h$  0  MOVE  3800  lwrc:ik i$="p"4900$ !i$="0"pfr=0:4530 $i$>"4"i$<"9"pfr=i$:4535  i$="x"pt  .1}L,-10 :4520  pile0.3,-10 :pt  4538 !a(pfr).3,-10 :pt  3810  lwrc:ik $i$>"0"i$"9"pto=i$:4600  i$="x"pt  .1}L,-10 :4540 A3900<:pfr=pto.3,-10 :.3,-10 :pt pto=9 4610 %pto>4pto<9 4700\ %pto>0pto<54800  5--- Can card be placed on pile 9 ? pile94652, 7den=t(c$(2,pile9)):suit=u(c$(2,pile9))  4den=den+1:den>13 u$=" ":4630 u$=q$(den,suit) 3den=den-2:den<2l$=" ":4640  l$=q$(den,suit)  pfr4650* "_pile0b$(2,pile0)=u$b$(2,pile0)=l$m1:frompi=0:topi=9 :bmove:pt $m2:pt *Va(pfr)a$(pfr,a(pfr))=u$a$(pfr,a(pfr))=l$m1:frompi=pfr:topi=9 :bmove:pt ,m2:pt [7--Can card be placed on pile(5-8) ? \a(pto)4710f ^ spacespt `%m1:frompi=pfr:topi=pto:bmove:pt bm2:pt fden=t(a$(pto,a(pto))) gsuit=u(a$(pto,a(pto))) h*den=den-1:den<24742 pn$=q$(den,x(suit)) uj$=q$(den,y(suit)) zpfr4740 |[pile0b$(2,pile0)=n$b$(2,pile0)=j$m1:frompi=0:topi=pto:bmove:pt ~m2:pt Ra(pfr)a$(pfr,a(pfr))=n$a$(pfr,a(pfr))=j$m1:frompi=pfr:topi=pto:bmove:pt m2:pt 7--Can card be placed on pile(1-4) ? den=t(a$(pto,a(pto))) suit=u(a$(pto,a(pto))) +den=den+1:den>13 4840 n$=q$(den,suit) pfr4830 Bpile0b$(2,pile0)=n$m1:frompi=pfr:topi=pto:bmove:pt m2:pt @a(pfr)a$(pfr,a(pfr))=n$m1:frompi=pfr:topi=pto:bmove:pt m2:pt #MOVE WHOLE PILE ? $ 3830 & lwrc:ik ( i$="x"pt *i$>"4"i$<"9"4910. , .1}L,-10 :4902& .!pfr=i$:a(pfr)<2m2:pt 03840:lwrc:ik 1>i$="A".5,10 :="Z".5,17:="z" 2i$>"4"i$<"9"49208 4 i$="x"pt 6 .1}L,-10 :49120 8 3900< 9>pto=i$:pto=pfr.3,-10 :.3,-10 :pt :a(pto)4930B m2:pt Bden=t(a$(pto,a(pto))) Csuit=u(a$(pto,a(pto))) D*den=den-1:den<24962b Vn$=q$(den,x(suit)) Xj$=q$(den,y(suit)) `ja$(pfr,1)=n$a$(pfr,1)=j$3850 :mvwhfr=pfr:mvwhto=pto:mvwholepi:Bmoved=1:pt bm2:pt j*********************** {PLAYER WINS |Hrub:2;7;1;"**** YOU HAVE WON THIS GAME ****" V7;2;1;16,16;"CARDS LEFT ";cdeck+pile9;:5570 R63008 ,1:63009!,cdeck+pile9:63002,(63002+1) ,points=63004+256*63005 points=points+63009! x=(points/256) "63004,(points-256*x) 63005,x rubw:100d:9800H&  Fk=0.5:k,12 :k,7:k,4:1.5@*k,0: cSPECTRUM WINS dHrub:1;6;1;"***** I HAVE WON THIS GAME *****" iU7;2;1;16,0;"CARDS LEFT ";bdeck+pile0;:6570 nR63008 ,2:63009!,bdeck+pile0:63003,(63003+1) x,points=63006+256*63007 }points=points+63009! x=(points/256) "63006,(points-256*x) 63007,x rubw:100d:9800H&  Ik=0.5:k,12 :k,16:k,19:1.5@*k,24: W ***pak XI#0;1,8;1;1;"PRESS";0;" ANY KEY" b""7010b l=""7020l v KCARRY ON ?.. Ltx=6:prwin:#0;0;x;1;" DO YOU WANT TO PLAY AGAIN ? PRESS Y or N" V(lwrc:ik:(i$="y"i$="n")7510V ` i$="y" jyx=7:prwin:#0;2;x;1;" DO YOU WISH TO SAY  GOODBYE  ? ( Y or N )" t(lwrc:ik:(i$="y"i$="n")7540t ~ i$="n" 0:6:2: S10 ,5;"THANK YOU FOR PLAYING ";12 ,(15-(k$/2));k$ i=1100d:i :1,20::"  GOODBYE  FOR NOW...." i=1502:i 7600:0  7700:k=.45ffff *i=18:x:j:x,j:i:2 !i=17:x:j:x,j:i  k,12 ,k,12 ,k/2.99,11 ,k/2.99,14,k/2.99,12 ,k/2,9 ,2*k,12 ,2*k,7 wk,9 ,k,11 ,k/2.99,12 ,k/2.99,9 ,k/2.99,7,k/2,4,2*k,7 #&*********************** #'SHUFFLE CARDS #(465298,23673y\:65299,23672x\ #265200 #<.z=1:mp=2*65300-1: #DEAL CARDS #fa$(8,13 ,2):b$(2,40(,2):c$(2,40(,2):a(8) #gm$="2c3c4c5c6c7c8c9cTcJcQcKc2d3d4d5d6d7d8d9dTdJdQdKd2h3h4h5h6h7h8h9hThJhQhKh2s3s4s5s6s7s8s9sTsJsQsKs" # 9000(# #i=58 #%mp=2*(65299+z)-1 #.a$(i,1)=m$(mpmp+1):z=z+1 #i #i=122 #,cn=(65299+z):mp=2*cn-1 #!b$(1,i)=m$(mpmp+1) #9z=z+1:cn=(65299+z):mp=2*cn-1 #!c$(1,i)=m$(mpmp+1) # z=z+1 #i #ha$(1,1)="Ac":a$(2,1)="Ad":a$(3,1)="Ah":a$(4,1)="As" #$i=18:a(i)=1:i #Fo=0:o1=1:pile0=o:pile9=o:bdeck=22:cdeck=bdeck #m$="" # #SET UP SCREEN #&0:4:0:4: #0;o$;o$; #610 ,0;"" #)i=11 21:i,14;"":i $S0,0;6;0;"GAME ";63001;" CHINESE PATIENCE" $ u1:0:6:i=14:1+2*i,0;i;1+2*i,5;i+4;:i $11 ,0;4;"YOUR HAND";11 ,15;"MY HAND";0;6;16,0;"0";16,16;"9"; $)7:1:236077\,246 $vi=14:0+(2(i=2i=3));1+2*i,1;a$(i,1);:9260,$:i $i=58 $/den=t(a$(i,1)):suit=u(a$(i,1)) $-0:suit=2suit=32 $ 72*i-7,6;a$(i,1);:9260,$ $!"i:0:236077\,60< $"Yx=8:z=bdeck:9320h$:9260,$:x=24:z=cdeck:9320h$:9260,$ $'rubw: $,?.002xn,10 :.002xn,8:.002xn,7: $T5;1;13 ,x;"";14,x;"";15,x;"";16,x;"";17,x;"";18,x;"";19,x;""; $Yk=15:k $^O.002xn,10 :.002xn,8:.002xn,7:z9350$: $c9320h$: $h5;0;1;13 ,x;"";14,x;"";15,x;"";16,x;"";17,x;"";18,x;"";19,x;""; $mL4;7;0;20,x+2;" ";20,x+2;z; $r $4;0;0;13 ,x;" ";14,x;" ";15,x;" ";16,x;" ";17,x;" ";18,x;" ";19,x;" "; $/4;0;20,x+2;" ";: $7;1;l,c-1;" ";l+1,c-1;" ";l+2,c-1;" ";l+3,c-1;" ";l+4,c-1;" ";l+5,c-1;" ";l+6,c-1;" ";: $BREAK PRESSED $&0:7:1:0: $.:" If you ARE bored, then perhaps":"you should really try to stretch":"your mind with ";6;"EIGHTS";7;", which won":"the 1984 CRASH MICRO AWARD -"::2;6;"EIGHTS-THE CARD GAME OF STRATEGY";0;" 'The BEST BOARD/CARD/PUZZLE GAME OF 1984' " $:" The game of CHINESE PATIENCE really demands only a careful examination of the current stateof the piles +finnicky attentionto detail [+ PATIENCE!]...If youwould prefer an intellectually involving card game that will really make you THINK-try ";6;"EIGHTS" $D"(and it responds QUICKLY!....) --------------------------------" $>i=6300063010":i,0:i:63001,1 $i=130:i $""9421$ $q#0;1;6;0;" PRESS 1 TO START PLAYING AGAIN or 0 TO CLEAR THE MEMORY "; $$i$=:(i$="0"i$="1")9424$ $рi$="1"::::1;"I'M AFRAID THAT YOU'LL HAVE TO START AGAIN AT THE BEGINNING":i=1100d:i:9700%: $=:10 ,11 ;1;" GOODBYE ":""9426$ $ 150 $.5,-10 :0 % %END SERIES/START AGAIN %763001=263000,0:9864& %2:7:6: %-" END OF THIS SERIES" %!O:" IN THIS SERIES WE PLAYED A TOTAL of ";63001-1;" GAMES." %&"g1=63002:g2=63003 %(::"ON GAMES... "; %)g1=g2"WE DREW!" %*g1>g2"YOU HAVE WON!" %+g2>g1"I HAVE WON!" %,!"-YOU WON ";g1;" and I WON ";g2 %0Pp1=63004+256*63005:p2=63006+256*63007 %1::"ON POINTS... "; %2p1=p2"WE DREW!" %3p1>p2"YOU HAVE WON!" %4p2>p1"I HAVE WON!" %5'"-YOU SCORED ";p1;" and I SCORED ";p2 %D"15,0;:j=9570b% %F7g1=g2p1=p2" THE SERIES IS AN OVERALL DRAW!":j %Gg2>g1p2>p1" *I AM THE OVERALL WINNER*":502:" ";:i=113 :".";:.05|L,502:4:i:40(:"CLEVER ";:40(:"ME!":9570b% %H(g1>g2p1>p2)9560X% %IC" YOU ARE THE OVERALL WINNER ON":" BOTH GAMES and POINTS!" %J<502:19,2;" CONGRATULATIONS ";" ";k$ %K_60<:i=1100d:x=(*8):x:.05|L,12 +3*x:i:6:j %XD".... NEITHER OF US CAN BOAST OF COMPLETE VICTORY ON ALL FRONTS!" %dj100d:19,1;"DO YOU WANT TO PLAY AGAIN ?":21,9 ;"PRESS Y or N" %e(lwrc:ik:(i$="y"i$="n")9573e% %fi$="n"9580l% %g863000,0:63001,1:9900&: %l>19,1;"DO YOU WANT TO SAY  GOODBYE  ? " %n(lwrc:ik:(i$="y"i$="n")9582n% %p=i$="n"19,0;o$;19,0;:9572d% %r 7560 %t %13 9600% % %236077\,60<:10 ,0;" YOU HAVE PRESSED BREAK! ";:1,0:1,-2:1,-3:1,-5:1,-7 %o" ARE YOU BORED, PERHAPS ? ":i=140(:i % 9400$ % % 62999 %63020, %+23613=\,4:23614>\,61= %1:"" %&"CHINESEPAT"16384@,49152 %-23613=\,20:23614>\,246 %(1:1:1:62999 %63020, %3o$(32 ):6;o$;o$;o$;0,0; %.6:0:" CHINESE PATIENCE" %A" written by David SIMON":"  1985 ATLANTIS SOFTWARE LTD" %1:7::" In this game, we EACH commencewith a deck of 22 cards; and thewinner is the first player to dispose of all his cards." %" At your turn, you may TWIST a card from your deck onto your pile (Pile 0). If you can then MOVE this card onto any one of piles 1-4 or 5-8, you may then TWIST again.....until you can nolonger do anything. Then it is MY TURN - and so on......" %F" Sometimes you may even be ableto place a card on MY pile(9)!" %n" You can also move cards from piles 5-8 TO piles 1-4,accordingto certain sequence rules." %56;0;"***READ INLAY FOR FULL RULES***" &/6300063000,0:9790>& &""9730& &.3,0:30 & 7000X & 1:5:0: &Dx=23658j\:k=(x/8):k2*(k/2)9744& &23658j\,x+8 &4,4;"WHAT IS YOUR FIRST NAME ?";7,1;"Type your name (NO MORE THAN";9 ,1;"10 LETTERS, please).....";11 ,3;"and THEN PRESS ";1;"ENTER" &.2~L,30:k$="":14,6;" ";16,4;" ";20,9 ;" ";14,12 ; &i=110 &""9747& &=""9748& & i$=:i$=13 9753& &i$<"A"i$>"Z"9742& &#i$;:k$=k$+i$:.05|L,30 &i:9600% &&k$=0űk$>10 9742& &.1}L,30:11 ,3;" ";14,6;"HELLO ";k$;16,4;"IS YOUR NAME CORRECT ?";20,9 ;1;"PRESS";0;" Y or N" &""9755& &=""9756& &="N"9742& &h20,9 ;" ":.1}L,30:.1}L,30:j=64060<:i=1̱k$ &;k=k$(i):j,k:j=j+1:i:64070F,k$:300, &*7:1:1: &.6:" You'll need PATIENCE to playthis game - it is not as fast asEIGHTS.... The keys that controlthe game are shown below." &0:"REMEMBER that...." &22"Piles1-4 ASCEND in SINGLE SUIT ORDER." &4G"Piles5-8 DESCEND in order in suits of ALTERNATE COLOURS." &67"Usually you will move only the TOP card of a pile." &7S6:1:13 ,0;o$;o$;o$;o$;o$;o$;o$;o$;o$;13 ,0; &8"********* CONTROL KEYS *********":" M-MOVE the TOP CARD":" T-TWIST a fresh card":" Z- will FINISH your turn. I will then take mine!" &:" 0-9 will specify PILE NUMBERS":" P will move a WHOLE PILE (during Move option)":" X-QUIT and return to main menu" &>9100#:9950& &@$.1}L,40(:pak:9900& &G:NEW GAME &H4o$(32 ):4:7:0:4: &J-1:"******* CHINESE PATIENCE *******" &LIk$="":j=64060<:i=1̾64070F:k$=k$+¾j:j=j+1:i &P*j=2+(8ƾ63001=1) &Rr7:0:j,0;o$;o$;j,0;(("YOU"ƾ63008 =1)+("I"ƾ63008 =2)); &S=63001=1" HAVE WON THIS GAME":9814V& &T0" HAVE WON GAME ";63001;", ";k$;"," &VF"WITH A SCORE OF ";63009!;" POINT";("S"ƾ63009!>1); &X"." &Y763001=163001,2:9850z& &ZS6:0:6,0;o$;o$;o$;6,5;"YOUR RECORD..." &\Q"GAMES WON=";63002:"POINTS SCORED=";63004+256*63005 &`S6:0:11 ,0;o$;o$;o$;11 ,5;"MY RECORD..." &bQ"GAMES WON=";63003:"POINTS SCORED=";63006+256*63007 &f$63001,(63001+1) &gA7:0:16,0;o$;o$;o$;16,0; &h" SUMMARY TO DATE..." &j"p1=63002:p2=63003 &l.p1=p2"WE ARE DRAWING on GAMES":9840p& &mp1>p2"YOU ARE"; &np2>p1"I AM"; &o" WINNING on GAMES, and" &pPp1=63004+256*63005:p2=63006+256*63007 &q0p1=p2"WE ARE DRAWING on POINTS.":9845u& &rp1>p2"YOU ARE"; &sp2>p1"I AM"; &t" WINNING on POINTS." &z9100#:9950& &|763008 1ž6300129856& &~#0;0,12 ;1;"WELL DONE";1,(16-(k$/2));k$:20:i=1502:x=(*8):x:.05|L,12 +3*x:i:4:502 &"63001<37500L &x=6:prwin:#0;0;x;1;1;"PRESS";0;" S-SINGLE GAMES/END SERIES N-NEXT GAME (";63001;") IN SERIES"; &(lwrc:ik:(i$="n"i$="s")9860& &i$="n"9900& &L63001=263001,1:63000,0:9900& & 9500% & & 9200# &_63000i$=¾63000:63000,((480i$="1")+(491i$="0")):9920& &?63001=1i=6300263010":i,0:i &Olwrc:rub:1;1;"WHO";0;" is to play the FIRST CARD?" &j=64060<:0:#0;1;6;1,0;"PRESS ";1;"1";0;"-";:i=1̾64070F:#0;1;6;¾j;:j=j+1:i:#0;1;6;" or ";1;"0";0;"-Spectrum":0 &"ik:(i$="0"i$="1")9914& &363000,((491i$="0")+(480i$="1")) &i$="1"4000 & 3000 & &SET VARS &e$(10 ,2):f$(4,2):i$(1):j$(2):l$(2):n$(2):o$(32 ):p$(3,3):q$(2):r$(4):s$(1):t$(2):u$(2):y$(2) & r$="" &$o=0:den=o:suit=o:Cmoved=o &rub=502:rubw=60<:prwin=70F:ik=100d:setef=200:setspcs=220:lwrc=300,:prpi0=400:prpi9=450:prpi18=500:bmove=600X:cmove=650 &mvfr0=2000:mvto0=21004:mvfr58=2200:mvto18=2300:mvfr9=2400` :mvto9=2500 :mvwholepi=2700 &0mt=3010 :pt=4100:alarm=4190^ &<m1=3820:m2=3860:m3=2900T :m4=2910^ &Fo1=1:Ccantw=o1:Bcantw=o1:Bmoved=o:spaces=o:pak=7000X ' 9650% CHINESEPAT@ @ @' MMMWqMS P P P MP<;\Wq MQ ?v>>|;; *=\s#rv͎{ ::\ ( ((<2\6!%"B\!"D\;;}99}U9}9m}}99}}U$$$~$$~$>(> >bd&F(*D:DAVEF  >>> ??_֯_}}k7 5X>> G^>>VG00><*#|?g"~0(O! G~p y(# &.-+ %'2 )$ 01!/, 3" 4(*qv>UUUU888||8l||8>>BB<DHpHDB@@@@@~BfZBBBBbRJFB