static { vecsize = 0, vecused = 0, vecspace }
                 
let lamest_newvec(n) be
{ let r = vecspace + vecused;
  if vecused + n > vecsize then
  { outs("\nnewvec: insufficient free memory\n");
    finish }       
  vecused +:= n;   
  resultis r }       

let lamest_freevec(v) be
{ }       
                  
static { newvec = lamest_newvec,
         freevec = lamest_freevec }

let init(v, s) be
{ vecsize := s;
  vecspace := v;  
  vecused := 0 }