keys.bas

来自「smallbasic for linux」· BAS 代码 · 共 15 行

#!/usr/local/bin/sbrun -g
' keys.bas
' 11/02/2001

while 1
	k=inkey
	if len(k)
		if len(k)=2
			? "H/W #"+asc(right(k,1))
		else
			? k
		fi
	fi
wend