[B
  
  /StoMan Create:StorageObjectManager def
  
  /ScriptID
    'Remove_Application.stx' 'r' StoMan.GetObject
  def
  ScriptID StoMan.Read
  ScriptID StoMan.GetData /Main get exec
  
  
   [B
     InitPackInst [B
       InstallProc
     ] if
   ] [B
     /Msg get 'E' 'A' msgdlg
   ] tryexcept
  
   PackInst:Exit
  
]