1 / 339

;woe download prompt v1.O - coded by eini

;woe download prompt v1.O - coded by eini. ;. ;You are allowed to change this program as long as you leave my name in it. ;updates may be sent to me because i won't keep coding on this. ;i know.. code looks ugly^M.

prentice
Télécharger la présentation

;woe download prompt v1.O - coded by eini

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

More Related