主题：如何在QBASIC中使用中文
ambitionboy
[专家分：0] 发布于 2005-04-29 11:51:00
我下载了UCDOS7.33，但是怎样使用呢。
回复列表 （共7个回复）
沙发
kingte159 [专家分：0] 发布于 2005-04-29 13:01:00
在MS-DOS下只要输入ptdos95.exe就好了~
板凳
moz [专家分：37620] 发布于 2005-04-29 13:55:00
在2000和XP系统下
建立一个处理文件放在桌面上
（当然了，随便你放不放，只是方便找到而已）
文件名悉随尊便，直接改ucdos.bat也行，我的就是
ECHO OFF
PATH e:\ucdos;e:\moz\QB71;%SystemRoot%\system32\ (看你的具体情况用喽)
e:\ucdos\rd16 %1 （读入显示字库）最好用绝对路径
e:\ucdos\knl %2 （控制台）
e:\ucdos\rdfnt （打印字库）
e:\ucdos\py （拼音输入法）
e:\ucdos\limd my.imd （嘻嘻，我把wb.imd复制更改后存的）
command （DOS SHELL)命令系统，也可以改成e:\...\qbx
你的ucdos在哪个目录该知道怎样改吧？
只是用QB和EDIT退出的时候经常出错花屏的，
搞不清楚是哪个地方出问题
估计是内存不太兼容吧
3 楼
yxtk2005 [专家分：50] 发布于 2005-04-29 19:59:00
1、将ucdos所有文件放在c:\ucdos目录里，把qbasic.exe qbasic.hlp文件也放在里面。
2、开始-运行-cmd-进入dos状态。
3、输入cd\ucdos回车（Enter）, 输入ucdos(enter)输入qbasic（enter)
4、按Alt键+F2键进入智能拼音，ALT+F6进入英文状态等。
4 楼
moz [专家分：37620] 发布于 2005-04-29 22:30:00
楼上的方法估计会有百分之四十成功
5 楼
litboat [专家分：140] 发布于 2005-05-02 10:56:00
给个例子
SCREEN 12
FOR i = 1 TO 52
READ a, b
PSET (a + 230, b + 250)
NEXT
DATA 2,6,3,6,4,6,5,6,6,1,6,2,6,3,6,4,6,5,6,6,6,7,6,8,6,9,6,10,6,11,6,12
DATA 6,13,6,14,6,15,6,16,4,13,5,13,3,14,2,14,1,14,2,15,10,1,10,2,10,3
DATA 10,4,10,5,10,6,10,7,10,8,10,9,10,10,10,11,10,12,10,13,10,14
DATA 11,15,12,15,13,15,14,15,15,15,15,12,15,13,15,14,14,5,13,6,12,6,11,7
FOR i = 1 TO 60
READ a, b
PSET (a + 280, b + 250)
NEXT
DATA 7,1,8,2,14,2,1,3,2,3,3,3,4,3,5,3,6,3,7,3,8,3,9,3,10,3,11,3,12,3,13,3
DATA 14,3,15,3,4,6,5,6,6,6,7,6,8,6,9,6,10,6,11,6,12,6,4,10,5,10,6,10,7,10
DATA 8,10,9,10,11,10,10,10,12,10,4,7,4,8,4,9,12,7,12,8,12,9
DATA 8,11,8,12,8,13,8,14,8,15,7,16,6,15,5,12,5,13,4,13,3,14,2,15
DATA 11,12,12,13,13,14,14,15,13,13,14,14
6 楼
ambitionboy [专家分：0] 发布于 2005-05-07 19:51:00
非常感谢楼主的指导，但是问题还是没有解决，上面的建议在我的系统上面没有效果，我也不知道是怎么回事，请高手在详细指导一下吧。
7 楼
def [专家分：3380] 发布于 2005-05-07 22:30:00
SCREEN 12
FOR i = 1 TO 52
READ a, b
PSET (a + 230, b + 250)
NEXT
DATA 2,6,3,6,4,6,5,6,6,1,6,2,6,3,6,4,6,5,6,6,6,7,6,8,6,9,6,10,6,11,6,12
DATA 6,13,6,14,6,15,6,16,4,13,5,13,3,14,2,14,1,14,2,15,10,1,10,2,10,3
DATA 10,4,10,5,10,6,10,7,10,8,10,9,10,10,10,11,10,12,10,13,10,14
DATA 11,15,12,15,13,15,14,15,15,15,15,12,15,13,15,14,14,5,13,6,12,6,11,7
FOR i = 1 TO 60
READ a, b
PSET (a + 280, b + 250)
NEXT
DATA 7,1,8,2,14,2,1,3,2,3,3,3,4,3,5,3,6,3,7,3,8,3,9,3,10,3,11,3,12,3,13,3
DATA 14,3,15,3,4,6,5,6,6,6,7,6,8,6,9,6,10,6,11,6,12,6,4,10,5,10,6,10,7,10
DATA 8,10,9,10,11,10,10,10,12,10,4,7,4,8,4,9,12,7,12,8,12,9
DATA 8,11,8,12,8,13,8,14,8,15,7,16,6,15,5,12,5,13,4,13,3,14,2,15
DATA 11,12,12,13,13,14,14,15,13,13,14,14
我来回复
您所在位置：