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