size% = 12345
      PROCstack(size%)
      END

      DEF PROCstack(s%)
      LOCAL mem%
      DIM mem% LOCAL s%-1
      PRINT ; s% " bytes of stack allocated at " ; mem%
      ENDPROC