getstring.tpl

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

proc getstring:
	local a$(20)
	at 1,5
	while 1
		print "Enter string ('a' to exit)"
		INPUT a$
		print a$
		if a$="a"
			break
		endif
	endwh
endp