TO CONTROL.WITH.ARROWS 
	 LOCAL "KEY
	 MAKE "KEY GETBYTE
; turn 90 degrees with left arrow
	 IF :KEY = 195 THEN SETHEADING HEADING - 90 
; right arrow
	 IF :KEY = 196 THEN SETHEADING HEADING + 90
;up arrow
	 IF :KEY = 193 THEN FORWARD 15
; down arrow
	 IF :KEY = 194 THEN BACK 15
; ENTER key stops
	 IF :KEY = 10 THEN PRINT [NOW USE TYPED COMMANDS] STOP
; return control to keyboard commands
	 CONTROL.WITH.ARROWS
END