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
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
