TkuK#!6&Y:\"6=?D123453;Q$(M) WN=55025:.1}L,N:N:N=45-5-5:.1}L,N:N ]3,0;"PLEASE WAIT THE CARDS ARE BEING";4,10 ;1;" SHUFFLED " K6,4;"IN THE NEXT ROUND YOU HAVE : 18 CARDS AND `200" k9 ,0;"YOU MAY BET AS MUCH AS YOU LIKE ON EACH TURN OF A CARD BUT YOU MUST REMAIN IN CREDIT." A'"THE FIRST CARD IN EACH ROW MAY BE CHANGED BY PRESSING ""C""" \'"YOUR BET IS ENTERED FIRST THEN: ""H"" - HIGHER ""L"" - LOWER"  610b ?1;21,0;" PRESS ANY KEY TO CONTINUE "  0 4:4:  1000 61030f "a=0:b=1:PUT a,b,e$ "a=9 :b=1:PUT a,b,e$  r=1  RO=0 hn=1821:6;n,0;" ";5;" ";0;" ":n F6;2;19,1;"NAME :";20,2;q$(m) (stake=200 2.5;1;19,13 ;"WAGER" 25Q=1RO=0RO=1:TW=1:7000X 9J>25Q=1RO=1TW=1:7500L "ENTER YOUR BET :";s$ n=1̱s$ s$(n)=46.5575 -s$(n)>579ůs$(n)<4805560 n s$=""5560 .1}L,10  wager=s$ +wagerstake.2~L,5:5560 @5;20,14;" ";20,14;wager sel= sel=72H6000p sel=76L6100 1sel=67CTW=1TW=0:1540  5590 pJ=J+5:U=U+5 uNJ>30Q>1J=2:U=1:a=0:Q=1:TW=1 vEJ>30Q=1RO=0RO=1:TW=1:7000X w-J>30Q=1RO=17500L  1540 UP(R,1)>P(R-1,1)stake=stake+wager:.5,30:6050 VP(R,1)P(R-1,1)stake=stake-wager:.5,-20:6050 K0;7;20,23;" ";20,23;stake  5500| J=J+5:U=U+5 NJ>30Q>1J=2:TW=1:U=1:a=0:Q=1 EJ>30Q=1RO=0RO=1:TW=1:7000X -J>30Q=1RO=17500L  1540 UP(R,1)T(n).5,30:8000@ n ?1;21,0;" PRESS ANY KEY TO CONTINUE "  10  0 :8300l @H2;6;21,0;" NEW HIGH SCORE. PRESS ANY KEY " A 10 B 0 Ef=4n-1 JT(f+1)=T(f) OT$(f+1)=T$(f) Tf Y T(n)=stake ^ T$(n)=q$(m) c2:2:6: h+1;0,6;" CARD SHARPS " mN=15 r wT$(N),"`";T(N) |'"*" N 521,0;"PRESS ANY KEY TO CONTINUE "  0 4:4:0: l 1000 p61030f q-a=0:b=1:c=7:d=31 v PUT a,b,e$ GET a,b,c,d,f$ GET a,b,c,d,g$ b=6:PUT a,b,b$ =x=568:y=12 :t=5:w=2:a$="M":LARGE b=11 :PUT a,b,b$ x=96`:a$="E":LARGE b=16:PUT a,b,b$ x=136:a$="N": LARGE b=21:PUT a,b,b$ x=176:a$="U":LARGE Ќ12 ,6;"1 - NEW GAME SAME PLAYERS.";15,6;"2 - NEW GAME NEW PLAYERS." *18,6;"3 - VIEW CARD SHARPS" ߾40(,87W:176,0:0,-72H:-176,0:0,72H:38&,89Y:180,0:0,-76L:-180,0:0,76L h2;12 ,1;"";13 ,1;"";18,29;"";19,29;"" _12 ,29;"";13 ,29;"";18,1;"";19,1;"" !SEL= ! 'SEL<491SEL>5138450! !/SEL=491100d:605]:980 ! /SEL=502100d:605]:770 !%SEL=513:8035c !* 8450! " #(10 ;"INSTRUCTIONS" #- #2u"EACH PLAYER IS DEALT 6 CARDS.":"THE FIRST CARD IS TURNED UP IF HE WISHES A PLAYER MAY CHANGETHIS FIRST CARD." #7L"HE MUST NOW PREDICT IF THE NEXT":"CARD WILL BE HIGHER OR LOWER." #'"IF HE IS WRONG OR HE STICKS THE" #AB"CARDS ARE RE-DEALT AND PLAY ":"WILL PASS TO THE NEXT PLAYER." #F<"A PLAYER MAY ONLY CHANGE THE ":"FIRST CARD OF ANY TURN." #K{"IF A PLAYER STICKS HIS CARDS AREHELD UNTIL HIS NEXT TURN AND HE THEN HAS THE OPTION OF CHANGING THE LAST FACE CARD." #L821,3;6;"PRESS ANY KEY TO CONTINUE" #M 0: #PZ:"A GAME IS WON WHEN A PLAYER HAS SUCCESSFULLY PREDICTED ALL 6 OF HIS CARDS CORRECTLY." #U4"A MATCH IS WON WHEN A PLAYER HASWON THREE GAMES." #ZB:"THE WINNER THEN GOES ON TO THE  SECOND ROUND " #_L10 ,0;2;7;"NOTE ACES ARE HIGH IN THIS GAME!" #`821,3;6;"PRESS ANY KEY TO CONTINUE" #a 0: #d & 150 &0:0:7: &*2,7;"PUBLISHED BY C.C.S. " &*4,12 ;1;" 1984 " &16,6;2;"ALL RIGHTS RESERVED" &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right,of CARD SHARP.Please note":"that unauthorised copying,hiring":"and lending or broadcasting of ":"this software is strictly":"prohibited." &  qrju abcd xy whv mne ZN WORLDOF SPECTRUM O SPECTRUM      4                    2 - D#20GX2?0(2 2 u22$"H02$D@! 2e%%%220GX2 u2%2225UU2%2225UU52%22XG02u 2%220H"$2 !@D$2%%%e2XG02(0?2 2u G+20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%2225UU2%$2225UU2%$2225UU2%$2225UU2%$2225UU2%$2225UU2%2225UU52%$2225UU52%$2225UU52%$2225UU52%$2225UU52%$2225UU52%22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u F+20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%2225UU2%$2225UU2%$2225UU2%$2225UU2%$2225UU2%$2225UU2%2225UU52%$2225UU52%$2225UU52%$2225UU52%$2225UU52%$2225UU52%22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u E+20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u$20GX2?0(2 2 u22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%$22$"H02$D@! 2e%%%220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%$220GX2 u2%2225UU2%$2225UU2%$2225UU2%$2225UU2%$2225UU2%$2225UU2%2225UU52%$2225UU52%$2225UU52%$2225UU52%$2225UU52%$2225UU52%22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%$22XG02u 2%220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e$220H"$2 !@D$2%%%e2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u $2XG02(0?2 2u B#80GX888 u8888888888888888888888888XG0888u AD502  SH ENDEDIF SHORTER THAN NINE LETTERS." =b  P P M8M6M3M#lt>i+>MM-b]f+-e3 Rv>,>x'>y'>t'>w'>A#~2^#Vz"#~BF~wN>$w~FNF_{0"44#~w:w*R *K\͸~_. #"h\8-$!\"h\0 [6\ 4 4ր&o)))5x$5$AK[:4Gͥ0N#F#  "y͍,4$"]\ &Ͳ(.~4###"]\G"]\G O 2t(Gn*]\~# (:(}\(,( +"]\("]\7y#~ +F#_!* ^V!=ÔK 8 fB|Xg~wGf#}~wGGNFx"x> =x7gyǨoyDG( Gx0UG^ [vGf X~ijG^ w}(+Fij##}(~ij+$| } o?g= GO>gG>'oD'G}/ij\~ ܳ}G^ w#}( }ij>ݔ_~ ܳ}/G^ w'G>ݾ>ݮwgNo&)^#Vs^Vlṿsr[*͔vG~NFx268!*`B#w#s#r#:w#o&* [0[s#r":wzW>m~m ͏~{_>8a͏~͏ Ͱ~zW8?>8;Ͱ~Ͱ ~{_>8~mm~{*B(#w#:w#[s#r":G*"~#(Fnf"nf ">2 5 ~w͸ :<2~ V "GF̠*B(* *`B*!'RSG:o*~#(f >2y 0ݾ01y0>ݾ8%x0 0ݾ0x8>ݾ8:7:<2% - CͭV+^+~~(~#(*M\7N +++͸*Y\+U#Kq#q#px( #w(Kͭ*M\7N( *Y\+U#q#6#6#w#6#66G>G!y"!"!`"2!'""Kv\!fB81"+*e\2 R0!"\"6>+{=\++"=\*x\"v\^\Ϳ4  (H:(!iOyD: T8 ~([Gv GF (:( *U\>(V#^SE\#^#V#"U\"]\W6 r ;͋(**B\n:D\( G~x(*n\"B\:p\2D\GG*E\"n\:G\<2p\*Gl͂Š84ڔ;͍,0͍,"]\00^#V!bͲ(8(#ʹ3͢-ڟŸyN,~O,N,N>  ͞N͞N͞N ͞N,NyDM,NKK,f  :LK*]\~ :,( \(t}͞6͞5x ~8 q ,5!B8B~w5x ұ(y555͵ : T8= 5C͍,0= "]\5+-* 5C͍,8,„xʄ5x†ʆ`i*  b"]\[ x +#s#6B++++#7s#r#[\?06#6 #6#6=#6#6#6#6#6#6@# +":<( 2"]\ *\*\Ϳ͍,0$ "]\\(:( Ͳ(..###~.#^{2#V#>O>ߦC*Y\+U#w#Kq#p#6#Kq#p#4 5!B85!B8ci+++͸*"]\`w#8w#{ݽ8_ͳV~8 V~8 # ͳV~#  ͞wBut ,*5x ((%5x (iattue ,c`i*Out*nf ^V͔,c>8H`i*O}݆w|݆0P8ְw*nf ^V͔ !=[Ô*]\!(""]\mvn|columlindirectioscreeattcurrenmasvelocitgetpjumplimiinteracstatuobjecsouneal us(vectoBspeemovrmovLcolouVprinlege+pufilHreplaclimiinteracenabldisablintparalmtparatempzlargxfin9erasiy `~: ''}~ |    0GX uXG0u >~8|~??9}9DQQQQNp|||~x~?#~~?BDB@DBBBBB@?#|(B|BBB~BB|XXXXXX#}B|@BBBBB~@}GGGGGG#??9B@@DBZBZB@90 0 0 0 0 0 #|@@x<$B$B>~#9$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222$$$8888$8888$8888$8888$2222$2222#$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888$$$2222$8888$8888$8888$8888$8888#$""$ $ $""$$$""$ $ $ $""B$@ !0! # <@w&& S\\\ɗ\ȗ|###\x*=fX2e!!PP!!   } K SR P(61029e:"DATA" 2T$(5,9 ) < T(5) P 100d U 180 d23658j\,8 n#T=0:CH=1:ST=1 s RO=0 xQ=1:R=1 #J=2:J2=2:J1=2 #U=1:U1=1:U2=1 T1=0:T2=0 S1=0:S2=0 TW=1  1000 61030f {4:4:4::8,175:31,0:0,-63?:-31,0:0,63?:10 ,173:27,0:0,-59;:-27,0:0,59;:18,170:11 ,0:0,-5:5,0:0,-43+:-5,0:0,-5:-11 ,0:0,5:-5,0:0,43+:5,0:0,5:16,152:0,-18:18,152:0,-18:31,152:0,-18:29,152:0,-18:20,137:7,0:0,13 :-7,0:0,-13 :20,137:6,6:-6,6:7,0:-6,-6:6,-6:18,170:10 ,-10 :29,170:-10 ,-10 :13 ,165:5,-5:34",165:-5,-5:19,127:10 ,-10 :28,127:-10 ,-10 :18,127:-5,-5:29,127:5,-5:0,1;"";0,4;"";7,1;"";7,4;"":2,2;"";5,2;"":0:n=07:f=14:22528X+(32 *n)+f,502:f:n:a=0:b=1:c=7:d=4:GET a,b,c,d,d$ b=6:n=15 PUT a,b,d$ b=b+5:n 'b=1:d=29:GET a,b,c,d,g$ GET a,b,c,d,f$ GET a,b,c,d,e$ "a=9 :b=1:PUT a,b,d$ 4:480,103g:31,0:0,-63?:-31,0:0,63?:502,101e:27,0:0,-59;:-27,0:0,59;:9 ,6;"";9 ,9 ;"";16,6;"";16,9 ;"":n=9 16:f=69 :22528X+(32 *n)+f,568:f:n:0:a=9 :b=6:c=16:d=9 :GET a,b,c,d,b$ , 7 6=a$="S":x=568:y=84T:t=5:w=2:LARGE ;B=11 :PUT A,B,B$ @a$="H":x=96`:LARGE EB=16:PUT A,B,B$ Ja$="A":x=135:LARGE OB=21:PUT A,B,B$ Ta$="R":x=176:LARGE VB=26:PUT A,B,B$ YA$="P":x=216:LARGE h"a=0:b=1:PUT a,b,b$ r'a$="C":x=16:y=12 :LARGE |b=6:PUT a,b,b$ a$="A":x=568:LARGE b=11 :PUT a,b,b$ a$="R":x=96`:LARGE b=16:PUT a,b,b$ a$="D":x=136:LARGE  4 '19,7;"BY P.F.DOWTHWAITE" h2;18,1;"";19,1;"";18,28;"";19,28;"" &h0;18,4;"";19,4;"";18,25;"";19,25;"" + 9900& : 610b ?4N=.01z# =.1}L.01z# =:N,(N*200):N DP6;0;21,0;"DO YOU NEED INSTRUCTIONS Yes/No?" IZ$ J NZ$="Y"Z$="y"9000(# X 770 ]+1;21,10 ;" SHUFFLING " b gs(4,13 ) lp(524,2) vL(2,2) n=1524 h=(*4)+1 t=113 's(h,t)=0t=13 :700 t  650 v=(*13 )+1 s(h,v)=1700 s(h,v)=1 v=1v=14  p(n,1)=v:p(n,2)=h n  0:0:7: Q$(2,9 )  42,0;"NAMES MAY BE UP TO NINE LETTERS"  37,0;"TO CANCEL AN ENTRY PRESS ""0""" T4,0;"PRESS ""ENTER"" WHEN NAME IS ENDEDIF SHORTER THAN NINE LETTERS." >1;0,0;" ENTER THE NAMES OF THE PLAYERS " 546,95_:120x,0:0,-72H:-120x,0:0,72H:524,97a:124|,0:0,-76L:-124|,0:0,76L  #11 ,8;"FIRST PLAYER " % 12 ,10 ;" _" & 17,10 ;" _" *F=12 4O$="" >N=19 H=""840H R O$=O$+ \=13 920 fR=480(5*F)+7,10 ;" ":8204 p#(F*5)+7,10 ;O$; z Q$(F)=O$ .2~L,30 N .5,20 #16,8;"SECOND PLAYER"  10 F ?1;21,0;" PRESS ANY KEY TO CONTINUE "  0 4:4:0: M=(*2)+1  "a=0:b=1:PUT a,b,g$ PN=10 12 :6;N,0;" ":N &6;11 ,2;"NAME : " PN=13 17:7;N,0;" ":N 7;1;14,3;"S - STICK";14,19;"H - HIGHER";16,19;"L - LOWER";16,3;"C - CHANGE" 2,93]:251,0:0,-19:-251,0:0,19:2,69E:251,0:0,-36$:-251,0:0,36$ $PN=1821:5;N,0;" ":N .^2,29:251,0:0,-27:-251,0:0,27 8s2;5;19,14;"";20,14;"";19,16;"";20,16;"" Bq0;5;19,1;"";20,1;"";19,29;"";20,29;"" LP5;1;19,4;Q$(1);19,19;Q$(2) V**** MAIN PLAY LOOP *** `#6;11 ,10 ;Q$(M) j)(1,1)5681520 tsel= ~J>261690 sel=83S1220 1sel=67CTW=1TW=0:1520 usel=13 1;9 ,10 ;" SHUFFLING ":610b:0;9 ,10 ;" " sel=72H1350F sel=76L1380d  1140t -a=0:b=1:c=7:d=31 M=1GET a,b,c,d,f$ M=2GET a,b,c,d,g$  100d .5,30 #M=1J1=J:U1=U:J=J2:U=U2 #M=2J2=J:U2=U:J=J1:U=U1  1L(M,1)=p(r,1):L(M,2)=1 #M=M+1:M>2M=1  TW=1 (M=1PUT a,b,f$ 2M=2PUT a,b,g$ < 1110V F 1490 P:p(r,1)>L(M,1).1}L,30:1140t Z1410:1220 d 1490 n:p(r,1)30.5,30:1690  U=U+5  TW=0 1L(M,2)=0L(M,1)=p(r,1) L(M,2)=0  a=0 $r=r+1:r>524r=1  PUT a,U,b$ Zp(r,2)=17;2;Q+2,J;"";Q+3,J;"":ink=2 "Zp(r,2)=27;2;Q+2,J;"";Q+3,J;"":ink=2 ,Zp(r,2)=37;0;Q+2,J;"";Q+3,J;"":ink=0 6Zp(r,2)=47;0;Q+2,J;"";Q+3,J;"":ink=0 @"p(r,1)>9 1630^ JC7;ink;Q,J;p(r,1);Q+5,J+1;p(r,1) T ^Hp(r,1)=10 7;ink;Q,J;"";Q+5,j+1;"" hHp(r,1)=11 7;ink;Q,J;"";Q+5,j+1;"" rHp(r,1)=12 7;ink;Q,J;"";Q+5,j+1;"" |Hp(r,1)=13 7;ink;Q,J;"";Q+5,j+1;"" Hp(r,1)=147;ink;Q,J;"";Q+5,j+1;""  *** WIN **** +N=5305:.1}L,N:N M=1S1=S1+1 M=2S2=S2+1 >5;1;20,7;S1;20,22;S2 #S1>2S2>23000 FJ=2:U=1:J1=2:J2=2:U1=1:U2=1 #M=M+1:M>2M=1 -A=0:B=1:C=7:D=31 *PUT A,B,e$\GET a,b,c,d,f$\GET a,b,c,d,g$  TW=1  1110V 5:5: -1,1;"WINNER : ";1