Функция приводит аргумент в значение 0 до 359
Function ConvertAng#(ang#)
;приведение к виду (0;359)
If ang<0
ang=ang+Ceil(Abs(ang)/360)*360
ElseIf ang>=360
ang=ang-Floor(ang/360)*360
EndIf
Return ang
End Function
Graphics 800,600
For i=1 To 360*3
Plot i/2,ConvertAng#(i)
Next
While Not KeyHit(1)
Flip
Wend
End