Procedure: star by Sivert Berg

Description of the procedure:
Draws a star.

Source:

procedure main
repeat 100, star
end

procedure star
go loop*1
rt 200
end