'***********************************
' 获取键盘制---最简单的bht-basic 程序
'************************************
k$=""
while 1
k$=Input$(1)
For i%=1 To 100
If k$=CHR$(i%) Then
s$=STR$(i%)
End If
Next i%
screen 1,1
locate 1,1 :print s$
Wend
阅读(1298) | 评论(2) | 转发(0) |
