Description of the procedure: My first star!
Source:
procedure mainupgo 50down repeat 500, starendprocedure star go loop/2 rt 91end