%include "FSysAcc.Inc"
%include "Dir.Inc"

%externalroutinespec fsys initialise

%begin
   %string(31) name = "BootArea"
   %integer status
      fsys initialise
      status = directory insert ID(nil, 16_41010002, name, 16_04000000)
      printstring("Insert BootArea status ")
      write(status, 0);  newline
%end %of %program