Lbl 1 ClrTxt Getkey->A Locate 3,3,"GETKEY=" Locate 11,3,A Goto 1