Procedure: star by Andy Armento

Description of the procedure:
My first star!

Source:

procedure main
up
go 50
down
repeat 500, star
end

procedure star
go loop/2
rt 91
end