Guest User

Untitled

a guest
Jul 17th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. :ClrHome
  2. :5->A:5->B:1->W
  3. :While W
  4. :Output(A,B,"^
  5. :getKey->K
  6. :If K=24 or K=25 or K=26 or K=34
  7. :Then
  8. :A-(K=25)(A>1)+(K=34)(A<8->A
  9. :B-(K=24)(B>1)+(K=26)(B<16->B
  10. :Output(A,B,"(space)
  11. :End
  12. :End
Add Comment
Please, Sign In to add comment