字符显示,日期时间,函数调用

'*****************************
' 字符显示,日期时间,函数调用
'*****************************
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