TOP:
Mx=0
CLS
DIM MenuTxt$(4)
MenuTxt$(0) = "CMOS Tools 6.00"
MenuTxt$(1) = " 1. 读出 CMOS "
MenuTxt$(2) = " 2. 写入 CMOS "
MenuTxt$(3) = " 3. 显示 CMOS "
MenuTxt$(4) = " 4. 退出 CMOS "
COLOR 4
LOCATE 3, 5: PRINT MenuTxt$(i)
COLOR 7
FOR i = 1 TO 4
LOCATE 3 + i, 6: PRINT MenuTxt$(i)
NEXT i
Mx = 1
MxOld = Mx
COLOR 0, 7
LOCATE 3 + Mx, 6: PRINT MenuTxt$(1)
DO
WHILE k$ = "": k$ = INKEY$: WEND
IF k$ = CHR$(0) + "P" THEN Mx = Mx + 1
IF k$ = CHR$(0) + "H" THEN Mx = Mx - 1
IF k$ = CHR$(13) THEN EXIT DO
IF Mx > 4 THEN Mx = 1
IF Mx < 1 THEN Mx = 4
COLOR 7, 0
LOCATE 3 + MxOld, 6: PRINT MenuTxt$(MxOld)
COLOR 0, 7
LOCATE 3 + Mx, 6: PRINT MenuTxt$(Mx)
MxOld = Mx: k$ = ""
LOOP
COLOR 7, 0
LOCATE 9, 5
SELECT CASE Mx
CASE 1
INPUT "文件名:", filename$
IF filename$ = "" THEN GOTO TOP
OPEN filename$ FOR RANDOM AS #1 LEN = 1
FIELD 1, 1 AS A$
FOR I = 1 TO 128
OUT 112, I - 1
B = INP(113)
LSET A$ = CHR$(B)
PUT 1, I
NEXT
CLOSE #1
COLOR 10,0
LOCATE 9, 5
PRINT "读出 CMOS 到 "; filename$; " 成功!"
filename$ = ""
WHILE INKEY$="" : WEND
COLOR 7,0
CASE 2
INPUT "文件名:", filename$
IF filename$ = "" THEN GOTO TOP
OPEN filename$ FOR RANDOM AS #1 LEN = 1
IF LOF(1) <> 128 THEN GOTO ERRORS
FIELD 1, 1 AS A$
FOR I = 17 TO 128
GET 1, I
OUT 112, I - 1
B = ASC(A$)
OUT 113, B
NEXT
CLOSE #1
COLOR 10,0
LOCATE 9, 5
PRINT "从 "; filename$; " 写入 CMOS 成功!"
filename$ = ""
WHILE INKEY$="" : WEND
COLOR 7,0
CASE 3
LOCATE 9, 5
FOR I = 1 TO 128
OUT 112, I - 1
B = INP(113)
C$ = HEX$(B)
IF B < 16 THEN C$ = "0" + C$
PRINT C$; "";
IF INT(I / 16) = I / 16 THEN
PRINT
LOCATE I \ 16 + 9, 5
END IF
NEXT
COLOR 10,0
LOCATE 17, 5
PRINT "显示 CMOS 成功!"
WHILE INKEY$="" : WEND
CASE 4
END SELECT
COLOR 7
END
ERRORS:
COLOR 12,0
LOCATE 10, 5
PRINT "从 "; filename$; " 写入 CMOS 失败!"
BEEP
filename$ = ""
CLOSE #1
COLOR 7,0
WHILE INKEY$="" : WEND
END