中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS开发编程 & 发展交流 （开发室） » 用QB4。5保存恢复CMOS
作者:
标题: 用QB4。5保存恢复CMOS 上一主题 | 下一主题
qb45
高级用户




积分 677
发帖 194
注册 2003-9-13
状态 离线
『楼 主』:  用QB4。5保存恢复CMOS 使用 LLM 解释/回答一下

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




我(QB45)的照片与简历
http://www.programfan.com/club/showbbs.asp?id=197280
2003-9-16 00:00
查看资料  发送邮件  发短消息  网志  OICQ (406930019)  编辑帖子  回复  引用回复
iceboy
银牌会员




积分 1681
发帖 512
注册 2003-8-2
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

好程序，顶一下




Somehow somewhere I've got to choose.
No matter if it is win or lose.
2003-10-4 00:00
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
cn_archer
元老会员

农民


积分 2903
发帖 991
注册 2003-7-23
来自 福建省
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

我来支持一下！




艰难奋长戟，万古用一夫

中国DOS联盟 http://www.cn-dos.net 欢迎大家来共同学习
我的MSN&E-Mail cn_archer@hotmail.com QQ 56049418
2003-10-4 00:00
查看资料  发送邮件  发短消息  网志  OICQ (56049418)  编辑帖子  回复  引用回复
lemonhall
高级用户

OS/2女孩


积分 639
发帖 183
注册 2003-6-14
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

顶




REM 喜欢DOS，因为它的简单
REM 喜欢OS/2，因为它不再矫饰
REM 喜欢BASIC，因为它并不幼稚
REM 喜欢GNU，因为它杂乱无章
2003-10-4 00:00
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (313813)  编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023