MOVE($xpbs,$ypbs2) waitms(100) LDOWN($xpbs,$ypbs2) waitms(100) LUP($xpbs,$ypbs2) KEYSTRING("RND(100000,999999)", 20) WAITMS (50) KEYDOWN (#ENTER) WAITMS (50) KEYUP (#ENTER)