1 / 198

'Wait-Prompt 0.96b by Timo Pietil„inen

'Wait-Prompt 0.96b by Timo Pietil„inen. 'úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú. INTEGER abc(80),num,x,y,ypos,z,c,time,mem(80),a,h,r. STRING prompt,bcol,bstart,bend,keypress,b. :check. LET keypress = PPEPATH() + "WAIT.CFG". IF (EXIST(keypress)) GOTO config.

chelsa
Download Presentation

'Wait-Prompt 0.96b by Timo Pietil„inen

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. 'Wait-Prompt 0.96b by Timo Pietil„inen

  2. 'úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú'úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú

  3. INTEGER abc(80),num,x,y,ypos,z,c,time,mem(80),a,h,r

  4. STRING prompt,bcol,bstart,bend,keypress,b

  5. :check

  6. LET keypress = PPEPATH() + "WAIT.CFG"

  7. IF (EXIST(keypress)) GOTO config

  8. PRINT "@X8FYou nuthead! Your WAIT.CFG file is missing!!!"

  9. DELAY 36

  10. GOTO quit

  11. :config

  12. FOPEN 1, PPEPATH() + "WAIT.CFG",O_RD,S_DB

  13. FGET 1,prompt

  14. FGET 1,bcol

  15. FGET 1,bstart

  16. FGET 1,bend

  17. FGET 1,time

  18. FCLOSE 1

  19. LET abc(1) = ASC(prompt)

  20. LET num = LEN(prompt)

  21. FOR x = 1 to num

  22. LET abc(x+1) = ASC(RIGHT(prompt,num-x))

  23. NEXT x

  24. LET ypos = GETY()

  25. COLOR bcol

  26. ANSIPOS 1,ypos

  27. PRINT bstart

  28. ANSIPOS num+2,ypos

  29. PRINT bend

  30. LET z = num / num

  31. LET c = 1

  32. LET x = 1

  33. LET a = 1

  34. LET r = num

  35. LET y = 0

  36. LET keypress = ""

  37. :rndgen

  38. LET y = RANDOM(3)+1

  39. IF (y = 1) GOTO rubberscroll

  40. IF (y = 2) GOTO linescroll

  41. IF (y = 3) GOTO mirrorscroll

  42. IF (y = 4) GOTO capscroll

  43. GOTO rndgen

  44. :rubberscroll

  45. WHILE (keypress <> CHR(13)) DO

More Related