标题: 用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
顶