'Wait-Prompt 0.96b by Timo Pietil„inen - PowerPoint PPT Presentation

wait prompt 0 96b by timo pietil inen n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
'Wait-Prompt 0.96b by Timo Pietil„inen PowerPoint Presentation
Download Presentation
'Wait-Prompt 0.96b by Timo Pietil„inen

play fullscreen
1 / 198
'Wait-Prompt 0.96b by Timo Pietil„inen
125 Views
Download Presentation
chelsa
Download Presentation

'Wait-Prompt 0.96b by Timo Pietil„inen

- - - - - - - - - - - - - - - - - - - - - - - - - - - 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