ZXTape! 0Created with Ramsoft MakeTZXACE LOW 5`^987`g$(5,10 ) sc1=0:sc2=0 'sc3=0:sc4=0:sc5=0 MONEY=10 X=9 :Y=1 f=13 n=120 B10 ,9 ;2;7;1;"STOP THE TAPE" !t0.01z# =,N:6:5:4:3:4:2:6:7:2:1:5:N "F F1:1:7: P14,6;6;" " U1,4;6;" " c A=1 dY10 ,12 ;"ACE LOW":11 ,6;1;1;"Published by C.C.S." e80;0,103g:0;255,0 f80,112p:6;1;255,0 g70,63?:6;1;255,0 h70;0,72H:0;255,0 i0,0;".";1,6;".";2,1;".";21,2;".";16,5;".";17,0;".";21,5;".";18,4;".";6,3;"." kt0,0;".";21,18;".";21,12 ;".";20,10 ;".";1,22;".";0,13 ;".";0,6+25;".";2,1+25;".";21,2+25;".";16,5+25;".";17,25;".";21,5+25;".";18,4+25;".";6,3+25;"." n'S$="ACE LOW  83 RICHARD COBDEN. " o'T$="DO YOU WANT INSTRUCTIONS (Y/N). " r T$=T$+T$+T$ s S$=S$+S$+S$ tN=01E+13* x58,0;4;0;S$(AA+31) 613 ,0;4;0;T$(AA+31) A=A+1 A=65AA=1 N>100dN=0 ="N"Ŧ="n"900 ="Y"Ŧ="y"200 0.003xD,20 n 5:0: !0,9 ;"INSTRUCTIONS" *0,9 ;1;"____________" ˨2,0;" The program involves guessing if the card proceding the one displayed on the rack will be higher or lower in value. You can win either way you bet if the proceding card is the same value. A King is the highest and an ace is the lowest in value. You start off with `10 and do not win unless you reach the top right hand card where upon you win `5." M15,2;"If you win twice in succession you will win a JACKPOT." b17,2;"The game will end when you have lost all your money or if you quit." /';1;" 'H'=HIGHER 'L'=LOWER " 300, ,Q21,0;2;7;1;" Press any key to continue " 1 0 v"A"1700::5:0.1}L,25:10 ,10 ;1;2;7;"PLEASE WAIT" "A"1709000(# <0:5:0:7::X=9 :Y=1 SURP=(*100d)+1 SURP=66B85004! n=1306 F=0148 f,n;" " 4;f+1,n;""  4;f+2,n;" "  4;f+3,n;" "  4;f+4,n;" "  4;f+5,n;" "  4;f+6,n;" " 4;f+7,n;"" f n n=44,46. '0,n+64@:247,0 n L0,46.:0,129:247,0:0,-129 N=40(45- $0,N:247,0 )N .N=017 3N,31;5;"" 7N 8N=1721 =8N,0;5;"" BN G 9500%  3000 C1=VA  4000  A18,12 ;5;" ":Y=Y+6:3000 C2=VA BET=1C1>C25000 BET=1C1C25500|  BET=-1C1C35000 BET=1C2C35500| C2=C35500|  4000  A18,12 ;5;" ":Y=Y+6:3000 C4=VA BET=1C3>C45000 BET=1C3C45500| C3=C45500|  4000  A18,12 ;5;" ":Y=Y+6:3000 C5=VA BET=1C4>C55000 BET=1C4C55500| "C4=C55500| $ 4000 & *J18,10 ;5;" ":Y=1:X=1:3000 ,C6=VA .BET=1C5>C65000 0BET=1C5C65500| 6C5=C65500| 8 4000 : >A18,12 ;5;" ":Y=Y+6:3000 @C7=VA BBET=1C6>C75000 DBET=1C6C75500| JC6=C75500| L 4000 N RA18,12 ;5;" ":Y=Y+6:3000 TC8=VA VBET=1C7>C85000 XBET=1C7C85500| ^C7=C85500| ` 4000 b dA18,12 ;5;" ":Y=Y+6:3000 fC9=VA hBET=1C8>C95000 jBET=1C8C95500| oC8=C95500| p 4000 r zA18,12 ;5;" ":Y=Y+6:3000 |C10=VA ~ BET=1C9>C105000  BET=1C9C105500| (18,12 ;5;" "  8000@  SUIT=(*4)+1 RND=(*13 )+1 RND=16010z RND=26020 RND=36030 RND=46040 RND=56050 RND=66060 RND=76070 RND=86080 RND=9 6090 RND=10 6100 RND=11 6110 RND=12 6120 RND=13 6130  .20,8;1;"HIGHER OR LOWER" 0.1}L,25 ="L"Ŧ="l"BET=-1:5;20,8;" ":18,13 ;1;"LOWER":0.1}L,15:SW=1:4100 ="H"Ŧ="h"BET=1:5;20,8;" ":18,12 ;1;"HIGHER":0.1}L,15:SW=0:4100  4020  SW=0N=030  SW=1N=030 N   1000 >0.2~L,-10 :18,11 ;1;"YOU LOOSE"  100d  POT=0 MONEY=MONEY-1 N=5-15-2 u0.025{L,N:4:5:4:3:2:6:5:4:4:3:4:N 0.1}L,-11  5 MONEY<19900& { 1000  zSUIT=17;2;x,y;"A ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" A" {SUIT=27;2;x,y;"A ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" A" |SUIT=37;0;x,y;"A ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" A" }SUIT=47;0;x,y;"A ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" A" ~VA=1: SUIT=17;2;x,y;"2 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 2" SUIT=27;2;x,y;"2 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 2" SUIT=37;0;x,y;"2 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 2" SUIT=47;0;x,y;"2 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 2" VA=2: SUIT=17;2;x,y;"3 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 3" SUIT=27;2;x,y;"3 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 3" SUIT=37;0;x,y;"3 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 3" SUIT=47;0;x,y;"3 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 3" VA=3: SUIT=17;2;x,y;"4 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 4" SUIT=27;2;x,y;"4 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 4" SUIT=37;0;x,y;"4 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 4" SUIT=47;0;x,y;"4 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 4" VA=4: SUIT=17;2;x,y;"5 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 5" SUIT=27;2;x,y;"5 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 5" SUIT=37;0;x,y;"5 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 5" SUIT=47;0;x,y;"5 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 5" VA=5: SUIT=17;2;x,y;"6 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 6" SUIT=27;2;x,y;"6 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 6" SUIT=37;0;x,y;"6 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 6" SUIT=47;0;x,y;"6 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 6" VA=6: SUIT=17;2;x,y;"8 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 8" SUIT=27;2;x,y;"8 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 8" SUIT=37;0;x,y;"8 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 8" SUIT=47;0;x,y;"8 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 8" VA=8: SUIT=17;2;x,y;"9 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 9" SUIT=27;2;x,y;"9 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 9" ¬SUIT=37;0;x,y;"9 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 9" ìSUIT=47;0;x,y;"9 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 9" VA=9 : ʬSUIT=17;2;x,y;" ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" " ˬSUIT=27;2;x,y;" ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" " ̬SUIT=37;0;x,y;" ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" " ͬSUIT=47;0;x,y;" ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" " VA=10 : SUIT=17;2;x,y;"J ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";2;"";X+6,Y;" J" SUIT=27;2;x,y;"J ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";2;"";X+6,Y;" J" SUIT=37;0;x,y;"J ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";0;"";X+6,Y;" J" SUIT=47;0;x,y;"J ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";0;"";X+6,Y;" J" VA=11 : SUIT=17;2;x,y;"Q ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";2;"";X+6,Y;" Q" SUIT=27;2;x,y;"Q ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";2;"";X+6,Y;" Q" SUIT=37;0;x,y;"Q ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";0;"";X+6,Y;" Q" SUIT=47;0;x,y;"Q ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";0;"";X+6,Y;" Q" VA=12 : SUIT=17;2;x,y;"K ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";2;"";X+6,Y;" K" SUIT=27;2;x,y;"K ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";2;"";X+6,Y;" K" SUIT=37;0;x,y;"K ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";0;"";X+6,Y;" K" SUIT=47;0;x,y;"K ";X+1,Y;"";0;" ";X+2,Y;" ";X+3,Y;" O ";X+4,Y;" ";X+5,Y;" ";0;"";X+6,Y;" K" VA=13 : SUIT=17;2;x,y;"7 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 7" SUIT=27;2;x,y;"7 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 7" SUIT=37;0;x,y;"7 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 7" SUIT=47;0;x,y;"7 ";X+1,Y;" ";X+2,Y;" ";X+3,Y;" ";X+4,Y;" ";X+5,Y;" ";X+6,Y;" 7" VA=7: @5::F=12 EN=2035# Jk.002xn,N:6:3:4:5:6:3:4:5:4:5:N OF QPOT=POT+1 T 5 ^MONEY=MONEY+5 _2:1: cN=0156 hN,0;7;2;1;"********************************* ** ** ** *********************************" m0.12}u[,0 n0.15~,5 oN q 8055w rPOT=285004! t 1000 w0.15~,3:2 x0.1}L,0:2 y0.1}L,-3:.5 z0.1}L,-6:.5 {0.1}L,-9 :1 |0.1}L,-6:2 }0.15~,-3:2 ~ 100d  !4 JACKPOT !5 2: !6 j(8) !9N=2035# !>k.002xn,N:6:3:4:5:6:3:4:5:4:5:N !CF !PN=0156 !R0.12}u[,0 !T0.15~,5 !WN !\ 8055w !]:SURP=66B9 ;"SURPRISE JACKPOT !":8055w !^n=18 !_J(n)=(*15)+1 !`n !aJACK=0 !bS2,10 ;1;1;7;"JACKPOT = ` ";J(1):150 !cS4,10 ;1;2;6;"JACKPOT = ` ";J(2):150 !dS6,10 ;1;3;7;"JACKPOT = ` ";J(3):150 !eS8,10 ;1;4;0;"JACKPOT = ` ";J(4):150 !fT10 ,10 ;1;5;1;"JACKPOT = ` ";J(5):150 !gT12 ,10 ;1;6;0;"JACKPOT = ` ";J(6):150 !hT14,10 ;1;7;2;"JACKPOT = ` ";J(7):150 !iT16,10 ;1;1;6;"JACKPOT = ` ";J(8):150 !jn=18 !kJACK=JACK+J(n) !ln !mC18,10 ;1;6;1;"TOTAL = ` ";JACK !n&MONEY=MONEY+JACK:300,:0 !oa:MONEYsc55,1;"Do you want to quit and record your score Y/N ?":z$ !pz$="y"z$="Y"8562r! !q 1000 !rd:MONEY10 8565u! !MONEYsc1sc5=sc4:g$(5)=g$(4):sc4=sc3:g$(4)=g$(3):sc3=sc2:g$(3)=g$(2):sc2=sc1:g$(2)=g$(1):sc1=MONEY:g$(1)=o$:8600! !MONEYsc2sc5=sc4:g$(5)=g$(4):sc4=sc3:g$(4)=g$(3):sc3=sc2:g$(3)=g$(2):sc2=MONEY:g$(2)=o$:8600! !vMONEYsc3sc5=sc4:g$(5)=g$(4):sc4=sc3:g$(4)=g$(3):sc3=MONEY:g$(3)=o$:8600! !TMONEYsc4sc5=sc4:g$(5)=g$(4):sc4=MONEY:g$(4)=o$:8600! !2MONEYsc5sc5=MONEY:g$(5)=o$:8600! !p15,1;" ":15,1;"CASH BONANZA OF `";MONEY;" ";o$:200 !(:3,9 ;"HIGHEST SCORES";5,9 ;g$(1);5,20;sc1;7,9 ;g$(2);7,20;sc2;9 ,9 ;g$(3);9 ,20;sc3;11 ,9 ;g$(4);11 ,20;sc4;13 ,9 ;g$(5);13 ,20;sc5 !>20,0;"DO YOU WANT TO PLAY AGAIN Y/N ?" !z$ !+z$="Y"z$="y"MONEY=10 :1000 #' #(N="A""U"+7 #2 X:N,X:N #< 170,127,81Q,42*,81Q,160,82R,41),128,0,4,10 ,10 ,138,10 ,10 ,0,7,25,104h,132,164,148,164,165,219,195,231,255,66B,90Z,90Z,10 ,234,154,14,17,37%,41),37%,164,148,164,136,112p,89Y,87W,80P,90Z,90Z,66B,225,231,195,219,165,37%,41),37%,17,14,152,224,0,80P,80P,81Q,80P,80P,32 ,0,1,148,74J,5,138,84T,138,254,85U,76L,82R,82R,82R,82R,82R,76L,0,568,84T,124|,84T,16,0,0,0,16,568,124|,568,16,0,0,0,16,568,124|,124|,16,0,0,0,40(,124|,568,568,16,0,0,0,0,108l,254,254,124|,124|,568,16,0,568,568,16,214,254,214,16,0,16,568,124|,254,124|,568,16,0,16,568,124|,254,254,214,16,164,148,148,164,164,148,148,164,37%,41),41),37%,37%,41),41),37% #F %B18,9 ;5;0;"YOU HAVE `";MONEY;" " %E21,1;5;0;" PRESS ANY KEY TO CONTINUE " %=""9502% %0.1}L,20 % N=1821 %$;N,0;5;" ":N %& & &N=0202 &JN,0;2;7;1;" YOU HAVE LOST ALL YOUR MONEY!!" &0.1}L,-N &RN+1,0;7;2;1;" YOU HAVE LOST ALL YOUR MONEY!!" &N &N=120 &ˆ0.02{# =,N:4:3:4:5:6:3:4:5:6:5:4:3:3:N &S:10 ,0;1;2;7;" PRESS ANY KEY TO PLAY AGAIN " &0.1}L,25 & 0 &&X=0:Y=1:MONEY=10 & 70F ':Z=(23730\+(256*23731\))-(23653e\+(256*23654f\)):"SPARE MEMORY=";Z ;" BYTES ":;Z/1024;" K" cccccone x y *ta urBuin eo   1ac9+  OCHARLIEZn7 T`DO YOU WANT INSTRUCTIONS (Y/N). DO YOU WANT INSTRUCTIONS (Y/N). DO YOU WANT INSTRUCTIONS (Y/N). S`ACE LOW  83 RICHARD COBDEN. ACE LOW  83 RICHARD COBDEN. ACE LOW  83 RICHARD COBDEN. 1