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