//    Instruction Example :     objectid database.load (string)


        screen.resolution.set (512,384)

        text.display ("Press a key to exit.",CENTER,350)

        @data = database.load ("dbase.dbf")

        for (%field=1 to database.field.number.get (@data))
          $name=database.field.name.get (@data,%field)


          text.backcolor.select (COLOR_BLUE)
          text.display ($name,%x,%y)

          for (%rec=1 to database.record.number.get (@data))
            text.backcolor.select (128,128,128)

            database.record.set (@data,%rec)
            %y+=10
            switch (database.field.type.get (@data,%field))
            case (DATABASE_CHAR)
              $dat=database.field.get (@data,%field)
              text.display ($dat,%x,%y)

            case (DATABASE_NUMERIC)
              %dat=database.field.get (@data,%field)
              text.display (str(%dat),%x,%y)

            case (DATABASE_FLOAT)
              !dat=database.field.get (@data,%field)
              text.display (str(!dat,"####.####"),%x,%y)

            endswitch ()
          next ()
          %y=0
          %x+=database.field.size.get (@data,%field)*20
        next ()

        keyboard.wait ()

        script.stop ()