home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMT213.ZIP / MATRIX.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-01-04  |  31KB  |  1,730 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.     Integer  INTEGER022
  42.     Integer  INTEGER023
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   STRING008
  49.     String   STRING009
  50.     String   STRING010
  51.     String   STRING011
  52.     String   STRING012
  53.     String   STRING013
  54.     String   STRING014
  55.     String   STRING015
  56.     String   STRING016
  57.     String   STRING017
  58.     String   STRING018
  59.     String   STRING019
  60.     String   STRING020
  61.     String   STRING021
  62.     String   STRING022
  63.     String   STRING023
  64.     String   STRING024
  65.     String   STRING025
  66.     String   STRING026
  67.     String   STRING027
  68.     String   STRING028
  69.     String   STRING029
  70.     String   STRING030
  71.     String   STRING031
  72.     String   STRING032
  73.     String   STRING033
  74.     String   STRING034
  75.     String   TSTRING035(10)
  76.     String   STRING036
  77.     String   STRING037
  78.     String   STRING038
  79.     String   STRING039
  80.     String   STRING040
  81.     String   STRING041
  82.     String   STRING042
  83.     String   STRING043
  84.     String   STRING044
  85.     String   STRING045
  86.     String   STRING046
  87.     String   STRING047
  88.     String   STRING048
  89.     String   STRING049
  90.     String   STRING050
  91.     String   STRING051
  92.     String   STRING052
  93.     String   STRING053
  94.     String   STRING054
  95.     String   STRING055
  96.     String   STRING056
  97.     String   STRING057
  98.     String   STRING058
  99.     String   STRING059
  100.     String   STRING060
  101.     String   STRING061
  102.     String   STRING062
  103.     String   STRING063
  104.     String   STRING064
  105.     String   STRING065
  106.     String   STRING066
  107.     String   STRING067
  108.     String   STRING068
  109.     String   STRING069
  110.     String   STRING070
  111.     String   STRING071
  112.     String   STRING072
  113.     String   STRING073
  114.     String   STRING074
  115.     String   STRING075
  116.     String   STRING076
  117.     String   STRING077
  118.     String   STRING078
  119.     String   STRING079
  120.     String   STRING080
  121.     String   STRING081
  122.     String   STRING082
  123.     String   STRING083
  124.     String   STRING084
  125.     String   STRING085
  126.     String   STRING086
  127.     String   STRING087
  128.     String   STRING088
  129.     String   STRING089
  130.     String   STRING090
  131.     String   STRING091
  132.     String   STRING092
  133.     String   STRING093
  134.     String   STRING094
  135.     String   STRING095
  136.     String   STRING096
  137.     String   STRING097
  138.     String   STRING098
  139.     String   STRING099
  140.     String   STRING100
  141.     String   TSTRING101(50,7)
  142.     String   TSTRING102(50)
  143.     String   TSTRING103(50)
  144.     String   TSTRING104(50)
  145.     String   TSTRING105(50)
  146.     String   STRING106
  147.     String   STRING107
  148.     String   STRING108
  149.     String   STRING109
  150.     String   STRING110
  151.     Time     TIME001
  152.     Time     TIME002
  153.  
  154. ;------------------------------------------------------------------------------
  155.  
  156.     FDefIn 1
  157.     FDefOut 2
  158.     If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  159.     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)
  160.     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(51) + "  " + "@X0ECompiled on @X0C01-04-94@X07"
  161.     If (STRING052 <> "@X0ETHT-Matrix @X09v2.13" + "  " + "@X0ECompiled on @X0C01-04-94@X07") Goto LABEL070
  162.     If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".mal")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".mal"
  163.     STRING097 = ReadLine(PCBDat(), 2)
  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 = Strip(STRING097, " ")
  347.     STRING097 = Strip(STRING097, " ")
  348.     INTEGER019 = Len(STRING097)
  349.     If (INTEGER019 < 2) STRING097 = "me"
  350.     STRING097 = Right(STRING097, 2)
  351.     STRING098 = ReadLine(PCBDat(), 94)
  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 = Strip(STRING098, "╧")
  532.     STRING098 = Strip(STRING098, "▀")
  533.     STRING098 = Strip(STRING098, "∩")
  534.     STRING098 = Strip(STRING098, " ")
  535.     STRING098 = Strip(STRING098, " ")
  536.     INTEGER018 = Len(STRING098)
  537.     If (INTEGER018 < 2) STRING098 = "me"
  538.     STRING098 = Right(STRING098, 2)
  539.     STRING099 = STRING097 + STRING098 + "MA"
  540.     If (INTEGER006 == S2I(STRING099, 33)) Goto LABEL001
  541.     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)
  542.     If (STRING095 <> "@X0C<<<@X0CUnRegistered@X0C>>>") Goto LABEL070
  543.     :LABEL001
  544.     STRING020 = ""
  545.     FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0
  546.     FDGet INTEGER006
  547.     FDGet STRING031
  548.     FDGet STRING032
  549.     FDGet STRING033
  550.     FDGet STRING026
  551.     FDGet INTEGER004
  552.     FDGet STRING034
  553.     FDGet INTEGER011
  554.     FDGet STRING037
  555.     FDGet STRING059
  556.     FDGet STRING061
  557.     FDGet STRING063
  558.     FDGet STRING062
  559.     FDGet STRING060
  560.     FDGet STRING091
  561.     FDGet STRING064
  562.     FDGet STRING041
  563.     FDGet STRING071
  564.     FDGet STRING072
  565.     FDGet STRING073
  566.     FDGet STRING074
  567.     FDGet STRING075
  568.     FDGet STRING076
  569.     FDGet STRING077
  570.     FDGet STRING078
  571.     FDGet STRING070
  572.     FDGet STRING042
  573.     FDGet STRING043
  574.     FDGet STRING054
  575.     FDGet STRING057
  576.     FDGet STRING029
  577.     FDGet STRING055
  578.     FDGet STRING044
  579.     FDGet STRING045
  580.     FDGet STRING056
  581.     FDGet STRING046
  582.     FDGet STRING088
  583.     FDGet STRING087
  584.     FDGet STRING089
  585.     FDGet STRING090
  586.     FDGet STRING092
  587.     FDGet STRING093
  588.     FDGet STRING094
  589.     FDGet INTEGER012
  590.     For STRING028 = 1 To INTEGER012
  591.         FDGet TSTRING035(STRING028)
  592.     Next
  593.     FClose 1
  594.     FOpen 1, PPEPath() + "CHECK.cnf", 0, 0
  595.     FDGet STRING058
  596.     FDGet STRING018
  597.     FDGet STRING019
  598.     FDGet STRING017
  599.     FClose 1
  600.     STRING030 = STRING037
  601.     :LABEL002
  602.     BOOLEAN001 = 0
  603.     STRING037 = STRING030
  604.     StartDisp 1
  605.     :LABEL003
  606.     If (BOOLEAN001) Goto LABEL065
  607.     If (Upper(STRING037) == "D") Goto LABEL007
  608.     If (Upper(STRING037) == "L") Goto LABEL005
  609.     If (Upper(STRING037) == "B") Then
  610.         :LABEL004
  611.         STRING079 = Random(5)
  612.         If (STRING079 == "1") Goto LABEL005
  613.         If (STRING079 == "2") Goto LABEL007
  614.         If (STRING079 == "3") Goto LABEL005
  615.         If (STRING079 == "4") Goto LABEL007
  616.         If (STRING079 == "5") Goto LABEL005
  617.         If (STRING079 == "0") Goto LABEL007
  618.         If (STRING079 < "0") Goto LABEL004
  619.     Endif
  620.     :LABEL005
  621.     FClose 1
  622.     FOpen 1, PPEPath() + PPEName() + "1.cfg", 2, 0
  623.     FDGet INTEGER016
  624.     STRING037 = "L"
  625.     :LABEL006
  626.     STRING038 = Random(INTEGER016 + 1)
  627.     If (STRING038 == 0) Goto LABEL006
  628.     If (STRING038 > INTEGER016) Goto LABEL006
  629.     For STRING028 = 1 To STRING038
  630.         FDGet STRING068
  631.         FDGet INTEGER013
  632.         FDGet INTEGER014
  633.         FDGet STRING049
  634.         FDGet STRING069
  635.     Next
  636.     FClose 1
  637.     Goto LABEL013
  638.     :LABEL007
  639.     DefColor
  640.     Cls
  641.     STRING048 = ""
  642.     :LABEL008
  643.     DefColor
  644.     FreshLine
  645.     DispFile PPEPath() + "menu.ans", 4 + 2
  646.     AnsiPos 1, 1
  647.     Print STRING052 + " " + STRING096
  648.     If (INTEGER006 == S2I(STRING099, 33)) Goto LABEL009
  649.     AnsiPos 60, 1
  650.     Print STRING095
  651.     :LABEL009
  652.     INTEGER013 = 23
  653.     :LABEL010
  654.     If (BOOLEAN001) Goto LABEL012
  655.     :LABEL011
  656.     DefColor
  657.     Inc INTEGER013
  658.     AnsiPos 1, INTEGER013
  659.     InputStr STRING056 + String(PcbNode()) + ">_", STRING050, "", 13, Mask_Ascii(), 1024 + 8
  660.     If ((STRING050 == "DIR") || (STRING050 == "DIR/P")) Goto LABEL008
  661.     If (STRING050 == "DIR/W") Goto LABEL012
  662.     If (STRING050 == "REGIT") Goto LABEL067
  663.     If (STRING050 == "FORMAT") Then
  664.         FreshLine
  665.         DispFile PPEPath() + "format", 0
  666.         Goto LABEL011
  667.     Endif
  668.     If (STRING050 == "") Then
  669.         STRING048 = ScrText(1, INTEGER013, 15, 1)
  670.         FreshLine
  671.         Inc INTEGER013
  672.         Goto LABEL011
  673.     Endif
  674.     If (STRING050 == "VER") Then
  675.         FreshLine
  676.         DispFile PPEPath() + "VER", 0
  677.         Goto LABEL011
  678.     Endif
  679.     If (STRING050 == "HELP") Then
  680.         FreshLine
  681.         DispFile PPEPath() + "help", 0
  682.         Goto LABEL011
  683.     Endif
  684.     If (STRING050 == "CHAT") Then
  685.         Goto LABEL064
  686.     Endif
  687.     If (STRING050 == "WHO") Then
  688.         Cls
  689.         FreshLine
  690.         Call PPEPath() + "who.ppe"
  691.         AnsiPos 1, 20
  692.         Wait
  693.         Cls
  694.         DefColor
  695.         FreshLine
  696.         Goto LABEL011
  697.     Endif
  698.     If (STRING050 == "CLS") Then
  699.         Cls
  700.         INTEGER013 = 0
  701.         Goto LABEL011
  702.     Endif
  703.     If (STRING050 == "SYSTEM") Then
  704.         Goto LABEL017
  705.     Endif
  706.     Select Case (STRING050)
  707.         Case "CHECK"
  708.             STRING050 = 2
  709.         Case "APPLY"
  710.             STRING050 = 3
  711.         Case Else
  712.             If (((STRING050 == "LOGOFF") || (STRING050 == "G")) || (STRING050 == "BYE")) Then
  713.                 Goto LABEL059
  714.             Endif
  715.             If (STRING050 == "FEEDBACK") Then
  716.                 Goto LABEL060
  717.             Endif
  718.             If ((STRING050 == "PAGE") && (STRING091 == YesChar())) Then
  719.                 Goto LABEL064
  720.                 If ((STRING057 == YesChar()) && (STRING050 == STRING029)) Goto LABEL070
  721.             Else
  722.                 Inc INTEGER013
  723.                 Print STRING048
  724.                 FreshLine
  725.                 PrintLn "@X0FUnknown Command" + "  " + """" + STRING050 + """"
  726.                 Newline
  727.                 Goto LABEL011
  728.             Endif
  729.             Goto LABEL010
  730.             :LABEL012
  731.             DispFile PPEPath() + "menuw.ans", 4 + 2
  732.             Goto LABEL011
  733.             :LABEL013
  734.             STRING051 = 1
  735.             STRING050 = ""
  736.             STRING048 = ""
  737.             DefColor
  738.             Cls
  739.             DispFile PPEPath() + STRING068, 4
  740.             AnsiPos 1, 1
  741.             Print STRING052 + " " + STRING096
  742.             If (INTEGER006 == S2I(STRING099, 33)) Goto LABEL014
  743.             AnsiPos 60, 1
  744.             Print STRING095
  745.             :LABEL014
  746.             INTEGER017 = INTEGER014
  747.             AnsiPos INTEGER013, INTEGER014
  748.             Print STRING059
  749.             Inc INTEGER014
  750.             Inc STRING051
  751.             AnsiPos INTEGER013, INTEGER014
  752.             Print STRING061
  753.             Inc INTEGER014
  754.             Inc STRING051
  755.             AnsiPos INTEGER013, INTEGER014
  756.             Print STRING063
  757.             Inc INTEGER014
  758.             Inc STRING051
  759.             AnsiPos INTEGER013, INTEGER014
  760.             Print STRING060
  761.             Inc INTEGER014
  762.             Inc STRING051
  763.             AnsiPos INTEGER013, INTEGER014
  764.             Print STRING062
  765.             If (STRING091 == YesChar()) Then
  766.                 Inc INTEGER014
  767.                 Inc STRING051
  768.                 AnsiPos INTEGER013, INTEGER014
  769.                 Print STRING064
  770.             Endif
  771.             If (STRING055 == YesChar()) Then
  772.                 Inc INTEGER014
  773.                 Inc STRING051
  774.                 AnsiPos INTEGER013, INTEGER014
  775.                 Print STRING044
  776.             Endif
  777.             INTEGER014 = INTEGER017
  778.             KbdStuff Chr(32)
  779.             :LABEL015
  780.             If (BOOLEAN001) Goto LABEL017
  781.             STRING047 = Inkey()
  782.             STRING047 = Upper(STRING047)
  783.             If (STRING047 == Chr(13)) Then
  784.                 STRING050 = INTEGER014 - INTEGER017
  785.                 If (STRING050 == 1) Goto LABEL017
  786.                 If (STRING050 == 2) Goto LABEL018
  787.                 If (STRING050 == 3) Goto LABEL018
  788.                 If (STRING050 == 4) Goto LABEL059
  789.                 If (STRING050 == 5) Goto LABEL060
  790.                 If ((STRING050 == 6) && (STRING091 == YesChar())) Goto LABEL064
  791.                 If ((STRING050 == 6) && (STRING091 == NoChar())) Goto LABEL067
  792.                 If (STRING050 == 7) Goto LABEL067
  793.             Endif
  794.             If ((STRING057 == YesChar()) && (STRING047 == STRING029)) Goto LABEL070
  795.             If (((((((((STRING047 == Chr(32)) || (STRING047 == "UP")) || (STRING047 == "DOWN")) || (STRING047 == "LEFT")) || (STRING047 == "RIGHT")) || (STRING047 == "A")) || (STRING047 == "a")) || (STRING047 == "Z")) || (STRING047 == "z")) Then
  796.                 AnsiPos INTEGER013, INTEGER014
  797.                 If (INTEGER014 == INTEGER017) Then
  798.                     Print STRING048
  799.                     AnsiPos INTEGER013, INTEGER014
  800.                     Goto LABEL016
  801.                 Endif
  802.                 AnsiPos INTEGER013, INTEGER014 - 1
  803.                 Print STRING048
  804.                 :LABEL016
  805.                 If (INTEGER014 == INTEGER017 + STRING051) INTEGER014 = INTEGER014 - STRING051
  806.                 AnsiPos INTEGER013, INTEGER014
  807.                 STRING048 = ScrText(INTEGER013, INTEGER014, STRING049, 1)
  808.                 STRING050 = ScrText(INTEGER013, INTEGER014 - 1, STRING049, 0)
  809.                 Print STRING070 + ScrText(INTEGER013, INTEGER014, STRING049, 0)
  810.                 Inc INTEGER014
  811.             Endif
  812.             Goto LABEL015
  813.             :LABEL017
  814.             DefColor
  815.             Cls
  816.             If (STRING037 == "L") Then
  817.                 DispFile PPEPath() + PPEName() + ".dsp", 0
  818.                 AnsiPos 6, 4
  819.             Endif
  820.             InputStr STRING026, STRING020, 0, 13, Mask_Pwd(), 1024 + 1 + 8
  821.             If (STRING020 == STRING031) Then
  822.                 Goto LABEL070
  823.             Endif
  824.             If (STRING020 == STRING032) Then
  825.                 AdjTime INTEGER011
  826.                 Goto LABEL070
  827.             Endif
  828.             If (STRING020 == STRING033) Then
  829.                 Goto LABEL070
  830.             Endif
  831.             INTEGER002 = INTEGER002 + 1
  832.             Goto LABEL002
  833.     End Select
  834.     :LABEL018
  835.     DefColor
  836.     If (STRING037 == "L") Then
  837.         Cls
  838.         DispFile PPEPath() + PPEName() + ".dsp", 0
  839.         AnsiPos 7, 4
  840.     Else
  841.         FreshLine
  842.     Endif
  843.     STRING039 = ""
  844.     InputStr STRING071, STRING039, "", 30, Mask_Ascii(), 8
  845.     If (STRING039 == "") Goto LABEL002
  846.     Tokenize STRING039
  847.     If (TokCount() <> 1) Then
  848.         Goto LABEL019
  849.     Endif
  850.     If (STRING037 == "L") Then
  851.         AnsiPos 7, 6
  852.     Else
  853.         FreshLine
  854.     Endif
  855.     STRING040 = ""
  856.     InputStr STRING072, STRING040, "", 30, Mask_Ascii(), 8
  857.     :LABEL019
  858.     If (TokCount() == 1) Then
  859.         STRING066 = STRING039 + " " + STRING040
  860.     Else
  861.         STRING066 = STRING039
  862.     Endif
  863.     INTEGER015 = U_RecNum(STRING066)
  864.     If (INTEGER015 <> -1) Then
  865.         Goto LABEL045
  866.     Else
  867.         If (STRING050 == 3) Then
  868.             FreshLine
  869.             PromptStr 53, STRING065, 1, "CR", 0 + 8
  870.             If (STRING065 == "C") Goto LABEL021
  871.             If (STRING065 == "R") Goto LABEL002
  872.         Endif
  873.         If ((STRING050 == 2) && (STRING037 == "L")) Then
  874.             AnsiPos 7, 7
  875.             PrintLn "@X0CYou Are not a USER "
  876.             AnsiPos 7, 8
  877.             STRING067 = YesChar()
  878.             InputYN "@X0CDo you Wish to Apply", STRING067, ""
  879.             If (STRING067 == YesChar()) Then
  880.                 Goto LABEL021
  881.                 Goto LABEL020
  882.             Endif
  883.             Goto LABEL002
  884.         Endif
  885.         :LABEL020
  886.         If ((STRING050 == 2) && (STRING037 <> "L")) Then
  887.             FreshLine
  888.             PrintLn "@X0CYou Are not a USER "
  889.             FreshLine
  890.             STRING067 = YesChar()
  891.             InputYN "@X0CDo you Wish to Apply", STRING067, ""
  892.             If (STRING067 == YesChar()) Then
  893.                 Goto LABEL021
  894.                 Goto LABEL021
  895.             Endif
  896.             Goto LABEL002
  897.         Endif
  898.         :LABEL021
  899.         AdjTime 5
  900.         DispFile PPEPath() + PPEName() + ".NEW", 0
  901.         STRING050 = 3
  902.         FCreate 5, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 1, 0
  903.         :LABEL022
  904.         DefColor
  905.         INTEGER009 = ReadLine(PCBDat(), 265)
  906.         STRING086 = INTEGER009
  907.         STRING036 = ""
  908.         AnsiPos 13, 3
  909.         InputStr "_", STRING036, "", 12, Mask_Pwd(), 8 + 1
  910.         INTEGER010 = Len(STRING036)
  911.         If (INTEGER010 < INTEGER009) Then
  912.             AnsiPos 5, 20
  913.             ClrEol
  914.             PrintLn "Password has to be " + STRING086 + " Charcters Long"
  915.             Goto LABEL022
  916.         Endif
  917.         AnsiPos 13, 4
  918.         InputStr "_", STRING085, "", 12, Mask_Pwd(), 8 + 1
  919.         If (STRING036 <> STRING085) Then
  920.             AnsiPos 5, 20
  921.             ClrEol
  922.             PrintLn STRING088
  923.             Goto LABEL022
  924.         Endif
  925.         FPut 5, Chr(13) + Chr(10)
  926.         FPut 5, Chr(13) + Chr(10)
  927.         FPutLn 5, STRING036
  928.         FPutLn 5, STRING085
  929.         :LABEL023
  930.         STRING080 = ""
  931.         AnsiPos 13, 5
  932.         InputStr "_", STRING080, "", 24, Mask_Ascii(), 4
  933.         If (STRING080 == "") Then
  934.             AnsiPos 5, 20
  935.             ClrEol
  936.             Gosub LABEL066
  937.             Goto LABEL023
  938.         Endif
  939.         FPutLn 5, STRING080
  940.         :LABEL024
  941.         STRING081 = ""
  942.         AnsiPos 13, 6
  943.         InputStr "_", STRING081, "", 15, "1234567890-", 4
  944.         If (STRING081 == "") Then
  945.             AnsiPos 5, 20
  946.             ClrEol
  947.             Gosub LABEL066
  948.             Goto LABEL024
  949.         Endif
  950.         FPutLn 5, STRING081
  951.         :LABEL025
  952.         STRING082 = ""
  953.         AnsiPos 14, 7
  954.         InputStr "_", STRING082, "", 15, "1234567890-", 4
  955.         If (STRING082 == "") Then
  956.             AnsiPos 5, 20
  957.             ClrEol
  958.             Gosub LABEL066
  959.             Goto LABEL025
  960.         Endif
  961.         FPutLn 5, STRING082
  962.         :LABEL026
  963.         STRING084 = ""
  964.         AnsiPos 2, 8
  965.         InputStr STRING094, STRING084, "", 20, Mask_Ascii(), 4
  966.         If (STRING084 == "") Then
  967.             AnsiPos 5, 20
  968.             ClrEol
  969.             Gosub LABEL066
  970.             Goto LABEL026
  971.         Endif
  972.         FPutLn 5, STRING084
  973.         :LABEL027
  974.         STRING083 = ""
  975.         AnsiPos 29, 9
  976.         InputYN "", STRING083, 1
  977.         If (STRING083 == "") Then
  978.             AnsiPos 5, 20
  979.             ClrEol
  980.             Gosub LABEL066
  981.             Goto LABEL027
  982.         Endif
  983.         FPutLn 5, STRING083
  984.         AnsiPos 78, 11
  985.         SaveScrn
  986.         Cls
  987.         GetToken STRING100
  988.         If (Exist(ReadLine(PCBDat(), 45))) Goto LABEL028
  989.         Newline
  990.         Print "@X0CError reading PCBPROT.DAT!  Aborting ... @X07"
  991.         Delay 50
  992.         Log "Error reading PCBPROT.DAT!", 0
  993.         FreshLine
  994.         End
  995.         Goto LABEL031
  996.         :LABEL028
  997.         STRING110 = "N"
  998.         FOpen 1, ReadLine(PCBDat(), 45), 0, 0
  999.         :LABEL029
  1000.         If (Ferr(1)) Goto LABEL030
  1001.         FGet 1, STRING106
  1002.         If (Len(STRING106)) Then
  1003.             STRING106 = Replace(STRING106, Chr(32), Chr(255))
  1004.             Inc INTEGER021
  1005.             STRING106 = Replace(STRING106, ",", ";")
  1006.             Tokenize STRING106
  1007.             While (TokCount() > 0) Do
  1008.                 Inc INTEGER020
  1009.                 GetToken TSTRING101(INTEGER021, INTEGER020)
  1010.             EndWhile
  1011.             TSTRING102(INTEGER021) = TSTRING101(INTEGER021, 1)
  1012.             TSTRING104(INTEGER021) = TSTRING101(INTEGER021, 2)
  1013.             TSTRING105(INTEGER021) = Replace(TSTRING101(INTEGER021, 4), Chr(255), Chr(32))
  1014.             TSTRING103(INTEGER021) = TSTRING101(INTEGER021, 5)
  1015.         Endif
  1016.         INTEGER020 = 0
  1017.         Goto LABEL029
  1018.         :LABEL030
  1019.         FClose 1
  1020.         If (Right(STRING089, (1 <> "\"))) STRING089 = STRING089 + "\"
  1021.         STRING108 = STRING089 + "PCBS"
  1022.         STRING109 = STRING089 + "PCBR"
  1023.         If (Strip(STRING100, Chr(32)) <> "") Then
  1024.             STRING100 = Strip(STRING100, Chr(32))
  1025.             For INTEGER022 = 1 To INTEGER021
  1026.                 STRING107 = STRING107 + TSTRING102(INTEGER022)
  1027.             Next
  1028.             INTEGER023 = InStr(STRING107, STRING100)
  1029.             If (STRING100 == "N") Goto LABEL037
  1030.             Gosub LABEL035
  1031.         Endif
  1032.         Gosub LABEL032
  1033.         :LABEL031
  1034.         Goto LABEL037
  1035.         :LABEL032
  1036.         Newline
  1037.         PrintLn "@X70┌────────────────────────────────────────────────────────@X7F┐@X07"
  1038.         PrintLn "@X70│         @X7BP R O T O C O L S   A V A I L A B L E@POS:58@@X7F│@X07"
  1039.         PrintLn "@X70└@X7F────────────────────────────────────────────────────────┘@X07"
  1040.         Newline
  1041.         PrintLn "@X70┌@X7F────────────────────────────────────────────────────────┐@X07"
  1042.         For INTEGER022 = 1 To INTEGER021
  1043.             If (((TSTRING104(INTEGER022) <> "I") && !Exist(STRING108 + TSTRING102(INTEGER022) + ".BAT")) && !Exist(STRING109 + TSTRING102(INTEGER022) + ".BAT")) BOOLEAN002 = 1
  1044.             If (!BOOLEAN002 || (TSTRING102(INTEGER022) == "N")) Then
  1045.                 STRING107 = STRING107 + TSTRING102(INTEGER022)
  1046.                 If (TSTRING102(INTEGER022) == U_Trans) Then
  1047.                     PrintLn "@X70│ @XF4=> @X71(@X7E" + TSTRING102(INTEGER022) + "@X71) " + TSTRING105(INTEGER022) + "@POS:58@@X7F│@X07"
  1048.                     Goto LABEL033
  1049.                 Endif
  1050.                 PrintLn "@X70│    @X71(@X7E" + TSTRING102(INTEGER022) + "@X71) " + TSTRING105(INTEGER022) + "@POS:58@@X7F│@X07"
  1051.             Endif
  1052.             :LABEL033
  1053.             BOOLEAN002 = 0
  1054.         Next
  1055.         PrintLn "@X70└────────────────────────────────────────────────────────@X7F┘@X07"
  1056.         PromptStr 198, STRING110, 1, STRING107, 2 + 4 + 8 + 128 + 256 + 8192
  1057.         If (Len(STRING110) && (STRING110 <> U_Trans)) Then
  1058.             STRING100 = Left(STRING110, 1)
  1059.             If (STRING100 == "N") Goto LABEL037
  1060.             INTEGER023 = InStr(STRING107, STRING100)
  1061.             Goto LABEL035
  1062.             Goto LABEL034
  1063.         Endif
  1064.         :LABEL034
  1065.         Return
  1066.         :LABEL035
  1067.         If (((TSTRING104(INTEGER023) <> "I") && !Exist(STRING108 + TSTRING102(INTEGER023) + ".BAT")) && !Exist(STRING109 + TSTRING102(INTEGER023) + ".BAT")) BOOLEAN002 = 1
  1068.         If ((STRING100 == TSTRING102(INTEGER023)) && !BOOLEAN002) Then
  1069.             If (TSTRING103(INTEGER023) == YesChar()) Then
  1070.                 If (ErrCorrect()) Goto LABEL036
  1071.                 Newlines 2
  1072.                 PrintLn "@X0CProtocol Unavailable - Modem Type Wrong!"
  1073.                 End
  1074.             Endif
  1075.             :LABEL036
  1076.         Else
  1077.             Return
  1078.         Endif
  1079.         :LABEL037
  1080.         If (Strip(STRING100, Chr(32)) <> "") Then
  1081.         Endif
  1082.         FPutLn 5, STRING100
  1083.         RestScrn
  1084.         If (Psa(3)) Then
  1085.             AnsiPos 1, 11
  1086.             DispFile PPEPath() + PPEName() + "1.NEW", 0
  1087.             :LABEL038
  1088.             AnsiPos 17, 13
  1089.             InputStr "_", U_Addr(0), "", 25, Mask_Ascii(), 4
  1090.             If (U_Addr(0) == "") Then
  1091.                 AnsiPos 5, 20
  1092.                 ClrEol
  1093.                 Gosub LABEL066
  1094.                 Goto LABEL038
  1095.             Endif
  1096.             FPutLn 5, U_Addr(0)
  1097.             :LABEL039
  1098.             AnsiPos 17, 14
  1099.             InputStr "_", U_Addr(1), "", 25, Mask_Ascii(), 4
  1100.             If (U_Addr(1) == "") Then
  1101.                 AnsiPos 5, 20
  1102.                 ClrEol
  1103.                 Gosub LABEL066
  1104.                 Goto LABEL039
  1105.             Endif
  1106.             FPutLn 5, U_Addr(1)
  1107.             :LABEL040
  1108.             AnsiPos 8, 15
  1109.             InputStr "_", U_Addr(2), "", 15, Mask_Ascii(), 4
  1110.             If (U_Addr(2) == "") Then
  1111.                 AnsiPos 5, 20
  1112.                 ClrEol
  1113.                 Gosub LABEL066
  1114.                 Goto LABEL040
  1115.             Endif
  1116.             FPutLn 5, U_Addr(2)
  1117.             :LABEL041
  1118.             AnsiPos 9, 16
  1119.             InputStr "_", U_Addr(3), "", 15, Mask_Ascii(), 4
  1120.             If (U_Addr(3) == "") Then
  1121.                 AnsiPos 5, 20
  1122.                 ClrEol
  1123.                 Gosub LABEL066
  1124.                 Goto LABEL041
  1125.             Endif
  1126.             FPutLn 5, U_Addr(3)
  1127.             :LABEL042
  1128.             AnsiPos 12, 17
  1129.             InputStr "_", U_Addr(4), "", 15, "1234567890-", 4
  1130.             If (U_Addr(4) == "") Then
  1131.                 AnsiPos 5, 20
  1132.                 ClrEol
  1133.                 Gosub LABEL066
  1134.                 Goto LABEL042
  1135.             Endif
  1136.             FPutLn 5, U_Addr(4)
  1137.             :LABEL043
  1138.             AnsiPos 11, 18
  1139.             InputStr "_", U_Addr(5), "", 15, Mask_Ascii(), 4
  1140.             If (U_Addr(5) == "") Then
  1141.                 AnsiPos 5, 20
  1142.                 ClrEol
  1143.                 Gosub LABEL066
  1144.                 Goto LABEL043
  1145.             Endif
  1146.             FPutLn 5, U_Addr(5)
  1147.         Endif
  1148.         If (Psa(2)) Then
  1149.             AnsiPos 1, 19
  1150.             DispFile PPEPath() + PPEName() + ".als", 0
  1151.             :LABEL044
  1152.             U_Ver = ""
  1153.             AnsiPos 2, 19
  1154.             InputStr STRING093, U_Ver, "", 25, Mask_Ascii(), 4
  1155.             If (U_Ver == "") Then
  1156.                 AnsiPos 5, 20
  1157.                 ClrEol
  1158.                 Gosub LABEL066
  1159.                 Goto LABEL044
  1160.             Endif
  1161.             FPutLn 5, U_Ver
  1162.         Endif
  1163.         FClose 5
  1164.         Goto LABEL068
  1165.         Goto LABEL045
  1166.         Goto LABEL002
  1167.     Endif
  1168.     :LABEL045
  1169.     GetAltUser INTEGER015
  1170.     If (U_Sec == "0") Then
  1171.         AnsiPos 5, 20
  1172.         PrintLn STRING087
  1173.         WaitFor "shit", STRING027, 3
  1174.         Hangup
  1175.     Endif
  1176.     :LABEL046
  1177.     If (STRING037 == "L") Then
  1178.         AnsiPos 8, 7
  1179.         Print "                                       "
  1180.         AnsiPos 8, 7
  1181.         InputStr STRING090, STRING036, "", 12, Mask_Pwd(), 8 + 1
  1182.     Else
  1183.         FreshLine
  1184.         InputStr STRING090, STRING036, "", 12, Mask_Pwd(), 8 + 1
  1185.     Endif
  1186.     If ((STRING036 <> U_Pwd) && (STRING037 == "L")) Then
  1187.         AnsiPos 7, 8
  1188.         DispText 92, 2048
  1189.         INTEGER003 = INTEGER003 + 1
  1190.         If (INTEGER003 == 3) Hangup
  1191.         Goto LABEL046
  1192.     Endif
  1193.     If ((STRING036 <> U_Pwd) && (STRING037 <> "L")) Then
  1194.         FreshLine
  1195.         DispText 92, 2048
  1196.         INTEGER003 = INTEGER003 + 1
  1197.         If (INTEGER003 == 3) Hangup
  1198.         Goto LABEL046
  1199.     Endif
  1200.     If (STRING058 == NoChar()) Goto LABEL057
  1201.     If (U_Sec >= STRING041) Goto LABEL057
  1202.     INTEGER007 = 0
  1203.     INTEGER008 = 0
  1204.     FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  1205.     FDGet STRING003
  1206.     STRING005 = STRING003
  1207.     FClose 1
  1208.     Tokenize U_Name()
  1209.     If (TokCount() == 3) Then
  1210.         GetToken STRING014
  1211.         GetToken STRING015
  1212.         GetToken STRING016
  1213.         STRING014 = Strip(STRING014, " ")
  1214.         STRING015 = Strip(STRING015, " ")
  1215.         STRING014 = Strip(STRING014, ".")
  1216.         STRING015 = Strip(STRING015, ".")
  1217.         STRING014 = Left(STRING014, 3)
  1218.         STRING015 = Right(STRING016, 4)
  1219.     Else
  1220.         GetToken STRING014
  1221.         GetToken STRING015
  1222.         STRING014 = Strip(STRING014, " ")
  1223.         STRING015 = Strip(STRING015, " ")
  1224.         STRING014 = Strip(STRING014, ".")
  1225.         STRING015 = Strip(STRING015, ".")
  1226.         STRING014 = Left(STRING014, 3)
  1227.         STRING015 = Right(STRING015, 4)
  1228.     Endif
  1229.     If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot")) Then
  1230.         FOpen 2, PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot", 0, 0
  1231.         :LABEL047
  1232.         If (Ferr(2)) Goto LABEL048
  1233.         FGet 2, STRING009
  1234.         Tokenize STRING009
  1235.         If (TokCount() == 4) Then
  1236.             GetToken STRING010
  1237.             GetToken STRING011
  1238.             GetToken STRING012
  1239.             GetToken STRING013
  1240.             If (STRING013 == "Y") Inc INTEGER007
  1241.             If (STRING013 == "N") Inc INTEGER008
  1242.         Endif
  1243.         If (TokCount() == 3) Then
  1244.             GetToken STRING010
  1245.             GetToken STRING011
  1246.             GetToken STRING012
  1247.             If (STRING012 == "Y") Inc INTEGER007
  1248.             If (STRING012 == "N") Inc INTEGER008
  1249.         Endif
  1250.         If (TokCount() == 2) Then
  1251.             GetToken STRING010
  1252.             GetToken STRING011
  1253.             If (STRING011 == "Y") Inc INTEGER007
  1254.             If (STRING011 == "N") Inc INTEGER008
  1255.         Endif
  1256.         Goto LABEL047
  1257.         :LABEL048
  1258.         FClose 2
  1259.         STRING007 = INTEGER007
  1260.         STRING008 = INTEGER008
  1261.         AnsiPos 7, 4
  1262.         PrintLn "                                           "
  1263.         AnsiPos 7, 5
  1264.         PrintLn "                                           "
  1265.         AnsiPos 7, 6
  1266.         PrintLn "                                           "
  1267.         AnsiPos 7, 7
  1268.         PrintLn "                                           "
  1269.         AnsiPos 7, 8
  1270.         PrintLn "                                           "
  1271.         AnsiPos 7, 5
  1272.         PrintLn "" + U_Name() + "@POS:25@" + "Your Current Stats"
  1273.         AnsiPos 7, 6
  1274.         PrintLn "You Need " + STRING018 + " Votes to gain Access to the Board"
  1275.         AnsiPos 7, 7
  1276.         PrintLn "   Votes for You> " + STRING007
  1277.         AnsiPos 7, 8
  1278.         PrintLn "   Votes against You> " + STRING008
  1279.         Newlines 4
  1280.         If (INTEGER007 >= STRING018) Goto LABEL049
  1281.         If (INTEGER008 >= STRING019) Goto LABEL053
  1282.         Goto LABEL057
  1283.         :LABEL049
  1284.         U_Sec = STRING017
  1285.         PutUser
  1286.         AnsiPos 6, 14
  1287.         PrintLn "@X0EYou have been accepted as a @X0CUSER @X0Eon this Board@X07"
  1288.         Newlines 4
  1289.         Wait
  1290.         FClose 1
  1291.         FClose 2
  1292.         FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  1293.         FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
  1294.         :LABEL050
  1295.         If (Ferr(1)) Goto LABEL052
  1296.         FDGet STRING006
  1297.         If (STRING006 == "") Goto LABEL052
  1298.         If (STRING006 == U_Name()) Then
  1299.             PrintLn 
  1300.             Goto LABEL051
  1301.         Endif
  1302.         FDPutLn STRING006 + Chr(13) + Chr(10)
  1303.         :LABEL051
  1304.         Goto LABEL050
  1305.         :LABEL052
  1306.         FClose 1
  1307.         FClose 2
  1308.         Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
  1309.         Delete PPEPath() + "APPS\waiting.tmp"
  1310.         If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot")) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".vot"
  1311.         If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".grp")) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".grp"
  1312.         If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".cmt")) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + ".cmt"
  1313.         For STRING004 = STRING005 To 1 Step -1
  1314.             If (Exist(PPEPath() + "apps\" + STRING014 + "_" + STRING015 + "." + STRING004)) Delete PPEPath() + "apps\" + STRING014 + "_" + STRING015 + "." + STRING004
  1315.         Next
  1316.         Goto LABEL057
  1317.         :LABEL053
  1318.         AnsiPos 8, 9
  1319.         PrintLn "@X0CSorry but your Application has been Refused@X8C!!!!@X07"
  1320.         Newlines 5
  1321.         Wait
  1322.         FClose 1
  1323.         FClose 2
  1324.         FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  1325.         FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
  1326.         :LABEL054
  1327.         If (Ferr(1)) Goto LABEL056
  1328.         FDGet STRING006
  1329.         If (STRING006 == "") Goto LABEL056
  1330.         If (STRING006 == U_Name()) Then
  1331.             PrintLn 
  1332.             Goto LABEL055
  1333.         Endif
  1334.         FDPutLn STRING006 + Chr(13) + Chr(10)
  1335.         :LABEL055
  1336.         Goto LABEL054
  1337.         :LABEL056
  1338.         FClose 2
  1339.         FClose 1
  1340.         Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
  1341.         Delete PPEPath() + "APPS\waiting.tmp"
  1342.         DelUser
  1343.         U_Sec = "0"
  1344.         PutUser
  1345.         Hangup
  1346.     Endif
  1347.     :LABEL057
  1348.     If (STRING058 == NoChar()) Goto LABEL058
  1349.     If (U_Sec < STRING041) Then
  1350.         AnsiPos 8, 9
  1351.         PrintLn STRING074
  1352.         Newlines 7
  1353.         Wait
  1354.         Goto LABEL002
  1355.     Endif
  1356.     :LABEL058
  1357.     If (STRING037 == "L") Then
  1358.         AnsiPos 7, 4
  1359.         PrintLn "                                               "
  1360.         AnsiPos 7, 4
  1361.         PrintLn STRING073
  1362.         AnsiPos 7, 5
  1363.         PrintLn "                                                "
  1364.         AnsiPos 7, 6
  1365.         PrintLn "                                                "
  1366.         AnsiPos 7, 7
  1367.         PrintLn "                                                "
  1368.         AnsiPos 7, 8
  1369.         PrintLn "                                                "
  1370.         AnsiPos 7, 6
  1371.         PrintLn STRING075 + " " + STRING031 + "@X07"
  1372.         If (STRING057 == YesChar()) Then
  1373.             AnsiPos 7, 7
  1374.             Print STRING046 + STRING029
  1375.         Endif
  1376.         AnsiPos 6, 8
  1377.         InputYN STRING076 + "_", STRING067, 7
  1378.         Newline
  1379.         If (STRING067 == YesChar()) Goto LABEL068
  1380.         If (STRING067 == NoChar()) Goto LABEL070
  1381.     Else
  1382.         FreshLine
  1383.         PrintLn STRING073
  1384.         FreshLine
  1385.         PrintLn STRING075 + " " + STRING031 + "@X07"
  1386.         If (STRING057 == YesChar()) Then
  1387.             FreshLine
  1388.             Print STRING046 + STRING029
  1389.         Endif
  1390.         FreshLine
  1391.         InputYN STRING076 + "_", STRING067, 7
  1392.         Newline
  1393.         If (STRING067 == YesChar()) Goto LABEL068
  1394.         If (STRING067 == NoChar()) Goto LABEL002
  1395.         :LABEL059
  1396.         DefColor
  1397.         Cls
  1398.         PrintLn "@X0EGoodbye from @X0C<<@X0ETHT@X0C>>@X0F Matrix!"
  1399.         Hangup
  1400.         :LABEL060
  1401.         DefColor
  1402.         Cls
  1403.         If (INTEGER012 == 1) Then
  1404.             KbdStuff "1" + Chr(13)
  1405.         Else
  1406.             DispFile PPEPath() + "sysops.dsp", 0
  1407.             PrintLn "                     @X08 D@X07e@X0Ffault will Be (@X071@X08)"
  1408.             For STRING028 = 1 To INTEGER012
  1409.                 PrintLn "@X0F" + STRING028 + "@X08. @X0F" + TSTRING035(STRING028)
  1410.             Next
  1411.         Endif
  1412.         STRING021 = 1
  1413.         Input "@X0F[@X0C@SYSTIME@@X0F] @X0EMATRIX Mail Command? _", STRING021
  1414.         If ((STRING021 < 1) || (STRING021 > INTEGER012)) Goto LABEL061
  1415.         Newlines 2
  1416.         STRING022 = ""
  1417.         InputStr STRING042, STRING022, "", 15, Mask_Ascii(), 2 + 8
  1418.         If (STRING022 == "") Goto LABEL002
  1419.         STRING023 = ""
  1420.         Newlines 2
  1421.         InputStr STRING043, STRING023, "", 15, Mask_Ascii(), 2
  1422.         If (STRING023 == "") Goto LABEL002
  1423.         :LABEL061
  1424.         Cls
  1425.         STRING053 = ReadLine(PCBDat(), 109)
  1426.         DispFile PPEPath() + "message.dsp", 0
  1427.         AnsiPos 3, 2
  1428.         PrintLn "@X04To : " + "@X0E" + """" + TSTRING035(STRING021) + """"
  1429.         AnsiPos 32, 2
  1430.         PrintLn "@X0F" + STRING053
  1431.         FClose 1
  1432.         FAppend 1, PPEPath() + PPEName() + String(PcbNode()) + ".mal", 1, 0
  1433.         BOOLEAN001 = 0
  1434.         AnsiPos 2, 4
  1435.         :LABEL062
  1436.         If (BOOLEAN001) Goto LABEL063
  1437.         STRING024 = ""
  1438.         FreshLine
  1439.         InputStr "_", STRING024, "", 78, Mask_Ascii(), 512 + 256
  1440.         If (Upper(STRING024) == "/A") Then
  1441.             BOOLEAN001 = 1
  1442.             FClose 1
  1443.         Endif
  1444.         If (Upper(STRING024) == "/S") Then
  1445.             BOOLEAN001 = 1
  1446.             PrintLn "Sending Message to " + TSTRING035(STRING021)
  1447.             FClose 1
  1448.             Message INTEGER004, TSTRING035(STRING021), STRING022, STRING023, "R", 0, 0, 0, PPEPath() + PPEName() + String(PcbNode()) + ".mal"
  1449.         Endif
  1450.         FPutLn 1, STRING024
  1451.         Goto LABEL062
  1452.         :LABEL063
  1453.         Goto LABEL002
  1454.         :LABEL064
  1455.         TIME001 = ReadLine(PCBDat(), 189)
  1456.         TIME002 = ReadLine(PCBDat(), 190)
  1457.         If ((Time() > TIME001) || (Time() < TIME002)) Then
  1458.             INTEGER003 = INTEGER003 + 1
  1459.             If (INTEGER003 > STRING054) Then
  1460.                 PrintLn 
  1461.                 PrintLn STRING034
  1462.                 Hangup
  1463.             Endif
  1464.             DefColor
  1465.             If (STRING037 == "L") Then
  1466.                 Cls
  1467.                 DispFile PPEPath() + PPEName() + ".dsp", 0
  1468.                 AnsiPos 7, 4
  1469.                 STRING025 = ""
  1470.                 Input STRING078, STRING025
  1471.                 If (STRING025 == "") Goto LABEL002
  1472.                 PageOn
  1473.                 AnsiPos 7, 6
  1474.                 Print "Page ends in 10 seconds"
  1475.             Else
  1476.                 FreshLine
  1477.                 STRING025 = ""
  1478.                 Input STRING078, STRING025
  1479.                 If (STRING025 == "") Goto LABEL002
  1480.                 PageOn
  1481.                 FreshLine
  1482.                 Print "Page ends in 10 seconds"
  1483.             Endif
  1484.             For STRING028 = 1 To 10
  1485.                 Print "."
  1486.                 Sound 110
  1487.                 Delay 2
  1488.                 Sound 220
  1489.                 Delay 2
  1490.                 Sound 440
  1491.                 Delay 2
  1492.                 Sound 880
  1493.                 Delay 2
  1494.                 Sound 110
  1495.                 Delay 2
  1496.                 Sound 220
  1497.                 Delay 2
  1498.                 Sound 440
  1499.                 Delay 2
  1500.                 Sound 880
  1501.                 Delay 2
  1502.                 Sound 0
  1503.                 Delay 10
  1504.                 If (Inkey() == " ") Then
  1505.                     Chat
  1506.                     Goto LABEL002
  1507.                 Endif
  1508.             Next
  1509.             INTEGER002 = INTEGER002 + 1
  1510.             If (INTEGER002 > STRING054) BOOLEAN001 = 1
  1511.         Else
  1512.             DefColor
  1513.             Cls
  1514.             DispText 128, 0 + 64
  1515.             PromptStr 571, STRING067, 1, "YyNy", 4 + 8
  1516.             If (STRING067 == YesChar()) Goto LABEL060
  1517.         Endif
  1518.     Endif
  1519.     Goto LABEL003
  1520.     :LABEL065
  1521.     Goto LABEL002
  1522.     :LABEL066
  1523.     DispText 117, 2048
  1524.     Return
  1525.     :LABEL067
  1526.     Call STRING045
  1527.     Goto LABEL002
  1528.     :LABEL068
  1529.     Tokenize STRING066
  1530.     INTEGER005 = ReadLine(PCBDat(), 195)
  1531.     If (INTEGER005 == -1) Then
  1532.         If (STRING050 == 3) Then
  1533.             KbdStuff STRING066 + Chr(13) + Chr(13) + Chr(13)
  1534.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1535.             Goto LABEL069
  1536.         Endif
  1537.         If (TokCount() == 1) Then
  1538.             KbdStuff STRING066 + Chr(13) + Chr(13)
  1539.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1540.             Goto LABEL069
  1541.         Endif
  1542.         KbdStuff STRING066 + Chr(13) + Chr(13) + STRING036 + Chr(13)
  1543.         If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1544.     Endif
  1545.     :LABEL069
  1546.     If (INTEGER005 == 0) Then
  1547.         If (STRING050 == 3) Then
  1548.             KbdStuff STRING066 + Chr(13) + Chr(13)
  1549.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1550.             Goto LABEL070
  1551.         Endif
  1552.         If (TokCount() == 1) Then
  1553.             KbdStuff STRING066 + Chr(13)
  1554.             If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1555.             Goto LABEL070
  1556.         Endif
  1557.         KbdStuff STRING066 + Chr(13) + STRING036 + Chr(13)
  1558.         If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp"
  1559.     Endif
  1560.     :LABEL070
  1561.  
  1562. ;------------------------------------------------------------------------------
  1563. ;
  1564. ; Usage report (before postprocessing)
  1565. ;
  1566. ; ■ Statements used :
  1567. ;
  1568. ;    2       End
  1569. ;    13      Cls
  1570. ;    14      ClrEol
  1571. ;    4       Wait
  1572. ;    249     Goto 
  1573. ;    494     Let 
  1574. ;    22      Print 
  1575. ;    45      PrintLn 
  1576. ;    181     If 
  1577. ;    14      DispFile 
  1578. ;    3       Input 
  1579. ;    1       FCreate 
  1580. ;    8       FOpen 
  1581. ;    3       FAppend 
  1582. ;    19      FClose 
  1583. ;    2       FGet 
  1584. ;    2       FPut 
  1585. ;    16      FPutLn 
  1586. ;    1       StartDisp 
  1587. ;    6       Hangup
  1588. ;    2       PutUser
  1589. ;    12      DefColor
  1590. ;    8       Delete 
  1591. ;    1       DelUser
  1592. ;    2       AdjTime 
  1593. ;    1       Log 
  1594. ;    22      InputStr 
  1595. ;    5       InputYN 
  1596. ;    14      Gosub 
  1597. ;    3       Return
  1598. ;    3       PromptStr 
  1599. ;    10      Delay 
  1600. ;    24      Inc 
  1601. ;    6       Newline
  1602. ;    7       Newlines 
  1603. ;    5       Tokenize 
  1604. ;    16      GetToken 
  1605. ;    4       DispText 
  1606. ;    8       KbdStuff 
  1607. ;    2       Call 
  1608. ;    6       KbdFile 
  1609. ;    1       WaitFor 
  1610. ;    83      AnsiPos 
  1611. ;    23      FreshLine
  1612. ;    1       Message 
  1613. ;    1       SaveScrn
  1614. ;    1       RestScrn
  1615. ;    9       Sound 
  1616. ;    1       Chat
  1617. ;    2       PageOn
  1618. ;    1       FDefIn 
  1619. ;    1       FDefOut 
  1620. ;    58      FDGet 
  1621. ;    2       FDPutLn 
  1622. ;    2       Copy 
  1623. ;    1       GetAltUser 
  1624. ;
  1625. ;
  1626. ; ■ Functions used :
  1627. ;
  1628. ;    5       -
  1629. ;    323     +
  1630. ;    4       -
  1631. ;    139     ==
  1632. ;    15      <>
  1633. ;    14      <
  1634. ;    7       <=
  1635. ;    6       >
  1636. ;    17      >=
  1637. ;    113     !
  1638. ;    29      &&
  1639. ;    21      ||
  1640. ;    5       Len(
  1641. ;    6       Upper()
  1642. ;    3       Left()
  1643. ;    5       Right()
  1644. ;    4       Ferr()
  1645. ;    78      Chr()
  1646. ;    2       InStr()
  1647. ;    2       Random()
  1648. ;    2       Time()
  1649. ;    4       U_Name()
  1650. ;    5       NoChar()
  1651. ;    16      YesChar()
  1652. ;    3       Replace()
  1653. ;    379     Strip()
  1654. ;    2       Inkey()
  1655. ;    20      String()
  1656. ;    5       Mask_Pwd()
  1657. ;    14      Mask_Ascii()
  1658. ;    9       PCBDat()
  1659. ;    58      PPEPath()
  1660. ;    20      PcbNode()
  1661. ;    9       ReadLine()
  1662. ;    18      Exist()
  1663. ;    3       S2I()
  1664. ;    2       Psa()
  1665. ;    27      PPEName()
  1666. ;    9       TokCount()
  1667. ;    1       U_RecNum()
  1668. ;    4       ScrText()
  1669. ;    1       ErrCorrect()
  1670. ;
  1671. ;------------------------------------------------------------------------------
  1672. ;
  1673. ; Analysis flags : WRDABCdH
  1674. ;
  1675. ; W - Write user ■ 5
  1676. ;     Program writes a user record. Although this may be normal for a
  1677. ;     User Editor, it may also be a way to modify an account level.
  1678. ;     ■ Search for : PUTUSER
  1679. ;
  1680. ; R - Read user ■ 5
  1681. ;     User records are read, this may signify that someone wants to get
  1682. ;     various informations about a user (for example his password), but
  1683. ;     this may also be normal for a program accessing user records (for
  1684. ;     example a User Editor)
  1685. ;     ■ Search for : GETALTUSER
  1686. ;
  1687. ; D - Delete user ■ 5
  1688. ;     Program is deleting account(s)... Check!
  1689. ;     ■ Search for : DELUSER
  1690. ;
  1691. ; A - Adjust online time remaining ■ 5
  1692. ;     Program modify the amount of online time remaining, this may
  1693. ;     be a way to bypass time limits
  1694. ;     ■ Search for : ADJTIME
  1695. ;
  1696. ; B - Brute hangup ■ 1
  1697. ;     Program hangup without notification. This may be a good way to
  1698. ;     disconnect a user, but if used randomly, may be very nasty
  1699. ;     ■ Search for : HANGUP, DTROFF
  1700. ;
  1701. ; C - Call child PPE ■ 3
  1702. ;     This is usually normal, but may be a tricky way to launch some
  1703. ;     sysop-only commands.
  1704. ;     ■ Search for : CALL
  1705. ;
  1706. ; d - Access PCBOARD.DAT ■ 2
  1707. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1708. ;     for many PPE so they can find various informations on the system
  1709. ;     (system paths, max number of lines in messages, ...) but it may also
  1710. ;     be a way to gather vital informations.
  1711. ;     ■ Search for : PCBDAT()
  1712. ;
  1713. ; H - Read Password or Password History ■ 5
  1714. ;     Program is reading the user's password or last password history
  1715. ;     This may be ok for a password manager, but it is very suspect. Check!
  1716. ;     ■ Search for : U_PWDHIST, U_PWD
  1717. ;
  1718. ;------------------------------------------------------------------------------
  1719. ;
  1720. ; Postprocessing report
  1721. ;
  1722. ;    7       For/Next
  1723. ;    1       While/EndWhile
  1724. ;    83      If/Then or If/Then/Else
  1725. ;    1       Select Case
  1726. ;
  1727. ;------------------------------------------------------------------------------
  1728. ;                 AEGiS Corp - Break the routines, code against the machines!
  1729. ;------------------------------------------------------------------------------
  1730.