Description of the procedure:
Source:
procedure main repeat 20, starendprocedure star go 75 rt 110 go 75 rt 110end