DV Part 2

 BBS: Inland Empire Archive
Date: 08-15-92 (12:47)             Number: 62
From: ZACK JONES                   Refer#: NONE
  To: WILLIAM COBB                  Recvd: NO  
Subj: DV Part 2                      Conf: (2) Quik_Bas

Here's the other program for ya.

'By: Quinn Tyler Jackson
DECLARE SUB qjDVINIT ()
DECLARE FUNCTION qjDVINST% ()

'  QJDV.BAS v1.0 Released into the Public Domain
'  Written by Quinn Tyler Jackson

'$INCLUDE: 'qbx.BI'

DEFINT A-Z

CONST TRUE = -1
CONST FALSE = NOT TRUE

DIM SHARED InRegs AS RegTypeX
DIM SHARED OutRegs AS RegTypeX

' The code that follows is merely a test.  To make this program into
' a support module, you must erase this silly code.

qjDVINIT
CLS
PRINT "Hello, and welcome to QJDV version 1.0"
PRINT

IF qjDVINST THEN
          PRINT "This test is running under DESQView"
          END
ELSE
          PRINT "This test is not running under DESQview...."
          END
END IF
END

SUB qjDVINIT
nul = qjDVINST
END SUB

FUNCTION qjDVINST
SHARED IN.DV
      InRegs.ax = &H2B01
      InRegs.cx = &H4445
      InRegs.dx = &H5351
      CALL InterruptX(&H21, InRegs, OutRegs)
      IF OutRegs.ax MOD 256 <> &HFF THEN
          IN.DV = TRUE
          ELSE IN.DV = FALSE
      END IF
qjDVINST = IN.DV
END FUNCTION

good luck!

Take Care,
Zack Jones

---
 * Origin: Zack's Shack - San Antonio TX (1:387/905.1)