CLEAR
CREATE TABLE Test (bugfield W)
INSERT INTO Test VALUES (FILETOSTR(HOME()+'beautify.app'))
? TYPE('bugfield')   &&& return W
? VARTYPE(bugfield)  &&& return Q

_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst