OPENCONSOLE
PRINT "Press Q to quit"
DO: UNTIL INKEY$ = "Q"
CLOSECONSOLE
END

SUB MySubB()
	? "B"
	RETURN
ENDSUB

SUB MySubC()
	? "C"
	RETURN
ENDSUB