Description of the procedure:
Source:
procedure main go 100endprocedure color redendprocedure maingo 50end