%include "Inc:FS.Imp"

%begin
   %string(255) new directory
   %integer n
      %on 3, 9 %start
         %if event_event = 3 %start
            printstring("CreDir fails: ")
            printstring(event_message)
         %finish
         newline
         %stop
      %finish
      new directory = CLI param
      %if new directory = "" %start
         prompt("New directory: ")
         read(new directory)
      %finish
      n = fcomm('V' << 8, new directory)
%end %of %program
