'*****************************
' 字符显示,日期时间,函数调用
'*****************************
MAIN:
Cls
Out &H6080,1 '0:standard-size; 1:the small-size
date$="06/09/06"
while 1
screen 1,0
locate 1,1 :print "set and show datetime :";date$;time$
Wend
ERRCOMM:
Cls
Beep 8
'Print "操作错误:"
'Print
'Print "按任意键退出";
'Wait 0,1
'k$=Input$(1)
End
阅读(1059) | 评论(0) | 转发(0) |