open Impact; origin (50.0, 100.0)
k <- 1.0; m <- 100.0
t <- 0.0
v <- 0.0; p <- 40.0
while t < 150.0 do
dot (t,p) red
a <- -p * k / m
v <- v + a * 1.0
p <- p + v * 1.0
t <- t + 1.0