1 / 221

Customizing PCBoard: Your Guide to Configuration and Code Implementation

This guide provides a detailed breakdown of how to create your own version of PCBoard, a popular bulletin board system. You'll learn how to declare variables, initialize settings, and implement procedures using the given code snippets. Follow the steps to modify configuration files and customize user interaction features. With clear examples and explanations, you can easily adapt the code to meet your specific needs and improve your PCBoard experience.

fisseha
Télécharger la présentation

Customizing PCBoard: Your Guide to Configuration and Code Implementation

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