标题: 用QB4。5保存恢复CMOS [打印本页]

---

作者: qb45     时间: 2003-9-16 00:00    标题: 用QB4。5保存恢复CMOS

INPUT "file name =  "; file$
INPUT "SELECT 1 =SAVE ，2=LOAD"; S
OPEN file$ FOR BINARY AS #1
d$ = "1"
SELECT CASE s
       CASE 1 'SAVE CMOS
        FOR i = 9 TO 128
           OUT &H70, i
           d = INP(&H71)
           d$ = CHR$(d)
           PUT #1, i, d$
        NEXT i
        PRINT file$; "ok!!"
       CASE 2 'load cmos
         FOR i = 9 TO 128
            GET #1, i, d$
            d = ASC(d$)
            OUT &H70, i
            OUT &H71, d
         NEXT i
SELECT END
CLOSE
END

---

作者: iceboy     时间: 2003-10-4 00:00
好程序，顶一下

---

作者: cn_archer     时间: 2003-10-4 00:00
我来支持一下！

---

作者: lemonhall     时间: 2003-10-4 00:00
顶