; Procedures with parameters

PROC Stars(BYTE count)
  BYTE i

  FOR i=1 TO count
  DO
    Put('*)
  OD
  PutE()
RETURN

PROC Box(BYTE width, height, CHAR c)
  BYTE x, y

  FOR y=1 TO height
  DO
    FOR x=1 TO width
    DO
      Put(c)
    OD
    PutE()
  OD
RETURN

PROC Change(BYTE value)
  value=99                   ; changes only the copy
RETURN

PROC Main()
  BYTE n

  Stars(5)
  Stars(12)

  n=3
  Stars(n*2)
  PutE()

  Box(8, 3, '#)
  PutE()

  Change(n)
  Print("n is still ")
  PrintBE(n)
RETURN