home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT341.ZIP / NUV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-01  |  34KB  |  1,304 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     String   STRING001
  33.     String   STRING002
  34.     String   STRING003
  35.     String   STRING004
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   STRING008
  40.     String   STRING009
  41.     String   STRING010
  42.     String   STRING011
  43.     String   STRING012
  44.     String   STRING013
  45.     String   STRING014
  46.     String   STRING015
  47.     String   STRING016
  48.     String   STRING017
  49.     String   STRING018
  50.     String   STRING019
  51.     String   STRING020
  52.     String   STRING021
  53.     String   STRING022
  54.     String   STRING023
  55.     String   STRING024
  56.     String   STRING025
  57.     String   STRING026
  58.     String   STRING027
  59.     String   STRING028
  60.     String   STRING029
  61.     String   STRING030
  62.     String   STRING031
  63.     String   STRING032
  64.     String   STRING033
  65.     String   STRING034
  66.     String   STRING035
  67.     String   STRING036
  68.     String   STRING037
  69.     String   STRING038
  70.     String   STRING039
  71.     String   STRING040
  72.     String   STRING041
  73.     String   STRING042
  74.     String   STRING043
  75.     String   STRING044
  76.     String   STRING045
  77.     String   STRING046
  78.     String   STRING047
  79.     String   STRING048
  80.     String   TSTRING049(1)
  81.     String   STRING050
  82.     String   STRING051
  83.     String   STRING052
  84.     String   STRING053
  85.     String   STRING054
  86.     String   STRING055
  87.     String   STRING056
  88.     String   STRING057
  89.     String   STRING058
  90.     String   STRING059
  91.     String   STRING060
  92.     String   STRING061
  93.     String   STRING062
  94.     String   STRING063
  95.     String   STRING064
  96.  
  97. ;------------------------------------------------------------------------------
  98.  
  99.     STRING061 = Chr(51) + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(46) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + Chr(49) + Chr(49)
  100.     STRING051 = Chr(64) + I2S(33, 36) + I2S(8, 36) + I2S(12, 36) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + I2S(8, 36) + I2S(12, 36) + I2S(30, 36) + I2S(23, 36) + I2S(27, 36) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + I2S(8, 36) + I2S(12, 36) + Chr(62) + Chr(62) + Chr(62)
  101.     STRING008 = Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING061 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)
  102.     TSTRING049(0) = Upper(ReadLine(PCBDat(), 2))
  103.     TSTRING049(1) = Upper(ReadLine(PCBDat(), 94))
  104.     BOOLEAN002 = 0
  105.     Cls
  106.     TSTRING049(0) = Strip(TSTRING049(0), ">")
  107.     TSTRING049(0) = Strip(TSTRING049(0), "4")
  108.     TSTRING049(0) = Strip(TSTRING049(0), " ")
  109.     TSTRING049(0) = Strip(TSTRING049(0), "(")
  110.     TSTRING049(0) = Strip(TSTRING049(0), "1")
  111.     TSTRING049(0) = Strip(TSTRING049(0), "[")
  112.     TSTRING049(0) = Strip(TSTRING049(0), "7")
  113.     TSTRING049(0) = Strip(TSTRING049(0), "6")
  114.     TSTRING049(0) = Strip(TSTRING049(0), "!")
  115.     TSTRING049(0) = Strip(TSTRING049(0), "╜")
  116.     TSTRING049(0) = Strip(TSTRING049(0), "9")
  117.     TSTRING049(0) = Strip(TSTRING049(0), "¡")
  118.     TSTRING049(0) = Strip(TSTRING049(0), "$")
  119.     TSTRING049(0) = Strip(TSTRING049(0), "-")
  120.     TSTRING049(0) = Strip(TSTRING049(0), ":")
  121.     TSTRING049(0) = Strip(TSTRING049(0), "%")
  122.     TSTRING049(0) = Strip(TSTRING049(0), "<")
  123.     TSTRING049(0) = Strip(TSTRING049(0), ";")
  124.     TSTRING049(0) = Strip(TSTRING049(0), "^")
  125.     TSTRING049(0) = Strip(TSTRING049(0), ")")
  126.     TSTRING049(0) = Strip(TSTRING049(0), "")
  127.     TSTRING049(0) = Strip(TSTRING049(0), "&")
  128.     TSTRING049(0) = Strip(TSTRING049(0), "}")
  129.     TSTRING049(0) = Strip(TSTRING049(0), "/")
  130.     TSTRING049(0) = Strip(TSTRING049(0), "Å")
  131.     TSTRING049(0) = Strip(TSTRING049(0), "~")
  132.     TSTRING049(0) = Strip(TSTRING049(0), "|")
  133.     TSTRING049(0) = Strip(TSTRING049(0), "ƒ")
  134.     TSTRING049(0) = Strip(TSTRING049(0), "#")
  135.     TSTRING049(0) = Strip(TSTRING049(0), "\")
  136.     TSTRING049(0) = Strip(TSTRING049(0), "»")
  137.     TSTRING049(0) = Strip(TSTRING049(0), "Ä")
  138.     TSTRING049(0) = Strip(TSTRING049(0), "+")
  139.     TSTRING049(0) = Strip(TSTRING049(0), "0")
  140.     TSTRING049(0) = Strip(TSTRING049(0), "₧")
  141.     TSTRING049(0) = Strip(TSTRING049(0), "=")
  142.     TSTRING049(0) = Strip(TSTRING049(0), ",")
  143.     TSTRING049(0) = Strip(TSTRING049(0), "«")
  144.     TSTRING049(0) = Strip(TSTRING049(0), "-")
  145.     TSTRING049(0) = Strip(TSTRING049(0), "?")
  146.     TSTRING049(0) = Strip(TSTRING049(0), "╛")
  147.     TSTRING049(0) = Strip(TSTRING049(0), ".")
  148.     TSTRING049(0) = Strip(TSTRING049(0), "π")
  149.     TSTRING049(0) = Strip(TSTRING049(0), "3")
  150.     TSTRING049(0) = Strip(TSTRING049(0), "«")
  151.     TSTRING049(0) = Strip(TSTRING049(0), "≤")
  152.     TSTRING049(0) = Strip(TSTRING049(0), "2")
  153.     TSTRING049(0) = Strip(TSTRING049(0), "»")
  154.     TSTRING049(0) = Strip(TSTRING049(0), "─")
  155.     TSTRING049(0) = Strip(TSTRING049(0), "5")
  156.     TSTRING049(0) = Strip(TSTRING049(0), "Ü")
  157.     TSTRING049(0) = Strip(TSTRING049(0), "╘")
  158.     TSTRING049(0) = Strip(TSTRING049(0), "8")
  159.     TSTRING049(0) = Strip(TSTRING049(0), "┤")
  160.     TSTRING049(0) = Strip(TSTRING049(0), "Σ")
  161.     TSTRING049(0) = Strip(TSTRING049(0), "=")
  162.     TSTRING049(0) = Strip(TSTRING049(0), "│")
  163.     TSTRING049(0) = Strip(TSTRING049(0), "⌠")
  164.     TSTRING049(0) = Strip(TSTRING049(0), " ")
  165.     TSTRING049(0) = Strip(TSTRING049(0), "╡")
  166.     TSTRING049(0) = Strip(TSTRING049(0), "┼")
  167.     TSTRING049(0) = Strip(TSTRING049(0), "*")
  168.     TSTRING049(0) = Strip(TSTRING049(0), "")
  169.     TSTRING049(0) = Strip(TSTRING049(0), "╒")
  170.     TSTRING049(0) = Strip(TSTRING049(0), "{")
  171.     TSTRING049(0) = Strip(TSTRING049(0), "")
  172.     TSTRING049(0) = Strip(TSTRING049(0), "σ")
  173.     TSTRING049(0) = Strip(TSTRING049(0), "]")
  174.     TSTRING049(0) = Strip(TSTRING049(0), "")
  175.     TSTRING049(0) = Strip(TSTRING049(0), "⌡")
  176.     TSTRING049(0) = Strip(TSTRING049(0), "@")
  177.     TSTRING049(0) = Strip(TSTRING049(0), "")
  178.     TSTRING049(0) = Strip(TSTRING049(0), "╞")
  179.     TSTRING049(0) = Strip(TSTRING049(0), "┐")
  180.     TSTRING049(0) = Strip(TSTRING049(0), "")
  181.     TSTRING049(0) = Strip(TSTRING049(0), "╓")
  182.     TSTRING049(0) = Strip(TSTRING049(0), " ")
  183.     TSTRING049(0) = Strip(TSTRING049(0), "")
  184.     TSTRING049(0) = Strip(TSTRING049(0), "µ")
  185.     TSTRING049(0) = Strip(TSTRING049(0), "└")
  186.     TSTRING049(0) = Strip(TSTRING049(0), "")
  187.     TSTRING049(0) = Strip(TSTRING049(0), "÷")
  188.     TSTRING049(0) = Strip(TSTRING049(0), "╨")
  189.     TSTRING049(0) = Strip(TSTRING049(0), "")
  190.     TSTRING049(0) = Strip(TSTRING049(0), "╟")
  191.     TSTRING049(0) = Strip(TSTRING049(0), "α")
  192.     TSTRING049(0) = Strip(TSTRING049(0), "")
  193.     TSTRING049(0) = Strip(TSTRING049(0), "╫")
  194.     TSTRING049(0) = Strip(TSTRING049(0), "≡")
  195.     TSTRING049(0) = Strip(TSTRING049(0), "")
  196.     TSTRING049(0) = Strip(TSTRING049(0), "τ")
  197.     TSTRING049(0) = Strip(TSTRING049(0), "┴")
  198.     TSTRING049(0) = Strip(TSTRING049(0), "")
  199.     TSTRING049(0) = Strip(TSTRING049(0), ".")
  200.     TSTRING049(0) = Strip(TSTRING049(0), "╤")
  201.     TSTRING049(0) = Strip(TSTRING049(0), "")
  202.     TSTRING049(0) = Strip(TSTRING049(0), "╚")
  203.     TSTRING049(0) = Strip(TSTRING049(0), "ß")
  204.     TSTRING049(0) = Strip(TSTRING049(0), "")
  205.     TSTRING049(0) = Strip(TSTRING049(0), "╪")
  206.     TSTRING049(0) = Strip(TSTRING049(0), "±")
  207.     TSTRING049(0) = Strip(TSTRING049(0), "")
  208.     TSTRING049(0) = Strip(TSTRING049(0), "Φ")
  209.     TSTRING049(0) = Strip(TSTRING049(0), "┬")
  210.     TSTRING049(0) = Strip(TSTRING049(0), "")
  211.     TSTRING049(0) = Strip(TSTRING049(0), "°")
  212.     TSTRING049(0) = Strip(TSTRING049(0), "╥")
  213.     TSTRING049(0) = Strip(TSTRING049(0), "")
  214.     TSTRING049(0) = Strip(TSTRING049(0), "╔")
  215.     TSTRING049(0) = Strip(TSTRING049(0), "Γ")
  216.     TSTRING049(0) = Strip(TSTRING049(0), " ")
  217.     TSTRING049(0) = Strip(TSTRING049(0), "┘")
  218.     TSTRING049(0) = Strip(TSTRING049(0), "≥")
  219.     TSTRING049(0) = Strip(TSTRING049(0), "")
  220.     TSTRING049(0) = Strip(TSTRING049(0), "Θ")
  221.     TSTRING049(0) = Strip(TSTRING049(0), "├")
  222.     TSTRING049(0) = Strip(TSTRING049(0), "")
  223.     TSTRING049(0) = Strip(TSTRING049(0), "∙")
  224.     TSTRING049(0) = Strip(TSTRING049(0), "╙")
  225.     TSTRING049(0) = Strip(TSTRING049(0), "Ç")
  226.     TSTRING049(0) = Strip(TSTRING049(0), "╩")
  227.     TSTRING049(0) = Strip(TSTRING049(0), "'")
  228.     TSTRING049(0) = Strip(TSTRING049(0), "É")
  229.     TSTRING049(0) = Strip(TSTRING049(0), "┌")
  230.     TSTRING049(0) = Strip(TSTRING049(0), "ç")
  231.     TSTRING049(0) = Strip(TSTRING049(0), "á")
  232.     TSTRING049(0) = Strip(TSTRING049(0), "Ω")
  233.     TSTRING049(0) = Strip(TSTRING049(0), "ù")
  234.     TSTRING049(0) = Strip(TSTRING049(0), "░")
  235.     TSTRING049(0) = Strip(TSTRING049(0), "·")
  236.     TSTRING049(0) = Strip(TSTRING049(0), "º")
  237.     TSTRING049(0) = Strip(TSTRING049(0), "ü")
  238.     TSTRING049(0) = Strip(TSTRING049(0), "╦")
  239.     TSTRING049(0) = Strip(TSTRING049(0), "╖")
  240.     TSTRING049(0) = Strip(TSTRING049(0), "æ")
  241.     TSTRING049(0) = Strip(TSTRING049(0), "█")
  242.     TSTRING049(0) = Strip(TSTRING049(0), "ê")
  243.     TSTRING049(0) = Strip(TSTRING049(0), "í")
  244.     TSTRING049(0) = Strip(TSTRING049(0), "δ")
  245.     TSTRING049(0) = Strip(TSTRING049(0), "ÿ")
  246.     TSTRING049(0) = Strip(TSTRING049(0), "▒")
  247.     TSTRING049(0) = Strip(TSTRING049(0), "√")
  248.     TSTRING049(0) = Strip(TSTRING049(0), "¿")
  249.     TSTRING049(0) = Strip(TSTRING049(0), "é")
  250.     TSTRING049(0) = Strip(TSTRING049(0), "╠")
  251.     TSTRING049(0) = Strip(TSTRING049(0), "╕")
  252.     TSTRING049(0) = Strip(TSTRING049(0), "Æ")
  253.     TSTRING049(0) = Strip(TSTRING049(0), "▄")
  254.     TSTRING049(0) = Strip(TSTRING049(0), "ë")
  255.     TSTRING049(0) = Strip(TSTRING049(0), "ó")
  256.     TSTRING049(0) = Strip(TSTRING049(0), "∞")
  257.     TSTRING049(0) = Strip(TSTRING049(0), "Ö")
  258.     TSTRING049(0) = Strip(TSTRING049(0), "▓")
  259.     TSTRING049(0) = Strip(TSTRING049(0), "ⁿ")
  260.     TSTRING049(0) = Strip(TSTRING049(0), "⌐")
  261.     TSTRING049(0) = Strip(TSTRING049(0), "â")
  262.     TSTRING049(0) = Strip(TSTRING049(0), "═")
  263.     TSTRING049(0) = Strip(TSTRING049(0), "╣")
  264.     TSTRING049(0) = Strip(TSTRING049(0), "ô")
  265.     TSTRING049(0) = Strip(TSTRING049(0), "▌")
  266.     TSTRING049(0) = Strip(TSTRING049(0), "è")
  267.     TSTRING049(0) = Strip(TSTRING049(0), "ú")
  268.     TSTRING049(0) = Strip(TSTRING049(0), "φ")
  269.     TSTRING049(0) = Strip(TSTRING049(0), "Ü")
  270.     TSTRING049(0) = Strip(TSTRING049(0), "│")
  271.     TSTRING049(0) = Strip(TSTRING049(0), "²")
  272.     TSTRING049(0) = Strip(TSTRING049(0), "¬")
  273.     TSTRING049(0) = Strip(TSTRING049(0), "ä")
  274.     TSTRING049(0) = Strip(TSTRING049(0), "╬")
  275.     TSTRING049(0) = Strip(TSTRING049(0), "║")
  276.     TSTRING049(0) = Strip(TSTRING049(0), "ö")
  277.     TSTRING049(0) = Strip(TSTRING049(0), "▐")
  278.     TSTRING049(0) = Strip(TSTRING049(0), "≈")
  279.     TSTRING049(0) = Strip(TSTRING049(0), "ñ")
  280.     TSTRING049(0) = Strip(TSTRING049(0), "ε")
  281.     TSTRING049(0) = Strip(TSTRING049(0), "¢")
  282.     TSTRING049(0) = Strip(TSTRING049(0), "┤")
  283.     TSTRING049(0) = Strip(TSTRING049(0), "■")
  284.     TSTRING049(0) = Strip(TSTRING049(0), "ª")
  285.     TSTRING049(0) = Strip(TSTRING049(0), "à")
  286.     TSTRING049(0) = Strip(TSTRING049(0), "╧")
  287.     TSTRING049(0) = Strip(TSTRING049(0), "╢")
  288.     TSTRING049(0) = Strip(TSTRING049(0), "ò")
  289.     TSTRING049(0) = Strip(TSTRING049(0), "▀")
  290.     TSTRING049(0) = Strip(TSTRING049(0), Chr(118))
  291.     TSTRING049(0) = Strip(TSTRING049(0), "Ñ")
  292.     TSTRING049(0) = Strip(TSTRING049(0), "U")
  293.     TSTRING049(0) = Strip(TSTRING049(0), Chr(119))
  294.     TSTRING049(0) = Strip(TSTRING049(0), "╡")
  295.     TSTRING049(0) = Strip(TSTRING049(0), "V")
  296.     TSTRING049(0) = Strip(TSTRING049(0), Chr(120))
  297.     TSTRING049(0) = Strip(TSTRING049(0), "å")
  298.     TSTRING049(0) = Strip(TSTRING049(0), "W")
  299.     TSTRING049(0) = Strip(TSTRING049(0), Chr(121))
  300.     TSTRING049(0) = Strip(TSTRING049(0), "û")
  301.     TSTRING049(0) = Strip(TSTRING049(0), "X")
  302.     TSTRING049(0) = Strip(TSTRING049(0), Chr(122))
  303.     TSTRING049(0) = Strip(TSTRING049(0), Chr(10))
  304.     TSTRING049(0) = Strip(TSTRING049(0), "Y")
  305.     TSTRING049(0) = Strip(TSTRING049(0), Chr(86))
  306.     TSTRING049(0) = Strip(TSTRING049(0), Chr(117))
  307.     TSTRING049(0) = Strip(TSTRING049(0), "Z")
  308.     TSTRING049(0) = Strip(TSTRING049(0), Chr(87))
  309.     TSTRING049(0) = Strip(TSTRING049(0), "¥")
  310.     TSTRING049(0) = Strip(TSTRING049(0), Chr(44))
  311.     TSTRING049(0) = Strip(TSTRING049(0), Chr(88))
  312.     TSTRING049(0) = Strip(TSTRING049(0), Chr(90))
  313.     TSTRING049(0) = Strip(TSTRING049(0), Chr(0))
  314.     TSTRING049(0) = Strip(TSTRING049(0), Chr(89))
  315.     TSTRING049(0) = Strip(TSTRING049(0), "ï")
  316.     TSTRING049(0) = Strip(TSTRING049(0), Chr(7))
  317.     TSTRING049(0) = Strip(TSTRING049(0), "╝")
  318.     TSTRING049(0) = Strip(TSTRING049(0), "î")
  319.     TSTRING049(0) = Strip(TSTRING049(0), Chr(8))
  320.     TSTRING049(0) = Strip(TSTRING049(0), "ì")
  321.     TSTRING049(0) = Strip(TSTRING049(0), "½")
  322.     TSTRING049(0) = Strip(TSTRING049(0), "£")
  323.     TSTRING049(0) = Strip(TSTRING049(0), "¼")
  324.     TSTRING049(0) = Strip(TSTRING049(0), "╗")
  325.     TSTRING049(1) = Strip(TSTRING049(1), ">")
  326.     TSTRING049(1) = Strip(TSTRING049(1), "4")
  327.     TSTRING049(1) = Strip(TSTRING049(1), " ")
  328.     TSTRING049(1) = Strip(TSTRING049(1), "(")
  329.     TSTRING049(1) = Strip(TSTRING049(1), "1")
  330.     TSTRING049(1) = Strip(TSTRING049(1), "[")
  331.     TSTRING049(1) = Strip(TSTRING049(1), "7")
  332.     TSTRING049(1) = Strip(TSTRING049(1), "6")
  333.     TSTRING049(1) = Strip(TSTRING049(1), "!")
  334.     TSTRING049(1) = Strip(TSTRING049(1), "╜")
  335.     TSTRING049(1) = Strip(TSTRING049(1), "9")
  336.     TSTRING049(1) = Strip(TSTRING049(1), "¡")
  337.     TSTRING049(1) = Strip(TSTRING049(1), "$")
  338.     TSTRING049(1) = Strip(TSTRING049(1), "-")
  339.     TSTRING049(1) = Strip(TSTRING049(1), ":")
  340.     TSTRING049(1) = Strip(TSTRING049(1), "%")
  341.     TSTRING049(1) = Strip(TSTRING049(1), "<")
  342.     TSTRING049(1) = Strip(TSTRING049(1), ";")
  343.     TSTRING049(1) = Strip(TSTRING049(1), "^")
  344.     TSTRING049(1) = Strip(TSTRING049(1), ")")
  345.     TSTRING049(1) = Strip(TSTRING049(1), "")
  346.     TSTRING049(1) = Strip(TSTRING049(1), "&")
  347.     TSTRING049(1) = Strip(TSTRING049(1), "}")
  348.     TSTRING049(1) = Strip(TSTRING049(1), "/")
  349.     TSTRING049(1) = Strip(TSTRING049(1), "Å")
  350.     TSTRING049(1) = Strip(TSTRING049(1), "~")
  351.     TSTRING049(1) = Strip(TSTRING049(1), "|")
  352.     TSTRING049(1) = Strip(TSTRING049(1), "ƒ")
  353.     TSTRING049(1) = Strip(TSTRING049(1), "#")
  354.     TSTRING049(1) = Strip(TSTRING049(1), "\")
  355.     TSTRING049(1) = Strip(TSTRING049(1), "»")
  356.     TSTRING049(1) = Strip(TSTRING049(1), "Ä")
  357.     TSTRING049(1) = Strip(TSTRING049(1), "+")
  358.     TSTRING049(1) = Strip(TSTRING049(1), "0")
  359.     TSTRING049(1) = Strip(TSTRING049(1), "₧")
  360.     TSTRING049(1) = Strip(TSTRING049(1), "=")
  361.     TSTRING049(1) = Strip(TSTRING049(1), ",")
  362.     TSTRING049(1) = Strip(TSTRING049(1), "«")
  363.     TSTRING049(1) = Strip(TSTRING049(1), "-")
  364.     TSTRING049(1) = Strip(TSTRING049(1), "?")
  365.     TSTRING049(1) = Strip(TSTRING049(1), "╛")
  366.     TSTRING049(1) = Strip(TSTRING049(1), ".")
  367.     TSTRING049(1) = Strip(TSTRING049(1), "π")
  368.     TSTRING049(1) = Strip(TSTRING049(1), "3")
  369.     TSTRING049(1) = Strip(TSTRING049(1), "«")
  370.     TSTRING049(1) = Strip(TSTRING049(1), "≤")
  371.     TSTRING049(1) = Strip(TSTRING049(1), "2")
  372.     TSTRING049(1) = Strip(TSTRING049(1), "»")
  373.     TSTRING049(1) = Strip(TSTRING049(1), "─")
  374.     TSTRING049(1) = Strip(TSTRING049(1), "5")
  375.     TSTRING049(1) = Strip(TSTRING049(1), "Ü")
  376.     TSTRING049(1) = Strip(TSTRING049(1), "╘")
  377.     TSTRING049(1) = Strip(TSTRING049(1), "8")
  378.     TSTRING049(1) = Strip(TSTRING049(1), "┤")
  379.     TSTRING049(1) = Strip(TSTRING049(1), "Σ")
  380.     TSTRING049(1) = Strip(TSTRING049(1), "=")
  381.     TSTRING049(1) = Strip(TSTRING049(1), "│")
  382.     TSTRING049(1) = Strip(TSTRING049(1), "⌠")
  383.     TSTRING049(1) = Strip(TSTRING049(1), " ")
  384.     TSTRING049(1) = Strip(TSTRING049(1), "╡")
  385.     TSTRING049(1) = Strip(TSTRING049(1), "┼")
  386.     TSTRING049(1) = Strip(TSTRING049(1), "*")
  387.     TSTRING049(1) = Strip(TSTRING049(1), "")
  388.     TSTRING049(1) = Strip(TSTRING049(1), "╒")
  389.     TSTRING049(1) = Strip(TSTRING049(1), "{")
  390.     TSTRING049(1) = Strip(TSTRING049(1), "")
  391.     TSTRING049(1) = Strip(TSTRING049(1), "σ")
  392.     TSTRING049(1) = Strip(TSTRING049(1), "]")
  393.     TSTRING049(1) = Strip(TSTRING049(1), "")
  394.     TSTRING049(1) = Strip(TSTRING049(1), "⌡")
  395.     TSTRING049(1) = Strip(TSTRING049(1), "@")
  396.     TSTRING049(1) = Strip(TSTRING049(1), "")
  397.     TSTRING049(1) = Strip(TSTRING049(1), "╞")
  398.     TSTRING049(1) = Strip(TSTRING049(1), "┐")
  399.     TSTRING049(1) = Strip(TSTRING049(1), "")
  400.     TSTRING049(1) = Strip(TSTRING049(1), "╓")
  401.     TSTRING049(1) = Strip(TSTRING049(1), " ")
  402.     TSTRING049(1) = Strip(TSTRING049(1), "")
  403.     TSTRING049(1) = Strip(TSTRING049(1), "µ")
  404.     TSTRING049(1) = Strip(TSTRING049(1), "└")
  405.     TSTRING049(1) = Strip(TSTRING049(1), "")
  406.     TSTRING049(1) = Strip(TSTRING049(1), "÷")
  407.     TSTRING049(1) = Strip(TSTRING049(1), "╨")
  408.     TSTRING049(1) = Strip(TSTRING049(1), "")
  409.     TSTRING049(1) = Strip(TSTRING049(1), "╟")
  410.     TSTRING049(1) = Strip(TSTRING049(1), "α")
  411.     TSTRING049(1) = Strip(TSTRING049(1), "")
  412.     TSTRING049(1) = Strip(TSTRING049(1), "╫")
  413.     TSTRING049(1) = Strip(TSTRING049(1), "≡")
  414.     TSTRING049(1) = Strip(TSTRING049(1), "")
  415.     TSTRING049(1) = Strip(TSTRING049(1), "τ")
  416.     TSTRING049(1) = Strip(TSTRING049(1), "┴")
  417.     TSTRING049(1) = Strip(TSTRING049(1), "")
  418.     TSTRING049(1) = Strip(TSTRING049(1), ".")
  419.     TSTRING049(1) = Strip(TSTRING049(1), "╤")
  420.     TSTRING049(1) = Strip(TSTRING049(1), "")
  421.     TSTRING049(1) = Strip(TSTRING049(1), "╚")
  422.     TSTRING049(1) = Strip(TSTRING049(1), "ß")
  423.     TSTRING049(1) = Strip(TSTRING049(1), "")
  424.     TSTRING049(1) = Strip(TSTRING049(1), "╪")
  425.     TSTRING049(1) = Strip(TSTRING049(1), "±")
  426.     TSTRING049(1) = Strip(TSTRING049(1), "")
  427.     TSTRING049(1) = Strip(TSTRING049(1), "Φ")
  428.     TSTRING049(1) = Strip(TSTRING049(1), "┬")
  429.     TSTRING049(1) = Strip(TSTRING049(1), "")
  430.     TSTRING049(1) = Strip(TSTRING049(1), "°")
  431.     TSTRING049(1) = Strip(TSTRING049(1), "╥")
  432.     TSTRING049(1) = Strip(TSTRING049(1), "")
  433.     TSTRING049(1) = Strip(TSTRING049(1), "╔")
  434.     TSTRING049(1) = Strip(TSTRING049(1), "Γ")
  435.     TSTRING049(1) = Strip(TSTRING049(1), " ")
  436.     TSTRING049(1) = Strip(TSTRING049(1), "┘")
  437.     TSTRING049(1) = Strip(TSTRING049(1), "≥")
  438.     TSTRING049(1) = Strip(TSTRING049(1), "")
  439.     TSTRING049(1) = Strip(TSTRING049(1), "Θ")
  440.     TSTRING049(1) = Strip(TSTRING049(1), "├")
  441.     TSTRING049(1) = Strip(TSTRING049(1), "")
  442.     TSTRING049(1) = Strip(TSTRING049(1), "∙")
  443.     TSTRING049(1) = Strip(TSTRING049(1), "╙")
  444.     TSTRING049(1) = Strip(TSTRING049(1), "Ç")
  445.     TSTRING049(1) = Strip(TSTRING049(1), "╩")
  446.     TSTRING049(1) = Strip(TSTRING049(1), "'")
  447.     TSTRING049(1) = Strip(TSTRING049(1), "É")
  448.     TSTRING049(1) = Strip(TSTRING049(1), "┌")
  449.     TSTRING049(1) = Strip(TSTRING049(1), "ç")
  450.     TSTRING049(1) = Strip(TSTRING049(1), "á")
  451.     TSTRING049(1) = Strip(TSTRING049(1), "Ω")
  452.     TSTRING049(1) = Strip(TSTRING049(1), "ù")
  453.     TSTRING049(1) = Strip(TSTRING049(1), "░")
  454.     TSTRING049(1) = Strip(TSTRING049(1), "·")
  455.     TSTRING049(1) = Strip(TSTRING049(1), "º")
  456.     TSTRING049(1) = Strip(TSTRING049(1), "ü")
  457.     TSTRING049(1) = Strip(TSTRING049(1), "╦")
  458.     TSTRING049(1) = Strip(TSTRING049(1), "╖")
  459.     TSTRING049(1) = Strip(TSTRING049(1), "æ")
  460.     TSTRING049(1) = Strip(TSTRING049(1), "█")
  461.     TSTRING049(1) = Strip(TSTRING049(1), "ê")
  462.     TSTRING049(1) = Strip(TSTRING049(1), "í")
  463.     TSTRING049(1) = Strip(TSTRING049(1), "δ")
  464.     TSTRING049(1) = Strip(TSTRING049(1), "ÿ")
  465.     TSTRING049(1) = Strip(TSTRING049(1), "▒")
  466.     TSTRING049(1) = Strip(TSTRING049(1), "√")
  467.     TSTRING049(1) = Strip(TSTRING049(1), "¿")
  468.     TSTRING049(1) = Strip(TSTRING049(1), "é")
  469.     TSTRING049(1) = Strip(TSTRING049(1), "╠")
  470.     TSTRING049(1) = Strip(TSTRING049(1), "╕")
  471.     TSTRING049(1) = Strip(TSTRING049(1), "Æ")
  472.     TSTRING049(1) = Strip(TSTRING049(1), "▄")
  473.     TSTRING049(1) = Strip(TSTRING049(1), "ë")
  474.     TSTRING049(1) = Strip(TSTRING049(1), "ó")
  475.     TSTRING049(1) = Strip(TSTRING049(1), "∞")
  476.     TSTRING049(1) = Strip(TSTRING049(1), "Ö")
  477.     TSTRING049(1) = Strip(TSTRING049(1), "▓")
  478.     TSTRING049(1) = Strip(TSTRING049(1), "ⁿ")
  479.     TSTRING049(1) = Strip(TSTRING049(1), "⌐")
  480.     TSTRING049(1) = Strip(TSTRING049(1), "â")
  481.     TSTRING049(1) = Strip(TSTRING049(1), "═")
  482.     TSTRING049(1) = Strip(TSTRING049(1), "╣")
  483.     TSTRING049(1) = Strip(TSTRING049(1), "ô")
  484.     TSTRING049(1) = Strip(TSTRING049(1), "▌")
  485.     TSTRING049(1) = Strip(TSTRING049(1), "è")
  486.     TSTRING049(1) = Strip(TSTRING049(1), "ú")
  487.     TSTRING049(1) = Strip(TSTRING049(1), "φ")
  488.     TSTRING049(1) = Strip(TSTRING049(1), "Ü")
  489.     TSTRING049(1) = Strip(TSTRING049(1), "│")
  490.     TSTRING049(1) = Strip(TSTRING049(1), "²")
  491.     TSTRING049(1) = Strip(TSTRING049(1), "¬")
  492.     TSTRING049(1) = Strip(TSTRING049(1), "ä")
  493.     TSTRING049(1) = Strip(TSTRING049(1), "╬")
  494.     TSTRING049(1) = Strip(TSTRING049(1), "║")
  495.     TSTRING049(1) = Strip(TSTRING049(1), "ö")
  496.     TSTRING049(1) = Strip(TSTRING049(1), "▐")
  497.     TSTRING049(1) = Strip(TSTRING049(1), "≈")
  498.     TSTRING049(1) = Strip(TSTRING049(1), "ñ")
  499.     TSTRING049(1) = Strip(TSTRING049(1), "ε")
  500.     TSTRING049(1) = Strip(TSTRING049(1), "¢")
  501.     TSTRING049(1) = Strip(TSTRING049(1), "┤")
  502.     TSTRING049(1) = Strip(TSTRING049(1), "■")
  503.     TSTRING049(1) = Strip(TSTRING049(1), "ª")
  504.     TSTRING049(1) = Strip(TSTRING049(1), "à")
  505.     TSTRING049(1) = Strip(TSTRING049(1), "╧")
  506.     TSTRING049(1) = Strip(TSTRING049(1), "╢")
  507.     TSTRING049(1) = Strip(TSTRING049(1), "ò")
  508.     TSTRING049(1) = Strip(TSTRING049(1), "▀")
  509.     TSTRING049(1) = Strip(TSTRING049(1), Chr(118))
  510.     TSTRING049(1) = Strip(TSTRING049(1), "Ñ")
  511.     TSTRING049(1) = Strip(TSTRING049(1), "U")
  512.     TSTRING049(1) = Strip(TSTRING049(1), Chr(119))
  513.     TSTRING049(1) = Strip(TSTRING049(1), "╡")
  514.     TSTRING049(1) = Strip(TSTRING049(1), "V")
  515.     TSTRING049(1) = Strip(TSTRING049(1), Chr(120))
  516.     TSTRING049(1) = Strip(TSTRING049(1), "å")
  517.     TSTRING049(1) = Strip(TSTRING049(1), "W")
  518.     TSTRING049(1) = Strip(TSTRING049(1), Chr(121))
  519.     TSTRING049(1) = Strip(TSTRING049(1), "û")
  520.     TSTRING049(1) = Strip(TSTRING049(1), "X")
  521.     TSTRING049(1) = Strip(TSTRING049(1), Chr(122))
  522.     TSTRING049(1) = Strip(TSTRING049(1), Chr(10))
  523.     TSTRING049(1) = Strip(TSTRING049(1), "Y")
  524.     TSTRING049(1) = Strip(TSTRING049(1), Chr(86))
  525.     TSTRING049(1) = Strip(TSTRING049(1), Chr(117))
  526.     TSTRING049(1) = Strip(TSTRING049(1), "Z")
  527.     TSTRING049(1) = Strip(TSTRING049(1), Chr(87))
  528.     TSTRING049(1) = Strip(TSTRING049(1), "¥")
  529.     TSTRING049(1) = Strip(TSTRING049(1), Chr(44))
  530.     TSTRING049(1) = Strip(TSTRING049(1), Chr(88))
  531.     TSTRING049(1) = Strip(TSTRING049(1), Chr(90))
  532.     TSTRING049(1) = Strip(TSTRING049(1), Chr(0))
  533.     TSTRING049(1) = Strip(TSTRING049(1), Chr(89))
  534.     TSTRING049(1) = Strip(TSTRING049(1), "ï")
  535.     TSTRING049(1) = Strip(TSTRING049(1), Chr(7))
  536.     TSTRING049(1) = Strip(TSTRING049(1), "╝")
  537.     TSTRING049(1) = Strip(TSTRING049(1), "î")
  538.     TSTRING049(1) = Strip(TSTRING049(1), Chr(8))
  539.     TSTRING049(1) = Strip(TSTRING049(1), "ì")
  540.     TSTRING049(1) = Strip(TSTRING049(1), "½")
  541.     TSTRING049(1) = Strip(TSTRING049(1), "£")
  542.     TSTRING049(1) = Strip(TSTRING049(1), "¼")
  543.     TSTRING049(1) = Strip(TSTRING049(1), "╗")
  544.     INTEGER007 = Len(TSTRING049(0))
  545.     If (INTEGER007 < 2) TSTRING049(0) = "uv"
  546.     TSTRING049(0) = Right(TSTRING049(0), 2)
  547.     INTEGER008 = Len(TSTRING049(1))
  548.     If (INTEGER008 < 2) TSTRING049(1) = "uv"
  549.     TSTRING049(1) = Right(TSTRING049(1), 2)
  550.     STRING050 = TSTRING049(0) + TSTRING049(1) + Chr(80) + Chr(79)
  551.     FDefIn 1
  552.     GetUser
  553.     FClose 1
  554.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  555.     FDGet STRING042
  556.     FDGet STRING040
  557.     FDGet STRING034
  558.     FDGet STRING035
  559.     FDGet STRING036
  560.     FDGet STRING052
  561.     FDGet STRING053
  562.     FDGet STRING057
  563.     FDGet STRING056
  564.     FDGet STRING054
  565.     FDGet STRING055
  566.     FDGet STRING058
  567.     FDGet STRING059
  568.     FDGet STRING060
  569.     FDGet STRING062
  570.     FDGet STRING063
  571.     FDGet STRING064
  572.     FDGet STRING019
  573.     FClose 1
  574.     :LABEL001
  575.     If (STRING040 > CurSec()) Goto LABEL045
  576.     If (Exist(PPEPath() + "apps\waiting.app")) Then
  577.         If (STRING008 <> Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(78) + Chr(101) + Chr(119) + " " + Chr(85) + Chr(115) + Chr(101) + Chr(114) + " " + Chr(86) + Chr(111) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(118) + Chr(64) + Chr(88) + Chr(49) + Chr(70) + STRING061 + Chr(64) + Chr(88) + Chr(57) + Chr(66) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(66) + Chr(64) + " " + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(49) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(49) + Chr(67) + Chr(62) + Chr(62) + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then
  578.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  579.             Goto LABEL042
  580.         Endif
  581.         STRING037 = STRING057
  582.         STRING037 = Upper(STRING037)
  583.         Cls
  584.         FClose 1
  585.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  586.         INTEGER005 = 0
  587.         :LABEL002
  588.         If (Ferr(1)) Goto LABEL003
  589.         FGet 1, STRING006
  590.         If (STRING006 == "") Goto LABEL004
  591.         Inc INTEGER005
  592.         Goto LABEL002
  593.         :LABEL003
  594.         FClose 1
  595.         :LABEL004
  596.         FClose 1
  597.         If (BOOLEAN002 == 1) Goto LABEL005
  598.         If ((INTEGER005 == 0) && (STRING042 == S2I(STRING050, 34))) Then
  599.             Goto LABEL042
  600.         Endif
  601.         If (((STRING062 == YesChar()) && (STRING042 == S2I(STRING050, 34))) && (CurSec() <= STRING064)) Goto LABEL005
  602.         AnsiPos 12, 3
  603.         PrintLn STRING008
  604.         If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".PCB", 4 + 2
  605.         Newline
  606.         InputYN STRING060, STRING037, " "
  607.         If (STRING037 == NoChar()) Goto LABEL043
  608.         :LABEL005
  609.         DefColor
  610.         STRING001 = 7
  611.         FClose 2
  612.         FClose 1
  613.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  614.         INTEGER005 = 0
  615.         INTEGER009 = 0
  616.         :LABEL006
  617.         If (Ferr(1)) Goto LABEL010
  618.         STRING009 = NoChar()
  619.         FDGet STRING006
  620.         If (STRING006 == "") Goto LABEL009
  621.         Tokenize STRING006
  622.         If (TokCount() == 3) Then
  623.             GetToken STRING031
  624.             GetToken STRING032
  625.             GetToken STRING038
  626.             STRING031 = Left(STRING031, 3)
  627.             STRING032 = Right(STRING038, 4)
  628.             STRING031 = Strip(STRING031, " ")
  629.             STRING031 = Strip(STRING031, ".")
  630.             STRING032 = Strip(STRING032, " ")
  631.             STRING032 = Strip(STRING032, ".")
  632.             Goto LABEL007
  633.         Endif
  634.         If (TokCount() == 2) Then
  635.             GetToken STRING031
  636.             GetToken STRING032
  637.             STRING031 = Left(STRING031, 3)
  638.             STRING032 = Right(STRING032, 4)
  639.             STRING031 = Strip(STRING031, " ")
  640.             STRING031 = Strip(STRING031, ".")
  641.             STRING032 = Strip(STRING032, " ")
  642.             STRING032 = Strip(STRING032, ".")
  643.             Goto LABEL007
  644.         Endif
  645.         If (TokCount() == 1) Then
  646.             GetToken STRING031
  647.             GetToken STRING032
  648.             STRING031 = Strip(STRING031, ".")
  649.             STRING031 = Strip(STRING031, " ")
  650.             STRING032 = Strip(STRING032, ".")
  651.             STRING032 = Strip(STRING032, " ")
  652.             STRING031 = Left(STRING031, 3)
  653.             Goto LABEL007
  654.         Endif
  655.         :LABEL007
  656.         STRING041 = ReadLine(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".GRP", 1)
  657.         If (Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".vot")) Goto LABEL008
  658.         FCreate 3, PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".vot", 1, 0
  659.         FClose 3
  660.         :LABEL008
  661.         Gosub LABEL014
  662.         If (!Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".1") && (BOOLEAN002 == 0)) STRING009 = YesChar()
  663.         If (STRING006 == U_Name()) STRING009 = YesChar()
  664.         If ((STRING009 == NoChar()) && (BOOLEAN002 == 0)) Then
  665.             If (INTEGER005 <= 12) Inc STRING001
  666.             Inc INTEGER005
  667.             If (INTEGER005 == 1) Gosub LABEL011
  668.             If (BOOLEAN002 == 0) Then
  669.                 If (INTEGER005 > 13) Gosub LABEL018
  670.                 Gosub LABEL013
  671.                 FClose 2
  672.             Endif
  673.             If (INTEGER005 > 13) INTEGER005 = 13
  674.         Endif
  675.         If ((BOOLEAN002 == 1) && (STRING024 == YesChar())) Then
  676.             If (INTEGER009 <= 12) Inc STRING001
  677.             Inc INTEGER009
  678.             If ((INTEGER009 == 1) && (BOOLEAN002 == 1)) Gosub LABEL011
  679.             If (BOOLEAN002 == 1) Then
  680.                 If (INTEGER009 > 13) Gosub LABEL018
  681.                 Gosub LABEL013
  682.             Endif
  683.             If (INTEGER009 > 13) INTEGER009 = 13
  684.             INTEGER005 = INTEGER009
  685.         Endif
  686.         :LABEL009
  687.         Goto LABEL006
  688.         :LABEL010
  689.         Goto LABEL019
  690.         :LABEL011
  691.         StartDisp 1
  692.         Cls
  693.         AnsiPos 6, 1
  694.         PrintLn "@POS:18@" + STRING008
  695.         AnsiPos 9, 2
  696.         PrintLn STRING058
  697.         AnsiPos 35, 3
  698.         PrintLn STRING059
  699.         If (BOOLEAN002 == 1) Then
  700.             AnsiPos 6, 4
  701.             PrintLn "@POS:13@" + STRING055 + "▄▄▄▄▄" + STRING056 + "Change" + STRING055 + "▄" + STRING056 + "Vote" + STRING055 + "▄" + STRING056 + "Mode" + STRING055 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  702.             Goto LABEL012
  703.         Endif
  704.         AnsiPos 6, 4
  705.         PrintLn "@POS:13@" + STRING055 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  706.         :LABEL012
  707.         If (BOOLEAN002 == 1) Then
  708.             AnsiPos 6, 5
  709.             PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + "  UserName/Handle                    Status of Vote's      " + STRING055 + "█"
  710.             AnsiPos 6, 6
  711.             PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + "─────────────────────────────┬─────────────────────────────" + STRING055 + "█"
  712.             AnsiPos 6, 7
  713.             PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + "                       " + STRING056 + " Voted" + STRING054 + "│ @POS:63@" + STRING056 + "YES" + STRING054 + "@POS:69@" + STRING056 + "NO" + STRING054 + "  " + STRING055 + "█"
  714.             Goto LABEL013
  715.         Endif
  716.         AnsiPos 6, 5
  717.         PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + "  UserName/Handle               Location/Group             " + STRING055 + "█"
  718.         AnsiPos 6, 6
  719.         PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + "─────────────────────────────┬─────────────────────────────" + STRING055 + "█"
  720.         AnsiPos 6, 7
  721.         PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + "                             │                             " + STRING055 + "█"
  722.         Return
  723.         :LABEL013
  724.         If (BOOLEAN002 == 1) Then
  725.             AnsiPos 6, STRING001
  726.             PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + " " + STRING006 + "@POS:40@" + STRING029 + "@POS:43@│    " + "@POS:64@" + STRING047 + "@POS:69@" + STRING048 + "@POS:73@" + STRING055 + "█"
  727.             Goto LABEL014
  728.         Endif
  729.         AnsiPos 6, STRING001
  730.         PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + " " + STRING006 + "@POS:43@│    " + STRING041 + "@POS:73@" + STRING055 + "█"
  731.         Return
  732.         :LABEL014
  733.         STRING009 = NoChar()
  734.         STRING024 = NoChar()
  735.         INTEGER001 = 0
  736.         INTEGER002 = 0
  737.         STRING047 = 0
  738.         STRING048 = 0
  739.         STRING021 = ReadLine(PPEPath() + "check.cnf", 2)
  740.         STRING022 = ReadLine(PPEPath() + "check.cnf", 3)
  741.         FClose 2
  742.         FOpen 2, PPEPath() + "apps\" + STRING031 + "_" + STRING032 + ".vot", 0, 0
  743.         :LABEL015
  744.         If (Ferr(2)) Goto LABEL016
  745.         FGet 2, STRING025
  746.         If (STRING025 == "") Goto LABEL017
  747.         Tokenize STRING025
  748.         If (TokCount() == 4) Then
  749.             GetToken STRING026
  750.             GetToken STRING027
  751.             GetToken STRING028
  752.             GetToken STRING029
  753.             If (STRING029 == "Y") Inc INTEGER001
  754.             If (STRING029 == "N") Inc INTEGER002
  755.             If (STRING029 == "Y") Inc STRING047
  756.             If (STRING029 == "N") Inc STRING048
  757.             If ((((U_Name() == STRING026 + " " + STRING027 + " " + STRING028) && (BOOLEAN002 == 0)) || (INTEGER001 >= STRING021)) || ((INTEGER002 >= STRING022) && (BOOLEAN002 == 0))) Then
  758.                 STRING009 = YesChar()
  759.                 FClose 2
  760.                 Return
  761.             Endif
  762.             If (((U_Name() == STRING026 + " " + STRING027 + " " + STRING028) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "hg")) Then
  763.                 STRING024 = YesChar()
  764.                 FClose 2
  765.                 Return
  766.             Endif
  767.         Endif
  768.         If (TokCount() == 3) Then
  769.             GetToken STRING026
  770.             GetToken STRING027
  771.             GetToken STRING029
  772.             If (STRING029 == "Y") Inc INTEGER001
  773.             If (STRING029 == "N") Inc INTEGER002
  774.             If (STRING029 == "Y") Inc STRING047
  775.             If (STRING029 == "N") Inc STRING048
  776.             If ((((U_Name() == STRING026 + " " + STRING027) && (BOOLEAN002 == 0)) || (INTEGER001 >= STRING021)) || ((INTEGER002 >= STRING022) && (BOOLEAN002 == 0))) Then
  777.                 STRING009 = YesChar()
  778.                 FClose 2
  779.                 Return
  780.             Endif
  781.             If (((U_Name() == STRING026 + " " + STRING027) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "hg")) Then
  782.                 STRING024 = YesChar()
  783.             Endif
  784.         Endif
  785.         If (TokCount() == 2) Then
  786.             GetToken STRING026
  787.             GetToken STRING029
  788.             If (STRING029 == "Y") Inc INTEGER001
  789.             If (STRING029 == "N") Inc INTEGER002
  790.             If (STRING029 == "Y") Inc STRING047
  791.             If (STRING029 == "N") Inc STRING048
  792.             If ((((U_Name() == STRING026) && (BOOLEAN002 == 0)) || (INTEGER001 >= STRING021)) || ((INTEGER002 >= STRING022) && (BOOLEAN002 == 0))) Then
  793.                 STRING009 = YesChar()
  794.                 FClose 2
  795.                 Return
  796.             Endif
  797.             If (((U_Name() == STRING026) && (BOOLEAN002 == 1)) && !Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "hg")) Then
  798.                 STRING024 = YesChar()
  799.                 FClose 2
  800.                 Return
  801.             Endif
  802.         Endif
  803.         Goto LABEL015
  804.         :LABEL016
  805.         Return
  806.         :LABEL017
  807.         Return
  808.         :LABEL018
  809.         INTEGER011 = 9
  810.         For INTEGER010 = 0 To 11
  811.             STRING039 = ScrText(13, INTEGER011, 73, 1)
  812.             AnsiPos 13, INTEGER011 - 1
  813.             If (INTEGER011 < 21) Print STRING039
  814.             Inc INTEGER011
  815.         Next
  816.         Return
  817.         :LABEL019
  818.         If (((INTEGER009 == 0) && (INTEGER005 == 0)) && (STRING042 == S2I(STRING050, 34))) Then
  819.             Goto LABEL042
  820.         Endif
  821.         If (((INTEGER009 == 0) && (INTEGER005 == 0)) && (STRING042 <> S2I(STRING050, 34))) Then
  822.             Gosub LABEL011
  823.         Endif
  824.         Inc STRING001
  825.         AnsiPos 6, STRING001
  826.         PrintLn "@POS:13@" + STRING055 + "█" + STRING054 + " Quit New User Voting.       │                             " + STRING055 + "█"
  827.         Inc STRING001
  828.         AnsiPos 6, STRING001
  829.         PrintLn "@POS:13@" + STRING055 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  830.         FClose 1
  831.         If (STRING042 == S2I(STRING050, 34)) Goto LABEL020
  832.         If (STRING051 <> Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(60) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(85) + I2S(23, 36) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(56) + Chr(67) + Chr(62) + Chr(62) + Chr(62)) Then
  833.             Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101)
  834.             PrintLn "@X8FYou tried to HACK this PPE Registration is Cheap"
  835.             Goto LABEL042
  836.         Endif
  837.         AnsiPos 15, 7
  838.         Print STRING051
  839.         AnsiPos 48, 7
  840.         Print STRING051
  841.         :LABEL020
  842.         Inc STRING001
  843.         AnsiPos 6, STRING001
  844.         STRING039 = ""
  845.         STRING033 = GetY()
  846.         STRING001 = STRING033 - 2
  847.         KbdStuff Chr(32)
  848.         :LABEL021
  849.         If (BOOLEAN001) Goto LABEL024
  850.         STRING010 = Inkey()
  851.         If (STRING010 == Chr(13)) Then
  852.             STRING002 = RTrim(ScrText(15, STRING001 + 1, 25, 0), " ")
  853.             If (STRING002 <> "Quit New User Voting.") Then
  854.                 STRING013 = STRING002
  855.                 Goto LABEL025
  856.             Endif
  857.             If (((((STRING002 == "Quit New User Voting.") && (STRING062 <> NoChar())) && (STRING042 == S2I(STRING050, 34))) && (CurSec() < STRING064)) && (BOOLEAN002 == 0)) Then
  858.                 DefColor
  859.                 Cls
  860.                 AnsiPos 10, 3
  861.                 PrintLn STRING063
  862.                 Newline
  863.                 Wait
  864.                 Goto LABEL005
  865.                 Goto LABEL022
  866.             Endif
  867.             Goto LABEL042
  868.             :LABEL022
  869.             If (STRING002 == "Quit New User Voting.") Then
  870.                 Goto LABEL042
  871.             Endif
  872.         Endif
  873.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "A")) || (STRING010 == "a")) || (STRING010 == "Z")) || (STRING010 == "z")) Then
  874.             AnsiPos 15, STRING001
  875.             If (STRING003 == STRING033 - 2) Then
  876.                 Print STRING039
  877.                 AnsiPos 15, STRING001
  878.                 Goto LABEL023
  879.             Endif
  880.             AnsiPos 15, STRING001 + 1
  881.             Print STRING039
  882.             :LABEL023
  883.             If (STRING001 == 7) STRING001 = STRING001 + INTEGER005 + 1
  884.             AnsiPos 15, STRING001
  885.             STRING039 = ScrText(15, STRING001, 25, 1)
  886.             Print STRING056 + RTrim(ScrText(15, STRING001, 25, 0), " ")
  887.             Dec STRING001
  888.         Endif
  889.         Goto LABEL021
  890.         :LABEL024
  891.         :LABEL025
  892.         STRING012 = 1
  893.         STRING011 = 6
  894.         Inc STRING001
  895.         Tokenize STRING013
  896.         If (TokCount() == 3) Then
  897.             GetToken STRING003
  898.             GetToken STRING004
  899.             GetToken STRING005
  900.             STRING003 = Strip(STRING003, " ")
  901.             STRING004 = Strip(STRING004, " ")
  902.             STRING003 = Strip(STRING003, ".")
  903.             STRING004 = Strip(STRING004, ".")
  904.             STRING003 = Left(STRING003, 3)
  905.             STRING004 = Right(STRING005, 4)
  906.             STRING003 = Strip(STRING003, " ")
  907.             STRING004 = Strip(STRING004, " ")
  908.         Endif
  909.         If (TokCount() == 2) Then
  910.             GetToken STRING003
  911.             GetToken STRING004
  912.             STRING003 = Strip(STRING003, " ")
  913.             STRING004 = Strip(STRING004, " ")
  914.             STRING003 = Strip(STRING003, ".")
  915.             STRING004 = Strip(STRING004, ".")
  916.             STRING003 = Left(STRING003, 3)
  917.             STRING004 = Right(STRING004, 4)
  918.             STRING003 = Strip(STRING003, " ")
  919.             STRING004 = Strip(STRING004, " ")
  920.         Endif
  921.         If (TokCount() == 1) Then
  922.             GetToken STRING003
  923.             GetToken STRING004
  924.             STRING003 = Strip(STRING003, " ")
  925.             STRING004 = Strip(STRING004, " ")
  926.             STRING003 = Strip(STRING003, ".")
  927.             STRING004 = Strip(STRING004, ".")
  928.             STRING003 = Left(STRING003, 3)
  929.             STRING004 = Right(STRING004, 4)
  930.             STRING003 = Strip(STRING003, " ")
  931.             STRING004 = Strip(STRING004, " ")
  932.         Endif
  933.         FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  934.         FGet 1, STRING043
  935.         INTEGER006 = STRING043
  936.         FClose 1
  937.         STRING045 = 0
  938.         DefColor
  939.         Cls
  940.         AnsiPos 2, 3
  941.         PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  942.         AnsiPos 24, 4
  943.         PrintLn STRING055 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  944.         AnsiPos 24, 5
  945.         PrintLn STRING055 + "█" + STRING054 + "                         " + STRING055 + "█@X07"
  946.         For STRING046 = 1 To STRING043
  947.             If ((STRING052 == STRING046) && (U_Sec < STRING053)) Then
  948.                 Goto LABEL026
  949.                 Goto LABEL026
  950.             Endif
  951.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING046)) Then
  952.                 AnsiPos 24, STRING011
  953.                 PrintLn STRING055 + "█" + STRING054 + "  View Users InfoForm " + STRING012 + "  " + STRING055 + "█@X07"
  954.                 Inc STRING011
  955.                 Inc STRING045
  956.             Endif
  957.             :LABEL026
  958.             Inc STRING012
  959.         Next
  960.         STRING043 = STRING045
  961.         AnsiPos 24, STRING011
  962.         PrintLn STRING055 + "█" + STRING054 + "  Quit Infoform Viewing  " + STRING055 + "█@X07"
  963.         Inc STRING011
  964.         AnsiPos 24, STRING011
  965.         PrintLn STRING055 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  966.         STRING033 = GetY()
  967.         INTEGER004 = 6
  968.         STRING039 = ""
  969.         KbdStuff Chr(32)
  970.         If (STRING045 == 1) KbdStuff Chr(13)
  971.         :LABEL027
  972.         If (BOOLEAN001) Goto LABEL029
  973.         STRING010 = Inkey()
  974.         If (STRING010 == Chr(13)) Then
  975.             STRING044 = Left(ScrText(27, INTEGER004 + 1, 21, 0), 1)
  976.             STRING044 = STRING044 + Right(ScrText(27, INTEGER004 + 1, 21, 0), 1)
  977.             STRING044 = Right(STRING044, 1)
  978.             Goto LABEL029
  979.         Endif
  980.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "z")) || (STRING010 == "Z")) || (STRING010 == "a")) || (STRING010 == "A")) Then
  981.             AnsiPos 27, STRING003
  982.             If (INTEGER004 == STRING033 - STRING045 + 1) Then
  983.                 Print STRING039
  984.                 Goto LABEL028
  985.             Endif
  986.             AnsiPos 27, INTEGER004 + 1
  987.             Print STRING039
  988.             :LABEL028
  989.             AnsiPos 27, INTEGER004
  990.             If (INTEGER004 == 5) INTEGER004 = INTEGER004 + STRING045 + 1
  991.             AnsiPos 27, INTEGER004
  992.             STRING039 = ScrText(27, INTEGER004, 21, 1) + "@X08"
  993.             AnsiPos 27, INTEGER004
  994.             Print STRING056 + ScrText(27, INTEGER004, 21, 0) + "@X08"
  995.             Dec INTEGER004
  996.         Endif
  997.         Goto LABEL027
  998.         :LABEL029
  999.         If (STRING044 == "g") Goto LABEL005
  1000.         Cls
  1001.         StartDisp 1
  1002.         DispFile PPEPath() + "tht-info." + STRING044, 0
  1003.         FOpen 1, PPEPath() + "apps\" + Strip(STRING003, " ") + "_" + Strip(STRING004, " ") + "." + STRING044, 0, 0
  1004.         FDGet STRING025
  1005.         FDGet STRING025
  1006.         FDGet STRING025
  1007.         FDGet STRING025
  1008.         FDGet STRING025
  1009.         FDGet STRING025
  1010.         FClose 2
  1011.         FOpen 2, PPEPath() + "infocfg." + STRING044, 0, 0
  1012.         FGet 2, STRING007
  1013.         FGet 2, STRING007
  1014.         :LABEL030
  1015.         If (Ferr(1)) Goto LABEL031
  1016.         FGet 2, STRING007
  1017.         Tokenize STRING007
  1018.         GetToken INTEGER003
  1019.         GetToken INTEGER004
  1020.         FDGet STRING030
  1021.         AnsiPos INTEGER003, INTEGER004
  1022.         PrintLn STRING030
  1023.         Goto LABEL030
  1024.         :LABEL031
  1025.         FClose 1
  1026.         FClose 2
  1027.         :LABEL032
  1028.         AnsiPos 6, 23
  1029.         InputStr "@X0EVoting is either ""Y""es or ""N""o or ""U""ndecided  _", STRING002, "", 1, "YNUQ", 4 + 2 + 8
  1030.         If (STRING002 == "") Then
  1031.             Goto LABEL032
  1032.         Endif
  1033.         If (STRING002 <> "U") Goto LABEL033
  1034.         If (STRING002 == "U") Then
  1035.             Goto LABEL039
  1036.         Endif
  1037.         :LABEL033
  1038.         If (BOOLEAN002 == 1) Then
  1039.             FClose 1
  1040.             FClose 2
  1041.             FCreate 4, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + String(PcbNode()) + "hg", 1, 0
  1042.             FClose 4
  1043.             FAppend 2, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1", 1, 0
  1044.             FOpen 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1045.             :LABEL034
  1046.             If (Ferr(1)) Goto LABEL038
  1047.             FGet 1, STRING018
  1048.             Tokenize STRING018
  1049.             If (TokCount() == 4) Then
  1050.                 GetToken STRING014
  1051.                 GetToken STRING015
  1052.                 GetToken STRING016
  1053.                 GetToken STRING017
  1054.                 If (U_Name() == STRING014 + " " + STRING015 + " " + STRING016) Then
  1055.                     Print ""
  1056.                     Goto LABEL035
  1057.                 Endif
  1058.                 FPutLn 2, STRING014 + " " + STRING015 + " " + STRING016 + " " + STRING017
  1059.             Endif
  1060.             :LABEL035
  1061.             If (TokCount() == 3) Then
  1062.                 GetToken STRING014
  1063.                 GetToken STRING015
  1064.                 GetToken STRING017
  1065.                 If (U_Name() == STRING014 + " " + STRING015) Then
  1066.                     Print ""
  1067.                     Goto LABEL036
  1068.                 Endif
  1069.                 FPutLn 2, STRING014 + " " + STRING015 + " " + STRING017
  1070.             Endif
  1071.             :LABEL036
  1072.             If (TokCount() == 2) Then
  1073.                 GetToken STRING014
  1074.                 GetToken STRING017
  1075.                 If (STRING014 == U_Name()) Then
  1076.                     Print ""
  1077.                     Goto LABEL037
  1078.                 Endif
  1079.                 FPutLn 2, STRING014 + " " + STRING017
  1080.             Endif
  1081.             :LABEL037
  1082.             Goto LABEL034
  1083.             :LABEL038
  1084.             FClose 2
  1085.             FClose 1
  1086.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1")) Then
  1087.                 Copy PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1", PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot"
  1088.                 Delete PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vo1"
  1089.             Endif
  1090.             FClose 1
  1091.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1092.             FPutLn 1, U_Name() + " " + STRING002
  1093.             FClose 1
  1094.             Goto LABEL039
  1095.         Endif
  1096.         FClose 1
  1097.         FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  1098.         FPutLn 1, U_Name() + " " + STRING002
  1099.         FClose 1
  1100.         :LABEL039
  1101.         Cls
  1102.         AnsiPos 6, 3
  1103.         If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt")) Goto LABEL040
  1104.         PrintLn STRING035
  1105.         FreshLine
  1106.         Wait
  1107.         Goto LABEL041
  1108.         :LABEL040
  1109.         AnsiPos 6, 4
  1110.         InputYN STRING034, STRING037, ""
  1111.         If (STRING037 == YesChar()) Then
  1112.             FreshLine
  1113.             DispFile PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 0
  1114.         Endif
  1115.         FreshLine
  1116.         Wait
  1117.         :LABEL041
  1118.         If ((STRING002 == "U") && (STRING045 > 1)) Goto LABEL025
  1119.         If ((STRING002 == "U") && (STRING045 == 1)) Goto LABEL005
  1120.         Cls
  1121.         AnsiPos 6, 5
  1122.         STRING037 = ""
  1123.         InputYN STRING036, STRING037, ""
  1124.         If (STRING037 == YesChar()) Then
  1125.             AnsiPos 6, 6
  1126.             STRING002 = ""
  1127.             InputStr "@X0C>_", STRING002, "", 58, Mask_Ascii(), 4 + 2
  1128.             If (STRING002 == "") Goto LABEL005
  1129.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 1, 0
  1130.             FPutLn 1, "@X0C" + U_Name() + "@X09 >@X0F " + STRING002
  1131.         Endif
  1132.         FClose 1
  1133.         Goto LABEL005
  1134.     Endif
  1135.     :LABEL042
  1136.     BOOLEAN001 = 1
  1137.     If (BOOLEAN002 == 1) Goto LABEL043
  1138.     DefColor
  1139.     STRING020 = "Do Not HEX-Edit This PPE, You will be Sorry"
  1140.     Cls
  1141.     If ((STRING042 == S2I(STRING050, 34)) && (INTEGER005 > 0)) Then
  1142.         If (Exist(PPEPath() + PPEName() + ".chg")) DispFile PPEPath() + PPEName() + ".chg", 4 + 2
  1143.         Newline
  1144.         STRING023 = "N"
  1145.         InputYN STRING019, STRING023, 1
  1146.         If (STRING023 == YesChar()) Then
  1147.             BOOLEAN002 = 1
  1148.             BOOLEAN001 = 0
  1149.             Goto LABEL001
  1150.         Endif
  1151.     Endif
  1152.     Goto LABEL045
  1153.     :LABEL043
  1154.     If (BOOLEAN002 == 0) Stop
  1155.     FClose 1
  1156.     FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  1157.     :LABEL044
  1158.     If (Ferr(1)) Goto LABEL045
  1159.     FDGet STRING006
  1160.     Tokenize STRING006
  1161.     If (TokCount() == 3) Then
  1162.         GetToken STRING031
  1163.         GetToken STRING032
  1164.         GetToken STRING038
  1165.         STRING031 = Strip(STRING031, " ")
  1166.         STRING031 = Strip(STRING031, ".")
  1167.         STRING032 = Strip(STRING032, " ")
  1168.         STRING032 = Strip(STRING032, ".")
  1169.         STRING031 = Left(STRING031, 3)
  1170.         STRING032 = Right(STRING038, 4)
  1171.         If (Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG"
  1172.     Endif
  1173.     If (TokCount() == 2) Then
  1174.         GetToken STRING031
  1175.         GetToken STRING032
  1176.         STRING031 = Strip(STRING031, " ")
  1177.         STRING031 = Strip(STRING031, ".")
  1178.         STRING032 = Strip(STRING032, " ")
  1179.         STRING032 = Strip(STRING032, ".")
  1180.         STRING031 = Left(STRING031, 3)
  1181.         STRING032 = Right(STRING032, 4)
  1182.         If (Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG"
  1183.     Endif
  1184.     If (TokCount() == 1) Then
  1185.         GetToken STRING031
  1186.         GetToken STRING032
  1187.         STRING031 = Strip(STRING031, ".")
  1188.         STRING031 = Strip(STRING031, " ")
  1189.         STRING032 = Strip(STRING032, ".")
  1190.         STRING032 = Strip(STRING032, " ")
  1191.         STRING031 = Left(STRING031, 3)
  1192.         If (Exist(PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG")) Delete PPEPath() + "apps\" + STRING031 + "_" + STRING032 + "." + String(PcbNode()) + "HG"
  1193.     Endif
  1194.     Goto LABEL044
  1195.     :LABEL045
  1196.     End
  1197.  
  1198. ;------------------------------------------------------------------------------
  1199. ;
  1200. ; Usage report (before postprocessing)
  1201. ;
  1202. ; ■ Statements used :
  1203. ;
  1204. ;    1       End
  1205. ;    9       Cls
  1206. ;    3       Wait
  1207. ;    124     Goto 
  1208. ;    571     Let 
  1209. ;    12      Print 
  1210. ;    26      PrintLn 
  1211. ;    116     If 
  1212. ;    4       DispFile 
  1213. ;    2       FCreate 
  1214. ;    9       FOpen 
  1215. ;    4       FAppend 
  1216. ;    31      FClose 
  1217. ;    7       FGet 
  1218. ;    6       FPutLn 
  1219. ;    2       StartDisp 
  1220. ;    1       GetUser
  1221. ;    4       DefColor
  1222. ;    6       Delete 
  1223. ;    2       InputStr 
  1224. ;    4       InputYN 
  1225. ;    8       Gosub 
  1226. ;    10      Return
  1227. ;    26      Inc 
  1228. ;    2       Dec 
  1229. ;    3       Newline
  1230. ;    6       Tokenize 
  1231. ;    41      GetToken 
  1232. ;    1       Stop
  1233. ;    3       KbdStuff 
  1234. ;    42      AnsiPos 
  1235. ;    3       FreshLine
  1236. ;    1       FDefIn 
  1237. ;    27      FDGet 
  1238. ;    1       Copy 
  1239. ;
  1240. ;
  1241. ; ■ Functions used :
  1242. ;
  1243. ;    617     +
  1244. ;    4       -
  1245. ;    118     ==
  1246. ;    6       <>
  1247. ;    7       <
  1248. ;    5       <=
  1249. ;    7       >
  1250. ;    10      >=
  1251. ;    73      !
  1252. ;    35      &&
  1253. ;    24      ||
  1254. ;    2       Len(
  1255. ;    3       Upper()
  1256. ;    10      Left()
  1257. ;    11      Right()
  1258. ;    6       Ferr()
  1259. ;    270     Chr()
  1260. ;    2       RTrim()
  1261. ;    13      U_Name()
  1262. ;    6       NoChar()
  1263. ;    13      YesChar()
  1264. ;    482     Strip()
  1265. ;    2       Inkey()
  1266. ;    10      String()
  1267. ;    1       Mask_Ascii()
  1268. ;    2       PCBDat()
  1269. ;    44      PPEPath()
  1270. ;    10      PcbNode()
  1271. ;    5       ReadLine()
  1272. ;    3       CurSec()
  1273. ;    14      Exist()
  1274. ;    11      I2S()
  1275. ;    7       S2I()
  1276. ;    2       GetY()
  1277. ;    7       PPEName()
  1278. ;    15      TokCount()
  1279. ;    8       ScrText()
  1280. ;
  1281. ;------------------------------------------------------------------------------
  1282. ;
  1283. ; Analysis flags : d
  1284. ;
  1285. ; d - Access PCBOARD.DAT ■ 2
  1286. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1287. ;     for many PPE so they can find various informations on the system
  1288. ;     (system paths, max number of lines in messages, ...) but it may also
  1289. ;     be a way to gather vital informations.
  1290. ;     ■ Search for : PCBDAT()
  1291. ;
  1292. ;------------------------------------------------------------------------------
  1293. ;
  1294. ; Postprocessing report
  1295. ;
  1296. ;    2       For/Next
  1297. ;    0       While/EndWhile
  1298. ;    56      If/Then or If/Then/Else
  1299. ;    0       Select Case
  1300. ;
  1301. ;------------------------------------------------------------------------------
  1302. ;                 AEGiS Corp - Break the routines, code against the machines!
  1303. ;------------------------------------------------------------------------------
  1304.