'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -What Is
'
Screen Open 0,640,256,16,$8000
Curs Off : Flash Off : Cls 0
'
Do 
   A$=Fsel$("")
   Open In 1,A$ : L=Lof(1) : Close 1
   Reserve As Work 10,L
   ST10=Start(10)
   Bload A$,ST10
   '
   E=What Is(ST10)
   '
   If E=-1
      Print 'Fichier inconnu'
   Else 
      Print Peek$(Varptr(E),4)
   End If 
Loop