[impersonalis]

Функция приводит аргумент в значение 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