start:
screen 12
cls
goto novoe
start1:
cls
window(0,0)-(640,480)
dim xo(100),yo(100),vxo(100),vyo(100)
g=-1
dt=.0006
vx=12:vy=25
x=0:y=0
vz=0
no=10
?"Взрыв гранаты"
?"<Esc>-выход"
?"<Enter>-взрыв"

moving:
 if inkey$=chr$(27) then novoe
 if inkey$=chr$(13) then gosub vzryv
 pset(x,y)
 vy=vy+g*dt
 y=y+vy*dt
 if y<0 then goto novoe
 x=x+vx*dt
 if vz=1 then gosub oskolki
 goto moving
 goto novoe

oskolki:
 for i=1 to no
  xo(i)=xo(i)+(vxo(i)+vx)*dt
  yo(i)=yo(i)+((vyo(i)+vy)+g*dt)*dt
  if yo(i)<1 or yo(i)>479 or xo(i)<1 or xo(i)>639 then goto konec
  pset(xo(i),yo(i)),9
  next i
  return

konec:
pset(xo(1),yo(1))
 for i=2 to no
  line-(xo(i),yo(i))
  next i
  line-(xo(1),yo(1))
 wata:
  if inkey$=chr$(27) then goto novoe else wata

vzryv:
 if vz=1 then return
 vo=30
 pi=4*atn(1)
 for i=1 to no
  xo(i)=x
  yo(i)=y
  fi=((2*pi)/no)*i
  vxo(i)=vo*cos(fi)
  vyo(i)=vo*sin(fi)
  next i
  vz=1
 return

novoe:
 cls
 ?"Взрыв гранаты"
 ?"При нажатии на <Enter>, последует бросок гранаты. После этого, в любой"
 ?"момент времени, Вы можете взорвать гранату, нажав на <Enter>"
 ?"Вы увидите, как летят осколки гранаты, и рисуется траектория броска"
 ?"В конце полета, когда осколок достигнет края экрана, будет нарисована"
 ?"огибающая осколков, по которой видно, что все осколки, в системе координат"
 ?"общего центра масс, двигались равномерно"

 ?"Нажмите <Enter> для продолжения задачи, или <Esc> - для выхода"
wata1:
 if inkey$=chr$(27) then stop
 if inkey$=chr$(13) then goto start1
 goto wata1