%Include "moose:mouse.inc"
%systemroutinespec run file (%String(255) file)
%systemintegerfnspec freestore
%Begin
   %integer sym,i,prio
   %record(semaphorefm) sem

   %on 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 %start
!      putstring("Main stopping with ");putlong(event_event)
!      putsym(' ');putstring(event_message);putsym(10)
!      %stop
      open output(0, ":T");  select output(0)
      printstring("Main program stopping with ")
      write(event_event, 0);  space
      write(event_sub, 0);    space
      write(event_extra, 0);  space
      printstring(event_message);  newline
      set priority(nil, 0)
      %cycle;  %repeat
   %finish

   setup semaphore (sem)

   open input(0,":t");selectinput(0)
   open output(0,":t");selectoutput(0)

   create logical name ("DEFAULT",":r")
   create logical name ("sysdev",":r")
   create logical name ("bravo","21")
   create logical name ("charlie","27")
   create logical name ("FS_DEFAULT","bravo")

   preload ("lib:scrput.mob")
   preload ("lib:pam.mob")

   run process ("bin:cli.mob",freestore-40960,7)

   semaphore wait (sem)
%End