SCREEN 12
X=10:Y=10
INC=5

LINE (X,Y)-(X+10,Y+10),14,B	'DRAWS BOX FOR THE FIRST TIME 
DO
	A$=""
	A$=INKEY$
	
	IF A$=CHR$(0)+"K" THEN			'MOVE LEFT
	        LINE (X,Y)-(X+10,Y+10),0,B	'DRAWS BOX,IN BLACK, IN OLD POSITION	
		X=X-INC                         'CHANGE COLOR TO SUIT BACKGROUND! 
	ELSEIF A$=CHR$(0)+"M" THEN		'MOVE RIGHT
	        LINE (X,Y)-(X+10,Y+10),0,B	
		X=X+INC
	ELSEIF A$=CHR$(0)+"H" THEN		'MOVE UP
	        LINE (X,Y)-(X+10,Y+10),0,B	
		Y=Y-INC
        ELSEIF A$=CHR$(0)+"P" THEN
	        LINE (X,Y)-(X+10,Y+10),0,B	'MOVE DOWN	
		Y=Y+INC
        ELSEIF UCASE$(A$)="Q" THEN
		END
	END IF
 LINE (X,Y)-(X+10,Y+10),14,B	'DRAWS BOX IN NEW POSITION

LOOP