1.
0 --> A
1 --> B
.01 --> DX
100 --> Y
A --> X
While X < B
    Y + y2(Y)*DX --> Y
    X+DX --> X
End
Disp Y

2.
ClDrw
FnOff
0 --> A
1 --> B
.01 --> DX
100 --> Y
A --> X
While X < B
    X --> X0
    Y --> Y0
    Y + y2(Y)*DX --> Y
    X+DX --> X
    Line(X0,Y0,X,Y)
End

3.
ClDrw
FnOff
Prompt A
Prompt B
Prompt DX
Prompt Y
A --> X
While X < B
    X --> X0
    Y --> Y0
    Y + y2(Y)*DX --> Y
    X+DX --> X
    Line(X0,Y0,X,Y)
End
Disp Y

4.
When &Delta t = .01,   T(1) = 80.98097
When &Delta t = .005,   T(1) = 81.00873