%include "SysDep.Inc"

%begin
   %record(buffer fm)%name b
   %string(127) file
      b == new(b)
      prompt("File: ");  read(file)
      printstring("About to call Load Buffer");  newline
      load buffer(b, file)
      printstring("Back from Load Buffer");  newline
%end %of %program
