ZXTape! 0Created with Ramsoft MakeTZXp "2B-$2  OLYMPICS    J.R. TODD 1984 "Please input your name ?";n$ n$>715  s=0  f=2 (round=1 2 9000(# &0:4:1:1: Wt$=" ":n=010 :t$=t$+(n*10 )+" ":n=0t$=t$+" " /n:t$=t$+". . . " ^0,80P:255,0:0,16:-255,0:0,-16 !12 ,0;t$(32 ) 0 3q=11.58-round*.5:q<9 q=9 ,"e$=" 100m ":6500d 617,20;q;" Secs." c 8100 h;1;10 ,2;" ";n$;11 ,2;"" |19,0;"On your marks.....":.1}L,0:6950&:6950&:6950&:19,0;"Get set....... ":.1}L,10 :10 ,2;" ";11 ,2;"" $6950&:6950&:6950& I.1}L,20:19,0;"Go.... " )t()=23672x\+23673y\*256 J23672x\,0:23673y\,0:x=1:sp=.6:k$="3" 1="1"k$="1"sp=sp+.1}L:k$="3":455 1="3"k$="3"sp=sp+.1}L:k$="1":455 (sp=sp-.1}L:sp<0sp=0 sp>1.5@sp=1.5@ Dx=x+sp:12 ,0;t$(xx+31):x150480  430 >t=t():time=(t*2)/100d:speed=(1e4'/time) @19,0;"Your time =";time;" Secs. (";speed;" cm/s)" s=s+speed*2 $time>qret=1000:8000@ )10 ,3;"You have qualified." s=s+1000  6900  Long Jump 4q=7.25h+.25~*round:q>9 q=9 4:1:1: try=0:best=0 ^0,80P:0,16:175,0:0,-16:-175,0 ^175,64@:0,480:80P,0:0,-480:-80P,0 *0:12 ,21;1;"^" Un=19 :7,21+n;n:n:7,22;1;"_________" $"e$=" Long Jump ":6500d .17,20;q;" m." Bf5,0;"ATTEMPT DISTANCE";6,3;"1";7,3;"2";8,3;"3" G 8100 L910 ,0;1;"";n$;11 ,0;"" V,19,0;"Get ready " `.1}L,10 :6950&:6950&:6950&:jx=0:x=0:sp=0:k$="3":10 ,0;" ";11 ,0;"" eL13 ,0;" ";14,0;" " j3.1}L,20:19,0;"Start " ~="0"x>181300 2="3"k$="3"sp=sp+.2~L:k$="1":1200 2="1"k$="1"sp=sp+.2~L:k$="3":1200 ,sp=sp-.05|L:sp<0.4Lsp=.4L sp>1.2sp=1.2 =13 ,0;""(sp/.1}L);" " )10 ,x;" ";11 ,x;"_":x=x+sp 910 ,x;"";11 ,x;"":x>221800  1150~ .jx=x:jx*8,80P:16,0 1:n=215:jx*8,80P:a(n-1,1),a(n-1,2):jx*8,80P:a(n,1),a(n,2):="0"n # 0 (Aan=(n*5+*5):13 ,0;an;" Degrees. " 2[speed=(sp*1000+*401-200):14,0;"Speed = ";speed;" cm/s." <[dist=speed*speed/1e4'*(an*/90Z)/19.62:dist=(dist*100d)/100d Fu1:10 ,jx;"";11 ,jx;"";9 ,jx+1;"";10 ,jx+1;"":n=1dist-2 P76950&:9 ,jx+n;"";10 ,jx+n;"":n ZX9 ,jx+n;"";10 ,jx+n;"":6950&:0:9 ,jx+n+1;" " d10 ,jx+n+1;"" iSdist=jx+dist-21:dist=(dist*100d)/100d:dist<11800 n+19,0;"Distance =";dist;" m." s"6+try,12 ;dist;" m." x*dist>bestbest=dist:s=s+dist*100d $6950&:6950&:6950& ܀try=try+1:10 ,0;" ":try<31030 $best95_q=95_ 4:1:1: t$="30 20 10 0 10 20 30 40 50 60 70 80 90 100 110 120 130 140 " 0,88X:255,0:0,-16:-255,0:0,16:16,72H:0,16 "e$=" Javelin ":6500d j5,10 ;"ATTEMPT DISTANCE";6,13 ;"1";7,13 ;"2";8,13 ;"3"  try=1:best=0 17,20;q;" m."  x=-28:v=0:k$="3" 4!13 ,0;t$(31) >C11 ,0;1;1;"";n$;12 ,1;"" C 8100 HN19,0;"Get ready....":.1}L,10 :6950&:6950& M-15,0;" " Rn19,0;"Start..... ":.1}L,20:6950&:19,0;" " \I11 ,0;" ";12 ,0;" " f0,88X:255,0:0,-16:-255,0:0,16:16,72H:0,16 7a$=:a$="3"k$="3"v=v+.2~L:k$="1":2230 1a$="1"k$="1"v=v+.2~L:k$="3":2230 v=v-.1}L v>1.3&fffv=1.3&fff v<.4Lv=.4L ?15,0;""(v/.1}L);" " x=x+v -13 ,0;t$(x+29x+60<) x>02800 %="0"x>-7jx=x:2300  2200 ^sp=(v*1000+*201-100d):v=v*20:15,0;"Speed=";sp;"cm/s" 1:n=215:0,88X:a(n-1,1),a(n-1,2):0,88X:a(n,1),a(n,2):="0"n ?1:0,88X:a(n,1),a(n,2):0 0:g=10  >an=(n*5+*5):15,16;an;" Degrees."  y=88X Iv1=v/3.6ffff*(an*/180):g=4/(v*(an*/180)):v=v1 111 ,0;" ";12 ,0;" " $x=0110n )-v=v-g:v<2v>1v=v+g-g/2 *'v<1v>.5v=v+g-g/4 +)v<.5v>-.5v=v+g-g/8 .!y=y+v:32 ,y-v:16,v 8-13 ,0;t$(x+29x+60<) L,1:32 ,y-v:16,v:0 Qy87W2400` Vx:"error": `Mx=x+jx+6:dist=x+(*100d)/100d:5+try,22;dist es=s+(dist*20) jbest1.5@v=1.5@ v<0v=0 x=x+v %x1503750 ''x=(x/15)*153500 *]9 ,0;u$(1,xx+31);u$(2,xx+31);u$(3,xx+31) 459 ,5;1;"";10 ,5;"" > 3300 ."0"v=v-.5:x=x+1:33804 ij=j+1:8,5;"";9 ,5;"";10 ,5;" ":v=v+.2~L:x=x+1 ʁ9 ,0;u$(1,xx+4);"";u$(1,x+6x+31);u$(2,xx+31);u$(3,xx+31) x=x+1 ԁ9 ,0;u$(1,xx+4);"";u$(1,x+6x+31);u$(2,xx+31);u$(3,xx+31) J8,5;" ";9 ,5;1;"";10 ,5;"" 3300 =time=((t()*2))/100d-j:speed=(1e4'/time) 619,0;"Time =";time;" (";speed;" cm/s.)" $time>qret=4000:8000@ 310 ,0;"You have qualified, well done" s=s+1000+speed*2  6900  4000 pEnd of round z1:3: 9 ,14;"";10 ,14;"1";11 ,14;"";12 ,11 ;"";13 ,11 ;"23";14,11 ;"" 67,15;0;"";8,15;"" E17,0;"Well done, You are through to the next round." <s=s+5000:round=round+1:6900:100d dE0,0;"Name ";n$;16;" =";f;1,16;"" n72,0;"Round ";round;16;"Score =";s x-17,0;e$;12 ;"Qualify :";  O21,0;1;"Hit any key to continue ":n=1200:n ""6905 =""6910  &delay 0z=1502:z: @,20,3;"You failed to qualify." J f=f-1 Tf<085004! ^6900:ret Jingle -8110:n=112 :a,b:a,b:n .1}L,-4,.1}L,0,.1}L,3,.1}L,8,.03{u\,3,.03{u\,3,.03{u\,3,.1}L,5,.1}L,1,.1}L,5,.1}L,8,1,12  !4G:10 ,0;" GAME OVER ";12 ,5;"Score =";s #' #(a(19,2):n=018:a(n+1,2)=16*(n*/36$):a(n+1,1)=16*(n*/36$):n #2 # 9100# '"Please Wait":"": ' '&0:7:0:0: Ngs$8foun2~Ƅ|\d1wF: p/ChɁXak]BQȄÄD}$5453$D}ĄQȃ]CXakhɂ/Cp wF91|\c2~݄ q(ab 320 n$ tim5\peeeres+isv@A3g~~Ny,5^Z{j] | | 0 10 20 30 40 50 60 70 80 90 100 T 0 10 20 30 40 50 60 70 80 90 100 . . . E 100m K3