y	= 1
while t <= 10
   k1	=  t        * sqr(y)
   k2	= (t + .05) * sqr(y + .05 * k1)
   k3	= (t + .05) * sqr(y + .05 * k2)
   k4	= (t + .1)  * sqr(y + .1  * k3)

if right$(using("##.#",t),1) = "0" then  print "y(";using("##",t);") ="; using("####.#######", y);chr$(9);"Error ="; (((t^2 + 4)^2) /16) -y
    y = y + .1 *(k1 + 2 * (k2 + k3) + k4) / 6
   t = t + .1
wend
end