woe download prompt v1 o coded by eini n.
Skip this Video
Loading SlideShow in 5 Seconds..
;woe download prompt v1.O - coded by eini PowerPoint Presentation
Download Presentation
;woe download prompt v1.O - coded by eini

Loading in 2 Seconds...

  share
play fullscreen
1 / 339
Download Presentation

;woe download prompt v1.O - coded by eini - PowerPoint PPT Presentation

prentice
127 Views
Download Presentation

;woe download prompt v1.O - coded by eini

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

  1. ;woe download prompt v1.O - coded by eini

  2. ;

  3. ;You are allowed to change this program as long as you leave my name in it

  4. ;updates may be sent to me because i won't keep coding on this...

  5. ;i know.. code looks ugly^M

  6. string SelectedColor, UnSelectedColor, Yes, No, Question, key, pcbdir, something

  7. string File(200), FileColor, NumberColor, DotColor, Change, DeleteQuestion

  8. string RUSure, DelFileNumber, FileExtra(200), a, KeepFilesQuestion, by, Dot

  9. string MaxDLFiles, EnterAfterCont, EnterAfterDLFiles, EnterAfterEdit, MaxViewFiles

  10. string Del, Add, DelOrAdd, Protocol, AddfileQuestion, AddThis, GoodbyeAfterDl

  11. string WaitYN

  12. int Y, X, J, k, l, i

  13. ;-------------READ CONFIGURATION---------------

  14. fopen 1, ppepath() + "\downlst.cfg", 0, 0

  15. fget 1, SelectedColor

  16. fget 1, UnSelectedColor

  17. fget 1, Yes

  18. fget 1, No

  19. fget 1, Change

  20. fget 1, Question

  21. fget 1, pcbdir

  22. fget 1, NumberColor

  23. fget 1, DotColor

  24. fget 1, Dot

  25. fget 1, FileColor

  26. fget 1, DeleteQuestion

  27. fget 1, RUSure

  28. fget 1, EnterAfterEdit

  29. fget 1, MaxViewFiles

  30. fget 1, DelOrAdd

  31. fget 1, Del

  32. fget 1, Add

  33. fget 1, Protocol

  34. fget 1, GoodbyeAfterDl

  35. fget 1, AddFileQuestion

  36. fget 1, WaitYN

  37. fclose 1

  38. ;-----------------------------------------------

  39. if (upper(WaitYN) = "Y") wait

  40. ;-----------------------------------------------

  41. ;Pubs

  42. cls

  43. by = "woe download prompt - coded by eini"

  44. ansipos (80 - Len(By)) / 2, 11

  45. delay 2

  46. PrintLn "@X08" + By

  47. ansipos (80 - Len(By)) / 2, 11

  48. delay 2

  49. PrintLn "@X07" + By

  50. ansipos (80 - Len(By)) / 2, 11