Use of Procedures with and without parameters Example

PROCEDURE DefaultSquare

 CALL Square(100)

ENDPROCEDURE

PROCEDURE Square(Size: INTEGER)

 FOR Side = 1 TO 4

       MoveForward Size

       Turn 90

 ENDFOR

ENDPROCEDURE

IF Size = Default

 THEN

    CALL DefaultSquare

 ELSE

    CALL Square(Size)

ENDIF