- 注册时间
- 2007-8-16
- 最后登录
- 1970-1-1
|
这是我在风斗里看到的.
10 OPEN "WIND" FOR RANDOMAS#1LEN=2
20 FIELD #1,2ASA$
30 IF LOF(1)=0 THEN 60 ELSE PRINT "完整的安装需要依次执行四个文件!"
40 PRINT "如果您想重新安装,请删除WIND.DAT文件再继续!"
50 GOTO 150
60 PRINT "<风斗>安装程序I","重要事项":S$=INKEY$
70 PRINT "1.确保您的文曲星电量充足!":S$=INKEY$
80 PRINT "2.确保您的文曲星仍有6K的可用空间!":S$=INKEY$
90 PRINT "3.为了避免自动关机,请在安装过程中不时按Q键!":S$=INKEY$
100 PRINT "确定开始安装(Y/N)?";:S$="":WHILE S$<>"y":S$=INKEY$:IF S$="n" THEN END
110 WEND:CLSRINT "正在安装第一部分":BOX 15,19,97,28
120 FOR J=0 TO 80: FOR I=0 TO 9:READ D:RSET A$=MKI$(D)UT #1,J*10+I+1:NEXT
130 LINE J+15,20,J+15,27:NEXT
140 PRINT "请按热键退出,再执行SETUP2.BAS继续安装"
150 WHILE INKEY$<>"!":WEND
麻烦说的具体点,帮助里的说明我根本看不懂.
谢谢大家! |
|