;
; GO.DEF
;
;

BEGIN	leftb, midb, rightb, leftm, rightm, upm, downm, 25, 25

;
; The three buttons
;
leftb:	TYPE ENTER		; select move
midb:	TYPE ENTER		; select move
rightb:	TYPE "1"		; select cursor move

;
; The movements
;
waitm:  MATCH 1,1,,"A",nothing,nothing

leftm:	MATCH 1,1,,"G",lstart,lmove	; Check for G and move left
lstart:  TYPE "1"
lmove:  TYPE "4"

rightm:	MATCH 1,1,,"G",rstart,rmove
rstart:  TYPE "1"
rmove:  TYPE "6"	; Check for G and move right

upm:	MATCH 1,1,,"G",ustart,umove
ustart:  TYPE "1"
umove:  TYPE "8"	; Check for G and move up

downm:	MATCH 1,1,,"G",dstart,dmove
dstart:  TYPE "1"
dmove:  TYPE "2"	; Check for G and move down

nothing: nothing

