In a deposition submitted under oath, Abelardo Garces said:
AG> I search a method for detect DesqView and others populars multitask if
AG> present.
AG> I use POWER BASIC and QUICK BASIC 4.5
Implementing the following in QB would need changes, but
will work "as is" in PowerBASIC 3.x. Here's the code:
'Check for Multi-tasker presence
mtask$ = "" 'default to no multi-tasker
reg 1, &h3000 'first, use DOS call for DOS version
call interrupt &h21
ax = reg( 1 )
al = ax mod 256
ah = ax \ 256
major = val( ltrim$( str$( al ))) 'DOS returns major version
'number of 7 or less.
'OS/2 gives major DOS
if major > 19 then 'version of 20 or higher
mtask$ = "OS/2" 'OS/2 is loaded
end if
'PowerBASIC has a built-in
'variable that indicates
'Windows and Desqview
if bit( pbvHost, 8 ) = 1 then
mtask$ = "Windows" 'Windows 3.1 or greater is loaded
end if
if bit( pbvHost, 7 ) = 1 then
mtask$ = "Desqview" 'Deskview is loaded
end if
... Is fearr go mall n go br ch!
--- PPoint 1.96
---------------
* Origin: Seven Wells On-Line * Nashville, TN (1:116/3000.12)
|