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