snails  $4:0:0:1  (29 ,2;"It's got something to do with" -10 ,13 ; "SNAILS" 2$11 ,9 ;"is on it's way" < 0 F '''''''' P"race" (race ^Z` *********************** It's got something to  do with  SNAILS ( by Mouse -*********************** 2Hope you like it. The programming is all over the place but hey, it works. I'd love to hear from anyone who has got hold of this so drop me a line, say hi and tell me what you think..... 7 Flat 3, 2 Shakleton Road, Earlsdon, Coventry, CV5 6HU 8*********************** * Up Spectrum U.K. * * Support the Speccie * * Survivors club * *********************** <0:0: A F,6;'" It's got something to do with" P 75K Z/10 ,12 ;0;6;"SNAILS" d).8L,-502:0.8L,-557 n 70F x 6 '"How many punters ?" p$ p$1120x &p$<480ůp$>579120x p=p$ Cp>6'''"That many ? Try Ladbrooks.":120x:120x Bp<1'''"Ha Ha. What a wit you are.":120x:120x punt=p  Ha=10 :b=10 :c=10 :d=10 :e=10 :f=10 Ppunt=1b=0:c=0:d=0:e=0:e=0:f=0 :punt=2c=0:d=0:e=0:f=0 0punt =3d=0:e=0:f=0 %punt =4e=0:f=0 punt=5f=0 z$(punt,10 ) x=1punt  K6;'"Player ";x;" enter yout name"''4;"(10 letters MAXIMUM)"  z$(x) x  $'" Everyone begins the game with " '" 10 P"  100d ''''"Good luck to you and the snails."  130   *******************  THE GAME BEGINS  ******************* N=07 row:""+n,row &n 000011111,00100000 ,00101111/,00101001),00101101-,00101101-,00111111?,11111111 :n=07 Drow:""+n,row Nn X10000010,01000100D,01000100D,01000111G,01000111G,01001110N,01011100\,11111000 bn=07 lrow:""+n,row vn 01111110~,10000001,10111101,10100101,10101101,10111101,10000011,01111110~  n=1p  !a+b+c+d+e+f09500% n=1s=a n=2s=b n=3s=c n=4s=d n=5s=e n=6s=f !s0r=0:721 5''z$(n) !5''"Money ";6;s +5''"How much do you want to bet ?" r$ &r$<480ůr$>579700 r=r$ Gr>s6;''"You ain't got the dosh kiddo.":120x:660 Lr<16;''"You won't win much that way.":120x:660 n=1g=r n=2h=r n=3i=r n=4j=r n=5k=r n=6l=r s0800  #5;6''"Which snail ?" .2;'"1. Brian ";3;"4. Dave" -4;"2. Karen ";6;"5. Tony"  7;"3. Philip" s$ &s$<45-ůs$>579790 sn=s$ msn>5sn<12;"Do it properly ":120x:16,0;" ":790  s0sn=0 !n=1u=sn "n=2v=sn #n=3w=sn $n=4x=sn %n=5y=sn &n=6z=sn n  310 ,6;6;"Off to the races...."  120x *******************  the race *******************   t=6 n=09 t,2;5;" " t,28;5;""  t=t+1 n $(6,2;0;5;"S" .(8,2;0;5;"T" 8)10 ,2;0;5;"A" B)12 ,2;0;5;"R" L)14,2;0;5;"T" V 6,3;2;"" ` 8,3;4;"" j!10 ,3;7;"" t!12 ,3;3;"" ~!14,3;6;"" $6,10 ;2;"Brian" $8,10 ;4;"Karen" &10 ,10 ;7;"Philip" $12 ,10 ;3;"Dave" %14,10  ;6;"Tony"  160  t=6 n=04  t,10 ;0;" "  t=t+2 n &1,12 ;7;"Ready ?"  70F .1,8;7;"And they're off."  8m=3:n=3:o=3:pd=3:q=3 *********************  movement ********************* 'rand =(4+5*)*1000 15 rand 3025  ***BRIAN*** mov=(3*) mov=0 6,m;2;"__"  m=m+mov 6,m;2;"" Jm276,15;2;"WINNER":win=1:9000(#   ***KAREN*** mov=(3*) mov=0 8,n;4;"__"  n=n+mov 8,n;4;"" Jn278,15;4;"WINNER":win=2:9000(#  p***PHILIP*** zmov=(3*) mov =0 10 ,o;7;"__"  o=o+mov 10 ,o;7;"" Ko2710 ,15;7;"WINNER":win=3:9000(#  X ***DAVE*** bmov=(3*) gmov=0 l12 ,pd;3;"__"  pd=pd+mov 12 ,pd;3;"" Lpd2712 ,15;3;"WINNER":win=4:9000(#  @ ***TONY*** Jmov=(3*) Omov=0 T14,q;6;"__" h q=q+mov r14,q;6;"" wKq2714,15;6;"WINNER":win=5:9000(# | #'*******SUMS******** #(<.05|L,20:.05|L,25:.08}# =,30 #, 502 #-&m<276,m;2;"_" #2&n<278,n;4;"_" #<'o<2710 ,o;7;"_" #F)pd<2712 ,pd;3;"_" #P'q<2714,q;6;"_" #U 100d #Z #d!a=a-g:punt=19100# #i!b=b-h:punt=29100# #n!c=c-i:punt=39100# #s!d=d-j:punt=49100# #x!e=e-k:punt=59100# #f=f-l #;u=win6;'z$(1);" WINS !!!":a=a+(6*g) #punt=19170# #;v=win6;'z$(2);" WINS !!!":b=b+(6*h) #punt=29170# #;w=win6;'z$(3);" WINS !!!":c=c+(6*i) #punt=39170# #;x=win6;'z$(4);" WINS !!!":d=d+(6*j) #punt=49170# #;y=win6;'z$(5);" WINS !!!":e=e+(6*k) #punt=59170# #;z=win6;'z$(6);" WINS !!!":f=f+(6*l) # 100d #:a06;'z$(1);" is skint.":100d #punt=19410$ #9b06;'z$(2);" is skint.":80P $punt=29410$ $9c06;'z$(3);" is skint.":80P $"punt=39410$ $,9d06;'z$(4);" is skint.":80P $6punt=49410$ $@9e06;'z$(5);" is skint.":80P $Jpunt=59410$ $T9f06;'z$(6);" is skint.":80P $ 650 %********THE END******** %& %0)6;''"Oh dear...no pennies left." %:.05|L,-30 %D-6;'"The snails didn't creep in your" %N$6;" favour did they ?" %X 130 %b5;''"Play again ?" %ly$ %v y$ = "n"y$ = "no"9595{% %x %{col=(7*) %col;"Bye "; % 9595{% '3*********************** add cabbadge leaves? P