getter.tpl

来自「在手机操作系统symbina上使用的一个脚本扩展语言的代码实现,可以参考用于自己」· TPL 代码 · 共 13 行

proc getter:
	local a%
	at 1,5
	while 1
		print "Press any key (C to exit)"  
		a%=GET
		print "0x";HEX$(a%)
		if a%=8
			break
		endif
	endwh
endp