While 1
Repeat Ans
getKey
End
Ans->K
Pxl-Change(J,M
End
M-(K=35)+(K=25)->M
J-(K=24)+(K=26)->J
Pxl-Change(J,M
End