you need keyfon73 to view the source  
DelVar B
DelVar C
DelVar D
DelVar E
DelVar F
DelVar G//Delete all variables for location and direction of sprites
Disp 
DispGraph
ClrDraw
real(20,1,32C,16B,16,16,F,G//Display layer 1(black and gray)
While 1=1//infinite loop
getKeyüA//getkey must be used immediatly before getkey loop
While A=0//run code between While and End until A is not equal to 0
real(20,1,16+32C,16B,16,16,F,G)//Display layer 2(gray)
getKeyüA//Check for press of button
real(20,1,16+32C,16B,16,16,F,G)//Erase layer 2 for flashing gray effect
End//End of loop
real(20,1,32C,16B,16,16,F,G//Erase layer 1
DelVar B//Delete B to prevent bugs
2(A=24)+(A=26)üB//B is 2,1,or 0 depending on key pressed
(A=25)üC//C is 1 or 0 for colomn sprit is in
(A=34)+2(A=26)+(A=25)üD//A is 1,2, or 0 for row of walking sprite
(A=24)+(A=25)üE//1 or 0 for walking sprites in different colomns
real(20,1,32+32E,16D,16,16,F,G//layer1 of walking sprite in old location
real(20,1,48+32E,16D,16,16,F,G
real(20,1,48+32E,16D,16,16,F,G//Flashes layer 2 of walking sprite in old location
real(20,1,32+32E,16D,16,16,F,G//Erase layer 1 of walking sprite
F-(A=24)üF//changes
G-(A=25)üG//location
F+(A=26)üF//of sprite
G+(A=34)üG//based on keypressed (A)
real(20,1,32+32E,16D,16,16,F,G//Dislays layer 1 of walking sprite in new location
real(20,1,48+32E,16D,16,16,F,G//flashes
real(20,1,48+32E,16D,16,16,F,G//layer 2 of walking 
real(20,1,48+32E,16D,16,16,F,G//sprite on
real(20,1,48+32E,16D,16,16,F,G//and off
real(20,1,32+32E,16D,16,16,F,G//erases walking sprite layer 1
real(20,1,32C,16B,16,16,F,G// redraws still sprite layer 1
End// end of infinite loop