home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT212.ZIP / MATRIX.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-12-31  |  31KB  |  1,717 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  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     Integer  INTEGER010
  30.     Integer  INTEGER011
  31.     Integer  INTEGER012
  32.     Integer  INTEGER013
  33.     Integer  INTEGER014
  34.     Integer  INTEGER015
  35.     Integer  INTEGER016
  36.     Integer  INTEGER017
  37.     Integer  INTEGER018
  38.     Integer  INTEGER019
  39.     Integer  INTEGER020
  40.     Integer  INTEGER021
  41.     String   STRING003
  42.     String   STRING004
  43.     String   STRING005
  44.     String   STRING006
  45.     String   STRING007
  46.     String   STRING008
  47.     String   STRING009
  48.     String   STRING010
  49.     String   STRING011
  50.     String   STRING012
  51.     String   STRING013
  52.     String   STRING014
  53.     String   STRING015
  54.     String   STRING016
  55.     String   STRING017
  56.     String   STRING018
  57.     String   STRING019
  58.     String   STRING020
  59.     String   STRING021
  60.     String   STRING022
  61.     String   STRING023
  62.     String   STRING024
  63.     String   STRING025
  64.     String   STRING026
  65.     String   STRING027
  66.     String   STRING028
  67.     String   STRING029
  68.     String   STRING030
  69.     String   STRING031
  70.     String   STRING032
  71.     String   STRING033
  72.     String   STRING034
  73.     String   TSTRING035(10)
  74.     String   STRING036
  75.     String   STRING037
  76.     String   STRING038
  77.     String   STRING039
  78.     String   STRING040
  79.     String   STRING041
  80.     String   STRING042
  81.     String   STRING043
  82.     String   STRING044
  83.     String   STRING045
  84.     String   STRING046
  85.     String   STRING047
  86.     String   STRING048
  87.     String   STRING049
  88.     String   STRING050
  89.     String   STRING051
  90.     String   STRING052
  91.     String   STRING053
  92.     String   STRING054
  93.     String   STRING055
  94.     String   STRING056
  95.     String   STRING057
  96.     String   STRING058
  97.     String   STRING059
  98.     String   STRING060
  99.     String   STRING061
  100.     String   STRING062
  101.     String   STRING063
  102.     String   STRING064
  103.     String   STRING065
  104.     String   STRING066
  105.     String   STRING067
  106.     String   STRING068
  107.     String   STRING069
  108.     String   STRING070
  109.     String   STRING071
  110.     String   STRING072
  111.     String   STRING073
  112.     String   STRING074
  113.     String   STRING075
  114.     String   STRING076
  115.     String   STRING077
  116.     String   STRING078
  117.     String   STRING079
  118.     String   STRING080
  119.     String   STRING081
  120.     String   STRING082
  121.     String   STRING083
  122.     String   STRING084
  123.     String   STRING085
  124.     String   STRING086
  125.     String   STRING087
  126.     String   STRING088
  127.     String   STRING089
  128.     String   STRING090
  129.     String   STRING091
  130.     String   STRING092
  131.     String   STRING093
  132.     String   STRING094
  133.     String   STRING095
  134.     String   STRING096
  135.     String   STRING097
  136.     String   STRING098
  137.     String   STRING099
  138.     String   STRING100
  139.     String   TSTRING101(50,7)
  140.     String   TSTRING102(50)
  141.     String   TSTRING103(50)
  142.     String   TSTRING104(50)
  143.     String   TSTRING105(50)
  144.     String   STRING106
  145.     String   STRING107
  146.     String   STRING108
  147.     String   STRING109
  148.     String   STRING110
  149.     Time     TIME001
  150.     Time     TIME002
  151.  
  152. ;------------------------------------------------------------------------------
  153.  
  154.     AdjTime 5
  155.     FDefIn 1
  156.     FDefOut 2
  157.     If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  158.     STRING096 = "@X09" + Chr(67) + Chr(111) + Chr(100) + Chr(101) + Chr(100) + "@X04 " + Chr(66) + Chr(121) + "@X0B " + Chr(84) + Chr(104) + Chr(101) + "@X01 " + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114)
  159.     STRING052 = "@X0E" + Chr(84) + Chr(72) + Chr(84) + "-" + Chr(77) + Chr(97) + Chr(116) + Chr(114) + Chr(105) + Chr(120) + " @X09v" + Chr(50) + "." + Chr(49) + Chr(50) + "  " + "@X0ECompiled on @X0C12-31-93@X07"
  160.     If (STRING052 <> "@X0ETHT-Matrix @X09v2.12" + "  " + "@X0ECompiled on @X0C12-31-93@X07") Goto LABEL070
  161.     If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".mal")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".mal"
  162.     STRING097 = ReadLine(PCBDat(), 2)
  163.     STRING097 = Strip(STRING097, "<")
  164.     STRING097 = Strip(STRING097, ">")
  165.     STRING097 = Strip(STRING097, "*")
  166.     STRING097 = Strip(STRING097, ")")
  167.     STRING097 = Strip(STRING097, "(")
  168.     STRING097 = Strip(STRING097, "{")
  169.     STRING097 = Strip(STRING097, "}")
  170.     STRING097 = Strip(STRING097, "[")
  171.     STRING097 = Strip(STRING097, "]")
  172.     STRING097 = Strip(STRING097, "~")
  173.     STRING097 = Strip(STRING097, "!")
  174.     STRING097 = Strip(STRING097, "@")
  175.     STRING097 = Strip(STRING097, "#")
  176.     STRING097 = Strip(STRING097, "$")
  177.     STRING097 = Strip(STRING097, "%")
  178.     STRING097 = Strip(STRING097, "^")
  179.     STRING097 = Strip(STRING097, "&")
  180.     STRING097 = Strip(STRING097, ":")
  181.     STRING097 = Strip(STRING097, ";")
  182.     STRING097 = Strip(STRING097, "'")
  183.     STRING097 = Strip(STRING097, ".")
  184.     STRING097 = Strip(STRING097, ",")
  185.     STRING097 = Strip(STRING097, "?")
  186.     STRING097 = Strip(STRING097, "/")
  187.     STRING097 = Strip(STRING097, "|")
  188.     STRING097 = Strip(STRING097, "\")
  189.     STRING097 = Strip(STRING097, "+")
  190.     STRING097 = Strip(STRING097, "=")
  191.     STRING097 = Strip(STRING097, ".")
  192.     STRING097 = Strip(STRING097, "«")
  193.     STRING097 = Strip(STRING097, "»")
  194.     STRING097 = Strip(STRING097, "Ü")
  195.     STRING097 = Strip(STRING097, "┤")
  196.     STRING097 = Strip(STRING097, "│")
  197.     STRING097 = Strip(STRING097, "╡")
  198.     STRING097 = Strip(STRING097, "")
  199.     STRING097 = Strip(STRING097, "")
  200.     STRING097 = Strip(STRING097, "")
  201.     STRING097 = Strip(STRING097, "")
  202.     STRING097 = Strip(STRING097, "")
  203.     STRING097 = Strip(STRING097, "")
  204.     STRING097 = Strip(STRING097, "")
  205.     STRING097 = Strip(STRING097, "")
  206.     STRING097 = Strip(STRING097, "")
  207.     STRING097 = Strip(STRING097, "")
  208.     STRING097 = Strip(STRING097, "")
  209.     STRING097 = Strip(STRING097, "")
  210.     STRING097 = Strip(STRING097, "")
  211.     STRING097 = Strip(STRING097, "")
  212.     STRING097 = Strip(STRING097, "")
  213.     STRING097 = Strip(STRING097, "")
  214.     STRING097 = Strip(STRING097, " ")
  215.     STRING097 = Strip(STRING097, "")
  216.     STRING097 = Strip(STRING097, "")
  217.     STRING097 = Strip(STRING097, "Ç")
  218.     STRING097 = Strip(STRING097, "É")
  219.     STRING097 = Strip(STRING097, "á")
  220.     STRING097 = Strip(STRING097, "░")
  221.     STRING097 = Strip(STRING097, "ü")
  222.     STRING097 = Strip(STRING097, "æ")
  223.     STRING097 = Strip(STRING097, "í")
  224.     STRING097 = Strip(STRING097, "▒")
  225.     STRING097 = Strip(STRING097, "é")
  226.     STRING097 = Strip(STRING097, "Æ")
  227.     STRING097 = Strip(STRING097, "ó")
  228.     STRING097 = Strip(STRING097, "▓")
  229.     STRING097 = Strip(STRING097, "â")
  230.     STRING097 = Strip(STRING097, "ô")
  231.     STRING097 = Strip(STRING097, "ú")
  232.     STRING097 = Strip(STRING097, "│")
  233.     STRING097 = Strip(STRING097, "ä")
  234.     STRING097 = Strip(STRING097, "ö")
  235.     STRING097 = Strip(STRING097, "ñ")
  236.     STRING097 = Strip(STRING097, "┤")
  237.     STRING097 = Strip(STRING097, "à")
  238.     STRING097 = Strip(STRING097, "ò")
  239.     STRING097 = Strip(STRING097, "Ñ")
  240.     STRING097 = Strip(STRING097, "╡")
  241.     STRING097 = Strip(STRING097, "å")
  242.     STRING097 = Strip(STRING097, "û")
  243.     STRING097 = Strip(STRING097, "ª")
  244.     STRING097 = Strip(STRING097, "╢")
  245.     STRING097 = Strip(STRING097, "ç")
  246.     STRING097 = Strip(STRING097, "ù")
  247.     STRING097 = Strip(STRING097, "º")
  248.     STRING097 = Strip(STRING097, "╖")
  249.     STRING097 = Strip(STRING097, "ê")
  250.     STRING097 = Strip(STRING097, "ÿ")
  251.     STRING097 = Strip(STRING097, "¿")
  252.     STRING097 = Strip(STRING097, "╕")
  253.     STRING097 = Strip(STRING097, "ë")
  254.     STRING097 = Strip(STRING097, "Ö")
  255.     STRING097 = Strip(STRING097, "⌐")
  256.     STRING097 = Strip(STRING097, "╣")
  257.     STRING097 = Strip(STRING097, "è")
  258.     STRING097 = Strip(STRING097, "Ü")
  259.     STRING097 = Strip(STRING097, "¬")
  260.     STRING097 = Strip(STRING097, "║")
  261.     STRING097 = Strip(STRING097, "ï")
  262.     STRING097 = Strip(STRING097, "¢")
  263.     STRING097 = Strip(STRING097, "½")
  264.     STRING097 = Strip(STRING097, "╗")
  265.     STRING097 = Strip(STRING097, "î")
  266.     STRING097 = Strip(STRING097, "£")
  267.     STRING097 = Strip(STRING097, "¼")
  268.     STRING097 = Strip(STRING097, "╝")
  269.     STRING097 = Strip(STRING097, "ì")
  270.     STRING097 = Strip(STRING097, "¥")
  271.     STRING097 = Strip(STRING097, "¡")
  272.     STRING097 = Strip(STRING097, "╜")
  273.     STRING097 = Strip(STRING097, "Ä")
  274.     STRING097 = Strip(STRING097, "₧")
  275.     STRING097 = Strip(STRING097, "«")
  276.     STRING097 = Strip(STRING097, "╛")
  277.     STRING097 = Strip(STRING097, "Å")
  278.     STRING097 = Strip(STRING097, "ƒ")
  279.     STRING097 = Strip(STRING097, "»")
  280.     STRING097 = Strip(STRING097, "┐")
  281.     STRING097 = Strip(STRING097, " ")
  282.     STRING097 = Strip(STRING097, "└")
  283.     STRING097 = Strip(STRING097, "╨")
  284.     STRING097 = Strip(STRING097, "α")
  285.     STRING097 = Strip(STRING097, "≡")
  286.     STRING097 = Strip(STRING097, "┴")
  287.     STRING097 = Strip(STRING097, "╤")
  288.     STRING097 = Strip(STRING097, "ß")
  289.     STRING097 = Strip(STRING097, "±")
  290.     STRING097 = Strip(STRING097, "┬")
  291.     STRING097 = Strip(STRING097, "╥")
  292.     STRING097 = Strip(STRING097, "Γ")
  293.     STRING097 = Strip(STRING097, "≥")
  294.     STRING097 = Strip(STRING097, "├")
  295.     STRING097 = Strip(STRING097, "╙")
  296.     STRING097 = Strip(STRING097, "π")
  297.     STRING097 = Strip(STRING097, "≤")
  298.     STRING097 = Strip(STRING097, "─")
  299.     STRING097 = Strip(STRING097, "╘")
  300.     STRING097 = Strip(STRING097, "Σ")
  301.     STRING097 = Strip(STRING097, "⌠")
  302.     STRING097 = Strip(STRING097, "┼")
  303.     STRING097 = Strip(STRING097, "╒")
  304.     STRING097 = Strip(STRING097, "σ")
  305.     STRING097 = Strip(STRING097, "⌡")
  306.     STRING097 = Strip(STRING097, "╞")
  307.     STRING097 = Strip(STRING097, "╓")
  308.     STRING097 = Strip(STRING097, "µ")
  309.     STRING097 = Strip(STRING097, "÷")
  310.     STRING097 = Strip(STRING097, "╟")
  311.     STRING097 = Strip(STRING097, "╫")
  312.     STRING097 = Strip(STRING097, "τ")
  313.     STRING097 = Strip(STRING097, "≈")
  314.     STRING097 = Strip(STRING097, "╚")
  315.     STRING097 = Strip(STRING097, "╪")
  316.     STRING097 = Strip(STRING097, "Φ")
  317.     STRING097 = Strip(STRING097, "°")
  318.     STRING097 = Strip(STRING097, "╔")
  319.     STRING097 = Strip(STRING097, "┘")
  320.     STRING097 = Strip(STRING097, "Θ")
  321.     STRING097 = Strip(STRING097, "∙")
  322.     STRING097 = Strip(STRING097, "╩")
  323.     STRING097 = Strip(STRING097, "┌")
  324.     STRING097 = Strip(STRING097, "Ω")
  325.     STRING097 = Strip(STRING097, "·")
  326.     STRING097 = Strip(STRING097, "╦")
  327.     STRING097 = Strip(STRING097, "█")
  328.     STRING097 = Strip(STRING097, "δ")
  329.     STRING097 = Strip(STRING097, "√")
  330.     STRING097 = Strip(STRING097, "╠")
  331.     STRING097 = Strip(STRING097, "▄")
  332.     STRING097 = Strip(STRING097, "∞")
  333.     STRING097 = Strip(STRING097, "ⁿ")
  334.     STRING097 = Strip(STRING097, "═")
  335.     STRING097 = Strip(STRING097, "▌")
  336.     STRING097 = Strip(STRING097, "φ")
  337.     STRING097 = Strip(STRING097, "²")
  338.     STRING097 = Strip(STRING097, "╬")
  339.     STRING097 = Strip(STRING097, "▐")
  340.     STRING097 = Strip(STRING097, "ε")
  341.     STRING097 = Strip(STRING097, "■")
  342.     STRING097 = Strip(STRING097, "╧")
  343.     STRING097 = Strip(STRING097, "▀")
  344.     STRING097 = Strip(STRING097, "∩")
  345.     STRING097 = Strip(STRING097, " ")
  346.     STRING097 = Right(STRING097, 2)
  347.     STRING098 = ReadLine(PCBDat(), 94)
  348.     STRING098 = Strip(STRING098, "<")
  349.     STRING098 = Strip(STRING098, ">")
  350.     STRING098 = Strip(STRING098, "*")
  351.     STRING098 = Strip(STRING098, ")")
  352.     STRING098 = Strip(STRING098, "(")
  353.     STRING098 = Strip(STRING098, "{")
  354.     STRING098 = Strip(STRING098, "}")
  355.     STRING098 = Strip(STRING098, "[")
  356.     STRING098 = Strip(STRING098, "]")
  357.     STRING098 = Strip(STRING098, "~")
  358.     STRING098 = Strip(STRING098, "!")
  359.     STRING098 = Strip(STRING098, "@")
  360.     STRING098 = Strip(STRING098, "#")
  361.     STRING098 = Strip(STRING098, "$")
  362.     STRING098 = Strip(STRING098, "%")
  363.     STRING098 = Strip(STRING098, "^")
  364.     STRING098 = Strip(STRING098, "&")
  365.     STRING098 = Strip(STRING098, ":")
  366.     STRING098 = Strip(STRING098, ";")
  367.     STRING098 = Strip(STRING098, "'")
  368.     STRING098 = Strip(STRING098, ".")
  369.     STRING098 = Strip(STRING098, ",")
  370.     STRING098 = Strip(STRING098, "?")
  371.     STRING098 = Strip(STRING098, "/")
  372.     STRING098 = Strip(STRING098, "|")
  373.     STRING098 = Strip(STRING098, "\")
  374.     STRING098 = Strip(STRING098, "+")
  375.     STRING098 = Strip(STRING098, "=")
  376.     STRING098 = Strip(STRING098, ".")
  377.     STRING098 = Strip(STRING098, "«")
  378.     STRING098 = Strip(STRING098, "»")
  379.     STRING098 = Strip(STRING098, "Ü")
  380.     STRING098 = Strip(STRING098, "┤")
  381.     STRING098 = Strip(STRING098, "│")
  382.     STRING098 = Strip(STRING098, "╡")
  383.     STRING098 = Strip(STRING098, "")
  384.     STRING098 = Strip(STRING098, "")
  385.     STRING098 = Strip(STRING098, "")
  386.     STRING098 = Strip(STRING098, "")
  387.     STRING098 = Strip(STRING098, "")
  388.     STRING098 = Strip(STRING098, "")
  389.     STRING098 = Strip(STRING098, "")
  390.     STRING098 = Strip(STRING098, "")
  391.     STRING098 = Strip(STRING098, "")
  392.     STRING098 = Strip(STRING098, "")
  393.     STRING098 = Strip(STRING098, "")
  394.     STRING098 = Strip(STRING098, "")
  395.     STRING098 = Strip(STRING098, "")
  396.     STRING098 = Strip(STRING098, "")
  397.     STRING098 = Strip(STRING098, "")
  398.     STRING098 = Strip(STRING098, "")
  399.     STRING098 = Strip(STRING098, " ")
  400.     STRING098 = Strip(STRING098, "")
  401.     STRING098 = Strip(STRING098, "")
  402.     STRING098 = Strip(STRING098, "Ç")
  403.     STRING098 = Strip(STRING098, "É")
  404.     STRING098 = Strip(STRING098, "á")
  405.     STRING098 = Strip(STRING098, "░")
  406.     STRING098 = Strip(STRING098, "ü")
  407.     STRING098 = Strip(STRING098, "æ")
  408.     STRING098 = Strip(STRING098, "í")
  409.     STRING098 = Strip(STRING098, "▒")
  410.     STRING098 = Strip(STRING098, "é")
  411.     STRING098 = Strip(STRING098, "Æ")
  412.     STRING098 = Strip(STRING098, "ó")
  413.     STRING098 = Strip(STRING098, "▓")
  414.     STRING098 = Strip(STRING098, "â")
  415.     STRING098 = Strip(STRING098, "ô")
  416.     STRING098 = Strip(STRING098, "ú")
  417.     STRING098 = Strip(STRING098, "│")
  418.     STRING098 = Strip(STRING098, "ä")
  419.     STRING098 = Strip(STRING098, "ö")
  420.     STRING098 = Strip(STRING098, "ñ")
  421.     STRING098 = Strip(STRING098, "┤")
  422.     STRING098 = Strip(STRING098, "à")
  423.     STRING098 = Strip(STRING098, "ò")
  424.     STRING098 = Strip(STRING098, "Ñ")
  425.     STRING098 = Strip(STRING098, "╡")
  426.     STRING098 = Strip(STRING098, "å")
  427.     STRING098 = Strip(STRING098, "û")
  428.     STRING098 = Strip(STRING098, "ª")
  429.     STRING098 = Strip(STRING098, "╢")
  430.     STRING098 = Strip(STRING098, "ç")
  431.     STRING098 = Strip(STRING098, "ù")
  432.     STRING098 = Strip(STRING098, "º")
  433.     STRING098 = Strip(STRING098, "╖")
  434.     STRING098 = Strip(STRING098, "ê")
  435.     STRING098 = Strip(STRING098, "ÿ")
  436.     STRING098 = Strip(STRING098, "¿")
  437.     STRING098 = Strip(STRING098, "╕")
  438.     STRING098 = Strip(STRING098, "ë")
  439.     STRING098 = Strip(STRING098, "Ö")
  440.     STRING098 = Strip(STRING098, "⌐")
  441.     STRING098 = Strip(STRING098, "╣")
  442.     STRING098 = Strip(STRING098, "è")
  443.     STRING098 = Strip(STRING098, "Ü")
  444.     STRING098 = Strip(STRING098, "¬")
  445.     STRING098 = Strip(STRING098, "║")
  446.     STRING098 = Strip(STRING098, "ï")
  447.     STRING098 = Strip(STRING098, "¢")
  448.     STRING098 = Strip(STRING098, "½")
  449.     STRING098 = Strip(STRING098, "╗")
  450.     STRING098 = Strip(STRING098, "î")
  451.     STRING098 = Strip(STRING098, "£")
  452.     STRING098 = Strip(STRING098, "¼")
  453.     STRING098 = Strip(STRING098, "╝")
  454.     STRING098 = Strip(STRING098, "ì")
  455.     STRING098 = Strip(STRING098, "¥")
  456.     STRING098 = Strip(STRING098, "¡")
  457.     STRING098 = Strip(STRING098, "╜")
  458.     STRING098 = Strip(STRING098, "Ä")
  459.     STRING098 = Strip(STRING098, "₧")
  460.     STRING098 = Strip(STRING098, "«")
  461.     STRING098 = Strip(STRING098, "╛")
  462.     STRING098 = Strip(STRING098, "Å")
  463.     STRING098 = Strip(STRING098, "ƒ")
  464.     STRING098 = Strip(STRING098, "»")
  465.     STRING098 = Strip(STRING098, "┐")
  466.     STRING098 = Strip(STRING098, " ")
  467.     STRING098 = Strip(STRING098, "└")
  468.     STRING098 = Strip(STRING098, "╨")
  469.     STRING098 = Strip(STRING098, "α")
  470.     STRING098 = Strip(STRING098, "≡")
  471.     STRING098 = Strip(STRING098, "┴")
  472.     STRING098 = Strip(STRING098, "╤")
  473.     STRING098 = Strip(STRING098, "ß")
  474.     STRING098 = Strip(STRING098, "±")
  475.     STRING098 = Strip(STRING098, "┬")
  476.     STRING098 = Strip(STRING098, "╥")
  477.     STRING098 = Strip(STRING098, "Γ")
  478.     STRING098 = Strip(STRING098, "≥")
  479.     STRING098 = Strip(STRING098, "├")
  480.     STRING098 = Strip(STRING098, "╙")
  481.     STRING098 = Strip(STRING098, "π")
  482.     STRING098 = Strip(STRING098, "≤")
  483.     STRING098 = Strip(STRING098, "─")
  484.     STRING098 = Strip(STRING098, "╘")
  485.     STRING098 = Strip(STRING098, "Σ")
  486.     STRING098 = Strip(STRING098, "⌠")
  487.     STRING098 = Strip(STRING098, "┼")
  488.     STRING098 = Strip(STRING098, "╒")
  489.     STRING098 = Strip(STRING098, "σ")
  490.     STRING098 = Strip(STRING098, "⌡")
  491.     STRING098 = Strip(STRING098, "╞")
  492.     STRING098 = Strip(STRING098, "╓")
  493.     STRING098 = Strip(STRING098, "µ")
  494.     STRING098 = Strip(STRING098, "÷")
  495.     STRING098 = Strip(STRING098, "╟")
  496.     STRING098 = Strip(STRING098, "╫")
  497.     STRING098 = Strip(STRING098, "τ")
  498.     STRING098 = Strip(STRING098, "≈")
  499.     STRING098 = Strip(STRING098, "╚")
  500.     STRING098 = Strip(STRING098, "╪")
  501.     STRING098 = Strip(STRING098, "Φ")
  502.     STRING098 = Strip(STRING098, "°")
  503.     STRING098 = Strip(STRING098, "╔")
  504.     STRING098 = Strip(STRING098, "┘")
  505.     STRING098 = Strip(STRING098, "Θ")
  506.     STRING098 = Strip(STRING098, "∙")
  507.     STRING098 = Strip(STRING098, "╩")
  508.     STRING098 = Strip(STRING098, "┌")
  509.     STRING098 = Strip(STRING098, "Ω")
  510.     STRING098 = Strip(STRING098, "·")
  511.     STRING098 = Strip(STRING098, "╦")
  512.     STRING098 = Strip(STRING098, "█")
  513.     STRING098 = Strip(STRING098, "δ")
  514.     STRING098 = Strip(STRING098, "√")
  515.     STRING098 = Strip(STRING098, "╠")
  516.     STRING098 = Strip(STRING098, "▄")
  517.     STRING098 = Strip(STRING098, "∞")
  518.     STRING098 = Strip(STRING098, "ⁿ")
  519.     STRING098 = Strip(STRING098, "═")
  520.     STRING098 = Strip(STRING098, "▌")
  521.     STRING098 = Strip(STRING098, "φ")
  522.     STRING098 = Strip(STRING098, "²")
  523.     STRING098 = Strip(STRING098, "╬")
  524.     STRING098 = Strip(STRING098, "▐")
  525.     STRING098 = Strip(STRING098, "ε")
  526.     STRING098 = Strip(STRING098, "■")
  527.     STRING098 = Strip(STRING098, "╧")
  528.     STRING098 = Strip(STRING098, "▀")
  529.     STRING098 = Strip(STRING098, "∩")
  530.     STRING098 = Strip(STRING098, " ")
  531.     STRING098 = Right(STRING098, 2)
  532.     STRING099 = STRING097 + STRING098 + "MA"
  533.     If (INTEGER006 == S2I(STRING099, 33)) Goto LABEL001
  534.     STRING095 = "@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)
  535.     If (STRING095 <> "@X0C<<<@X0CUnRegistered@X0C>>>") Goto LABEL070
  536.     :LABEL001
  537.     STRING020 = ""
  538.     FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0
  539.     FDGet INTEGER006
  540.     FDGet STRING031
  541.     FDGet STRING032
  542.     FDGet STRING033
  543.     FDGet STRING026
  544.     FDGet INTEGER004
  545.     FDGet STRING034
  546.     FDGet INTEGER011
  547.     FDGet STRING037
  548.     FDGet STRING059
  549.     FDGet STRING061
  550.     FDGet STRING063
  551.     FDGet STRING062
  552.     FDGet STRING060
  553.     FDGet STRING091
  554.     FDGet STRING064
  555.     FDGet STRING041
  556.     FDGet STRING071
  557.     FDGet STRING072
  558.     FDGet STRING073
  559.     FDGet STRING074
  560.     FDGet STRING075
  561.     FDGet STRING076
  562.     FDGet STRING077
  563.     FDGet STRING078
  564.     FDGet STRING070
  565.     FDGet STRING042
  566.     FDGet STRING043
  567.     FDGet STRING054
  568.     FDGet STRING057
  569.     FDGet STRING029
  570.     FDGet STRING055
  571.     FDGet STRING044
  572.     FDGet STRING045
  573.     FDGet STRING056
  574.     FDGet STRING046
  575.     FDGet STRING088
  576.     FDGet STRING087
  577.     FDGet STRING089
  578.     FDGet STRING090
  579.     FDGet STRING092
  580.     FDGet STRING093
  581.     FDGet STRING094
  582.     FDGet INTEGER012
  583.     For STRING028 = 1 To INTEGER012
  584.         FDGet TSTRING035(STRING028)
  585.     Next
  586.     FClose 1
  587.     FOpen 1, PPEPath() + "CHECK.cnf", 0, 0
  588.     FDGet STRING058
  589.     FDGet STRING018
  590.     FDGet STRING019
  591.     FDGet STRING017
  592.     FClose 1
  593.     STRING030 = STRING037
  594.     :LABEL002
  595.     BOOLEAN001 = 0
  596.     STRING037 = STRING030
  597.     StartDisp 1
  598.     :LABEL003
  599.     If (BOOLEAN001) Goto LABEL065
  600.     If (Upper(STRING037) == "D") Goto LABEL007
  601.     If (Upper(STRING037) == "L") Goto LABEL005
  602.     If (Upper(STRING037) == "B") Then
  603.         :LABEL004
  604.         STRING079 = Random(5)
  605.         If (STRING079 == "1") Goto LABEL005
  606.         If (STRING079 == "2") Goto LABEL007
  607.         If (STRING079 == "3") Goto LABEL005
  608.         If (STRING079 == "4") Goto LABEL007
  609.         If (STRING079 == "5") Goto LABEL005
  610.         If (STRING079 == "0") Goto LABEL007
  611.         If (STRING079 < "0") Goto LABEL004
  612.     Endif
  613.     :LABEL005
  614.     FClose 1
  615.     FOpen 1, PPEPath() + PPEName() + "1.cfg", 2, 0
  616.     FDGet INTEGER016
  617.     STRING037 = "L"
  618.     :LABEL006
  619.     STRING038 = Random(INTEGER016 + 1)
  620.     If (STRING038 == 0) Goto LABEL006
  621.     If (STRING038 > INTEGER016) Goto LABEL006
  622.     For STRING028 = 1 To STRING038
  623.         FDGet STRING068
  624.         FDGet INTEGER013
  625.         FDGet INTEGER014
  626.         FDGet STRING049
  627.         FDGet STRING069
  628.     Next
  629.     FClose 1
  630.     Goto LABEL013
  631.     :LABEL007
  632.     DefColor
  633.     Cls
  634.     STRING048 = ""
  635.     :LABEL008
  636.     DefColor
  637.     FreshLine
  638.     DispFile PPEPath() + "menu.ans", 4 + 2
  639.     AnsiPos 1, 1
  640.     Print STRING052 + " " + STRING096
  641.     If (INTEGER006 == S2I(STRING099, 33)) Goto LABEL009
  642.     AnsiPos 60, 1
  643.     Print STRING095
  644.     :LABEL009
  645.     INTEGER013 = 23
  646.     :LABEL010
  647.     If (BOOLEAN001) Goto LABEL012
  648.     :LABEL011
  649.     DefColor
  650.     Inc INTEGER013
  651.     AnsiPos 1, INTEGER013
  652.     InputStr STRING056 + String(PcbNode()) + ">_", STRING050, "", 13, Mask_Ascii(), 1024 + 8
  653.     If ((STRING050 == "DIR") || (STRING050 == "DIR/P")) Goto LABEL008
  654.     If (STRING050 == "DIR/W") Goto LABEL012
  655.     If (STRING050 == "FORMAT") Then
  656.         FreshLine
  657.         DispFile PPEPath() + "format", 0
  658.         Goto LABEL011
  659.     Endif
  660.     If (STRING050 == "") Then
  661.         STRING048 = ScrText(1, INTEGER013, 15, 1)
  662.         FreshLine
  663.         Inc INTEGER013
  664.         Goto LABEL011
  665.     Endif
  666.     If (STRING050 == "VER") Then
  667.         FreshLine
  668.         DispFile PPEPath() + "VER", 0
  669.         Goto LABEL011
  670.     Endif
  671.     If (STRING050 == "HELP") Then
  672.         FreshLine
  673.         DispFile PPEPath() + "help", 0
  674.         Goto LABEL011
  675.     Endif
  676.     If (STRING050 == "CHAT") Then
  677.         Goto LABEL064
  678.     Endif
  679.     If (STRING050 == "WHO") Then
  680.         Cls
  681.         FreshLine
  682.         Call PPEPath() + "who.ppe"
  683.         AnsiPos 1, 20
  684.         Wait
  685.         Cls
  686.         DefColor
  687.         FreshLine
  688.         Goto LABEL011
  689.     Endif
  690.     If (STRING050 == "CLS") Then
  691.         Cls
  692.         Goto LABEL011
  693.     Endif
  694.     If (STRING050 == "SYSTEM") Then
  695.         Goto LABEL017
  696.     Endif
  697.     Select Case (STRING050)
  698.         Case "CHECK"
  699.             STRING050 = 2
  700.         Case "APPLY"
  701.             STRING050 = 3
  702.         Case Else
  703.             If (((STRING050 == "LOGOFF") || (STRING050 == "G")) || (STRING050 == "BYE")) Then
  704.                 Goto LABEL059
  705.             Endif
  706.             If (STRING050 == "FEEDBACK") Then
  707.                 Goto LABEL060
  708.             Endif
  709.             If (STRING050 == "PAGE") Then
  710.                 Goto LABEL064
  711.                 If ((STRING057 == YesChar()) && (STRING050 == STRING029)) Goto LABEL070
  712.                 If (STRING050 == "REGIT") Goto LABEL067
  713.             Else
  714.                 Inc INTEGER013
  715.                 Print STRING048
  716.                 FreshLine
  717.                 PrintLn "@X0FUnknown Command" + "  " + """" + STRING050 + """"
  718.                 Newline
  719.                 Goto LABEL011
  720.             Endif
  721.             Goto LABEL010
  722.             :LABEL012
  723.             DispFile PPEPath() + "menuw.ans", 4 + 2
  724.             Goto LABEL011
  725.             :LABEL013
  726.             STRING051 = 1
  727.             STRING050 = ""
  728.             STRING048 = ""
  729.             DefColor
  730.             Cls
  731.             DispFile PPEPath() + STRING068, 4
  732.             AnsiPos 1, 1
  733.             Print STRING052 + " " + STRING096
  734.             If (INTEGER006 == S2I(STRING099, 33)) Goto LABEL014
  735.             AnsiPos 60, 1
  736.             Print STRING095
  737.             :LABEL014
  738.             INTEGER017 = INTEGER014
  739.             AnsiPos INTEGER013, INTEGER014
  740.             Print STRING059
  741.             Inc INTEGER014
  742.             Inc STRING051
  743.             AnsiPos INTEGER013, INTEGER014
  744.             Print STRING061
  745.             Inc INTEGER014
  746.             Inc STRING051
  747.             AnsiPos INTEGER013, INTEGER014
  748.             Print STRING063
  749.             Inc INTEGER014
  750.             Inc STRING051
  751.             AnsiPos INTEGER013, INTEGER014
  752.             Print STRING060
  753.             Inc INTEGER014
  754.             Inc STRING051
  755.             AnsiPos INTEGER013, INTEGER014
  756.             Print STRING062
  757.             If (STRING091 == YesChar()) Then
  758.                 Inc INTEGER014
  759.                 Inc STRING051
  760.                 AnsiPos INTEGER013, INTEGER014
  761.                 Print STRING064
  762.             Endif
  763.             If (STRING055 == YesChar()) Then
  764.                 Inc INTEGER014
  765.                 Inc STRING051
  766.                 AnsiPos INTEGER013, INTEGER014
  767.                 Print STRING044
  768.             Endif
  769.             INTEGER014 = INTEGER017
  770.             KbdStuff Chr(32)
  771.             :LABEL015
  772.             If (BOOLEAN001) Goto LABEL017
  773.             STRING047 = Inkey()
  774.             STRING047 = Upper(STRING047)
  775.             If (STRING047 == Chr(13)) Then
  776.                 STRING050 = INTEGER014 - INTEGER017
  777.                 If (STRING050 == 1) Goto LABEL017
  778.                 If (STRING050 == 2) Goto LABEL018
  779.                 If (STRING050 == 3) Goto LABEL018
  780.                 If (STRING050 == 4) Goto LABEL059
  781.                 If (STRING050 == 5) Goto LABEL060
  782.                 If ((STRING050 == 6) && (STRING091 == YesChar())) Goto LABEL064
  783.                 If ((STRING050 == 6) && (STRING091 == NoChar())) Goto LABEL067
  784.                 If (STRING050 == 7) Goto LABEL067
  785.             Endif
  786.             If ((STRING057 == YesChar()) && (STRING047 == STRING029)) Goto LABEL070
  787.             If (((((((((STRING047 == Chr(32)) || (STRING047 == "UP")) || (STRING047 == "DOWN")) || (STRING047 == "LEFT")) || (STRING047 == "RIGHT")) || (STRING047 == "A")) || (STRING047 == "a")) || (STRING047 == "Z")) || (STRING047 == "z")) Then
  788.                 AnsiPos INTEGER013, INTEGER014
  789.                 If (INTEGER014 == INTEGER017) Then
  790.                     Print STRING048
  791.                     AnsiPos INTEGER013, INTEGER014
  792.                     Goto LABEL016
  793.                 Endif
  794.                 AnsiPos INTEGER013, INTEGER014 - 1
  795.                 Print STRING048
  796.                 :LABEL016
  797.                 If (INTEGER014 == INTEGER017 + STRING051) INTEGER014 = INTEGER014 - STRING051
  798.                 AnsiPos INTEGER013, INTEGER014
  799.                 STRING048 = ScrText(INTEGER013, INTEGER014, STRING049, 1)
  800.                 STRING050 = ScrText(INTEGER013, INTEGER014 - 1, STRING049, 0)
  801.                 Print STRING070 + ScrText(INTEGER013, INTEGER014, STRING049, 0)
  802.                 Inc INTEGER014
  803.             Endif
  804.             Goto LABEL015
  805.             :LABEL017
  806.             DefColor
  807.             Cls
  808.             If (STRING037 == "L") Then
  809.                 DispFile PPEPath() + PPEName() + ".dsp", 0
  810.                 AnsiPos 6, 4
  811.             Endif
  812.             InputStr STRING026, STRING020, 0, 13, Mask_Pwd(), 1024 + 1 + 8
  813.             If (STRING020 == STRING031) Then
  814.                 Goto LABEL070
  815.             Endif
  816.             If (STRING020 == STRING032) Then
  817.                 AdjTime INTEGER011
  818.                 Goto LABEL070
  819.             Endif
  820.             If (STRING020 == STRING033) Then
  821.                 Goto LABEL070
  822.             Endif
  823.             INTEGER002 = INTEGER002 + 1
  824.             Goto LABEL002
  825.     End Select
  826.     :LABEL018
  827.     DefColor
  828.     If (STRING037 == "L") Then
  829.         Cls
  830.         DispFile PPEPath() + PPEName() + ".dsp", 0
  831.         AnsiPos 7, 4
  832.     Else
  833.         FreshLine
  834.     Endif
  835.     STRING039 = ""
  836.     InputStr STRING071, STRING039, "", 30, Mask_Ascii(), 8
  837.     If (STRING039 == "") Goto LABEL002
  838.     Tokenize STRING039
  839.     If (TokCount() <> 1) Then
  840.         Goto LABEL019
  841.     Endif
  842.     If (STRING037 == "L") Then
  843.         AnsiPos 7, 6
  844.     Else
  845.         FreshLine
  846.     Endif
  847.     STRING040 = ""
  848.     InputStr STRING072, STRING040, "", 30, Mask_Ascii(), 8
  849.     :LABEL019
  850.     If (TokCount() == 1) Then
  851.         STRING066 = STRING039 + " " + STRING040
  852.     Else
  853.         STRING066 = STRING039
  854.     Endif
  855.     INTEGER015 = U_RecNum(STRING066)
  856.     If (INTEGER015 <> -1) Then
  857.         Goto LABEL045
  858.     Else
  859.         If (STRING050 == 3) Then
  860.             FreshLine
  861.             PromptStr 53, STRING065, 1, "CR", 0 + 8
  862.             If (STRING065 == "C") Goto LABEL021
  863.             If (STRING065 == "R") Goto LABEL002
  864.         Endif
  865.         If ((STRING050 == 2) && (STRING037 == "L")) Then
  866.             AnsiPos 7, 7
  867.             PrintLn "@X0CYou Are not a USER "
  868.             AnsiPos 7, 8
  869.             STRING067 = YesChar()
  870.             InputYN "@X0CDo you Wish to Apply", STRING067, ""
  871.             If (STRING067 == YesChar()) Then
  872.                 Goto LABEL021
  873.                 Goto LABEL020
  874.             Endif
  875.             Goto LABEL002
  876.         Endif
  877.         :LABEL020
  878.         If ((STRING050 == 2) && (STRING037 <> "L")) Then
  879.             FreshLine
  880.             PrintLn "@X0CYou Are not a USER "
  881.             FreshLine
  882.             STRING067 = YesChar()
  883.             InputYN "@X0CDo you Wish to Apply", STRING067, ""
  884.             If (STRING067 == YesChar()) Then
  885.                 Goto LABEL021
  886.                 Goto LABEL021
  887.             Endif
  888.             Goto LABEL002
  889.         Endif
  890.         :LABEL021
  891.         DispFile PPEPath() + PPEName() + ".NEW", 0
  892.         STRING050 = 3
  893.         FCreate 5, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 1, 0
  894.         :LABEL022
  895.         DefColor
  896.         INTEGER009 = ReadLine(PCBDat(), 265)
  897.         STRING086 = INTEGER009
  898.         STRING036 = ""
  899.         AnsiPos 13, 3
  900.         InputStr "_", STRING036, "", 12, Mask_Pwd(), 8 + 1
  901.         INTEGER010 = Len(STRING036)
  902.         If (INTEGER010 < INTEGER009) Then
  903.             AnsiPos 5, 20
  904.             ClrEol
  905.             PrintLn "Password has to be " + STRING086 + " Charcters Long"
  906.             Goto LABEL022
  907.         Endif
  908.         AnsiPos 13, 4
  909.         InputStr "_", STRING085, "", 12, Mask_Pwd(), 8 + 1
  910.         If (STRING036 <> STRING085) Then
  911.             AnsiPos 5, 20
  912.             ClrEol
  913.             PrintLn STRING088
  914.             Goto LABEL022
  915.         Endif
  916.         FPut 5, Chr(13) + Chr(10)
  917.         FPutLn 5, STRING036
  918.         FPutLn 5, STRING085
  919.         :LABEL023
  920.         STRING080 = ""
  921.         AnsiPos 13, 5
  922.         InputStr "_", STRING080, "", 24, Mask_Ascii(), 4
  923.         If (STRING080 == "") Then
  924.             AnsiPos 5, 20
  925.             ClrEol
  926.             Gosub LABEL066
  927.             Goto LABEL023
  928.         Endif
  929.         FPutLn 5, STRING080
  930.         :LABEL024
  931.         STRING081 = ""
  932.         AnsiPos 13, 6
  933.         InputStr "_", STRING081, "", 15, "1234567890-", 4
  934.         If (STRING081 == "") Then
  935.             AnsiPos 5, 20
  936.             ClrEol
  937.             Gosub LABEL066
  938.             Goto LABEL024
  939.         Endif
  940.         FPutLn 5, STRING081
  941.         :LABEL025
  942.         STRING082 = ""
  943.         AnsiPos 14, 7
  944.         InputStr "_", STRING082, "", 15, "1234567890-", 4
  945.         If (STRING082 == "") Then
  946.             AnsiPos 5, 20
  947.             ClrEol
  948.             Gosub LABEL066
  949.             Goto LABEL025
  950.         Endif
  951.         FPutLn 5, STRING082
  952.         :LABEL026
  953.         STRING084 = ""
  954.         AnsiPos 2, 8
  955.         InputStr STRING094, STRING084, "", 20, Mask_Ascii(), 4
  956.         If (STRING084 == "") Then
  957.             AnsiPos 5, 20
  958.             ClrEol
  959.             Gosub LABEL066
  960.             Goto LABEL026
  961.         Endif
  962.         FPutLn 5, STRING084
  963.         :LABEL027
  964.         STRING083 = ""
  965.         AnsiPos 29, 9
  966.         InputYN "", STRING083, 1
  967.         If (STRING083 == "") Then
  968.             AnsiPos 5, 20
  969.             ClrEol
  970.             Gosub LABEL066
  971.             Goto LABEL027
  972.         Endif
  973.         FPutLn 5, STRING083
  974.         AnsiPos 78, 11
  975.         SaveScrn
  976.         Cls
  977.         GetToken STRING100
  978.         If (Exist(ReadLine(PCBDat(), 45))) Goto LABEL028
  979.         Newline
  980.         Print "@X0CError reading PCBPROT.DAT!  Aborting ... @X07"
  981.         Delay 50
  982.         Log "Error reading PCBPROT.DAT!", 0
  983.         FreshLine
  984.         End
  985.         Goto LABEL031
  986.         :LABEL028
  987.         STRING110 = "N"
  988.         FOpen 1, ReadLine(PCBDat(), 45), 0, 0
  989.         :LABEL029
  990.         If (Ferr(1)) Goto LABEL030
  991.         FGet 1, STRING106
  992.         If (Len(STRING106)) Then
  993.             STRING106 = Replace(STRING106, Chr(32), Chr(255))
  994.             Inc INTEGER019
  995.             STRING106 = Replace(STRING106, ",", ";")
  996.             Tokenize STRING106
  997.             While (TokCount() > 0) Do
  998.                 Inc INTEGER018
  999.                 GetToken TSTRING101(INTEGER019, INTEGER018)
  1000.             EndWhile
  1001.             TSTRING102(INTEGER019) = TSTRING101(INTEGER019, 1)
  1002.             TSTRING104(INTEGER019) = TSTRING101(INTEGER019, 2)
  1003.             TSTRING105(INTEGER019) = Replace(TSTRING101(INTEGER019, 4), Chr(255), Chr(32))
  1004.             TSTRING103(INTEGER019) = TSTRING101(INTEGER019, 5)
  1005.         Endif
  1006.         INTEGER018 = 0
  1007.         Goto LABEL029
  1008.         :LABEL030
  1009.         FClose 1
  1010.         If (Right(STRING089, (1 <> "\"))) STRING089 = STRING089 + "\"
  1011.         STRING108 = STRING089 + "PCBS"
  1012.         STRING109 = STRING089 + "PCBR"
  1013.         If (Strip(STRING100, Chr(32)) <> "") Then
  1014.             STRING100 = Strip(STRING100, Chr(32))
  1015.             For INTEGER020 = 1 To INTEGER019
  1016.                 STRING107 = STRING107 + TSTRING102(INTEGER020)
  1017.             Next
  1018.             INTEGER021 = InStr(STRING107, STRING100)
  1019.             If (STRING100 == "N") Goto LABEL037
  1020.             Gosub LABEL035
  1021.         Endif
  1022.         Gosub LABEL032
  1023.         :LABEL031
  1024.         Goto LABEL037
  1025.         :LABEL032
  1026.         Newline
  1027.         PrintLn "@X70┌────────────────────────────────────────────────────────@X7F┐@X07"
  1028.         PrintLn "@X70│         @X7BP R O T O C O L S   A V A I L A B L E@POS:58@@X7F│@X07"
  1029.         PrintLn "@X70└@X7F────────────────────────────────────────────────────────┘@X07"
  1030.         Newline
  1031.         PrintLn "@X70┌@X7F────────────────────────────────────────────────────────┐@X07"
  1032.         For INTEGER020 = 1 To INTEGER019
  1033.             If (((TSTRING104(INTEGER020) <> "I") && !Exist(STRING108 + TSTRING102(INTEGER020) + ".BAT")) && !Exist(STRING109 + TSTRING102(INTEGER020) + ".BAT")) BOOLEAN002 = 1
  1034.             If (!BOOLEAN002 || (TSTRING102(INTEGER020) == "N")) Then
  1035.                 STRING107 = STRING107 + TSTRING102(INTEGER020)
  1036.                 If (TSTRING102(INTEGER020) == U_Trans) Then
  1037.                     PrintLn "@X70│ @XF4=> @X71(@X7E" + TSTRING102(INTEGER020) + "@X71) " + TSTRING105(INTEGER020) + "@POS:58@@X7F│@X07"
  1038.                     Goto LABEL033
  1039.                 Endif
  1040.                 PrintLn "@X70│    @X71(@X7E" + TSTRING102(INTEGER020) + "@X71) " + TSTRING105(INTEGER020) + "@POS:58@@X7F│@X07"
  1041.             Endif
  1042.             :LABEL033
  1043.             BOOLEAN002 = 0
  1044.         Next
  1045.         PrintLn "@X70└────────────────────────────────────────────────────────@X7F┘@X07"
  1046.         PromptStr 198, STRING110, 1, STRING107, 2 + 4 + 8 + 128 + 256 + 8192
  1047.         If (Len(STRING110) && (STRING110 <> U_Trans)) Then
  1048.             STRING100 = Left(STRING110, 1)
  1049.             If (STRING100 == "N") Goto LABEL037
  1050.             INTEGER021 = InStr(STRING107, STRING100)
  1051.             Goto LABEL035
  1052.             Goto LABEL034
  1053.         Endif
  1054.         :LABEL034
  1055.         Return
  1056.         :LABEL035
  1057.         If (((TSTRING104(INTEGER021) <> "I") && !Exist(STRING108 + TSTRING102(INTEGER021) + ".BAT")) && !Exist(STRING109 + TSTRING102(INTEGER021) + ".BAT")) BOOLEAN002 = 1
  1058.         If ((STRING100 == TSTRING102(INTEGER021)) && !BOOLEAN002) Then
  1059.             If (TSTRING103(INTEGER021) == YesChar()) Then
  1060.                 If (ErrCorrect()) Goto LABEL036
  1061.                 Newlines 2
  1062.                 PrintLn "@X0CProtocol Unavailable - Modem Type Wrong!"
  1063.                 End
  1064.             Endif
  1065.             :LABEL036
  1066.         Else
  1067.             Return
  1068.         Endif
  1069.         :LABEL037
  1070.         If (Strip(STRING100, Chr(32)) <> "") Then
  1071.         Endif
  1072.         FPutLn 5, STRING100
  1073.         RestScrn
  1074.         If (Psa(3)) Then
  1075.             AnsiPos 1, 11
  1076.             DispFile PPEPath() + PPEName() + "1.NEW", 0
  1077.             :LABEL038
  1078.             AnsiPos 17, 13
  1079.             InputStr "_", U_Addr(0), "", 25, Mask_Ascii(), 4
  1080.             If (U_Addr(0) == "") Then
  1081.                 AnsiPos 5, 20
  1082.                 ClrEol
  1083.                 Gosub LABEL066
  1084.                 Goto LABEL038
  1085.             Endif
  1086.             FPutLn 5, U_Addr(0)
  1087.             :LABEL039
  1088.             AnsiPos 17, 14
  1089.             InputStr "_", U_Addr(1), "", 25, Mask_Ascii(), 4
  1090.             If (U_Addr(1) == "") Then
  1091.                 AnsiPos 5, 20
  1092.                 ClrEol
  1093.                 Gosub LABEL066
  1094.                 Goto LABEL039
  1095.             Endif
  1096.             FPutLn 5, U_Addr(1)
  1097.             :LABEL040
  1098.             AnsiPos 8, 15
  1099.             InputStr "_", U_Addr(2), "", 15, Mask_Ascii(), 4
  1100.             If (U_Addr(2) == "") Then
  1101.                 AnsiPos 5, 20
  1102.                 ClrEol
  1103.                 Gosub LABEL066
  1104.                 Goto LABEL040
  1105.             Endif
  1106.             FPutLn 5, U_Addr(2)
  1107.             :LABEL041
  1108.             AnsiPos 9, 16
  1109.             InputStr "_", U_Addr(3), "", 15, Mask_Ascii(), 4
  1110.             If (U_Addr(3) == "") Then
  1111.                 AnsiPos 5, 20
  1112.                 ClrEol
  1113.                 Gosub LABEL066
  1114.                 Goto LABEL041
  1115.             Endif
  1116.             FPutLn 5, U_Addr(3)
  1117.             :LABEL042
  1118.             AnsiPos 12, 17
  1119.             InputStr "_", U_Addr(4), "", 15, "1234567890-", 4
  1120.             If (U_Addr(4) == "") Then
  1121.                 AnsiPos 5, 20
  1122.                 ClrEol
  1123.                 Gosub LABEL066
  1124.                 Goto LABEL042
  1125.             Endif
  1126.             FPutLn 5, U_Addr(4)
  1127.             :LABEL043
  1128.             AnsiPos 11, 18
  1129.             InputStr "_", U_Addr(5), "", 15, Mask_Ascii(), 4
  1130.             If (U_Addr(5) == "") Then
  1131.                 AnsiPos 5, 20
  1132.                 ClrEol
  1133.                 Gosub LABEL066
  1134.                 Goto LABEL043
  1135.             Endif
  1136.             FPutLn 5, U_Addr(5)
  1137.         Endif
  1138.         If (Psa(2)) Then
  1139.             AnsiPos 1, 19
  1140.             DispFile PPEPath() + PPEName() + ".als", 0
  1141.             :LABEL044
  1142.             U_Ver = ""
  1143.             AnsiPos 2, 19
  1144.             InputStr STRING093, U_Ver, "", 25, Mask_Ascii(), 4
  1145.             If (U_Ver == "") Then
  1146.                 AnsiPos 5, 20
  1147.                 ClrEol
  1148.                 Gosub LABEL066
  1149.                 Goto LABEL044
  1150.             Endif
  1151.             FPutLn 5, U_Ver
  1152.         Endif
  1153.         FClose 5
  1154.         Goto LABEL068
  1155.         Goto LABEL045
  1156.         Goto LABEL002
  1157.     Endif
  1158.     :LABEL045
  1159.     GetAltUser INTEGER015
  1160.     If (U_Sec == "0") Then
  1161.         AnsiPos 5, 20
  1162.         PrintLn STRING087
  1163.         WaitFor "shit", STRING027, 3
  1164.         Hangup
  1165.     Endif
  1166.     :LABEL046
  1167.     If (STRING037 == "L") Then
  1168.         AnsiPos 8, 7
  1169.         Print "                                       "
  1170.         AnsiPos 8, 7
  1171.         InputStr STRING090, STRING036, "", 12, Mask_Pwd(), 8 + 1
  1172.     Else
  1173.         FreshLine
  1174.         InputStr STRING090, STRING036, "", 12, Mask_Pwd(), 8 + 1
  1175.     Endif
  1176.     If ((STRING036 <> U_Pwd) && (STRING037 == "L")) Then
  1177.         AnsiPos 7, 8
  1178.         DispText 92, 2048
  1179.         INTEGER003 = INTEGER003 + 1
  1180.         If (INTEGER003 == 3) Hangup
  1181.         Goto LABEL046
  1182.     Endif
  1183.     If ((STRING036 <> U_Pwd) && (STRING037 <> "L")) Then
  1184.         FreshLine
  1185.         DispText 92, 2048
  1186.         INTEGER003 = INTEGER003 + 1
  1187.         If (INTEGER003 == 3) Hangup
  1188.         Goto LABEL046
  1189.     Endif
  1190.     If (STRING058 == NoChar()) Goto LABEL057
  1191.     If (U_Sec >= STRING041) Goto LABEL057
  1192.     INTEGER007 = 0
  1193.     INTEGER008 = 0
  1194.     FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  1195.     FDGet STRING003
  1196.     STRING005 = STRING003
  1197.     FClose 1
  1198.     Tokenize U_Name()
  1199.     If (TokCount() == 3) Then
  1200.         GetToken STRING014
  1201.         GetToken STRING015
  1202.         GetToken STRING016
  1203.         STRING014 = Left(STRING014, 3)
  1204.         STRING015 = Right(STRING016, 4)
  1205.         STRING014 = Trim(STRING014, " ")
  1206.         STRING015 = Trim(STRING015, " ")
  1207.     Else
  1208.         GetToken STRING014
  1209.         GetToken STRING015
  1210.         STRING014 = Left(STRING014, 3)
  1211.         STRING015 = Right(STRING015, 4)
  1212.         STRING014 = Trim(STRING014, " ")
  1213.         STRING015 = Trim(STRING015, " ")
  1214.     Endif
  1215.     If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot")) Then
  1216.         FOpen 2, PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot", 0, 0
  1217.         :LABEL047
  1218.         If (Ferr(2)) Goto LABEL048
  1219.         FGet 2, STRING009
  1220.         Tokenize STRING009
  1221.         If (TokCount() == 4) Then
  1222.             GetToken STRING010
  1223.             GetToken STRING011
  1224.             GetToken STRING012
  1225.             GetToken STRING013
  1226.             If (STRING013 == "Y") Inc INTEGER007
  1227.             If (STRING013 == "N") Inc INTEGER008
  1228.         Endif
  1229.         If (TokCount() == 3) Then
  1230.             GetToken STRING010
  1231.             GetToken STRING011
  1232.             GetToken STRING012
  1233.             If (STRING012 == "Y") Inc INTEGER007
  1234.             If (STRING012 == "N") Inc INTEGER008
  1235.         Endif
  1236.         If (TokCount() == 2) Then
  1237.             GetToken STRING010
  1238.             GetToken STRING011
  1239.             If (STRING011 == "Y") Inc INTEGER007
  1240.             If (STRING011 == "N") Inc INTEGER008
  1241.         Endif
  1242.         Goto LABEL047
  1243.         :LABEL048
  1244.         FClose 2
  1245.         STRING007 = INTEGER007
  1246.         STRING008 = INTEGER008
  1247.         AnsiPos 7, 4
  1248.         PrintLn "                                           "
  1249.         AnsiPos 7, 5
  1250.         PrintLn "                                           "
  1251.         AnsiPos 7, 6
  1252.         PrintLn "                                           "
  1253.         AnsiPos 7, 7
  1254.         PrintLn "                                           "
  1255.         AnsiPos 7, 8
  1256.         PrintLn "                                           "
  1257.         AnsiPos 7, 5
  1258.         PrintLn "" + U_Name() + "@POS:25@" + "Your Current Stats"
  1259.         AnsiPos 7, 6
  1260.         PrintLn "You Need " + STRING018 + " Votes to gain Access to the Board"
  1261.         AnsiPos 7, 7
  1262.         PrintLn "   Votes for You> " + STRING007
  1263.         AnsiPos 7, 8
  1264.         PrintLn "   Votes against You> " + STRING008
  1265.         Newlines 4
  1266.         If (INTEGER007 >= STRING018) Goto LABEL049
  1267.         If (INTEGER008 >= STRING019) Goto LABEL053
  1268.         Goto LABEL057
  1269.         :LABEL049
  1270.         U_Sec = STRING017
  1271.         PutUser
  1272.         AnsiPos 6, 14
  1273.         PrintLn "@X0EYou have been accepted as a @X0CUSER @X0Eon this Board@X07"
  1274.         Newlines 4
  1275.         Wait
  1276.         FClose 1
  1277.         FClose 2
  1278.         FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  1279.         FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
  1280.         :LABEL050
  1281.         If (Ferr(1)) Goto LABEL052
  1282.         FDGet STRING006
  1283.         If (STRING006 == "") Goto LABEL052
  1284.         If (STRING006 == U_Name()) Then
  1285.             PrintLn 
  1286.             Goto LABEL051
  1287.         Endif
  1288.         FDPutLn STRING006 + Chr(13) + Chr(10)
  1289.         :LABEL051
  1290.         Goto LABEL050
  1291.         :LABEL052
  1292.         FClose 1
  1293.         FClose 2
  1294.         Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
  1295.         Delete PPEPath() + "APPS\waiting.tmp"
  1296.         If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot")) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot"
  1297.         If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".grp")) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".grp"
  1298.         If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".cmt")) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".cmt"
  1299.         For STRING004 = STRING005 To 1 Step -1
  1300.             If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + "." + STRING004)) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + "." + STRING004
  1301.         Next
  1302.         Goto LABEL057
  1303.         :LABEL053
  1304.         AnsiPos 8, 9
  1305.         PrintLn "@X0CSorry but your Application has been Refused@X8C!!!!@X07"
  1306.         Newlines 5
  1307.         Wait
  1308.         FClose 1
  1309.         FClose 2
  1310.         FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  1311.         FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
  1312.         :LABEL054
  1313.         If (Ferr(1)) Goto LABEL056
  1314.         FDGet STRING006
  1315.         If (STRING006 == "") Goto LABEL056
  1316.         If (STRING006 == U_Name()) Then
  1317.             PrintLn 
  1318.             Goto LABEL055
  1319.         Endif
  1320.         FDPutLn STRING006 + Chr(13) + Chr(10)
  1321.         :LABEL055
  1322.         Goto LABEL054
  1323.         :LABEL056
  1324.         FClose 2
  1325.         FClose 1
  1326.         Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
  1327.         Delete PPEPath() + "APPS\waiting.tmp"
  1328.         DelUser
  1329.         U_Sec = "0"
  1330.         PutUser
  1331.         Hangup
  1332.     Endif
  1333.     :LABEL057
  1334.     If (STRING058 == NoChar()) Goto LABEL058
  1335.     If (U_Sec < STRING041) Then
  1336.         AnsiPos 8, 9
  1337.         PrintLn STRING074
  1338.         Newlines 7
  1339.         Wait
  1340.         Goto LABEL002
  1341.     Endif
  1342.     :LABEL058
  1343.     If (STRING037 == "L") Then
  1344.         AnsiPos 7, 4
  1345.         PrintLn "                                               "
  1346.         AnsiPos 7, 4
  1347.         PrintLn STRING073
  1348.         AnsiPos 7, 5
  1349.         PrintLn "                                                "
  1350.         AnsiPos 7, 6
  1351.         PrintLn "                                                "
  1352.         AnsiPos 7, 7
  1353.         PrintLn "                                                "
  1354.         AnsiPos 7, 8
  1355.         PrintLn "                                                "
  1356.         AnsiPos 7, 6
  1357.         PrintLn STRING075 + " " + STRING031 + "@X07"
  1358.         If (STRING057 == YesChar()) Then
  1359.             AnsiPos 7, 7
  1360.             Print STRING046 + STRING029
  1361.         Endif
  1362.         AnsiPos 6, 8
  1363.         InputYN STRING076 + "_", STRING067, 7
  1364.         Newline
  1365.         If (STRING067 == YesChar()) Goto LABEL068
  1366.         If (STRING067 == NoChar()) Goto LABEL002
  1367.     Else
  1368.         FreshLine
  1369.         PrintLn STRING073
  1370.         FreshLine
  1371.         PrintLn STRING075 + " " + STRING031 + "@X07"
  1372.         If (STRING057 == YesChar()) Then
  1373.             FreshLine
  1374.             Print STRING046 + STRING029
  1375.         Endif
  1376.         FreshLine
  1377.         InputYN STRING076 + "_", STRING067, 7
  1378.         Newline
  1379.         If (STRING067 == YesChar()) Goto LABEL068
  1380.         If (STRING067 == NoChar()) Goto LABEL002
  1381.         :LABEL059
  1382.         DefColor
  1383.         Cls
  1384.         PrintLn "@X0EGoodbye from @X0C<<@X0ETHT@X0C>>@X0F Matrix!"
  1385.         Hangup
  1386.         :LABEL060
  1387.         DefColor
  1388.         Cls
  1389.         If (INTEGER012 == 1) Then
  1390.             KbdStuff "1" + Chr(13)
  1391.         Else
  1392.             DispFile PPEPath() + "sysops.dsp", 0
  1393.             PrintLn "                     @X08 D@X07e@X0Ffault will Be (@X071@X08)"
  1394.             For STRING028 = 1 To INTEGER012
  1395.                 PrintLn "@X0F" + STRING028 + "@X08. @X0F" + TSTRING035(STRING028)
  1396.             Next
  1397.         Endif
  1398.         STRING021 = 1
  1399.         Input "@X0F[@X0C@SYSTIME@@X0F] @X0EMATRIX Mail Command? _", STRING021
  1400.         If ((STRING021 < 1) || (STRING021 > INTEGER012)) Goto LABEL061
  1401.         Newlines 2
  1402.         STRING022 = ""
  1403.         InputStr STRING042, STRING022, "", 15, Mask_Ascii(), 2 + 8
  1404.         If (STRING022 == "") Goto LABEL002
  1405.         STRING023 = ""
  1406.         Newlines 2
  1407.         InputStr STRING043, STRING023, "", 15, Mask_Ascii(), 2
  1408.         If (STRING023 == "") Goto LABEL002
  1409.         :LABEL061
  1410.         Cls
  1411.         STRING053 = ReadLine(PCBDat(), 109)
  1412.         DispFile PPEPath() + "message.dsp", 0
  1413.         AnsiPos 3, 2
  1414.         PrintLn "@X04To : " + "@X0E" + """" + TSTRING035(STRING021) + """"
  1415.         AnsiPos 32, 2
  1416.         PrintLn "@X0F" + STRING053
  1417.         FClose 1
  1418.         FAppend 1, PPEPath() + PPEName() + String(PcbNode()) + ".mal", 1, 0
  1419.         BOOLEAN001 = 0
  1420.         AnsiPos 2, 4
  1421.         :LABEL062
  1422.         If (BOOLEAN001) Goto LABEL063
  1423.         STRING024 = ""
  1424.         FreshLine
  1425.         InputStr "_", STRING024, "", 78, Mask_Ascii(), 512 + 256
  1426.         If (Upper(STRING024) == "/A") Then
  1427.             BOOLEAN001 = 1
  1428.             FClose 1
  1429.         Endif
  1430.         If (Upper(STRING024) == "/S") Then
  1431.             BOOLEAN001 = 1
  1432.             PrintLn "Sending Message to " + TSTRING035(STRING021)
  1433.             FClose 1
  1434.             Message INTEGER004, TSTRING035(STRING021), STRING022, STRING023, "R", 0, 0, 0, PPEPath() + PPEName() + String(PcbNode()) + ".mal"
  1435.         Endif
  1436.         FPutLn 1, STRING024
  1437.         Goto LABEL062
  1438.         :LABEL063
  1439.         Goto LABEL002
  1440.         :LABEL064
  1441.         TIME001 = ReadLine(PCBDat(), 189)
  1442.         TIME002 = ReadLine(PCBDat(), 190)
  1443.         If ((Time() > TIME001) && (Time() < TIME002)) Then
  1444.             INTEGER003 = INTEGER003 + 1
  1445.             If (INTEGER003 > STRING054) Then
  1446.                 PrintLn 
  1447.                 PrintLn STRING034
  1448.                 Hangup
  1449.             Endif
  1450.             DefColor
  1451.             If (STRING037 == "L") Then
  1452.                 Cls
  1453.                 DispFile PPEPath() + PPEName() + ".dsp", 0
  1454.                 AnsiPos 7, 4
  1455.                 STRING025 = ""
  1456.                 Input STRING078, STRING025
  1457.                 If (STRING025 == "") Goto LABEL002
  1458.                 PageOn
  1459.                 AnsiPos 7, 6
  1460.                 Print "Page ends in 10 seconds"
  1461.             Else
  1462.                 FreshLine
  1463.                 STRING025 = ""
  1464.                 Input STRING078, STRING025
  1465.                 If (STRING025 == "") Goto LABEL002
  1466.                 PageOn
  1467.                 FreshLine
  1468.                 Print "Page ends in 10 seconds"
  1469.             Endif
  1470.             For STRING028 = 1 To 10
  1471.                 Print "."
  1472.                 Sound 110
  1473.                 Delay 2
  1474.                 Sound 220
  1475.                 Delay 2
  1476.                 Sound 440
  1477.                 Delay 2
  1478.                 Sound 880
  1479.                 Delay 2
  1480.                 Sound 110
  1481.                 Delay 2
  1482.                 Sound 220
  1483.                 Delay 2
  1484.                 Sound 440
  1485.                 Delay 2
  1486.                 Sound 880
  1487.                 Delay 2
  1488.                 Sound 0
  1489.                 Delay 10
  1490.                 If (Inkey() == " ") Then
  1491.                     Chat
  1492.                     Goto LABEL002
  1493.                 Endif
  1494.             Next
  1495.             INTEGER002 = INTEGER002 + 1
  1496.             If (INTEGER002 > STRING054) BOOLEAN001 = 1
  1497.         Else
  1498.             DefColor
  1499.             Cls
  1500.             DispText 128, 0 + 64
  1501.             PromptStr 571, STRING067, 1, "YyNy", 4 + 8
  1502.             If (STRING067 == YesChar()) Goto LABEL060
  1503.         Endif
  1504.     Endif
  1505.     Goto LABEL003
  1506.     :LABEL065
  1507.     Goto LABEL002
  1508.     :LABEL066
  1509.     DispText 117, 2048
  1510.     Return
  1511.     :LABEL067
  1512.     Call STRING045
  1513.     Goto LABEL002
  1514.     :LABEL068
  1515.     Tokenize STRING066
  1516.     INTEGER005 = ReadLine(PCBDat(), 195)
  1517.     If (INTEGER005 == -1) Then
  1518.         If (STRING050 == 3) Then
  1519.             KbdStuff STRING066 + Chr(13) + Chr(13) + Chr(13)
  1520.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1521.             Goto LABEL069
  1522.         Endif
  1523.         If (TokCount() == 1) Then
  1524.             KbdStuff STRING066 + Chr(13) + Chr(13)
  1525.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1526.             Goto LABEL069
  1527.         Endif
  1528.         KbdStuff STRING066 + Chr(13) + Chr(13) + STRING036 + Chr(13)
  1529.         If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1530.     Endif
  1531.     :LABEL069
  1532.     If (INTEGER005 == 0) Then
  1533.         If (STRING050 == 3) Then
  1534.             KbdStuff STRING066 + Chr(13) + Chr(13)
  1535.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1536.             Goto LABEL070
  1537.         Endif
  1538.         If (TokCount() == 1) Then
  1539.             KbdStuff STRING066 + Chr(13)
  1540.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1541.             Goto LABEL070
  1542.         Endif
  1543.         KbdStuff STRING066 + Chr(13) + STRING036 + Chr(13)
  1544.         If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1545.     Endif
  1546.     :LABEL070
  1547.  
  1548. ;------------------------------------------------------------------------------
  1549. ;
  1550. ; Usage report (before postprocessing)
  1551. ;
  1552. ; ■ Statements used :
  1553. ;
  1554. ;    2       End
  1555. ;    13      Cls
  1556. ;    14      ClrEol
  1557. ;    4       Wait
  1558. ;    249     Goto 
  1559. ;    483     Let 
  1560. ;    22      Print 
  1561. ;    45      PrintLn 
  1562. ;    179     If 
  1563. ;    14      DispFile 
  1564. ;    3       Input 
  1565. ;    1       FCreate 
  1566. ;    8       FOpen 
  1567. ;    3       FAppend 
  1568. ;    19      FClose 
  1569. ;    2       FGet 
  1570. ;    1       FPut 
  1571. ;    16      FPutLn 
  1572. ;    1       StartDisp 
  1573. ;    6       Hangup
  1574. ;    2       PutUser
  1575. ;    12      DefColor
  1576. ;    8       Delete 
  1577. ;    1       DelUser
  1578. ;    2       AdjTime 
  1579. ;    1       Log 
  1580. ;    22      InputStr 
  1581. ;    5       InputYN 
  1582. ;    14      Gosub 
  1583. ;    3       Return
  1584. ;    3       PromptStr 
  1585. ;    10      Delay 
  1586. ;    24      Inc 
  1587. ;    6       Newline
  1588. ;    7       Newlines 
  1589. ;    5       Tokenize 
  1590. ;    16      GetToken 
  1591. ;    4       DispText 
  1592. ;    8       KbdStuff 
  1593. ;    2       Call 
  1594. ;    6       KbdFile 
  1595. ;    1       WaitFor 
  1596. ;    83      AnsiPos 
  1597. ;    23      FreshLine
  1598. ;    1       Message 
  1599. ;    1       SaveScrn
  1600. ;    1       RestScrn
  1601. ;    9       Sound 
  1602. ;    1       Chat
  1603. ;    2       PageOn
  1604. ;    1       FDefIn 
  1605. ;    1       FDefOut 
  1606. ;    58      FDGet 
  1607. ;    2       FDPutLn 
  1608. ;    2       Copy 
  1609. ;    1       GetAltUser 
  1610. ;
  1611. ;
  1612. ; ■ Functions used :
  1613. ;
  1614. ;    5       -
  1615. ;    322     +
  1616. ;    4       -
  1617. ;    138     ==
  1618. ;    15      <>
  1619. ;    12      <
  1620. ;    7       <=
  1621. ;    6       >
  1622. ;    17      >=
  1623. ;    113     !
  1624. ;    29      &&
  1625. ;    20      ||
  1626. ;    3       Len(
  1627. ;    6       Upper()
  1628. ;    3       Left()
  1629. ;    5       Right()
  1630. ;    4       Ferr()
  1631. ;    76      Chr()
  1632. ;    2       InStr()
  1633. ;    4       Trim()
  1634. ;    2       Random()
  1635. ;    2       Time()
  1636. ;    4       U_Name()
  1637. ;    5       NoChar()
  1638. ;    15      YesChar()
  1639. ;    3       Replace()
  1640. ;    369     Strip()
  1641. ;    2       Inkey()
  1642. ;    20      String()
  1643. ;    5       Mask_Pwd()
  1644. ;    14      Mask_Ascii()
  1645. ;    9       PCBDat()
  1646. ;    58      PPEPath()
  1647. ;    20      PcbNode()
  1648. ;    9       ReadLine()
  1649. ;    18      Exist()
  1650. ;    3       S2I()
  1651. ;    2       Psa()
  1652. ;    27      PPEName()
  1653. ;    9       TokCount()
  1654. ;    1       U_RecNum()
  1655. ;    4       ScrText()
  1656. ;    1       ErrCorrect()
  1657. ;
  1658. ;------------------------------------------------------------------------------
  1659. ;
  1660. ; Analysis flags : WRDABCdH
  1661. ;
  1662. ; W - Write user ■ 5
  1663. ;     Program writes a user record. Although this may be normal for a
  1664. ;     User Editor, it may also be a way to modify an account level.
  1665. ;     ■ Search for : PUTUSER
  1666. ;
  1667. ; R - Read user ■ 5
  1668. ;     User records are read, this may signify that someone wants to get
  1669. ;     various informations about a user (for example his password), but
  1670. ;     this may also be normal for a program accessing user records (for
  1671. ;     example a User Editor)
  1672. ;     ■ Search for : GETALTUSER
  1673. ;
  1674. ; D - Delete user ■ 5
  1675. ;     Program is deleting account(s)... Check!
  1676. ;     ■ Search for : DELUSER
  1677. ;
  1678. ; A - Adjust online time remaining ■ 5
  1679. ;     Program modify the amount of online time remaining, this may
  1680. ;     be a way to bypass time limits
  1681. ;     ■ Search for : ADJTIME
  1682. ;
  1683. ; B - Brute hangup ■ 1
  1684. ;     Program hangup without notification. This may be a good way to
  1685. ;     disconnect a user, but if used randomly, may be very nasty
  1686. ;     ■ Search for : HANGUP, DTROFF
  1687. ;
  1688. ; C - Call child PPE ■ 3
  1689. ;     This is usually normal, but may be a tricky way to launch some
  1690. ;     sysop-only commands.
  1691. ;     ■ Search for : CALL
  1692. ;
  1693. ; d - Access PCBOARD.DAT ■ 2
  1694. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1695. ;     for many PPE so they can find various informations on the system
  1696. ;     (system paths, max number of lines in messages, ...) but it may also
  1697. ;     be a way to gather vital informations.
  1698. ;     ■ Search for : PCBDAT()
  1699. ;
  1700. ; H - Read Password or Password History ■ 5
  1701. ;     Program is reading the user's password or last password history
  1702. ;     This may be ok for a password manager, but it is very suspect. Check!
  1703. ;     ■ Search for : U_PWDHIST, U_PWD
  1704. ;
  1705. ;------------------------------------------------------------------------------
  1706. ;
  1707. ; Postprocessing report
  1708. ;
  1709. ;    7       For/Next
  1710. ;    1       While/EndWhile
  1711. ;    83      If/Then or If/Then/Else
  1712. ;    1       Select Case
  1713. ;
  1714. ;------------------------------------------------------------------------------
  1715. ;                 AEGiS Corp - Break the routines, code against the machines!
  1716. ;------------------------------------------------------------------------------
  1717.