1 / 209

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

;-----------------------------. ;. ; extended conf-join by X-con. ;. ; VERSION 1.10. ;-----------------------------. ;-----------------------------. ; global variable dec. ;-----------------------------. string confdesc(50), conf(10).

calum
Télécharger la présentation

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

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

  3. ; extended conf-join by X-con

  4. ;

  5. ; VERSION 1.10

  6. ;-----------------------------

  7. ;-----------------------------

  8. ; global variable dec

  9. ;-----------------------------

  10. string confdesc(50), conf(10)

  11. string choice, oldconf, startb, conf2join, col(4)

  12. integer confxx, confy, confxp, yy, num, enum, confs

  13. integer ypos, xpos, i, oldypos, oldxpos, loop, oldin, confx(5), r, rmax

  14. ;-----------------------------

  15. ; procedure declaration

  16. ;-----------------------------

  17. declare procedure cfgcreate()

  18. declare procedure cfgread()

  19. declare procedure lajtbar()

  20. declare procedure confprin(integer no, integer yp, integer xp)

  21. declare procedure changelajt(integer nr, integer y, integer x, integer oy, integer ox, integer oi)

  22. declare procedure join(integer confnum)

  23. ;-----------------------------

  24. ; main source

  25. ;-----------------------------

  26. begin

  27. rdunet pcbnode()

  28. wrunet pcbnode(), un_stat(), un_city(), "[:> U-U Conf-Join v.1.1 <:]", "BPC-UUCJ v.1.1", ""

  29. if (exist(ppepath() + "conf.cfg")) then cfgread()

  30. else cfgcreate()

  31. cfgread()

  32. endif

  33. if (tokcount() > 0) then let conf2join = gettoken()

  34. join(conf2join)

  35. endproc

  36. else lajtbar()

  37. endif

  38. end

  39. ;-----------------------------

  40. ; cfgread

  41. ;-----------------------------

More Related