initevents

loop:
 if #charposy = 596
 {
  msg back$
  wait 50
 }
 if #charposy = 695
 {
  msg slow forward$
  wait 50
 }
 goto loop