===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 06-04-93 (21:04)             Number: 34
From: JOHN GALLAS                  Refer#: NONE
  To: BENNETT HENDRY                Recvd: NO  
Subj: Reading Cmos?                  Conf: (35) Quick Basi
---------------------------------------------------------------------------
BH>Does anybody know how you'd read information from the CMOS
BH>to display on screen?  I know you can read CPU type, Memory
BH>configuration, Drives, etc., but I've no idea how, or even
BH>if it's possible in QB.  I imagine it could be done with a
BH>Call Interrupt to get the DOS function for this, but what &
BH>how?

This program doesn't work on my XT, but maybe you'll have better luck
with an AT class computer.

'cmos2dsk.bas - James Vahn
'CMOS save/restore utility

DIM Byte AS STRING * 1
LOCATE , , 1
PRINT "Cmos 2 disk - James Vahn 1:30854/20@fidonet"
PRINT "Would you like to (S)ave or (R)estore your current CMOS data? ";

WHILE a$ = "": a$ = INKEY$: WEND
IF a$ = "s" THEN
        OPEN "\cmos.dat" FOR OUTPUT AS #1
        FOR CMOS = &H0 TO &H3F
        OUT &H70, CMOS
        DByte% = INP(&H71)
        PRINT #1, CHR$(DByte%);
        NEXT: CLOSE 1
        PRINT "Data Saved": END

ELSEIF a$ = "r" THEN
        OPEN "\cmos.dat" FOR BINARY AS #1
        FOR CMOS = 1 TO LOF(1)
        OUT &H70, CMOS - 1
        GET #1, , Byte
        OUT &H71, ASC(Byte)
        NEXT: CLOSE 1
PRINT "Data Restored - please reboot.": END

END IF

 * OLX 2.1 TD * That one was so good, I should've said it!

--- Maximus 2.01wb
 * Origin: Command Line BBS =Mpls. MN= V.32bis [612-788-6685] (1:282/2007)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20