, DBF- Zoo_data.dbf Prizn.dbf "" ( xBase ):

********************************************************************************

*** ,

*** DBF-Excel- UCI

*** http://ftp.ics.uci.edu/pub/machine-learning-databases/zoo/zoo.names

*** .., 10/18/04 01:19pm *********************************************

scr23 = SAVESCREEN(0,0,24,79)

SET CURSOR OFF

SET DATE ITALIAN

SET DECIMALS TO 15

SET ESCAPE On

FOR J=0 TO 24

@J,0 SAY REPLICATE(" ",80) COLOR "rg+/N"

NEXT

SHOWTIME(0,60,.F.,"rg+/n",.F.,.F.)

Mess = " === ˠ === "

@2,40-LEN(Mess)/2 SAY Mess COLOR "rg+/rb"

Vid = "Y"

@17, 6 SAY " <Y/N>? #" COLOR "w+/rb"

* 0123456789012345678901234567890123456789012345678901234567890123456789012345678

* 0 10 20 30 40 50 60 70

@17,72 GET Vid PICTURE "X" COLOR "rg+/r"

SET CURSOR ON;READ;SET CURSOR OFF

IF Vid <> "Y" .AND. Vid <> "N"

Vid = "N"

ENDIF

USE Object EXCLUSIVE NEW;ZAP

USE Zoo_data EXCLUSIVE NEW

ArObj := {}

AADD(ArObj,"Š ")

AADD(ArObj,"۠ ")

AADD(ArObj,"?")

AADD(ArObj,"۠ ")

AADD(ArObj,"Š ")

AADD(ArObj,"Š ")

AADD(ArObj,"Š ")

SELECT Zoo_data

DBGOTOP()

DO WHILE .NOT. EOF()

AADD(ArObj,FIELDGET(2))

DBSKIP(1)

ENDDO

SELECT Object

DBGOTOP()

FOR j=1 TO LEN(ArObj)

APPEND BLANK