ClrDraw
ClrScreen
Input "PMIN=",A
Input "PMAX=",B
Input "PSTP=",C
ClrScreen
Y(A)R
Rcos(A)E
Rsin(A)F
For(X,A+C,B,C)
Y(X)R
Rcos(X)G
Rsin(X)H
Line(E,F,G,H)
GE
HF
End