;nasm
MOV 11 X
MOV 4 Y
;main loop
LBL L
;	process input
	MOV GTK ANS
	JNZ L
;	right?
	SUB 27
	JNZ R
;	up?
	SUB 1
	JNZ U
;	down?
	SUB 10
	JNZ D
;	left?
	SUB 1
	JEZ L
;	left
	MOV X ANS
	SUB 1
	MOV ANS X
	JMP E
;	right
	MOV X ANS
	ADD 1
	MOV ANS X
	JMP E
;	up
	MOV Y ANS
	SUB 1
	MOV ANS Y
	JMP E
;	down
	MOV Y ANS
	ADD 1
	MOV ANS Y
;	draw
	LBL E
	MOV 0 ANS
	CLS
	LOC
JMP L