f_switch.srf 347 B

12345678910111213141516171819
  1. $PBExportHeader$f_switch.srf
  2. global type f_switch from function_object
  3. end type
  4. forward prototypes
  5. global subroutine f_switch ()
  6. end prototypes
  7. global subroutine f_switch ();Int rslt
  8. IF Trim(sys_option_switchpath) = '' THEN
  9. Run('atudexe9.exe -autoupdateexe')
  10. ELSE
  11. rslt = Run(sys_option_switchpath, Maximized!)
  12. END IF
  13. HALT
  14. end subroutine