ZXTape! car chaseIx#x'z # [] SIMON MICRO-SOFT L0:0:0:0:1:7:7::990 ZQa=13:a-1,0;c$(a):a:a-1,1;"MICRO-SOFT" d(a=05:a,a+26;b$:a i&a=717:a,0;d$:a n*a=1821:a,18-a;b$:a sO2;3,15;"CAR CHASE";1;3,15;"_________" v0:8 xU1,14;"INSTRUCTIONS";1;1,14;"____________":0 {2,18;"for" }a=13 x7,0;e$(a);18,6;h$(a);19,7;i$(a);20,8;j$(a);21,9 ;k$(a) a=212 ,16;"";14,16;"W";16,12 ;" A S ";18,16;"Z";20,16;"" a=23000 +a=1"Press enter to continue ";f$ a=31 a=35000:m$=::m$"1"m$"2"1;0,15;"ERROR";21,8;"Press number 1 or 2":d=125:.01z# =,20:.01z# =,-20:d:0,15;" ":145 b=216-1 -b<188;8;b,5;l$ =b>178;8;b,b-13 ;l$(44,-b) b:a 21;12 ,10 ;"Start tape to load" 5m$="1"14,14;"Car Chase":"car chase" m$="2" ޠ990:"a",1,3,7,15,31,63?,127,255,"b",127,63?,31,15,7,3,1,0 9"c",24,60<,126~,219,153,24,24,24,"d",24,12 ,6,255,255,6,12 ,24,"e",24,24,24,153,219,126~,60<,24,"f",24,480,96`,255,255,96`,480,24 <c=16:g$:a=07:b:g$+a,b:a:c mc$(3,13 ):c$(1)="":c$(2)=" ":c$(3)=" " $a$="" $b$=""  d$="    "  "l$=" "  q$="" oe$(3,352`):h$(3,25):i$(3,24):j$(3,23):k$(3,22) qe$(1)=" The object of this game is to complete as many laps as possible without crashing into the computer car. Ten bonus laps and a further car will be awarded if you wipe out all the track markers. You have four cars which are controlled by pressing the keys a,s,w&z. These keys will be referred" $h$(1)="to as the cursor controls.":i$(1)="Next follows details":j$(1)="of how to use these":k$(1)="controls" .e$(2)=" You may change lanes at a junction by operating the cursor controls as indicated below:-" Bue$(3)=" In this game you drive the black car which travels in a clockwise direction. If you would like to repeat these instructions then simply press number 2. To auto-load car chase, please press number 1." Lj$(3)="---GOOD LUCK---" V 5t=1:m=12 :n=16:mm=m:nn=n:tt=t _21,8;"Press enter to continue";1;5,6;"PRESS THE CURSOR KEYS" 23658j\,0:p$= .n=n+(p$="s")-(p$="a"):m=m+(p$="z")-(p$="w") <m=m+(m<0)-(m>21):n=n+(n<0)-(n>31) Ht=(m>mm)*3+(mm>m)+(n>nn)*2+(nn>n)*4:t=0t=tt G8;8;0;1;mm,nn;q$(tt);1;m,n;q$(t) np$=13 8;8;1;m,n;q$(t):5,6;" ":145 tt=t:mm=m:nn=n 3010 #("car chaseI"9100#: #{6:0:6::1:a=019:a,8;"STOP THE TAPE":a:"Press enter to continue ";n$: car chase #Si=3:h=255:g=153:f=1:e=0:236099\,502: o=e:oo=e:bb=e  2700  b=-f:o=e 6:f:6 b=b+2:x=e a$(4,4) 6: 5 b=5b=6b=7 b=11 2700 bb=f cl=e Da$(f)="":a$(2)="":a$(i)="":a$(4)="" =a=f20i:e;6;a,b+f;" + + + + + +":a (a=e21 2$a=ea,b;"" <+a=21a,b;"" F,a>ea<21a,b;"";a,b+21;"" P~a>ia<10 a>11 a<18a,b+i;"";a,b+18;"":a>6a<15a,b+6;"";a,b+15;"" Z/a=10 a=11 f;a,b+9 ;" " d/a=ia,b+i;"";a,b+12 ;"" n5a=6a,b+6;"";a,b+12 ;"" x&a=9 f;f;a,b+9 ;"" 'a=12 f;f;a,b+9 ;"" 6a=15a,b+6;"";a,b+12 ;"" 6a=18a,b+i;"";a,b+12 ;"" a 5 Xb<52;7;0,25;"LAPS=";o;21,25;"BEST=";oo Db>62;7;e,e;"LAPS=";o;21,e;"BEST=";oo )m=2:n=19+b:t=3:u=e 5r=(*i)*i:s=(*5)+2+r:tt=i:v=f+r+b 3000 6 t=3:b$=:m=m+f :b$="a"m=10 n>13 +bu=u+3:n=n-3 Gb$="s"m=10 n>12 +bn<19+bu=u-3:n=n+3 %m<19-u1000:210 :t=4:b$=:n=n-f :b$="w"m>13 n=10 +bu=u+3:m=m-3 :b$="z"m<19n=10 +bu=u-3:m=m+3 n>f+b+u1000:230 t=f:b$=:m=m-f 9b$="s"m=10 n<7+bu=u+3:n=n+3 3b$="a"m=10 n>f+bu=u-3:n=n-3 m>f+u1000:250 t=2:b$=:n=n+f 9b$="z"n=10 +bm<7u=u+3:m=m+3 9b$="w"n=10 +bm>1u=u-3:m=m-3 'n<19+b-u1000:270 jo=o+f:y=o:o=(o>99c)*99c+(o<100d)*y:2;7;e,(b<5)*25;"LAPS=";o " 210 e (m-s)2Ž(n-v)2j=e:(n*8+4,175-m*8-2)=fũ((n+1)*8+4,175-(m)*8-2)=fũ(n*8+4,175-(m+f)*8-2)x=x+f:x=42*o=o+10 :y=o:o=(o>99c)*99c+(o<100d)*y:f;m,n;a$(t,f2);m+f,n;a$(t,34):f;e,(b<5)*30+(b>5)*5;o:a=f100d:.01z# =,30:a:x=e:6:f::11 3m,n;a$(t,f2);m+f,n;a$(t,34) .001wn,15  1500 m,n;" ";m+f,n;" "  Dcl=ef;e;f;s,v;a$(tt,f2);s+f,v;a$(tt,34) >f;e;f;s,v;a$(tt,f2);s+f,v;a$(tt,34) kk=(*7) 23658j\,0:cl=f s<19-rv=f+b+rs=s+f:tt=3:s=10 rukkev=v+(u>r)*3-(r>u)*3:r=r+(u>r)*3-(r>u)*3 v+r<19+bs=19-rv=v+f:tt=2:urv=10 +bkkes=s+(r>u)*3-(u>r)*3:r=r+(u>r)*3-(r>u)*3 xs>fv=19+b-rs=s-f:tt=f:s=10 rukkev=v+(r>u)*3-(u>r)*3:r=r+(u>r)*3-(r>u)*3 {v>f+b+rs=f+rv=v-f:tt=4:urv=10 +bkkes=s+(u>r)*3-(r>u)*3:r=r+(u>r)*3-(r>u)*3 "s=f+rv-r=f+bs=s+f:tt=3 >f;e;f;s,v;a$(tt,f2);s+f,v;a$(tt,34) .003xD,e (m-s)<2ƽ(n-v)<2a=116:c=(*6):k=(*15)+f:l=(*15)+1:.001wn,20:c;n*8+k,((20-m)*8+l):a:2400` :8  >Q2110>:"a",h,128,128,159,159,152,152,g H"b",h,e,e,h,h,e,e,h R"c",g,g,g,g,g,g,g,g \E"d",g,152,152,159,159,128,128,h f3"e",g,25,25,249,249,f,f,h p3"f",h,f,f,249,249,25,25,g z1"g",f,i,27,30,31,27,i,i U"h",128,192,216,120x,248,216,192,192 I"i",i,7,101e,125},125},101e,15,14 U"j",192,224,166,190,190,166,240,112p J"k",e,60<,60<,24,216,254,195,127 a=f11 :d$:q=e7 d:(d$+q),d:q:a  j62400` :"a",e,e,e,e,i,14,19,96` tI"b",16,16,16,8,4,2,3,15 ~8"c",f,6,24,480,480,120x,h,h %"d",e,e,e,e,e,e,240,248 L"e",e,568,124|,254,199,203,211,211 E"f",14,30,62>,62>,62>,h,14,4 <"g",40(,234,104h,235,235,h,e,e B"h",196,223,79O,95_,71G,255,e,e D"i",h,222,140,220,252,h,112p,32 3"j",e,e,e,e,192,112p,200,7 A"k",128,96`,480,480,480,120x,h,h Ja=f11 :d$:q=e7:.001wn,10 +q+a:d:d$+q,d:q:a e$=" " b<6e$(f)="":e$(i)=" ":e$(6)="":a=em-f:2;a,28;" ";a+f,28;e$(58);a+2,28;e$(9 12 ):.05|L,20:.05|L,25:a:e;a-f,28;e$(f4) ګb>6a=em-f:2;a,e;" ";a+f,e;e$(58);a+2,e;e$(9 12 ):.05|L,20:.05|L,25:a:e;a-f,e;e$(f4) qb<6502:a=f20:224,(m-f)*8-172:.001wn,a+12 :7;f;(n-29)*8,-(*15)-8:a:20:a=27n-f:2;m-f,a;e$(f4)+" ";m,a;e$(58)+" ";m+f,a;e$(9 12 )+" ":((a/2)=a/2)*.25~,20:((a/2)a/2)*.25~,15:a kb>6502:a=f20:24,172-(m-f)*8:.001wn,a+12 :7;f;n*8-7,-(*15)-8:a:20:a=en-4:2;m-f,a;" "+e$(f4);m,a;" "+e$(58);m+f,a;" "+e$(9 12 ):((a/2)=a/2)*.25~,20:((a/2)a/2)*.25~,15:a (?21004:a=f11 :d$:q=e7:d:d$+q,d:q:a: o>oo2900T :oo=o bb=eg$="Clear memory" f:f:7: e,e;"SIMON MICRO-SOFT presents:-";6,8;" -CAR CHASE- ";12 ,e;"High score ";oo;" ";g$;14,e;"Last score ";o bb=e21004 %"Press enter to start";v$:7 T%"HIGH-SCORE-ENTER YOUR NAME "'G$: 3000 6a=.25~:bl=.1}L:ct=.18~8Q:dd=.17~.z e,a,e,bl,4,bl,7,bl,4,bl,7,bl,4,ct,2,dd,2,bl,5,bl,9 ,.5,11 ,bl,7,bl,4,bl,11 ,bl,7,bl,4,bl,12 ,a,11 ,.1}L,12 ,a z=f20:ol:xl:xl,ol:z  #0"car chase"9200#:"carg""l",80P: #^e=0:f=1:e:e:e:e:6:1:6::10 ,12 ;"STAND-BY" #"carg""l",80P::a=e19:f;a,10 ;"STOP THE TAPE":.01z# =,20:a:"Press enter to continue ";t$: carg PR<<<<<<e}}epS__x<<<<<<