1 / 131

;So-Long.ppe

;So-Long.ppe. ;Version 1.0. ;Francis "gorilla" Amato. ;Fido: 1:2619/222. ;Variables and such. integer count. string key, prompt, prompt2. prompt =" @X0FESC to stay on, ENTER to log-off immediately ". count = 1. ;There are the following choices. ;1) Press ESC to stay on-line.

hiero
Download Presentation

;So-Long.ppe

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;So-Long.ppe

  2. ;Version 1.0

  3. ;Francis "gorilla" Amato

  4. ;Fido: 1:2619/222

  5. ;Variables and such

  6. integer count

  7. string key, prompt, prompt2

  8. prompt =" @X0FESC to stay on, ENTER to log-off immediately "

  9. count = 1

  10. ;There are the following choices

  11. ;1) Press ESC to stay on-line

  12. ;2) Press Enter to leave immediately

  13. ;3) Do nothing and allow countdown and logoff

  14. ;Countine looping till COUNT=10

  15. while (count < 10) do

  16. key = inkey()

  17. ;If key = ENTER

  18. if (key = chr(13)) goto tata

  19. ;If key = ESC • if (key = chr(27)) goto OK

  20. :clear an area of the screen to display the countoff

  21. ansipos 1,15

  22. clreol

  23. ansipos 1,16

  24. clreol

  25. ansipos 1,17

  26. clreol

  27. ansipos 1,18

  28. clreol

  29. ansipos 1,19

  30. clreol

  31. ansipos 1,19

  32. clreol

  33. ansipos 1,21

  34. clreol

  35. ansipos 1,22

  36. clreol

  37. ansipos 1, 20

  38. clreol

  39. ansipos 15,20

  40. println "",prompt

  41. ;Where to go when the Count = X • if (count=1) gosub one • if (count=2) gosub two • if (count=3) gosub three • if (count=4) gosub four • if (count=5) gosub five • if (count=6) gosub six • if (count=7) gosub seven

  42. ;This is mildly interesting. After displaying the "7" number, it

  43. ;gives a PRESS ENTER TO CONTINUE prompt. The easist way to fix it was

  44. ;to stuff an enter command into the buffer. The "press to continue" prompt

  45. ;might be only on my system and not yours. U may need to remove or relocate

  46. ;the following command • command chr(13), false • if (count=8) gosub eight • if (count=9) gosub nine

  47. ;18 clockticks is about a second

  48. delay 18

  49. ;Add 1 to the count

  50. inc count

More Related