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 顶