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)
GüE
HüF
End