'===========================================================================
' Subject: CMOS SAVE/RESTORE UTILITY         Date: Unknown Date           
' Author:  James Vahn                        Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: DISK.ABC
'===========================================================================
'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