Lbl 0:ClrText 
Getkey->A 
Locate 9,4,A 
Goto 0