DRAWING

Heres what I use to check QT :

CLEAR LOCAL MODE
LOCAL FN checkQT
  temp&=FN GESTALT(_"qtim"):' gets the long int about QT
  temp&=FN HIWORD(temp&):' get the version number of this QT
  qtVer$=HEX$(temp&):' get the version number in a HEX$
  qtVer$=LEFT$(qtVer$,2)+"."+RIGHT$(qtVer$,2):' make XX.XX version
  IF LEFT$(qtVer$,1)="0" THEN qtVer$=RIGHT$(qtVer$,LEN(qtVer$)-1):' purge leading 0
  IF RIGHT$(qtVer$,1)="0" THEN qtVer$=LEFT$(qtVer$,LEN(qtVer$)-1):' purge trailing 0
'PRINT "QuickTime Version : ";qtVer$:' let the user know what the version is
  qtVal!=VAL(qtVer$):' figure out what version of QT this is in floating point
  LONG IF qtVal!<2.0:' version before we had the midi manager and stuff?
    canPlay=_False
  XELSE
    canPlay=_True
  END IF
END FN=canPlay