Emm part 2

 BBS: Inland Empire Archive
Date: 06-13-92 (15:30)             Number: 106
From: JAMES VAHN                   Refer#: NONE
  To: FRANCOIS ROY                  Recvd: NO  
Subj: Emm part 2                     Conf: (2) Quik_Bas

Since it's raining out I thought I'd give that another go..

'test4ems.bas   Checks for presence of expanded memory
'$INCLUDE: 'qb.bi'
DIM Regs AS RegTypeX

Regs.ax = &H3567
CALL INTERRUPTX(&H21, Regs, Regs)
DEF SEG = Regs.es
 FOR t = &HA TO &H11
  ems$ = ems$ + CHR$(PEEK(t))
 NEXT
IF ems$ <> "EMMXXXX0" THEN PRINT "No ";
PRINT "EMS installed"

This one peeks right into wherever the driver is supposed to be.  By making a
few changes you could check for other drivers too.  The
funny name EMMXXXX0 is found by installing the driver and
with DOS 5.0's MEM/D command.

--- Maximus 2.00
 * Origin: Inland Empire Archive (1:346/10)