1 / 221

;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------. ; the main reason that i included this was so you can compile it for your. ; own version of pcboard. --kraze/tk.

fisseha
Download Presentation

;-----------------------------------------------------------------------------

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

  2. ; the main reason that i included this was so you can compile it for your

  3. ; own version of pcboard. --kraze/tk

  4. ;-----------------------------------------------------------------------------;-----------------------------------------------------------------------------

  5. ;declare variables

  6. string act, max, temp, temp2, ack, string, hilite, lolite, thingi

  7. boolean cont

  8. declare procedure status()

  9. declare procedure signature()

  10. ;initialize variables

  11. :init

  12. max = readline (ppepath() + "tk-who.cfg" ,1)

  13. thingi = readline (ppepath() + "tk-who.cfg" ,2)

  14. string = readline (ppepath() + "tk-who.cfg" ,3)

  15. hilite = readline (ppepath() + "tk-who.cfg" ,4)

  16. lolite = readline (ppepath() + "tk-who.cfg" ,5)

  17. inc max

  18. temp = 1

  19. cont = 1

  20. ;start of actual code

  21. cls

  22. dispfile ppepath() + "header." , graph

  23. while (max <> temp) do

  24. rdunet temp

  25. status()

  26. println "@POS:1@" + thingi + "@POS:3@@X07" + temp + "@POS:6@" + thingi + "@X07@POS:8@" + mixed(un_name()) + "@POS:30@" + thingi + "@X07@POS:32@" + mid(un_city(), 1, 21) + "@POS:54@" + thingi + "@X07@POS:56@" + act + "@POS:78@" + thingi

  27. inc temp

  28. endwhile

  29. dispfile ppepath() + "footer." , graph

  30. temp = 1

  31. cont = 1

  32. ack = "LEFT"

  33. while (!(ack == chr(13))) then

  34. if (upper(ack) == "O") then

  35. temp = 1

  36. endif

  37. if (upper(ack) == "I") then

  38. temp = 2

  39. endif

  40. if (upper(ack) == "Q") then

  41. temp = 3

  42. endif

  43. if (ack == "RIGHT") then

  44. inc temp

  45. if (temp > 3) then

  46. temp = 1

  47. endif

  48. endif

  49. if (ack == "LEFT") then

  50. dec temp

More Related