title "ON�`GOSUB Test"
	screen 0,240,160
	a=-1
	combox a,100,"��\n��\n��"
*main
	bak_a=a:while bak_a=a
	wait 5:wend
	on a gosub *a0,*a1,*a2
	boxf
	goto *main

*a0
	color 0,0,255
	return
*a1
	color 255,0,0
	return
*a2
	color 0,255,0
	return