Procedure: Star by Sivert Berg

Description of the procedure:
I,ts the coolest star in this univerys.

Source:

procedure main
repeat 100, star
end

procedure star
go loop*1
rt 200
end