* Graphic representation of a function
* f(x) = exp(-x) * sin(2 * pi * x)
d = 0.0625; (* 1/16, 16 lines for interval [x, x+1] *)
s = 32; (* 32 character width for interval [x, x+1] *)
h = 34; (* Character position of x-axis *)
c = 6.28138; (* 2 * pi *)
for i := 0 to lim do begin
y := exp(-x) * sin(c * x);