KbdFlush () - PowerPoint PPT Presentation

kbdflush n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
KbdFlush () PowerPoint Presentation
Download Presentation
KbdFlush ()

play fullscreen
1 / 169
KbdFlush ()
188 Views
Download Presentation
fairly
Download Presentation

KbdFlush ()

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. KbdFlush ()

  2. INTEGER ABC,X,Y,A,B,I,LENGTH

  3. LET X = GetX()

  4. LET Y = GetY()

  5. ABC = RANDOM(2)

  6. SELECT CASE (ABC)

  7. CASE 0

  8. GOTO A

  9. CASE 1

  10. GOTO B

  11. CASE 2

  12. GOTO C

  13. END SELECT

  14. :A

  15. STRING t(12)

  16. INTEGER ab

  17. t(1) = "@X0F¨@X07D@X08o@X00 @X80u SLeeP?"

  18. t(2) = "@X07¨@X0FD@X07o@X08 @X00@X80u@X00 SLeeP?"

  19. t(3) = "@X08¨@X07D@X0Fo@X07 @X08u@X00@X80 SLeeP?"

  20. t(4) = "@X00@X80¨@X08D@X07o@X0F @X07u@X08 @X00@X80SLeeP?"

  21. t(5) = "@X00@X80¨D@X08o@X07 @X0Fu@X07 @X08S@X00@X80LeeP?"

  22. t(6) = "@X00@X80¨Do@X08 @X07u@X0F @X07S@X08L@X00@X80eeP?"

  23. t(7) = "@X00@X80¨Do @X08u@X07 @X0FS@X07L@X08e@X00@X80eP?"

  24. t(8) = "@X00@X80¨Do u@X08 @X07S@X0FL@X07e@X08e@X00@X80P?"

  25. t(9) = "@X00@X80¨Do u @X08S@X07L@X0Fe@X07e@X08P@X80@X00?"

  26. t(10)= "@X00@X80¨Do u S@X08L@X07e@X0Fe@X07P@X08?"

  27. t(11)= "@X00@X08@X80¨Do u SL@X08e@X07e@X0FP@X07?"

  28. t(12)= "@X80¨Do u SLe@X08e@X07P@X0F?"

  29. WHILE (1) DO

  30. IF (InKey() = CHR(13)) GOTO Ende

  31. FOR ab=1 TO 12

  32. IF (InKey() = CHR(13)) GOTO Ende

  33. AnsiPos 35,y

  34. Print t(ab)

  35. AnsiPos 81,26

  36. Delay 2

  37. NEXT

  38. FOR ab=11 TO 2 STEP -1

  39. IF (InKey() = CHR(13)) GOTO Ende

  40. AnsiPos 35,y

  41. Print t(ab)

  42. AnsiPos 81,26

  43. Delay 2

  44. NEXT

  45. ENDWHILE

  46. :B

  47. STRING Tb(16)

  48. Tb(0) ="CL­Má THà îïTîR"