SYSTEM

Thanks to mel patrick and robert price for the help on gestatlt...

This is what I have come up with.

Is it safe to assume that the gestalt trap is active, if system 8.6 is installed?

CLEAR LOCAL
LOCAL FN startOK%
  DIM okToStart%, sysVersion%, big$, med$, sma$, myGestaltResult&
  DIM myGestaltResult$, sysVersion$, CompressorNumber%

  sysVersion%   = SYSTEM(_sysVers)
  gSysVersion%  = sysVersion%
  DEFSTR WORD
  sysVersion$   = STR$(sysVersion%)
  big$          = MID$(SysVersion$, 2,1)
  med$          = MID$(SysVersion$, 3,1)
  'sma$          = MID$(SysVersion$, 4,1)
  SysVersion$   = "System " + big$ + "." + med$   '+ "." + sma$
  gSysVersion$  = SysVersion$
  LONG IF gSysVersion% => 860
    okToStart% = okToStart% + 1
  XELSE
    okToStart% = _badSysVersion
  END IF

  LONG IF okToStart% = 1
    DEFSTR LONG
    myGestaltResult& = FN GESTALT(_"qtim")
    myGestaltResult$ = HEX$(myGestaltResult&)
    big$          = MID$(myGestaltResult$, 2,1)
    med$          = MID$(myGestaltResult$, 3,1)
    'sma$          = MID$(myGestaltResult$, 4,1)
    gQTversion$   = "QuickTime " + big$ + "." + med$' + "." + sma$
    LONG IF myGestaltResult& => &04008000
      okToStart% = okToStart% + 1
    XELSE
      okToStart% = _badQTVersion
    END IF
  END IF

  LONG IF okToStart% = 2
    CompressorNumber% = FN GetCompressorNumber(_"jpeg",32)
    LONG IF CompressorNumber% <> 0
      okToStart% = okToStart% + 1
    XELSE
      okToStart% = _badCompressorNumber
    END IF
  END IF

  LONG IF okToStart% = 3
    okToStart% = _true
  END IF

END FN = okToStart%