(...24/04/96, Bob Sewell le decia a Abelardo Garces...)
  Muy buenas Bob ...Bob?
  oeoeeeeoo! Bob? Ah, es que no te veia bien (-:
 BS> major = val( ltrim$( str$( al )))   'DOS returns major version
 BS>                                     'number of 7 or less.
 BS>                                     'OS/2 gives major DOS
 BS> if major > 19 then                  'version of 20 or higher
 BS>    mtask$ = "OS/2"                  'OS/2 is loaded
 BS> end if
  OS/2 can execute a virtual boot machine with whatever DOS version you want 
(with OS/2 you can run a window with DRDOS v6, next to another one running 
MSDOS 1.25, at least I did it many times), and then this detection scheme 
would not work... some guy noticed this and then inspected how was detected, 
and found this undocumented (?) call in some devices OS/2's DOS devices:
~[is_os2.bas]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~
reg 1,&h4010
call interrupt &h2F
if (reg(1) xor &h10) then
   mtask$="OS/2"
end if
~[end]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~
 BS>                                     'PowerBASIC has a built-in
 BS>                                     'variable that indicates
 BS>                                     'Windows and Desqview
 BS> if bit( pbvHost, 8 ) = 1 then
  Hopefully next version will also detect another host platform.
--
Rafa Gawenda  ClubOS2:267
PGP: BD2D5E31/28982BC8AB3B710-353668A9288C6588
---
---------------