%begin; !Setup
%string(255)file

%predicate you have opened(%string(255)s)
  %onevent 3,4,9 %start
    %false
  %finish
  openinput(0,s)
  selectinput(0)
  %true
%end

  file = cliparam
  %unless file="" %start
    file = file.":" %unless charno(file,length(file))=':'
  %finish
  file = file."setup"
  %unless you have opened(file.".com") %start
    %if you have opened(file.".mob") %start
      printstring("Someone should rename ".file.".MOB to ".file.".COM sometime.")
      newline
    %else
      printstring(event_message)
      newline
    %finish
  %finish

%endofprogram