File: KURVE.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM KURVE(OUTPUT);
CONST   PI = 3.1415926535;
VAR     X,Y: REAL;
BEGIN   X := -3*PI;
REPEAT  IF X=0  THEN Y := 1
                ELSE Y := SIN(X)/X;
        WRITELN("*":ROUND(40*Y)+20);
        X := X + PI/10
UNTIL   X>3*PI
END.

---