Description of the procedure:
Source:
procedure mainrepeat, 100 starendprocedure star go 200 rt 45 go 50 rt 124end