Function:   ROMscan()

               This function will scan your computer's startup
               ROM-BIOS area for some specific string. It can
               be handy to test for a specific type of
               computer your application is running on. The area
               scanned for is the Area FE00:000 thru FFFF:000F.
               The Scanning is done completely is Assmbly, and thus
               very fast (instantanious in fact).

               The Match string you can use might be some
               specific string or brand name which you see on the
               screen when the computer is starting up. You may
               want to experiment a bit to find a string that suits
               you. Note also that the Match string must be
               specific enough. Scanning for IBM on my machine
               returned .t., although I ran it on a clone....
               Somewhere in the ROM, it says that the computer
               is an IBM compatible..., and ROMscan() matched!

   Syntax:     ROMscan(cMatch)

   Arguments:  cMatch is the string to scan for.
               Case is significant!

   Returns:    A logical, .t. if there is a match.

   Usage:      * - Look if we're on a Compaq allright..
               if .not. ROMscan('COMPAQ')
                    ? "I'm so sorry.., but I have been advised only to"
                    ? "run on COMPAQ computers... Bye!"
                    QUIT
               endif