Advertisement
invisibowl

xLIBC key-screen mapping (CSE)

Mar 15th, 2015
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. ClrHome
  2. SetUpEditor |LFRNP
  3. real(0,1,1
  4. 1->A:1->B:1->R:1->C
  5. Repeat K=21
  6. getKey->K
  7. checkTmr(D->E
  8. If E>0:Then
  9. ~1->E
  10. ClrHome
  11. End
  12. If K:Then
  13. 20(iPart(.1K)-3->A
  14. (32(10fPart(.1K)))-16->B
  15. If E!=~1:Then
  16. real(7,6,C,R,B,A,1
  17. real(7,6,C,R,B,A,1
  18. A->R:B->C
  19. Else
  20. A->R:B->C
  21. real(7,6,C,R,B,A,1
  22. real(7,6,C,R,B,A,1
  23. End
  24. If E<0
  25. startTmr->D
  26. End
  27. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement