home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT213.ZIP / NUV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-04  |  20KB  |  952 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.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.     String   STRING009
  35.     String   STRING010
  36.     String   STRING011
  37.     String   STRING012
  38.     String   STRING013
  39.     String   STRING014
  40.     String   STRING015
  41.     String   STRING016
  42.     String   STRING017
  43.     String   STRING018
  44.     String   STRING019
  45.     String   STRING020
  46.     String   STRING021
  47.     String   STRING022
  48.     String   STRING023
  49.     String   STRING024
  50.     String   STRING025
  51.     String   STRING026
  52.     String   STRING027
  53.     String   STRING028
  54.     String   STRING029
  55.     String   STRING030
  56.     String   STRING031
  57.     String   STRING032
  58.     String   STRING033
  59.     String   STRING034
  60.     String   STRING035
  61.     String   STRING036
  62.     String   STRING037
  63.     String   STRING038
  64.     String   STRING039
  65.     String   STRING040
  66.     String   STRING041
  67.     String   STRING042
  68.     String   STRING043
  69.     String   STRING044
  70.     String   STRING045
  71.     String   STRING046
  72.     String   STRING047
  73.  
  74. ;------------------------------------------------------------------------------
  75.  
  76.     FDefIn 1
  77.     FDefOut 1
  78.     STRING035 = ReadLine(PCBDat(), 2)
  79.     STRING035 = Strip(STRING035, "<")
  80.     STRING035 = Strip(STRING035, ">")
  81.     STRING035 = Strip(STRING035, "*")
  82.     STRING035 = Strip(STRING035, ")")
  83.     STRING035 = Strip(STRING035, "(")
  84.     STRING035 = Strip(STRING035, "{")
  85.     STRING035 = Strip(STRING035, "}")
  86.     STRING035 = Strip(STRING035, "[")
  87.     STRING035 = Strip(STRING035, "]")
  88.     STRING035 = Strip(STRING035, "~")
  89.     STRING035 = Strip(STRING035, "!")
  90.     STRING035 = Strip(STRING035, "@")
  91.     STRING035 = Strip(STRING035, "#")
  92.     STRING035 = Strip(STRING035, "$")
  93.     STRING035 = Strip(STRING035, "%")
  94.     STRING035 = Strip(STRING035, "^")
  95.     STRING035 = Strip(STRING035, "&")
  96.     STRING035 = Strip(STRING035, ":")
  97.     STRING035 = Strip(STRING035, ";")
  98.     STRING035 = Strip(STRING035, "'")
  99.     STRING035 = Strip(STRING035, ".")
  100.     STRING035 = Strip(STRING035, ",")
  101.     STRING035 = Strip(STRING035, "?")
  102.     STRING035 = Strip(STRING035, "/")
  103.     STRING035 = Strip(STRING035, "|")
  104.     STRING035 = Strip(STRING035, "\")
  105.     STRING035 = Strip(STRING035, "+")
  106.     STRING035 = Strip(STRING035, "=")
  107.     STRING035 = Strip(STRING035, ".")
  108.     STRING035 = Strip(STRING035, "«")
  109.     STRING035 = Strip(STRING035, "»")
  110.     STRING035 = Strip(STRING035, "Ü")
  111.     STRING035 = Strip(STRING035, "┤")
  112.     STRING035 = Strip(STRING035, "│")
  113.     STRING035 = Strip(STRING035, "╡")
  114.     STRING035 = Strip(STRING035, "")
  115.     STRING035 = Strip(STRING035, "")
  116.     STRING035 = Strip(STRING035, "")
  117.     STRING035 = Strip(STRING035, "")
  118.     STRING035 = Strip(STRING035, "")
  119.     STRING035 = Strip(STRING035, "")
  120.     STRING035 = Strip(STRING035, "")
  121.     STRING035 = Strip(STRING035, "")
  122.     STRING035 = Strip(STRING035, "")
  123.     STRING035 = Strip(STRING035, "")
  124.     STRING035 = Strip(STRING035, "")
  125.     STRING035 = Strip(STRING035, "")
  126.     STRING035 = Strip(STRING035, "")
  127.     STRING035 = Strip(STRING035, "")
  128.     STRING035 = Strip(STRING035, "")
  129.     STRING035 = Strip(STRING035, "")
  130.     STRING035 = Strip(STRING035, " ")
  131.     STRING035 = Strip(STRING035, "")
  132.     STRING035 = Strip(STRING035, "")
  133.     STRING035 = Strip(STRING035, "Ç")
  134.     STRING035 = Strip(STRING035, "É")
  135.     STRING035 = Strip(STRING035, "á")
  136.     STRING035 = Strip(STRING035, "░")
  137.     STRING035 = Strip(STRING035, "ü")
  138.     STRING035 = Strip(STRING035, "æ")
  139.     STRING035 = Strip(STRING035, "í")
  140.     STRING035 = Strip(STRING035, "▒")
  141.     STRING035 = Strip(STRING035, "é")
  142.     STRING035 = Strip(STRING035, "Æ")
  143.     STRING035 = Strip(STRING035, "ó")
  144.     STRING035 = Strip(STRING035, "▓")
  145.     STRING035 = Strip(STRING035, "â")
  146.     STRING035 = Strip(STRING035, "ô")
  147.     STRING035 = Strip(STRING035, "ú")
  148.     STRING035 = Strip(STRING035, "│")
  149.     STRING035 = Strip(STRING035, "ä")
  150.     STRING035 = Strip(STRING035, "ö")
  151.     STRING035 = Strip(STRING035, "ñ")
  152.     STRING035 = Strip(STRING035, "┤")
  153.     STRING035 = Strip(STRING035, "à")
  154.     STRING035 = Strip(STRING035, "ò")
  155.     STRING035 = Strip(STRING035, "Ñ")
  156.     STRING035 = Strip(STRING035, "╡")
  157.     STRING035 = Strip(STRING035, "å")
  158.     STRING035 = Strip(STRING035, "û")
  159.     STRING035 = Strip(STRING035, "ª")
  160.     STRING035 = Strip(STRING035, "╢")
  161.     STRING035 = Strip(STRING035, "ç")
  162.     STRING035 = Strip(STRING035, "ù")
  163.     STRING035 = Strip(STRING035, "º")
  164.     STRING035 = Strip(STRING035, "╖")
  165.     STRING035 = Strip(STRING035, "ê")
  166.     STRING035 = Strip(STRING035, "ÿ")
  167.     STRING035 = Strip(STRING035, "¿")
  168.     STRING035 = Strip(STRING035, "╕")
  169.     STRING035 = Strip(STRING035, "ë")
  170.     STRING035 = Strip(STRING035, "Ö")
  171.     STRING035 = Strip(STRING035, "⌐")
  172.     STRING035 = Strip(STRING035, "╣")
  173.     STRING035 = Strip(STRING035, "è")
  174.     STRING035 = Strip(STRING035, "Ü")
  175.     STRING035 = Strip(STRING035, "¬")
  176.     STRING035 = Strip(STRING035, "║")
  177.     STRING035 = Strip(STRING035, "ï")
  178.     STRING035 = Strip(STRING035, "¢")
  179.     STRING035 = Strip(STRING035, "½")
  180.     STRING035 = Strip(STRING035, "╗")
  181.     STRING035 = Strip(STRING035, "î")
  182.     STRING035 = Strip(STRING035, "£")
  183.     STRING035 = Strip(STRING035, "¼")
  184.     STRING035 = Strip(STRING035, "╝")
  185.     STRING035 = Strip(STRING035, "ì")
  186.     STRING035 = Strip(STRING035, "¥")
  187.     STRING035 = Strip(STRING035, "¡")
  188.     STRING035 = Strip(STRING035, "╜")
  189.     STRING035 = Strip(STRING035, "Ä")
  190.     STRING035 = Strip(STRING035, "₧")
  191.     STRING035 = Strip(STRING035, "«")
  192.     STRING035 = Strip(STRING035, "╛")
  193.     STRING035 = Strip(STRING035, "Å")
  194.     STRING035 = Strip(STRING035, "ƒ")
  195.     STRING035 = Strip(STRING035, "»")
  196.     STRING035 = Strip(STRING035, "┐")
  197.     STRING035 = Strip(STRING035, " ")
  198.     STRING035 = Strip(STRING035, "└")
  199.     STRING035 = Strip(STRING035, "╨")
  200.     STRING035 = Strip(STRING035, "α")
  201.     STRING035 = Strip(STRING035, "≡")
  202.     STRING035 = Strip(STRING035, "┴")
  203.     STRING035 = Strip(STRING035, "╤")
  204.     STRING035 = Strip(STRING035, "ß")
  205.     STRING035 = Strip(STRING035, "±")
  206.     STRING035 = Strip(STRING035, "┬")
  207.     STRING035 = Strip(STRING035, "╥")
  208.     STRING035 = Strip(STRING035, "Γ")
  209.     STRING035 = Strip(STRING035, "≥")
  210.     STRING035 = Strip(STRING035, "├")
  211.     STRING035 = Strip(STRING035, "╙")
  212.     STRING035 = Strip(STRING035, "π")
  213.     STRING035 = Strip(STRING035, "≤")
  214.     STRING035 = Strip(STRING035, "─")
  215.     STRING035 = Strip(STRING035, "╘")
  216.     STRING035 = Strip(STRING035, "Σ")
  217.     STRING035 = Strip(STRING035, "⌠")
  218.     STRING035 = Strip(STRING035, "┼")
  219.     STRING035 = Strip(STRING035, "╒")
  220.     STRING035 = Strip(STRING035, "σ")
  221.     STRING035 = Strip(STRING035, "⌡")
  222.     STRING035 = Strip(STRING035, "╞")
  223.     STRING035 = Strip(STRING035, "╓")
  224.     STRING035 = Strip(STRING035, "µ")
  225.     STRING035 = Strip(STRING035, "÷")
  226.     STRING035 = Strip(STRING035, "╟")
  227.     STRING035 = Strip(STRING035, "╫")
  228.     STRING035 = Strip(STRING035, "τ")
  229.     STRING035 = Strip(STRING035, "≈")
  230.     STRING035 = Strip(STRING035, "╚")
  231.     STRING035 = Strip(STRING035, "╪")
  232.     STRING035 = Strip(STRING035, "Φ")
  233.     STRING035 = Strip(STRING035, "°")
  234.     STRING035 = Strip(STRING035, "╔")
  235.     STRING035 = Strip(STRING035, "┘")
  236.     STRING035 = Strip(STRING035, "Θ")
  237.     STRING035 = Strip(STRING035, "∙")
  238.     STRING035 = Strip(STRING035, "╩")
  239.     STRING035 = Strip(STRING035, "┌")
  240.     STRING035 = Strip(STRING035, "Ω")
  241.     STRING035 = Strip(STRING035, "·")
  242.     STRING035 = Strip(STRING035, "╦")
  243.     STRING035 = Strip(STRING035, "█")
  244.     STRING035 = Strip(STRING035, "δ")
  245.     STRING035 = Strip(STRING035, "√")
  246.     STRING035 = Strip(STRING035, "╠")
  247.     STRING035 = Strip(STRING035, "▄")
  248.     STRING035 = Strip(STRING035, "∞")
  249.     STRING035 = Strip(STRING035, "ⁿ")
  250.     STRING035 = Strip(STRING035, "═")
  251.     STRING035 = Strip(STRING035, "▌")
  252.     STRING035 = Strip(STRING035, "φ")
  253.     STRING035 = Strip(STRING035, "²")
  254.     STRING035 = Strip(STRING035, "╬")
  255.     STRING035 = Strip(STRING035, "▐")
  256.     STRING035 = Strip(STRING035, "ε")
  257.     STRING035 = Strip(STRING035, "■")
  258.     STRING035 = Strip(STRING035, "╧")
  259.     STRING035 = Strip(STRING035, "▀")
  260.     STRING035 = Strip(STRING035, "∩")
  261.     STRING035 = Strip(STRING035, " ")
  262.     STRING035 = Strip(STRING035, " ")
  263.     INTEGER005 = Len(STRING035)
  264.     If (INTEGER005 < 2) STRING035 = "uv"
  265.     STRING035 = Right(STRING035, 2)
  266.     STRING036 = ReadLine(PCBDat(), 94)
  267.     STRING036 = Strip(STRING036, "<")
  268.     STRING036 = Strip(STRING036, ">")
  269.     STRING036 = Strip(STRING036, "*")
  270.     STRING036 = Strip(STRING036, ")")
  271.     STRING036 = Strip(STRING036, "(")
  272.     STRING036 = Strip(STRING036, "{")
  273.     STRING036 = Strip(STRING036, "}")
  274.     STRING036 = Strip(STRING036, "[")
  275.     STRING036 = Strip(STRING036, "]")
  276.     STRING036 = Strip(STRING036, "~")
  277.     STRING036 = Strip(STRING036, "!")
  278.     STRING036 = Strip(STRING036, "@")
  279.     STRING036 = Strip(STRING036, "#")
  280.     STRING036 = Strip(STRING036, "$")
  281.     STRING036 = Strip(STRING036, "%")
  282.     STRING036 = Strip(STRING036, "^")
  283.     STRING036 = Strip(STRING036, "&")
  284.     STRING036 = Strip(STRING036, ":")
  285.     STRING036 = Strip(STRING036, ";")
  286.     STRING036 = Strip(STRING036, "'")
  287.     STRING036 = Strip(STRING036, ".")
  288.     STRING036 = Strip(STRING036, ",")
  289.     STRING036 = Strip(STRING036, "?")
  290.     STRING036 = Strip(STRING036, "/")
  291.     STRING036 = Strip(STRING036, "|")
  292.     STRING036 = Strip(STRING036, "\")
  293.     STRING036 = Strip(STRING036, "+")
  294.     STRING036 = Strip(STRING036, "=")
  295.     STRING036 = Strip(STRING036, ".")
  296.     STRING036 = Strip(STRING036, "«")
  297.     STRING036 = Strip(STRING036, "»")
  298.     STRING036 = Strip(STRING036, "Ü")
  299.     STRING036 = Strip(STRING036, "┤")
  300.     STRING036 = Strip(STRING036, "│")
  301.     STRING036 = Strip(STRING036, "╡")
  302.     STRING036 = Strip(STRING036, "")
  303.     STRING036 = Strip(STRING036, "")
  304.     STRING036 = Strip(STRING036, "")
  305.     STRING036 = Strip(STRING036, "")
  306.     STRING036 = Strip(STRING036, "")
  307.     STRING036 = Strip(STRING036, "")
  308.     STRING036 = Strip(STRING036, "")
  309.     STRING036 = Strip(STRING036, "")
  310.     STRING036 = Strip(STRING036, "")
  311.     STRING036 = Strip(STRING036, "")
  312.     STRING036 = Strip(STRING036, "")
  313.     STRING036 = Strip(STRING036, "")
  314.     STRING036 = Strip(STRING036, "")
  315.     STRING036 = Strip(STRING036, "")
  316.     STRING036 = Strip(STRING036, "")
  317.     STRING036 = Strip(STRING036, "")
  318.     STRING036 = Strip(STRING036, " ")
  319.     STRING036 = Strip(STRING036, "")
  320.     STRING036 = Strip(STRING036, "")
  321.     STRING036 = Strip(STRING036, "Ç")
  322.     STRING036 = Strip(STRING036, "É")
  323.     STRING036 = Strip(STRING036, "á")
  324.     STRING036 = Strip(STRING036, "░")
  325.     STRING036 = Strip(STRING036, "ü")
  326.     STRING036 = Strip(STRING036, "æ")
  327.     STRING036 = Strip(STRING036, "í")
  328.     STRING036 = Strip(STRING036, "▒")
  329.     STRING036 = Strip(STRING036, "é")
  330.     STRING036 = Strip(STRING036, "Æ")
  331.     STRING036 = Strip(STRING036, "ó")
  332.     STRING036 = Strip(STRING036, "▓")
  333.     STRING036 = Strip(STRING036, "â")
  334.     STRING036 = Strip(STRING036, "ô")
  335.     STRING036 = Strip(STRING036, "ú")
  336.     STRING036 = Strip(STRING036, "│")
  337.     STRING036 = Strip(STRING036, "ä")
  338.     STRING036 = Strip(STRING036, "ö")
  339.     STRING036 = Strip(STRING036, "ñ")
  340.     STRING036 = Strip(STRING036, "┤")
  341.     STRING036 = Strip(STRING036, "à")
  342.     STRING036 = Strip(STRING036, "ò")
  343.     STRING036 = Strip(STRING036, "Ñ")
  344.     STRING036 = Strip(STRING036, "╡")
  345.     STRING036 = Strip(STRING036, "å")
  346.     STRING036 = Strip(STRING036, "û")
  347.     STRING036 = Strip(STRING036, "ª")
  348.     STRING036 = Strip(STRING036, "╢")
  349.     STRING036 = Strip(STRING036, "ç")
  350.     STRING036 = Strip(STRING036, "ù")
  351.     STRING036 = Strip(STRING036, "º")
  352.     STRING036 = Strip(STRING036, "╖")
  353.     STRING036 = Strip(STRING036, "ê")
  354.     STRING036 = Strip(STRING036, "ÿ")
  355.     STRING036 = Strip(STRING036, "¿")
  356.     STRING036 = Strip(STRING036, "╕")
  357.     STRING036 = Strip(STRING036, "ë")
  358.     STRING036 = Strip(STRING036, "Ö")
  359.     STRING036 = Strip(STRING036, "⌐")
  360.     STRING036 = Strip(STRING036, "╣")
  361.     STRING036 = Strip(STRING036, "è")
  362.     STRING036 = Strip(STRING036, "Ü")
  363.     STRING036 = Strip(STRING036, "¬")
  364.     STRING036 = Strip(STRING036, "║")
  365.     STRING036 = Strip(STRING036, "ï")
  366.     STRING036 = Strip(STRING036, "¢")
  367.     STRING036 = Strip(STRING036, "½")
  368.     STRING036 = Strip(STRING036, "╗")
  369.     STRING036 = Strip(STRING036, "î")
  370.     STRING036 = Strip(STRING036, "£")
  371.     STRING036 = Strip(STRING036, "¼")
  372.     STRING036 = Strip(STRING036, "╝")
  373.     STRING036 = Strip(STRING036, "ì")
  374.     STRING036 = Strip(STRING036, "¥")
  375.     STRING036 = Strip(STRING036, "¡")
  376.     STRING036 = Strip(STRING036, "╜")
  377.     STRING036 = Strip(STRING036, "Ä")
  378.     STRING036 = Strip(STRING036, "₧")
  379.     STRING036 = Strip(STRING036, "«")
  380.     STRING036 = Strip(STRING036, "╛")
  381.     STRING036 = Strip(STRING036, "Å")
  382.     STRING036 = Strip(STRING036, "ƒ")
  383.     STRING036 = Strip(STRING036, "»")
  384.     STRING036 = Strip(STRING036, "┐")
  385.     STRING036 = Strip(STRING036, " ")
  386.     STRING036 = Strip(STRING036, "└")
  387.     STRING036 = Strip(STRING036, "╨")
  388.     STRING036 = Strip(STRING036, "α")
  389.     STRING036 = Strip(STRING036, "≡")
  390.     STRING036 = Strip(STRING036, "┴")
  391.     STRING036 = Strip(STRING036, "╤")
  392.     STRING036 = Strip(STRING036, "ß")
  393.     STRING036 = Strip(STRING036, "±")
  394.     STRING036 = Strip(STRING036, "┬")
  395.     STRING036 = Strip(STRING036, "╥")
  396.     STRING036 = Strip(STRING036, "Γ")
  397.     STRING036 = Strip(STRING036, "≥")
  398.     STRING036 = Strip(STRING036, "├")
  399.     STRING036 = Strip(STRING036, "╙")
  400.     STRING036 = Strip(STRING036, "π")
  401.     STRING036 = Strip(STRING036, "≤")
  402.     STRING036 = Strip(STRING036, "─")
  403.     STRING036 = Strip(STRING036, "╘")
  404.     STRING036 = Strip(STRING036, "Σ")
  405.     STRING036 = Strip(STRING036, "⌠")
  406.     STRING036 = Strip(STRING036, "┼")
  407.     STRING036 = Strip(STRING036, "╒")
  408.     STRING036 = Strip(STRING036, "σ")
  409.     STRING036 = Strip(STRING036, "⌡")
  410.     STRING036 = Strip(STRING036, "╞")
  411.     STRING036 = Strip(STRING036, "╓")
  412.     STRING036 = Strip(STRING036, "µ")
  413.     STRING036 = Strip(STRING036, "÷")
  414.     STRING036 = Strip(STRING036, "╟")
  415.     STRING036 = Strip(STRING036, "╫")
  416.     STRING036 = Strip(STRING036, "τ")
  417.     STRING036 = Strip(STRING036, "≈")
  418.     STRING036 = Strip(STRING036, "╚")
  419.     STRING036 = Strip(STRING036, "╪")
  420.     STRING036 = Strip(STRING036, "Φ")
  421.     STRING036 = Strip(STRING036, "°")
  422.     STRING036 = Strip(STRING036, "╔")
  423.     STRING036 = Strip(STRING036, "┘")
  424.     STRING036 = Strip(STRING036, "Θ")
  425.     STRING036 = Strip(STRING036, "∙")
  426.     STRING036 = Strip(STRING036, "╩")
  427.     STRING036 = Strip(STRING036, "┌")
  428.     STRING036 = Strip(STRING036, "Ω")
  429.     STRING036 = Strip(STRING036, "·")
  430.     STRING036 = Strip(STRING036, "╦")
  431.     STRING036 = Strip(STRING036, "█")
  432.     STRING036 = Strip(STRING036, "δ")
  433.     STRING036 = Strip(STRING036, "√")
  434.     STRING036 = Strip(STRING036, "╠")
  435.     STRING036 = Strip(STRING036, "▄")
  436.     STRING036 = Strip(STRING036, "∞")
  437.     STRING036 = Strip(STRING036, "ⁿ")
  438.     STRING036 = Strip(STRING036, "═")
  439.     STRING036 = Strip(STRING036, "▌")
  440.     STRING036 = Strip(STRING036, "φ")
  441.     STRING036 = Strip(STRING036, "²")
  442.     STRING036 = Strip(STRING036, "╬")
  443.     STRING036 = Strip(STRING036, "▐")
  444.     STRING036 = Strip(STRING036, "ε")
  445.     STRING036 = Strip(STRING036, "■")
  446.     STRING036 = Strip(STRING036, "╧")
  447.     STRING036 = Strip(STRING036, "▀")
  448.     STRING036 = Strip(STRING036, "∩")
  449.     STRING036 = Strip(STRING036, " ")
  450.     STRING036 = Strip(STRING036, " ")
  451.     INTEGER006 = Len(STRING036)
  452.     If (INTEGER006 < 2) STRING036 = "uv"
  453.     STRING036 = Right(STRING036, 2)
  454.     STRING037 = STRING035 + STRING036 + "VU"
  455.     GetUser
  456.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  457.     FDGet STRING030
  458.     FDGet STRING028
  459.     FDGet STRING022
  460.     FDGet STRING023
  461.     FDGet STRING024
  462.     FDGet STRING039
  463.     FDGet STRING040
  464.     FDGet STRING044
  465.     FDGet STRING043
  466.     FDGet STRING041
  467.     FDGet STRING042
  468.     FDGet STRING045
  469.     FDGet STRING046
  470.     FDGet STRING047
  471.     FClose 1
  472.     If (STRING028 > CurSec()) Goto LABEL030
  473.     If (Exist(PPEPath() + "apps\waiting.app")) Then
  474.         STRING008 = "@X1E" + 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) + " @X1Cv@X1F2@X1B.@X1F12@X9B" + " @X1C" + Chr(70) + Chr(114) + Chr(111) + Chr(109) + " @X1E" + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + " " + Chr(66) + Chr(101) + Chr(116) + Chr(97) + " @X1B@ @X1C" + Chr(60) + Chr(60) + "@X1E" + Chr(84) + Chr(72) + Chr(84) + "@X1C" + Chr(62) + Chr(62) + "@X07"
  475.         If (STRING008 <> "@X1ENew User Voting @X1Cv@X1F2@X1B.@X1F12@X9B @X1CFrom @X1EMaster Beta @X1B@ @X1C<<@X1ETHT@X1C>>@X07") Goto LABEL030
  476.         STRING025 = STRING044
  477.         STRING025 = Upper(STRING025)
  478.         Cls
  479.         AnsiPos 12, 3
  480.         PrintLn STRING008
  481.         If (Exist(PPEPath() + PPEName() + ".pcb")) DispFile PPEPath() + PPEName() + ".PCB", 4 + 2
  482.         Newline
  483.         InputYN STRING047, STRING025, " "
  484.         If (STRING025 == NoChar()) Goto LABEL030
  485.         :LABEL001
  486.         DefColor
  487.         STRING001 = 7
  488.         FClose 2
  489.         FClose 1
  490.         FOpen 1, PPEPath() + "apps\waiting.app", 0, 0
  491.         INTEGER003 = 0
  492.         :LABEL002
  493.         If (Ferr(1)) Goto LABEL006
  494.         STRING009 = ""
  495.         FDGet STRING006
  496.         If (STRING006 == "") Goto LABEL013
  497.         Tokenize STRING006
  498.         If (TokCount() == 3) Then
  499.             GetToken STRING019
  500.             GetToken STRING020
  501.             GetToken STRING026
  502.             STRING019 = Left(STRING019, 3)
  503.             STRING020 = Right(STRING026, 4)
  504.             STRING019 = Strip(STRING019, " ")
  505.             STRING019 = Strip(STRING019, ".")
  506.             STRING020 = Strip(STRING020, " ")
  507.             STRING020 = Strip(STRING020, ".")
  508.             Goto LABEL003
  509.         Endif
  510.         If (TokCount() == 2) Then
  511.             GetToken STRING019
  512.             GetToken STRING020
  513.             STRING019 = Left(STRING019, 3)
  514.             STRING020 = Right(STRING020, 4)
  515.             STRING019 = Strip(STRING019, " ")
  516.             STRING019 = Strip(STRING019, ".")
  517.             STRING020 = Strip(STRING020, " ")
  518.             STRING020 = Strip(STRING020, ".")
  519.             Goto LABEL003
  520.         Endif
  521.         If (TokCount() == 1) Then
  522.             GetToken STRING019
  523.             GetToken STRING020
  524.             STRING019 = Strip(STRING019, ".")
  525.             STRING019 = Strip(STRING019, " ")
  526.             STRING020 = Strip(STRING020, ".")
  527.             STRING020 = Strip(STRING020, " ")
  528.             STRING019 = Left(STRING019, 3)
  529.         Endif
  530.         :LABEL003
  531.         STRING029 = ReadLine(PPEPath() + "apps\" + STRING019 + "_" + STRING020 + ".GRP", 1)
  532.         If (Exist(PPEPath() + "apps\" + STRING019 + "_" + STRING020 + ".vot")) Goto LABEL004
  533.         FCreate 3, PPEPath() + "apps\" + STRING019 + "_" + STRING020 + ".vot", 1, 0
  534.         FClose 3
  535.         :LABEL004
  536.         Gosub LABEL009
  537.         If (!Exist(PPEPath() + "apps\" + STRING019 + "_" + STRING020 + ".1")) STRING009 = YesChar()
  538.         If (STRING006 == U_Name()) STRING009 = YesChar()
  539.         If (STRING009 == "") Then
  540.             Inc STRING001
  541.             Inc INTEGER003
  542.             If (INTEGER003 == 1) Gosub LABEL007
  543.             Gosub LABEL008
  544.             FClose 2
  545.             Goto LABEL005
  546.         Endif
  547.         FClose 2
  548.         :LABEL005
  549.         Goto LABEL002
  550.         :LABEL006
  551.         Goto LABEL013
  552.         :LABEL007
  553.         StartDisp 1
  554.         Cls
  555.         AnsiPos 6, 1
  556.         PrintLn "@POS:18@" + STRING008
  557.         AnsiPos 9, 2
  558.         PrintLn STRING045
  559.         AnsiPos 35, 3
  560.         PrintLn STRING046
  561.         AnsiPos 6, 4
  562.         PrintLn "@POS:13@" + STRING042 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  563.         AnsiPos 6, 5
  564.         PrintLn "@POS:13@" + STRING042 + "█" + STRING041 + "  UserName/Handle               Location/Group             " + STRING042 + "█"
  565.         AnsiPos 6, 6
  566.         PrintLn "@POS:13@" + STRING042 + "█" + STRING041 + "─────────────────────────────┬─────────────────────────────" + STRING042 + "█"
  567.         AnsiPos 6, 7
  568.         PrintLn "@POS:13@" + STRING042 + "█" + STRING041 + "                             │                             " + STRING042 + "█"
  569.         Return
  570.         :LABEL008
  571.         AnsiPos 6, STRING001
  572.         PrintLn "@POS:13@" + STRING042 + "█" + STRING041 + "    " + STRING006 + "@POS:43@│    " + STRING029 + "@POS:73@" + STRING042 + "█"
  573.         Return
  574.         :LABEL009
  575.         FOpen 2, PPEPath() + "apps\" + STRING019 + "_" + STRING020 + ".vot", 0, 0
  576.         :LABEL010
  577.         If (Ferr(2)) Goto LABEL011
  578.         FGet 2, STRING014
  579.         If (STRING014 == " ") Goto LABEL012
  580.         Tokenize STRING014
  581.         If (TokCount() == 4) Then
  582.             GetToken STRING015
  583.             GetToken STRING016
  584.             GetToken STRING017
  585.             If (U_Name() == STRING015 + " " + STRING016 + " " + STRING017) Then
  586.                 STRING009 = YesChar()
  587.                 FClose 2
  588.                 Return
  589.             Endif
  590.         Endif
  591.         If (TokCount() == 3) Then
  592.             GetToken STRING015
  593.             GetToken STRING016
  594.             If (U_Name() == STRING015 + " " + STRING016) Then
  595.                 STRING009 = YesChar()
  596.                 FClose 2
  597.             Endif
  598.         Endif
  599.         If (TokCount() == 2) Then
  600.             GetToken STRING015
  601.             If (U_Name() == STRING015) Then
  602.                 STRING009 = YesChar()
  603.                 FClose 2
  604.             Endif
  605.         Endif
  606.         Goto LABEL010
  607.         :LABEL011
  608.         Return
  609.         :LABEL012
  610.         Return
  611.         :LABEL013
  612.         If ((INTEGER003 == 0) && (STRING030 == S2I(STRING037, 33))) Then
  613.             Goto LABEL030
  614.         Endif
  615.         If ((INTEGER003 == 0) && (STRING030 <> S2I(STRING037, 33))) Then
  616.             Gosub LABEL007
  617.         Endif
  618.         Inc STRING001
  619.         AnsiPos 6, STRING001
  620.         PrintLn "@POS:13@" + STRING042 + "█" + STRING041 + "    Quit New User Voting.    │                             " + STRING042 + "█"
  621.         Inc STRING001
  622.         AnsiPos 6, STRING001
  623.         PrintLn "@POS:13@" + STRING042 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  624.         FClose 1
  625.         If (STRING030 == S2I(STRING037, 33)) Goto LABEL014
  626.         STRING038 = "@X0C" + Chr(60) + Chr(60) + Chr(60) + "@X0C" + Chr(85) + Chr(110) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + "@X0C" + Chr(62) + Chr(62) + Chr(62)
  627.         If (STRING038 <> "@X0C<<<@X0CUnRegistered@X0C>>>") Goto LABEL030
  628.         AnsiPos 48, 7
  629.         Print STRING038
  630.         :LABEL014
  631.         Inc STRING001
  632.         AnsiPos 6, STRING001
  633.         STRING027 = ""
  634.         STRING021 = GetY()
  635.         STRING001 = STRING021 - 2
  636.         KbdStuff Chr(32)
  637.         :LABEL015
  638.         If (BOOLEAN001) Goto LABEL017
  639.         STRING010 = Inkey()
  640.         If (STRING010 == Chr(13)) Then
  641.             STRING002 = RTrim(ScrText(18, STRING001 + 1, 25, 0), " ")
  642.             If (STRING002 == "Quit New User Voting.") Goto LABEL030
  643.             STRING013 = STRING002
  644.             Goto LABEL018
  645.         Endif
  646.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "A")) || (STRING010 == "a")) || (STRING010 == "Z")) || (STRING010 == "z")) Then
  647.             AnsiPos 18, STRING001
  648.             If (STRING003 == STRING021 - 2) Then
  649.                 Print STRING027
  650.                 AnsiPos 18, STRING001
  651.                 Goto LABEL016
  652.             Endif
  653.             AnsiPos 18, STRING001 + 1
  654.             Print STRING027
  655.             :LABEL016
  656.             If (STRING001 == 7) STRING001 = STRING001 + INTEGER003 + 1
  657.             AnsiPos 18, STRING001
  658.             STRING027 = ScrText(18, STRING001, 25, 1)
  659.             Print STRING043 + RTrim(ScrText(18, STRING001, 25, 0), " ")
  660.             Dec STRING001
  661.         Endif
  662.         Goto LABEL015
  663.         :LABEL017
  664.         :LABEL018
  665.         STRING012 = 1
  666.         STRING011 = 6
  667.         Inc STRING001
  668.         Tokenize STRING013
  669.         If (TokCount() == 3) Then
  670.             GetToken STRING003
  671.             GetToken STRING004
  672.             GetToken STRING005
  673.             STRING003 = Strip(STRING003, " ")
  674.             STRING004 = Strip(STRING004, " ")
  675.             STRING003 = Strip(STRING003, ".")
  676.             STRING004 = Strip(STRING004, ".")
  677.             STRING003 = Left(STRING003, 3)
  678.             STRING004 = Right(STRING005, 4)
  679.         Endif
  680.         If (TokCount() == 2) Then
  681.             GetToken STRING003
  682.             GetToken STRING004
  683.             STRING003 = Strip(STRING003, " ")
  684.             STRING004 = Strip(STRING004, " ")
  685.             STRING003 = Strip(STRING003, ".")
  686.             STRING004 = Strip(STRING004, ".")
  687.             STRING003 = Left(STRING003, 3)
  688.             STRING004 = Right(STRING004, 4)
  689.         Endif
  690.         If (TokCount() == 1) Then
  691.             GetToken STRING003
  692.             GetToken STRING004
  693.             STRING003 = Strip(STRING003, " ")
  694.             STRING004 = Strip(STRING004, " ")
  695.             STRING003 = Strip(STRING003, ".")
  696.             STRING004 = Strip(STRING004, ".")
  697.             STRING003 = Left(STRING003, 3)
  698.             STRING004 = Right(STRING004, 4)
  699.         Endif
  700.         FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  701.         FGet 1, STRING031
  702.         INTEGER004 = STRING031
  703.         FClose 1
  704.         STRING033 = 0
  705.         DefColor
  706.         Cls
  707.         AnsiPos 2, 3
  708.         PrintLn "@X0EUse Cursor Keys to move the @X74HighLighted Bar@X0E  or @X0C""@X09A@X0C""@X0F,@X0C ""@X09Z@X0C""@X0E or @X0FSpaceBar@X0    
  709.         AnsiPos 24, 4
  710.         PrintLn STRING042 + "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  711.         AnsiPos 24, 5
  712.         PrintLn STRING042 + "█" + STRING041 + "                         " + STRING042 + "█@X07"
  713.         For STRING034 = 1 To STRING031
  714.             If ((STRING039 == STRING034) && (U_Sec < STRING040)) Then
  715.                 Goto LABEL019
  716.                 Goto LABEL019
  717.             Endif
  718.             If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING034)) Then
  719.                 AnsiPos 24, STRING011
  720.                 PrintLn STRING042 + "█" + STRING041 + "  View Users InfoForm " + STRING012 + "  " + STRING042 + "█@X07"
  721.                 Inc STRING011
  722.                 Inc STRING033
  723.             Endif
  724.             :LABEL019
  725.             Inc STRING012
  726.         Next
  727.         STRING031 = STRING033
  728.         AnsiPos 24, STRING011
  729.         PrintLn STRING042 + "█" + STRING041 + "  Quit Infoform Viewing  " + STRING042 + "█@X07"
  730.         Inc STRING011
  731.         AnsiPos 24, STRING011
  732.         PrintLn STRING042 + "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  733.         STRING021 = GetY()
  734.         INTEGER002 = 6
  735.         STRING027 = ""
  736.         KbdStuff Chr(32)
  737.         If (STRING033 == 1) KbdStuff Chr(13)
  738.         :LABEL020
  739.         If (BOOLEAN001) Goto LABEL022
  740.         STRING010 = Inkey()
  741.         If (STRING010 == Chr(13)) Then
  742.             STRING032 = Left(ScrText(27, INTEGER002 + 1, 21, 0), 1)
  743.             STRING032 = STRING032 + Right(ScrText(27, INTEGER002 + 1, 21, 0), 1)
  744.             STRING032 = Right(STRING032, 1)
  745.             Goto LABEL022
  746.         Endif
  747.         If (((((((((STRING010 == Chr(32)) || (STRING010 == "UP")) || (STRING010 == "DOWN")) || (STRING010 == "LEFT")) || (STRING010 == "RIGHT")) || (STRING010 == "z")) || (STRING010 == "Z")) || (STRING010 == "a")) || (STRING010 == "A")) Then
  748.             AnsiPos 27, STRING003
  749.             If (INTEGER002 == STRING021 - STRING033 + 1) Then
  750.                 Print STRING027
  751.                 Goto LABEL021
  752.             Endif
  753.             AnsiPos 27, INTEGER002 + 1
  754.             Print STRING027
  755.             :LABEL021
  756.             AnsiPos 27, INTEGER002
  757.             If (INTEGER002 == 5) INTEGER002 = INTEGER002 + STRING033 + 1
  758.             AnsiPos 27, INTEGER002
  759.             STRING027 = ScrText(27, INTEGER002, 21, 1) + "@X08"
  760.             AnsiPos 27, INTEGER002
  761.             Print STRING043 + ScrText(27, INTEGER002, 21, 0) + "@X08"
  762.             Dec INTEGER002
  763.         Endif
  764.         Goto LABEL020
  765.         :LABEL022
  766.         If (STRING032 == "g") Goto LABEL001
  767.         Cls
  768.         StartDisp 1
  769.         DispFile PPEPath() + "tht-info." + STRING032, 0
  770.         FOpen 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + "." + STRING032, 0, 0
  771.         FDGet STRING014
  772.         FDGet STRING014
  773.         FDGet STRING014
  774.         FDGet STRING014
  775.         FDGet STRING014
  776.         FDGet STRING014
  777.         FClose 2
  778.         FOpen 2, PPEPath() + "infocfg." + STRING032, 0, 0
  779.         FGet 2, STRING007
  780.         FGet 2, STRING007
  781.         :LABEL023
  782.         If (Ferr(1)) Goto LABEL024
  783.         FGet 2, STRING007
  784.         Tokenize STRING007
  785.         GetToken INTEGER001
  786.         GetToken INTEGER002
  787.         FDGet STRING018
  788.         AnsiPos INTEGER001, INTEGER002
  789.         PrintLn STRING018
  790.         Goto LABEL023
  791.         :LABEL024
  792.         FClose 1
  793.         FClose 2
  794.         :LABEL025
  795.         AnsiPos 6, 23
  796.         InputStr "@X0EVoting is either ""Y""es or ""N""o or ""U""ndecided  _", STRING002, "", 1, "YNU", 4 + 2 + 8
  797.         If (STRING002 == "") Then
  798.             Goto LABEL025
  799.         Endif
  800.         If (STRING002 <> "U") Goto LABEL026
  801.         If (STRING002 == "U") Then
  802.             Goto LABEL027
  803.         Endif
  804.         :LABEL026
  805.         FClose 1
  806.         FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".vot", 2, 0
  807.         FPutLn 1, U_Name() + " " + STRING002
  808.         FClose 1
  809.         :LABEL027
  810.         Cls
  811.         AnsiPos 6, 3
  812.         If (Exist(PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt")) Goto LABEL028
  813.         PrintLn STRING023
  814.         FreshLine
  815.         Wait
  816.         Goto LABEL029
  817.         :LABEL028
  818.         AnsiPos 6, 4
  819.         InputYN STRING022, STRING025, ""
  820.         If (STRING025 == YesChar()) Then
  821.             FreshLine
  822.             DispFile PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 0
  823.         Endif
  824.         FreshLine
  825.         Wait
  826.         :LABEL029
  827.         If ((STRING002 == "U") && (STRING033 > 1)) Goto LABEL018
  828.         If ((STRING002 == "U") && (STRING033 == 1)) Goto LABEL001
  829.         Cls
  830.         AnsiPos 6, 5
  831.         STRING025 = ""
  832.         InputYN STRING024, STRING025, ""
  833.         If (STRING025 == YesChar()) Then
  834.             AnsiPos 6, 6
  835.             STRING002 = ""
  836.             InputStr "@X0C>_", STRING002, "", 58, Mask_Ascii(), 4 + 2
  837.             If (STRING002 == "") Goto LABEL001
  838.             FAppend 1, PPEPath() + "apps\" + STRING003 + "_" + STRING004 + ".cmt", 1, 0
  839.             FDPutLn "@X0C" + U_Name() + "@X09 >@X0F " + STRING002 + Chr(13) + Chr(10)
  840.         Endif
  841.         FClose 1
  842.         Goto LABEL001
  843.     Endif
  844.     :LABEL030
  845.     BOOLEAN001 = 1
  846.     DefColor
  847.     Cls
  848.     End
  849.  
  850. ;------------------------------------------------------------------------------
  851. ;
  852. ; Usage report (before postprocessing)
  853. ;
  854. ; ■ Statements used :
  855. ;
  856. ;    1       End
  857. ;    7       Cls
  858. ;    2       Wait
  859. ;    71      Goto 
  860. ;    452     Let 
  861. ;    7       Print 
  862. ;    19      PrintLn 
  863. ;    58      If 
  864. ;    3       DispFile 
  865. ;    1       FCreate 
  866. ;    6       FOpen 
  867. ;    2       FAppend 
  868. ;    17      FClose 
  869. ;    5       FGet 
  870. ;    1       FPutLn 
  871. ;    2       StartDisp 
  872. ;    1       GetUser
  873. ;    3       DefColor
  874. ;    2       InputStr 
  875. ;    3       InputYN 
  876. ;    4       Gosub 
  877. ;    5       Return
  878. ;    10      Inc 
  879. ;    2       Dec 
  880. ;    1       Newline
  881. ;    4       Tokenize 
  882. ;    22      GetToken 
  883. ;    3       KbdStuff 
  884. ;    34      AnsiPos 
  885. ;    3       FreshLine
  886. ;    1       FDefIn 
  887. ;    1       FDefOut 
  888. ;    22      FDGet 
  889. ;    1       FDPutLn 
  890. ;
  891. ;
  892. ; ■ Functions used :
  893. ;
  894. ;    227     +
  895. ;    3       -
  896. ;    58      ==
  897. ;    4       <>
  898. ;    4       <
  899. ;    1       <=
  900. ;    2       >
  901. ;    2       >=
  902. ;    38      !
  903. ;    7       &&
  904. ;    17      ||
  905. ;    2       Len(
  906. ;    1       Upper()
  907. ;    7       Left()
  908. ;    9       Right()
  909. ;    3       Ferr()
  910. ;    61      Chr()
  911. ;    2       RTrim()
  912. ;    6       U_Name()
  913. ;    1       NoChar()
  914. ;    7       YesChar()
  915. ;    392     Strip()
  916. ;    2       Inkey()
  917. ;    1       Mask_Ascii()
  918. ;    2       PCBDat()
  919. ;    19      PPEPath()
  920. ;    3       ReadLine()
  921. ;    1       CurSec()
  922. ;    6       Exist()
  923. ;    3       S2I()
  924. ;    2       GetY()
  925. ;    3       PPEName()
  926. ;    9       TokCount()
  927. ;    7       ScrText()
  928. ;
  929. ;------------------------------------------------------------------------------
  930. ;
  931. ; Analysis flags : d
  932. ;
  933. ; d - Access PCBOARD.DAT ■ 2
  934. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  935. ;     for many PPE so they can find various informations on the system
  936. ;     (system paths, max number of lines in messages, ...) but it may also
  937. ;     be a way to gather vital informations.
  938. ;     ■ Search for : PCBDAT()
  939. ;
  940. ;------------------------------------------------------------------------------
  941. ;
  942. ; Postprocessing report
  943. ;
  944. ;    1       For/Next
  945. ;    0       While/EndWhile
  946. ;    28      If/Then or If/Then/Else
  947. ;    0       Select Case
  948. ;
  949. ;------------------------------------------------------------------------------
  950. ;                 AEGiS Corp - Break the routines, code against the machines!
  951. ;------------------------------------------------------------------------------
  952.