Procedure: main by Dimitar hadziev

Description of the procedure:
threj

Source:

procedure main
goto square
end
procedure square
repeat 4,go_and_right
end
procedure go_and_right
go 100
right 90
end