begin	tmatch

tmatch: match	4, 1, normal, "ABCD", success, fail

success:	popup	4, 10, bold
		text	"<-- string : ABCD appears on this line --9"
		text	"                                         |"
		text	"7----------------------------------------6"
		text	"| CLEAR SCREEN                           |"
		text	"1----------------------------------------3"
		select	4, 3, 12, cls
		pend

fail:		popup	4, 10, normal
		text	"<-- string : ABCD doesn't appear on this line --9"
		text	"                                                |"
		text	"7-----------------------------------------------6"
		text	"| GET ABCD TO APPEAR                            |"
		text	"1-----------------------------------------------3"
		select	4, 3, 18, gets
		pend

cls:		type	"cls", enter
gets:		type	"cls", enter, "echo ABCD", enter
cans:		nothing



