Artillery yArtillery Version 1.0  1984/95 by Bernhard Lutz Hammerstr.35 D-76756 BELLHEIM --------------------------------  1000 dd=(*2+1) e0:0,0;"Sp.1:";0,10 ;"=";0,20;"=";1,0;"Sp.2:";1,10 ;"=";1,20;"=": (=C) (=D)  f+o1=o:1:o=o+((*3-1)) go>3o=3 ho<-3o=-3 io1o1;6;0;11 ,8;"Windaenderung !":502:11 ,8;9 ;0;" " l:o<02,12 ;"Wind: ";o;" ":(=A) m:o>02,12 ;"Wind: ";o;" ":(=B) n@o=02,12 ;"Wind: ";o;" |":(|=E+Caps+S) w-8:.3,30:o1o128 <.73333102f Cd-1,0;"Sp.";d;":":d=d+1:d=3d=1 ;d-1,0;1;0;6;"Sp.";d;":" +"WINKEL ";w:d-1,12 ;w;" " Y"STAERKE (0-999) ";v0:v0>999#0;"Falsche Eingabe !":100d:150 d-1,22;v0;" " Zw=w*2*/360h:vx=v0*w:vy=v0*w:g=10 :t=0:h=0:l=0 ,y=-g/2*t*t+vy*t ..005y# =,y/n 1y<0400 6$d=1vx=vx-o:x=vx*t+1 7(d=2vx=vx+o:x=q-(vx*t+1) 86x<01;l/502,h/502:120x @ 1;l/502,h/502 A!y/502>175120x B!x/502>255120x CE(x/502,y/502)x/502>m-z1x/502