//    Instruction Example :     long database.field.type.get (objectid,long)


        screen.resolution.set (512,384)

        %field=3
        @data = database.load ("dbase.dbf")
        %dat=database.field.Type.get (@data, %field)

        switch (%dat)
          case (DATABASE_CHAR)
            text.display ("The type of the field "+STR (%field)+" is DATABASE_CHAR",CENTER,10)
          case (DATABASE_NUMERIC)
            text.display ("The type of the field "+STR (%field)+" is DATABASE_NUMERIC",CENTER,10)
          case (DATABASE_FLOAT)
            text.display ("The type of the field "+STR (%field)+" is DATABASE_FLOAT",CENTER,10)
          endswitch ()
        text.display ("Press a key to exit.",CENTER,350)
        keyboard.wait ()

        script.stop ()