home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MT_MTX12.ZIP / SYSOP.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-08-19  |  35.3 KB  |  1,361 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   STRING017
  40.     String   STRING018
  41.     String   STRING019
  42.     String   STRING020
  43.     String   STRING021
  44.     String   STRING022
  45.     String   STRING023
  46.     String   STRING024
  47.     String   STRING025
  48.     String   STRING026
  49.     String   STRING027
  50.     String   STRING028
  51.     String   STRING029
  52.     String   STRING030
  53.     String   STRING031
  54.     String   STRING032
  55.     String   STRING033
  56.     String   STRING034
  57.     String   STRING035
  58.     String   STRING036
  59.     String   STRING037
  60.     String   STRING038
  61.     String   STRING039
  62.     String   STRING040
  63.     String   STRING041
  64.     String   STRING042
  65.     String   STRING043
  66.     String   STRING044
  67.     String   STRING045
  68.     String   STRING046
  69.     String   STRING047
  70.     String   STRING048
  71.     String   STRING049
  72.     String   STRING050
  73.     String   STRING051
  74.     String   STRING052
  75.     String   STRING053
  76.     String   STRING054
  77.     String   STRING055
  78.     String   STRING056
  79.     String   STRING057
  80.     String   STRING058
  81.     String   STRING059
  82.     String   STRING060
  83.     String   STRING061
  84.     String   STRING062
  85.     String   STRING063
  86.     String   STRING064
  87.     String   STRING065
  88.     String   STRING066
  89.     String   STRING067
  90.     String   STRING068
  91.     String   STRING069
  92.     String   STRING070
  93.     String   STRING071
  94.     String   STRING072
  95.     String   STRING073
  96.     String   STRING074
  97.     String   STRING075
  98.     String   STRING076
  99.     String   STRING077
  100.     String   STRING078
  101.     String   STRING079
  102.     String   STRING080
  103.     String   STRING081
  104.     String   STRING082
  105.     String   STRING083
  106.     String   STRING084
  107.     String   STRING085
  108.     String   STRING086
  109.     String   STRING087
  110.     String   STRING088
  111.     String   STRING089
  112.     String   STRING090
  113.     String   STRING091
  114.     String   STRING092
  115.     String   STRING093
  116.     String   STRING094
  117.     String   STRING095
  118.     String   STRING096
  119.     String   STRING097
  120.     String   STRING098
  121.     String   STRING099
  122.     String   STRING100
  123.     String   STRING101
  124.     String   STRING102
  125.     String   STRING103
  126.     String   STRING104
  127.     String   STRING105
  128.     String   STRING106
  129.     String   STRING107
  130.     String   STRING108
  131.     String   STRING109
  132.     String   STRING110
  133.     String   STRING111
  134.     String   STRING112
  135.     String   STRING113
  136.     String   STRING114
  137.     String   STRING115
  138.     String   STRING116
  139.     String   STRING117
  140.     String   STRING118
  141.     String   STRING119
  142.     String   STRING120
  143.     String   STRING121
  144.     String   STRING122
  145.     String   STRING123
  146.     String   STRING124
  147.     String   STRING125
  148.     String   STRING126
  149.     String   STRING127
  150.     String   STRING128
  151.     String   STRING129
  152.     String   STRING130
  153.     String   STRING131
  154.     String   STRING132
  155.     String   STRING133
  156.     String   STRING134
  157.     String   STRING135
  158.     String   STRING136
  159.     String   STRING137
  160.     String   STRING138
  161.     String   STRING139
  162.     String   STRING140
  163.     String   STRING141
  164.     String   STRING142
  165.     String   STRING143
  166.     String   STRING144
  167.     String   STRING145
  168.     String   STRING146
  169.     String   STRING147
  170.     String   STRING148
  171.     String   STRING149
  172.     String   STRING150
  173.     String   STRING151
  174.     String   STRING152
  175.     String   STRING153
  176.     String   STRING154
  177.     String   STRING155
  178.     String   STRING156
  179.     String   STRING157
  180.     String   STRING158
  181.     String   STRING159
  182.     String   STRING160
  183.     String   STRING161
  184.     String   STRING162
  185.     String   STRING163
  186.  
  187. ;------------------------------------------------------------------------------
  188.  
  189.     STRING012 = ""
  190.     FOpen 1, PPEPath() + "MATRIX.CNF", 0, 0
  191.     FGet 1, STRING013
  192.     FGet 1, STRING014
  193.     FGet 1, STRING015
  194.     FGet 1, STRING016
  195.     FGet 1, STRING017
  196.     FGet 1, STRING018
  197.     FGet 1, STRING019
  198.     FGet 1, STRING020
  199.     FGet 1, STRING021
  200.     FGet 1, STRING022
  201.     FGet 1, STRING023
  202.     FGet 1, STRING024
  203.     FGet 1, STRING025
  204.     FGet 1, STRING026
  205.     FGet 1, STRING027
  206.     FGet 1, STRING028
  207.     FGet 1, STRING029
  208.     FGet 1, STRING030
  209.     FGet 1, STRING031
  210.     FGet 1, STRING032
  211.     FGet 1, STRING033
  212.     FGet 1, STRING034
  213.     FGet 1, STRING035
  214.     FGet 1, STRING036
  215.     FClose 1
  216.     FOpen 2, PPEPath() + "COMMANDS.CNF", 0, 0
  217.     FGet 2, STRING038
  218.     FGet 2, STRING039
  219.     FGet 2, STRING040
  220.     FGet 2, STRING041
  221.     FGet 2, STRING042
  222.     FGet 2, STRING043
  223.     FGet 2, STRING044
  224.     FGet 2, STRING045
  225.     FGet 2, STRING046
  226.     FGet 2, STRING047
  227.     FGet 2, STRING048
  228.     FGet 2, STRING049
  229.     FGet 2, STRING050
  230.     FGet 2, STRING051
  231.     FGet 2, STRING052
  232.     FGet 2, STRING053
  233.     FGet 2, STRING054
  234.     FGet 2, STRING055
  235.     FGet 2, STRING056
  236.     FGet 2, STRING057
  237.     FGet 2, STRING058
  238.     FGet 2, STRING059
  239.     FGet 2, STRING060
  240.     FClose 2
  241.     FOpen 3, PPEPath() + "PROMPTS.CNF", 0, 0
  242.     FGet 3, STRING061
  243.     FGet 3, STRING062
  244.     FGet 3, STRING063
  245.     FGet 3, STRING064
  246.     FGet 3, STRING065
  247.     FGet 3, STRING066
  248.     FGet 3, STRING067
  249.     FGet 3, STRING068
  250.     FGet 3, STRING069
  251.     FGet 3, STRING070
  252.     FGet 3, STRING071
  253.     FGet 3, STRING072
  254.     FGet 3, STRING073
  255.     FGet 3, STRING074
  256.     FGet 3, STRING075
  257.     FGet 3, STRING076
  258.     FGet 3, STRING077
  259.     FGet 3, STRING078
  260.     FGet 3, STRING079
  261.     FGet 3, STRING080
  262.     FGet 3, STRING081
  263.     FGet 3, STRING082
  264.     FGet 3, STRING083
  265.     FGet 3, STRING084
  266.     FGet 3, STRING085
  267.     FGet 3, STRING086
  268.     FGet 3, STRING087
  269.     FGet 3, STRING088
  270.     FGet 3, STRING089
  271.     FGet 3, STRING090
  272.     FGet 3, STRING091
  273.     FGet 3, STRING092
  274.     FGet 3, STRING093
  275.     FGet 3, STRING094
  276.     FGet 3, STRING095
  277.     FGet 3, STRING096
  278.     FGet 3, STRING097
  279.     FGet 3, STRING098
  280.     FGet 3, STRING099
  281.     FGet 3, STRING100
  282.     FGet 3, STRING101
  283.     FGet 3, STRING102
  284.     FGet 3, STRING103
  285.     FGet 3, STRING104
  286.     FGet 3, STRING105
  287.     FGet 3, STRING106
  288.     FGet 3, STRING107
  289.     FGet 3, STRING108
  290.     FGet 3, STRING109
  291.     FGet 3, STRING110
  292.     FGet 3, STRING111
  293.     FGet 3, STRING112
  294.     FGet 3, STRING113
  295.     FGet 3, STRING114
  296.     FGet 3, STRING115
  297.     FGet 3, STRING116
  298.     FGet 3, STRING117
  299.     FGet 3, STRING118
  300.     FGet 3, STRING119
  301.     FGet 3, STRING120
  302.     FGet 3, STRING121
  303.     FGet 3, STRING122
  304.     FGet 3, STRING123
  305.     FGet 3, STRING124
  306.     FGet 3, STRING125
  307.     FGet 3, STRING126
  308.     FGet 3, STRING127
  309.     FGet 3, STRING128
  310.     FGet 3, STRING129
  311.     FGet 3, STRING130
  312.     FGet 3, STRING131
  313.     FGet 3, STRING132
  314.     FGet 3, STRING133
  315.     FGet 3, STRING134
  316.     FGet 3, STRING135
  317.     FGet 3, STRING136
  318.     FGet 3, STRING137
  319.     FGet 3, STRING138
  320.     FGet 3, STRING139
  321.     FGet 3, STRING140
  322.     FGet 3, STRING141
  323.     FGet 3, STRING142
  324.     FGet 3, STRING143
  325.     FGet 3, STRING144
  326.     FGet 3, STRING145
  327.     FGet 3, STRING146
  328.     FGet 3, STRING147
  329.     FGet 3, STRING148
  330.     FGet 3, STRING149
  331.     FGet 3, STRING150
  332.     FGet 3, STRING151
  333.     FGet 3, STRING152
  334.     FClose 3
  335.     FOpen 4, PPEPath() + "DRIVES.CNF", 0, 0
  336.     FGet 4, STRING154
  337.     FGet 4, STRING155
  338.     FGet 4, STRING156
  339.     FGet 4, STRING157
  340.     FClose 4
  341.     STRING037 = STRING035 - 1
  342.     If (STRING007 == "") Then
  343.         STRING007 = "NOT AVAILABLE"
  344.         STRING007 = String(U_Name())
  345.     Endif
  346.     If (OnLocal()) Then
  347.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  348.         FPutLn 1, "************************************************************************"
  349.         FPutLn 1, Date(), " (", Time(), ") Matrix Connect (LOCAL) (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  350.         FClose 1
  351.     Else
  352.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  353.         FPutLn 1, "************************************************************************"
  354.         FPutLn 1, Date(), " (", Time(), ") Matrix Connect (", Carrier(), ") (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  355.         FClose 1
  356.     Endif
  357.     Cls
  358.     PrintLn STRING031 + STRING014 + "  ■ Sysop Maintenance Module@X07"
  359.     PrintLn 
  360.     If (STRING025 == "0") Then
  361.         Delay 3
  362.         PrintLn "@X0CSysop Maintenance Module NOT Password Protected!@X07"
  363.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  364.         FPutLn 1, "  Sysop Maintenance Module is NOT Password Protected!"
  365.         FClose 1
  366.     Else
  367.         PrintLn "@X07" + STRING144 + "@X07"
  368.         PrintLn 
  369.         STRING005 = 1
  370.         STRING004 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz -_!./,'1234567890"
  371.         STRING008 = 0
  372.         :LABEL001
  373.         STRING006 = ""
  374.         InputStr "@X07" + STRING145 + "", STRING006, 10, Len(STRING025) + 3, STRING004, 1 + 2
  375.         Inc STRING008
  376.         If (Upper(STRING006) == STRING025) Goto LABEL003
  377.         If (Lower(STRING006) == STRING025) Goto LABEL003
  378.         If (STRING008 == STRING005 + 1) Goto LABEL002
  379.         PrintLn 
  380.         PrintLn "@X07" + STRING146 + "@X07"
  381.         If (STRING007 == "") Then
  382.             STRING007 = "NOT AVAILABLE"
  383.         Endif
  384.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  385.         FPutLn 1, "  (", STRING006, ") is an invalid Sysop Module Key Password"
  386.         FClose 1
  387.         PrintLn 
  388.         Goto LABEL001
  389.         :LABEL002
  390.         PrintLn ""
  391.         PrintLn "@X07" + STRING146 + "@X07"
  392.         PrintLn 
  393.         PrintLn "@X07" + STRING147 + "@X07"
  394.         Delay 5
  395.         PrintLn ""
  396.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  397.         If (STRING007 == "") Then
  398.             STRING007 = "NOT AVAILABLE"
  399.         Endif
  400.         FPutLn 1, "  Incorrect Sysop Module Key Pass (", STRING006, ") was used"
  401.         FClose 1
  402.         Goto LABEL053
  403.         :LABEL003
  404.         PrintLn 
  405.         PrintLn 
  406.         PrintLn "@X07" + STRING148 + "@X07"
  407.         PrintLn 
  408.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  409.         If (STRING011 == "") Goto LABEL004
  410.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  411.         FPutLn 1, "  SYSOP Maintenance (Password) entered correct on attempt #: (", STRING008, ")"
  412.         FClose 1
  413.     Endif
  414.     PrintLn 
  415.     PrintLn "@X07" + STRING149 + "@X07"
  416.     PrintLn 
  417.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  418.     If (STRING011 == "") Goto LABEL004
  419.     :LABEL004
  420.     Cls
  421.     STRING153 = ""
  422.     AdjTime 5
  423.     PrintLn "@POFF@"
  424.     If (Exist(PPEPath() + "SYSOP")) DispFile PPEPath() + "SYSOP", 4 + 2 + 1
  425.     PrintLn "@PON@"
  426.     :LABEL005
  427.     STRING153 = ""
  428.     InputStr "@X02[@X0AMatrix Sysop Maintenance@X02] @X07(@X0FR@X07)elist@X0F, @X07(@X0F#@X07)@X0F, @X07(@X0FQ@X07)=@X07Quit? _", STRING153, 15, 8, "quitQUIT PUBpubVIEWLOGviewlog KILLDELLOG systemSYSTEMcheckCHECKmenuMENUCNFcnfkilldellogreadsysdelpubsysREADSYSDELPUBSYS1234567890", 2 + 8 + 64
  429.     If (STRING153 == "R") Gosub LABEL004
  430.     If (STRING153 == "M") Gosub LABEL004
  431.     If (STRING153 == "MENU") Gosub LABEL004
  432.     If (STRING153 == "Q") Goto LABEL008
  433.     If (STRING153 == "") Goto LABEL005
  434.     If (STRING153 == "1") Gosub LABEL016
  435.     If (STRING153 == "2") Gosub LABEL021
  436.     If (STRING153 == "3") Gosub LABEL042
  437.     If (STRING153 == "4") Gosub LABEL047
  438.     If (STRING153 == "5") Gosub LABEL010
  439.     If (STRING153 == "6") Gosub LABEL011
  440.     If (STRING153 == "7") Gosub LABEL012
  441.     If (STRING153 == "8") Gosub LABEL014
  442.     If (STRING153 == "9") Gosub LABEL035
  443.     If (STRING153 == "VIEWLOG") Gosub LABEL016
  444.     If (STRING153 == "KILLLOG") Gosub LABEL021
  445.     If (STRING153 == "CHECKSYS") Gosub LABEL042
  446.     If (STRING153 == "CHECKPUB") Gosub LABEL047
  447.     If (STRING153 == "READSYS") Gosub LABEL010
  448.     If (STRING153 == "READPUB") Gosub LABEL011
  449.     If (STRING153 == "DELSYS") Gosub LABEL012
  450.     If (STRING153 == "DELPUB") Gosub LABEL014
  451.     If (STRING153 == "VIEWCNF") Gosub LABEL035
  452.     If (STRING153 == "S") Gosub LABEL006
  453.     If (STRING153 == "SYSTEM") Gosub LABEL006
  454.     If (STRING153 == "QUIT") Goto LABEL008
  455.     If (STRING153 == "BYE") Goto LABEL007
  456.     If (STRING153 == "G") Goto LABEL007
  457.     Goto LABEL009
  458.     :LABEL006
  459.     KbdChkOn
  460.     KbdStuff STRING021 + Chr(13)
  461.     End
  462.     :LABEL007
  463.     PrintLn 
  464.     PrintLn "Matrix LogOff Complete"
  465.     If (STRING007 == "") Then
  466.         STRING007 = "NOT AVAILABLE"
  467.     Endif
  468.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  469.     FPutLn 1, "  Normal Matrix LogOff by Caller: (", STRING007, ") at: (", Time(), ")"
  470.     FClose 1
  471.     Hangup
  472.     :LABEL008
  473.     PrintLn 
  474.     Print "@X07" + STRING151
  475.     Delay 2
  476.     Print " ."
  477.     Delay 2
  478.     Print " ."
  479.     Delay 2
  480.     Print " ."
  481.     Newlines 1
  482.     PrintLn "@X07"
  483.     Goto LABEL053
  484.     :LABEL009
  485.     PrintLn "@BEEP@"
  486.     PrintLn "@X07" + STRING150 + "@X07"
  487.     PrintLn 
  488.     Goto LABEL005
  489.     :LABEL010
  490.     Cls
  491.     PrintLn STRING031 + STRING014 + "  ■ [Read Feedback to Sysop]@X07"
  492.     PrintLn 
  493.     If (Exist(PPEPath() + "SYSOP.MSG") == 0) Then
  494.         Delay 5
  495.         PrintLn "   @X07- @X0CSorry no Messages found in SYSOP FEEDBACK"
  496.         PrintLn "   @X07- @X0C(@X0FSYSOP.MSG@X0C) Feedback Message File is Currently <EMPTY>@X07"
  497.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  498.         FPutLn 1, "  No SYSOP FEEDBACK Msgs found... SYSOP.MSG file is currently <EMPTY>"
  499.         FClose 1
  500.         Delay 3
  501.         PrintLn 
  502.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  503.         If (STRING011 == "") Goto LABEL004
  504.     Endif
  505.     If (Exist(PPEPath() + "READSYS")) DispFile PPEPath() + "READSYS", 4 + 2 + 1
  506.     If (Exist(PPEPath() + "SYSOP.MSG")) DispFile PPEPath() + "SYSOP.MSG", 4 + 2 + 1
  507.     PrintLn "@POFF@"
  508.     PrintLn "@X07" + STRING109 + "@X07"
  509.     PrintLn 
  510.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  511.     If (STRING011 == "") Goto LABEL004
  512.     :LABEL011
  513.     Cls
  514.     PrintLn STRING031 + STRING014 + "  ■ [Read PUBLIC Msg File]@X07"
  515.     PrintLn 
  516.     If (Exist(PPEPath() + "PUBLIC.MSG") == 0) Then
  517.         PrintLn "   @X07- @X0CSorry no Messages found in PUBLIC-Matrix MAIL File"
  518.         PrintLn "   @X07- @X0C(@X0FPUBLIC.MSG@X0C) Message File is Currently <EMPTY>@X07"
  519.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  520.         FPutLn 1, "  No PUBLIC Msgs found... PUBLIC.MSG file is currently <EMPTY>"
  521.         FClose 1
  522.         PrintLn 
  523.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  524.         If (STRING011 == "") Goto LABEL004
  525.     Endif
  526.     If (Exist(PPEPath() + "READ")) DispFile PPEPath() + "READ", 4 + 2 + 1
  527.     If (Exist(PPEPath() + "PUBLIC.MSG")) DispFile PPEPath() + "PUBLIC.MSG", 4 + 2 + 1
  528.     PrintLn "@POFF@"
  529.     PrintLn "@X07" + STRING102 + "@X07"
  530.     PrintLn 
  531.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  532.     If (STRING011 == "") Goto LABEL004
  533.     :LABEL012
  534.     Cls
  535.     PrintLn STRING031 + STRING014 + "  ■ [KILL SYSOP Msg File]@X07"
  536.     PrintLn 
  537.     If (Exist(PPEPath() + "SYSOP.MSG") == 0) Then
  538.         PrintLn "   - Sorry no Messages found in SYSOP Feedback Msg. File"
  539.         PrintLn "   - (SYSOP.MSG) Message File is Currently <EMPTY>"
  540.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  541.         FPutLn 1, "  No SYSOP Msgs found... SYSOP.MSG file is currently <EMPTY>"
  542.         FClose 1
  543.         PrintLn 
  544.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  545.         If (STRING011 == "") Goto LABEL004
  546.     Endif
  547.     PrintLn " @X0F■ @X04[@X0CKILL SYSOP FEEDBACK MESSAGES@X04]"
  548.     PrintLn 
  549.     PrintLn " @X0F■ @X07You will now be offered the opportunity to  @X0FDELETE @X07the @X0FSYSOP  @X07Feedback "
  550.     PrintLn " @X0F■ @X07Msg File!  Be Sure before answering @X07(@X0FY@X07)@X0Fes @X07to killing  the message file "
  551.     PrintLn " @X0F■ @X07that this is what you really want as MT-Matrix {cannot} Undelete files!"
  552.     PrintLn "@X07"
  553.     STRING009 = "N"
  554.     InputYN "@X04[@X0CDelete@X04] @X07SysOp Feedback Msg File?  (Y), (N), (Enter)=No", STRING009, 14
  555.     If (STRING009 <> YesChar()) Goto LABEL013
  556.     PrintLn 
  557.     Delete PPEPath() + "SYSOP.MSG"
  558.     PrintLn 
  559.     PrintLn "@X0CMessage File (@X0FSYSOP.MSG@X0C) Killed @X04[@X0CDELETED from Disk@X04]@X07"
  560.     If (STRING007 == "") Then
  561.         STRING007 = "NOT AVAILABLE"
  562.     Endif
  563.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  564.     FPutLn 1, "  Sysop FEEDBACK Msg DELETED! Caller Name: (", STRING007, ") at: (", Time(), ")"
  565.     FClose 1
  566.     PrintLn 
  567.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  568.     If (STRING011 == "") Goto LABEL004
  569.     :LABEL013
  570.     PrintLn 
  571.     PrintLn 
  572.     PrintLn "@X0AKill Feedback Aborted... Message file @X02(@X0ASYSOP.MSG@X02) @X0Aleft intact!"
  573.     PrintLn 
  574.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  575.     If (STRING011 == "") Goto LABEL004
  576.     :LABEL014
  577.     Cls
  578.     PrintLn STRING031 + STRING014 + "  ■ [KILL PUBLIC Msg File]@X07"
  579.     PrintLn 
  580.     If (Exist(PPEPath() + "PUBLIC.MSG") == 0) Then
  581.         PrintLn "   - Sorry no Messages found in PUBLIC Msg. File"
  582.         PrintLn "   - (PUBLIC.MSG) Message File is Currently <EMPTY>"
  583.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  584.         FPutLn 1, "  No PUBLIC Msgs found... PUBLIC.MSG file is currently <EMPTY>"
  585.         FClose 1
  586.         PrintLn 
  587.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  588.         If (STRING011 == "") Goto LABEL004
  589.     Endif
  590.     PrintLn " @X0F■ @X04[@X0CKILL PUBLIC MESSAGES@X04]"
  591.     PrintLn 
  592.     PrintLn " @X0F■ @X07You will now be offered the opportunity to  @X0FDELETE @X07the @X0FPUBLIC @X07Msg File!"
  593.     PrintLn " @X0F■ @X07Be Sure! Before answering  @X07(@X0FY@X07)@X0Fes  @X07to [KILLING]  the Public message file "
  594.     PrintLn " @X0F■ @X07that this is what you really want as MT-Matrix {cannot} Undelete files!"
  595.     PrintLn "@X07"
  596.     STRING010 = "N"
  597.     InputYN "@X04[@X0CDelete@X04] @X07Matrix Public Message File?  (Y), (N), (Enter)=No", STRING010, 14
  598.     If (STRING010 <> YesChar()) Goto LABEL015
  599.     PrintLn 
  600.     Delete PPEPath() + "PUBLIC.MSG"
  601.     PrintLn 
  602.     PrintLn "@X0CMatrix PUBLIC Mail Msg. File (@X0FPUBLIC.MSG@X0C) Killed @X04[@X0CDELETED from Disk@X04]@X07"
  603.     If (STRING007 == "") Then
  604.         STRING007 = "NOT AVAILABLE"
  605.     Endif
  606.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  607.     FPutLn 1, "  PUBLIC Matrix Msg File DELETED!  Caller Name: (", STRING007, ") at: (", Time(), ")"
  608.     FClose 1
  609.     PrintLn 
  610.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  611.     If (STRING011 == "") Goto LABEL004
  612.     :LABEL015
  613.     PrintLn 
  614.     PrintLn 
  615.     PrintLn "@X0AKill PUBLIC Mail Msg File Aborted... Message file @X02(@X0APUBLIC.MSG@X02) @X0Aleft intact!@X07"
  616.     PrintLn 
  617.     Goto LABEL004
  618.     :LABEL016
  619.     Cls
  620.     PrintLn STRING031 + STRING014 + "  ■ [VIEW Matrix Call Logs]@X07"
  621.     PrintLn 
  622.     STRING158 = ""
  623.     PrintLn "Any Node NUMBER is a valid choice"
  624.     PrintLn "Single Node Systems use (0)"
  625.     :LABEL017
  626.     STRING158 = ""
  627.     PrintLn 
  628.     InputStr "@X0AEnter The NODE (@X0F#@X0A) to VIEW LOG or (@X0FQ@X0A) to Quit? _", STRING158, 15, 3, "qQ1234567890", 2 + 8 + 64
  629.     If (STRING158 == "Q") Gosub LABEL004
  630.     If (STRING158 == "0") Gosub LABEL020
  631.     If (STRING158 == "") Gosub LABEL018
  632.     Goto LABEL019
  633.     :LABEL018
  634.     PrintLn 
  635.     PrintLn "@X0CInvalid Call Log VIEW / Command Entered...  Try again or (Q) to Quit!"
  636.     Goto LABEL017
  637.     :LABEL019
  638.     If (Exist(PPEPath() + "NODE" + STRING158 + ".LOG") == 0) Then
  639.         Cls
  640.         PrintLn STRING031 + STRING014 + "  ■ VIEW [Node: " + STRING158 + "] Matrix Call Log@X07"
  641.         PrintLn "@PON@"
  642.         PrintLn "   @X07- @X0CMatrix Caller Log for [@X0FNode: " + STRING158 + "@X0C] was NOT found!"
  643.         PrintLn "   @X07- @X0CThis is either an inactive Node or / Caller Log File"
  644.         PrintLn "   @X07- @X0Cis non-existing or <EMPTY>.  ALL Matrix call LOG Files"
  645.         PrintLn "   @X07- @X0Creside in the default Matrix path and are named; NODE1,"
  646.         PrintLn "   @X07- @X0CNODE2 etc... NOTE!  Single Node Systems use (NODE0.LOG)"
  647.         PrintLn "   @X07- @X0CTo VIEW Single Node Call Log use a 0 at the prompt"
  648.         PrintLn 
  649.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  650.         If (STRING011 == "") Goto LABEL016
  651.     Endif
  652.     PrintLn "@PON@"
  653.     Cls
  654.     PrintLn STRING031 + STRING014 + "  ■ VIEW [Node: " + STRING158 + "] Matrix Call Log@X07"
  655.     PrintLn 
  656.     If (Exist(PPEPath() + "VIEWLOG")) DispFile PPEPath() + "VIEWLOG", 4 + 2 + 1
  657.     If (Exist(PPEPath() + "NODE" + STRING158 + ".LOG")) DispFile PPEPath() + "NODE" + STRING158 + ".LOG", 4 + 2 + 1
  658.     PrintLn "@POFF@"
  659.     PrintLn "────────────────────────────────────────────────────────────────────────"
  660.     PrintLn "@X04[@X0CEND@X04]  @X07Of [@X0FNode: " + STRING158 + "@X07] Matrix Caller Log File"
  661.     PrintLn 
  662.     If (STRING007 == "") Then
  663.         STRING007 = "NOT AVAILABLE"
  664.     Endif
  665.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  666.     FPutLn 1, "  View on Matrix Call Log: (NODE" + STRING158 + ".LOG) Completed"
  667.     FClose 1
  668.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  669.     If (STRING011 == "") Goto LABEL016
  670.     :LABEL020
  671.     PrintLn "@PON@"
  672.     Cls
  673.     PrintLn STRING031 + STRING014 + "  ■ VIEW [Single Node] Matrix Call Log@X07"
  674.     PrintLn "@PON@"
  675.     If (Exist(PPEPath() + "NODE0.LOG") == 0) Then
  676.         PrintLn "   @X07- @X0CMatrix Caller Log for [@X0FSingle Node Operation@X0C]"
  677.         PrintLn "   @X07- @X0CWas not found!  This is either an inactive Node or, "
  678.         PrintLn "   @X07- @X0Ccaller Log file is non-existing or <EMPTY>.  ALL Matrix"
  679.         PrintLn "   @X07- @X0Ccall LOG Files reside in the default Matrix path and are"
  680.         PrintLn "   @X07- @X0CNODE1, NODE2 etc... NOTE! Single Node use (NODE) alone "
  681.         PrintLn "   @X07- @X0Cfor a Filename!  To VIEW Single Node Call Log use a 0"
  682.         PrintLn "   @X07- @X0Cat the prompt"
  683.         PrintLn 
  684.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  685.         If (STRING011 == "") Goto LABEL016
  686.     Endif
  687.     PrintLn "@PON@"
  688.     Cls
  689.     PrintLn STRING031 + STRING014 + "  ■ VIEW [Single Node] Matrix Call Log@X07"
  690.     PrintLn "@PON@"
  691.     If (Exist(PPEPath() + "VIEWLOG")) DispFile PPEPath() + "VIEWLOG", 4 + 2 + 1
  692.     If (Exist(PPEPath() + "NODE0.LOG")) DispFile PPEPath() + "NODE0.LOG", 4 + 2 + 1
  693.     PrintLn "@POFF@"
  694.     PrintLn "@X04[@X0CEND@X04]  @X07<Of Matrix Caller Log File>"
  695.     PrintLn 
  696.     If (STRING007 == "") Then
  697.         STRING007 = "NOT AVAILABLE"
  698.     Endif
  699.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  700.     FPutLn 1, "  View on Matrix Call Log: (NODE0.LOG) Completed"
  701.     FClose 1
  702.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  703.     If (STRING011 == "") Goto LABEL016
  704.     :LABEL021
  705.     Cls
  706.     PrintLn STRING031 + STRING014 + "  ■ [DELETE Matrix Call Logs]@X07"
  707.     PrintLn 
  708.     :LABEL022
  709.     STRING159 = ""
  710.     PrintLn "@X0FAny Node NUMBER is a valid choice@X07"
  711.     PrintLn "@X0FTo Delete ALL existing NODE CALL LOG Files use the command (ALL)!@X07"
  712.     PrintLn "Single Node Systems use (0)"
  713.     PrintLn 
  714.     PrintLn "NOTE!!  Before answering YES to DELETING the MATRIX CALL LOGS"
  715.     PrintLn "make sure this is really what you want to do!  as MT-Matrix"
  716.     PrintLn "{cannot} undelete files! "
  717.     :LABEL023
  718.     STRING159 = ""
  719.     PrintLn 
  720.     InputStr "@X0AEnter the NODE (@X0F#@X0A) to DELETE LOG?  (@X0FALL@X0A)=All Logs, or (@X0FQ@X0A) to Quit? _", STRING159, 15, 3, "qQALLall1234567890", 2 + 8 + 64
  721.     If (STRING159 == "Q") Gosub LABEL004
  722.     If (STRING159 == "ALL") Gosub LABEL029
  723.     If (STRING159 == "0") Gosub LABEL032
  724.     If (STRING159 == "") Gosub LABEL024
  725.     Goto LABEL025
  726.     :LABEL024
  727.     PrintLn 
  728.     PrintLn "@X0CInvalid Call Log DELETE / Command Entered...  Try again or (Q) to Quit!"
  729.     Goto LABEL023
  730.     :LABEL025
  731.     If (Exist(PPEPath() + "NODE" + STRING159 + ".LOG") == 0) Then
  732.         Cls
  733.         PrintLn STRING031 + STRING014 + "  ■ DELETE [Node: " + STRING159 + "] Matrix Call Logs@X07"
  734.         PrintLn "@PON@"
  735.         PrintLn "   @X07- @X0CMatrix Caller Log for [@X0FNode: " + STRING159 + "@X0C] was NOT found!"
  736.         PrintLn "   @X07- @X0CThis is either an inactive Node or / Caller Log File"
  737.         PrintLn "   @X07- @X0Cis non-existing or <EMPTY>.  ALL Matrix call LOG Files"
  738.         PrintLn "   @X07- @X0Creside in the default Matrix path and are named; NODE1,"
  739.         PrintLn "   @X07- @X0CNODE2 etc... NOTE! Single Node use (NODE0.LOG) for filename "
  740.         PrintLn "   @X07- @X0CTo DELETE Single Node Call Log use a 0 at the prompt"
  741.         PrintLn 
  742.         PrintLn "@X07DELETE Call Log file Aborted ..."
  743.         PrintLn 
  744.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  745.         If (STRING011 == "") Goto LABEL023
  746.     Endif
  747.     PrintLn "@PON@"
  748.     PrintLn "■ You are about to DELETE (NODE" + STRING159 + ".LOG).  Be sure this is@X07"
  749.     PrintLn "■ what you want to do as MT-Matrix {cannot} unlete files!"
  750.     PrintLn 
  751.     STRING160 = "N"
  752.     InputYN "@X0CDELETE @X07(@X0FNODE: " + STRING159 + "@X07) Call Log?  (@X0FY@X07), (@X0FN@X07), (Enter)=No", STRING160, 14
  753.     If (STRING160 <> YesChar()) Goto LABEL026
  754.     Goto LABEL027
  755.     :LABEL026
  756.     PrintLn 
  757.     PrintLn 
  758.     PrintLn "@X07(@X0FNODE" + STRING159 + ".LOG@X07] DELETE Aborted...  LOG file left intact!"
  759.     PrintLn 
  760.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  761.     If (STRING011 == "") Goto LABEL021
  762.     :LABEL027
  763.     PrintLn 
  764.     If (Exist(PPEPath() + "NODE" + STRING159 + ".LOG")) Then
  765.         Delete PPEPath() + "NODE" + STRING159 + ".LOG"
  766.         PrintLn 
  767.         PrintLn "[@X0FNODE" + STRING159 + ".LOG@X07] DELETED from Disk!"
  768.         PrintLn 
  769.         STRING007 = String(U_Name())
  770.         If (STRING007 == "") Then
  771.             STRING007 = "NOT AVAILABLE"
  772.         Endif
  773.         If (OnLocal()) Then
  774.             FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  775.             FPutLn 1, "************************************************************************"
  776.             FPutLn 1, Date(), " (", Time(), ") Matrix Connect (LOCAL) (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  777.             FClose 1
  778.             Goto LABEL028
  779.         Endif
  780.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  781.         FPutLn 1, "************************************************************************"
  782.         FPutLn 1, Date(), " (", Time(), ") Matrix Connect (", Carrier(), ") (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  783.         FClose 1
  784.         :LABEL028
  785.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  786.         FPutLn 1, "  DELETE on Matrix Call Log: (NODE" + STRING159 + ".LOG) Completed at: (", Time(), ")"
  787.         FClose 1
  788.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  789.         If (STRING011 == "") Goto LABEL021
  790.     Endif
  791.     Goto LABEL021
  792.     :LABEL029
  793.     Cls
  794.     PrintLn STRING031 + STRING014 + "  ■ DELETE [ALL Nodes] Matrix Call Logs@X07"
  795.     PrintLn "@PON@@X0C"
  796.     PrintLn "■ You are about to DELETE ALL the CALL LOG Files!!!  Be sure"
  797.     PrintLn "■ this is what you want to do as MT-Matrix {cannot} unlete files!"
  798.     PrintLn "@X07"
  799.     STRING160 = "N"
  800.     InputYN "@X0CDELETE @X07(@X0FALL@X07) the NODE Call Log files?  (@X0FY@X07), (@X0FN@X07), (Enter)=No", STRING160, 14
  801.     If (STRING160 <> YesChar()) Goto LABEL030
  802.     Goto LABEL031
  803.     :LABEL030
  804.     PrintLn 
  805.     PrintLn 
  806.     PrintLn "@X07(@X0FALL@X07) NODE Call Files DELETE Aborted...  LOG files left intact!"
  807.     PrintLn 
  808.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  809.     If (STRING011 == "") Goto LABEL021
  810.     :LABEL031
  811.     PrintLn 
  812.     STRING161 = "DEL"
  813.     STRING162 = PPEPath() + "NODE*.LOG"
  814.     Shell -1, INTEGER004, STRING161, STRING162
  815.     PrintLn 
  816.     PrintLn "@X07(@X0FALL@X07) NODE Call Log Files have been DELETED from the Disk!"
  817.     PrintLn 
  818.     If (STRING007 == "") Then
  819.         STRING007 = "NOT AVAILABLE"
  820.     Endif
  821.     If (OnLocal()) Then
  822.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  823.         FPutLn 1, "************************************************************************"
  824.         FPutLn 1, Date(), " (", Time(), ") Matrix Connect (LOCAL) (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  825.         FClose 1
  826.     Else
  827.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  828.         FPutLn 1, "************************************************************************"
  829.         FPutLn 1, Date(), " (", Time(), ") Matrix Connect (", Carrier(), ") (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  830.         FClose 1
  831.     Endif
  832.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  833.     FPutLn 1, "  DELETE [ALL] existing Matrix Call Logs Completed (", Time(), ")"
  834.     FClose 1
  835.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  836.     If (STRING011 == "") Goto LABEL021
  837.     :LABEL032
  838.     Cls
  839.     PrintLn STRING031 + STRING014 + "  ■ DELETE [Single Node] Matrix Call Log@X07"
  840.     PrintLn "@PON@"
  841.     If (Exist(PPEPath() + "NODE0.LOG") == 0) Then
  842.         Delay 5
  843.         PrintLn "   @X07- @X0CMatrix Caller Log for [@X0FSingle Node Operation@X0C]"
  844.         PrintLn "   @X07- @X0CWas not found!  This is either an inactive Node or, "
  845.         PrintLn "   @X07- @X0Ccaller Log file is non-existing or <EMPTY>.  ALL Matrix"
  846.         PrintLn "   @X07- @X0Ccall LOG Files reside in the default Matrix path and are"
  847.         PrintLn "   @X07- @X0CNODE1, NODE2 etc... NOTE! Single Node use (NODE0.LOG)  "
  848.         PrintLn "   @X07- @X0Cfor a Filename!  To DELETE Single Node Call Log use a 0"
  849.         PrintLn "   @X07- @X0Cat the prompt"
  850.         PrintLn 
  851.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  852.         If (STRING011 == "") Goto LABEL023
  853.     Endif
  854.     PrintLn "■ You are about to DELETE (NODE" + STRING159 + ".LOG).  Be sure this is@X07"
  855.     PrintLn "■ what you want to do as MT-Matrix {cannot} unlete files!"
  856.     PrintLn 
  857.     STRING160 = "N"
  858.     InputYN "@X0CDELETE @X07(@X0FNODE0.LOG) Call Log File?  (@X0FY@X07), (@X0FN@X07), (Enter)=No", STRING160, 14
  859.     If (STRING160 <> YesChar()) Goto LABEL034
  860.     If (Exist(PPEPath() + "NODE0.LOG")) Then
  861.         Delete PPEPath() + "NODE0.LOG"
  862.         PrintLn 
  863.         PrintLn 
  864.         PrintLn "@X07[@X0FNODE0.LOG@X07]  DELETED from disk!"
  865.         PrintLn 
  866.         If (STRING007 == "") Then
  867.             STRING007 = "NOT AVAILABLE"
  868.         Endif
  869.         If (OnLocal()) Then
  870.             FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  871.             FPutLn 1, "************************************************************************"
  872.             FPutLn 1, Date(), " (", Time(), ") Matrix Connect (LOCAL) (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  873.             FClose 1
  874.             Goto LABEL033
  875.         Endif
  876.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  877.         FPutLn 1, "************************************************************************"
  878.         FPutLn 1, Date(), " (", Time(), ") Matrix Connect (", Carrier(), ") (", PcbNode(), ") (", GrafMode(), ") Name: (", STRING007, ")"
  879.         FClose 1
  880.         :LABEL033
  881.         FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  882.         FPutLn 1, "  DELETE on Matrix Call Log: (NODE.LOG) Completed (", Time(), ")"
  883.         FClose 1
  884.         InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  885.         If (STRING011 == "") Goto LABEL022
  886.     Endif
  887.     Goto LABEL022
  888.     :LABEL034
  889.     PrintLn 
  890.     PrintLn 
  891.     PrintLn "@X07(@X0FNODE" + STRING159 + ".LOG@X07] DELETE Aborted...  LOG file left intact!"
  892.     PrintLn 
  893.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  894.     If (STRING011 == "") Goto LABEL021
  895.     :LABEL035
  896.     Cls
  897.     If (STRING007 == "") Then
  898.         STRING007 = "NOT AVAILABLE"
  899.     Endif
  900.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  901.     FPutLn 1, "  Sysop Module (VIEWCNF) executed by: (", STRING007, ") at (", Time(), ")"
  902.     FClose 1
  903.     PrintLn STRING031 + STRING014 + "  ■ VIEW Matrix Configurations@X07"
  904.     PrintLn "@PON@"
  905.     STRING163 = ""
  906.     PrintLn "@X02[@X0AVIEW@X02] @X07Configuration Options (MENU)"
  907.     PrintLn 
  908.     PrintLn "  @X07(@X0F1@X07) - Display ALL Matrix Features Current Passwords"
  909.     PrintLn "  @X07(@X0F2@X07) - Display MATRIX.CNF File Current Settings"
  910.     PrintLn "  @X07(@X0F3@X07) - Display COMMANDS.CNF File Current Settings"
  911.     PrintLn "  @X07(@X0F4@X07) - Display PROMPTS.CNF Files Current Settings"
  912.     PrintLn "  @X07(@X0F5@X07) - Display DRIVES.CNF Files Current Settings"
  913.     PrintLn "  @X07(@X0FQ@X07) - Quit VIEW Config Options Feature"
  914.     PrintLn 
  915.     :LABEL036
  916.     STRING163 = ""
  917.     InputStr "@X07[@X0FEnter Config Option to VIEW@X07]  @X07(@X0FR@X07)elist, (@X0F#@X07), (@X0FQ@X07)=quit? _", STRING163, 15, 3, "RrMmqQ1234567890", 2 + 8 + 64
  918.     If (STRING163 == "1") Gosub LABEL037
  919.     If (STRING163 == "2") Gosub LABEL038
  920.     If (STRING163 == "3") Gosub LABEL039
  921.     If (STRING163 == "4") Gosub LABEL040
  922.     If (STRING163 == "5") Gosub LABEL041
  923.     If (STRING163 == "Q") Gosub LABEL004
  924.     If (STRING163 == "M") Gosub LABEL035
  925.     If (STRING163 == "R") Gosub LABEL035
  926.     If (STRING163 == "") Gosub LABEL036
  927.     PrintLn 
  928.     PrintLn "@X0CInvalid View Matrix CNF files Command...  Enter (M) for MENU, (Q) to Quit!"
  929.     PrintLn 
  930.     Goto LABEL036
  931.     :LABEL037
  932.     Cls
  933.     PrintLn "@X0EDisplaying ALL Matrix Options Passwords as currently Set@X07"
  934.     PrintLn 
  935.     PrintLn "System Password           : " + STRING021
  936.     PrintLn "New User Password         : " + STRING022
  937.     PrintLn "Read Sysop Mail Password  : " + STRING023
  938.     PrintLn "Read Public Mail Password : " + STRING024
  939.     PrintLn "Sysop Module Password     : " + STRING025
  940.     PrintLn 
  941.     PrintLn "ALL PASSWORDS Can be Modified by editing the file MATRIX.CNF FILE"
  942.     PrintLn "NOTE!  (0) = Password is Disabled  (in any password config entry)"
  943.     PrintLn 
  944.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  945.     If (STRING011 == "") Goto LABEL035
  946.     :LABEL038
  947.     Cls
  948.     PrintLn "@X0ENow Displaying ALL the Current MATRIX.CNF Paramaters@X07"
  949.     PrintLn 
  950.     PrintLn "@X07Line 1: BBS Name                            : " + STRING013
  951.     PrintLn "@X07Line 2: Matrix Name                         : " + STRING014
  952.     PrintLn "@X07Line 3: Sysop Name                          : " + STRING015
  953.     PrintLn "@X07Line 4: Clear Scrn on Matrix Login 1=Y 0=N  : " + STRING016
  954.     PrintLn "@X07Line 5: Time to ADD at Login                : " + STRING017 + " minutes"
  955.     PrintLn "@X07Line 6: Time to ADD when Feedback           : " + STRING018 + " minutes"
  956.     PrintLn "@X07Line 7: Time to ADD when Post Public        : " + STRING019 + " minutes"
  957.     PrintLn "@X07Line 8: Matrix Prompt                       : " + STRING020
  958.     PrintLn "@X07Line 9: System Password                     : " + STRING021
  959.     PrintLn "@X07Line10: New User Password                   : " + STRING022
  960.     PrintLn "@X07Line11: Read Sysop Mail Password            : " + STRING023
  961.     PrintLn "@X07Line12: Read Public Mail Password           : " + STRING024
  962.     PrintLn "@X07Line13: Sysop maitenance Module Password    : " + STRING025
  963.     PrintLn "@X07Line14: Page Sysop at matrix 1=On / 0=Off   : " + STRING026
  964.     PrintLn "@X07Line15: How long to Page For  (Seconds)     : " + STRING027 + " seconds"
  965.     PrintLn "@X07Line16: Speed of Paging tones (1-100)       : " + STRING028
  966.     PrintLn "@X07Line17: Show Loading Matrix... 1=On / 0=Off : " + STRING029
  967.     PrintLn "@X07Line18: Show DIR Listing at login 1=Yes/0=N : " + STRING030
  968.     PrintLn "@X07Line19: Color of Matrix Titles              : " + STRING031 + "SAMPLE COLOR"
  969.     PrintLn "@X07Line20: Number of Lines in message editor   : " + STRING032
  970.     PrintLn "@X07Line21: Path & Name of Apply VIP Filename   : " + STRING033
  971.     PrintLn "@X07Line22: Name of the C: Drive or DIR NAME    : " + STRING034
  972.     PrintLn "@X07Line23: Min. lenght for caller name         : " + STRING035 + " Letters"
  973.     PrintLn "@X07Line24: Save Matrix Feedback to:            : " + STRING036
  974.     PrintLn 
  975.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  976.     If (STRING011 == "") Goto LABEL035
  977.     :LABEL039
  978.     Cls
  979.     PrintLn "@X0ENow Viewing Current configuration for COMMANDS.CNF File@X07"
  980.     PrintLn 
  981.     PrintLn "NOTE! Commands are translated properly ONLY if in UPPER CASE!"
  982.     PrintLn "To DISABLE a Command Enter it in Lower Case in COMMANDS.CNF File"
  983.     PrintLn 
  984.     PrintLn "@X07Line 1: Cmd for System Loader  : " + STRING038
  985.     PrintLn "@X07Line 2: Cmd for System Loader  : " + STRING039
  986.     PrintLn "@X07Line 3: Cmd for Quick Login    : " + STRING040
  987.     PrintLn "@X07Line 4: Cmd to show DIR/Menu   : " + STRING041
  988.     PrintLn "@X07Line 5: Cmd for Matrix format  : " + STRING042
  989.     PrintLn "@X07Line 6: Cmd for Feedback       : " + STRING043
  990.     PrintLn "@X07Line 7: Cmd for Public Post    : " + STRING044
  991.     PrintLn "@X07Line 8: Cmd for Public Read    : " + STRING045
  992.     PrintLn "@X07Line 9: Cmd for Feedback Read  : " + STRING046
  993.     PrintLn "@X07Line10: Cmd for Matrix Chat    : " + STRING047
  994.     PrintLn "@X07Line11: Cmd for Matrix Page    : " + STRING048
  995.     PrintLn "@X07Line12: Cmd for Matrix Apply   : " + STRING049
  996.     PrintLn "@X07Line13: Cmd for Matrix Check   : " + STRING050
  997.     PrintLn "@X07Line14: Cmd for Matrix Info    : " + STRING051
  998.     PrintLn "@X07Line15: Cmd for Matrix Welcome : " + STRING052
  999.     PrintLn "@X07Line16: Cmd for Matrix News    : " + STRING053
  1000.     PrintLn "@X07Line17: Cmd for Matrix Help    : " + STRING054
  1001.     PrintLn "@X07Line18: Cmd for Matrix LogOff  : " + STRING055
  1002.     PrintLn "@X07Line19: Cmd for Matrix Logoff  : " + STRING056
  1003.     PrintLn "@X07Line20: Cmd for Matrix CLS     : " + STRING057
  1004.     PrintLn "@X07Line21: Cmd for Matrix CHKMAIL : " + STRING058
  1005.     PrintLn "@X07Line22: Cmd for Matrix CHKSYS  : " + STRING059
  1006.     PrintLn "@X07Line23: Cmd for SYSOP Module   : " + STRING060
  1007.     PrintLn 
  1008.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1009.     If (STRING011 == "") Goto LABEL035
  1010.     :LABEL040
  1011.     Cls
  1012.     PrintLn "@X0ENow VIEWING current configuration for PROMPTS.CNF File@X07"
  1013.     PrintLn 
  1014.     PrintLn "@X07This configuration file contains all the Matrix prompts and"
  1015.     PrintLn "may be modified at will to your liking.  Below is your current"
  1016.     PrintLn "matrix prompts as you have defined them in the PROMPTS.CNF file"
  1017.     PrintLn "There are a TOTAL of 92 prompts/messages to this Configuration File"
  1018.     PrintLn 
  1019.     PrintLn "@X07 1: " + STRING061
  1020.     PrintLn "@X07 2: " + STRING062
  1021.     PrintLn "@X07 3: " + STRING063
  1022.     PrintLn "@X07 4: " + STRING064
  1023.     PrintLn "@X07 5: " + STRING065
  1024.     PrintLn "@X07 6: " + STRING066
  1025.     PrintLn "@X07 7: " + STRING067
  1026.     PrintLn "@X07 8: " + STRING068
  1027.     PrintLn "@X07 9: " + STRING069
  1028.     PrintLn "@X0710: " + STRING070
  1029.     PrintLn "@X0711: " + STRING071
  1030.     PrintLn "@X0712: " + STRING072
  1031.     PrintLn "@X0713: " + STRING073
  1032.     PrintLn "@X0714: " + STRING074
  1033.     PrintLn "@X0715: " + STRING075
  1034.     PrintLn "@X0716: " + STRING076
  1035.     PrintLn "@X0717: " + STRING077
  1036.     PrintLn "@X0718: " + STRING078
  1037.     PrintLn "@X0719: " + STRING079
  1038.     PrintLn "@X0720: " + STRING080
  1039.     PrintLn "@X0721: " + STRING081
  1040.     PrintLn "@X0722: " + STRING082
  1041.     PrintLn "@X0723: " + STRING083
  1042.     PrintLn "@X0724: " + STRING084
  1043.     PrintLn "@X0725: " + STRING085
  1044.     PrintLn "@X0726: " + STRING086
  1045.     PrintLn "@X0727: " + STRING087
  1046.     PrintLn "@X0728: " + STRING088
  1047.     PrintLn "@X0729: " + STRING089
  1048.     PrintLn "@X0730: " + STRING090
  1049.     PrintLn "@X0731: " + STRING091
  1050.     PrintLn "@X0732: " + STRING092
  1051.     PrintLn "@X0733: " + STRING093
  1052.     PrintLn "@X0734: " + STRING094
  1053.     PrintLn "@X0735: " + STRING095
  1054.     PrintLn "@X0736: " + STRING096
  1055.     PrintLn "@X0737: " + STRING097
  1056.     PrintLn "@X0738: " + STRING098
  1057.     PrintLn "@X0739: " + STRING099
  1058.     PrintLn "@X0740: " + STRING100
  1059.     PrintLn "@X0741: " + STRING101
  1060.     PrintLn "@X0742: " + STRING102
  1061.     PrintLn "@X0743: " + STRING103
  1062.     PrintLn "@X0744: " + STRING104
  1063.     PrintLn "@X0745: " + STRING105
  1064.     PrintLn "@X0746: " + STRING106
  1065.     PrintLn "@X0747: " + STRING107
  1066.     PrintLn "@X0748: " + STRING108
  1067.     PrintLn "@X0749: " + STRING109
  1068.     PrintLn "@X0750: " + STRING110
  1069.     PrintLn "@X0751: " + STRING111
  1070.     PrintLn "@X0752: " + STRING112
  1071.     PrintLn "@X0753: " + STRING113
  1072.     PrintLn "@X0754: " + STRING114
  1073.     PrintLn "@X0755: " + STRING115
  1074.     PrintLn "@X0756: " + STRING116
  1075.     PrintLn "@X0757: " + STRING117
  1076.     PrintLn "@X0758: " + STRING118
  1077.     PrintLn "@X0759: " + STRING119
  1078.     PrintLn "@X0760: " + STRING120
  1079.     PrintLn "@X0761: " + STRING121
  1080.     PrintLn "@X0762: " + STRING122
  1081.     PrintLn "@X0763: " + STRING123
  1082.     PrintLn "@X0764: " + STRING124
  1083.     PrintLn "@X0765: " + STRING125
  1084.     PrintLn "@X0766: " + STRING126
  1085.     PrintLn "@X0767: " + STRING127
  1086.     PrintLn "@X0768: " + STRING128
  1087.     PrintLn "@X0769: " + STRING129
  1088.     PrintLn "@X0770: " + STRING130
  1089.     PrintLn "@X0771: " + STRING131
  1090.     PrintLn "@X0772: " + STRING132
  1091.     PrintLn "@X0773: " + STRING133
  1092.     PrintLn "@X0774: " + STRING134
  1093.     PrintLn "@X0775: " + STRING135
  1094.     PrintLn "@X0776: " + STRING136
  1095.     PrintLn "@X0777: " + STRING137
  1096.     PrintLn "@X0778: " + STRING138
  1097.     PrintLn "@X0779: " + STRING139
  1098.     PrintLn "@X0780: " + STRING140
  1099.     PrintLn "@X0781: " + STRING141
  1100.     PrintLn "@X0782: " + STRING142
  1101.     PrintLn "@X0783: " + STRING143
  1102.     PrintLn "@X0784: " + STRING144
  1103.     PrintLn "@X0785: " + STRING145
  1104.     PrintLn "@X0786: " + STRING146
  1105.     PrintLn "@X0787: " + STRING147
  1106.     PrintLn "@X0788: " + STRING148
  1107.     PrintLn "@X0789: " + STRING149
  1108.     PrintLn "@X0790: " + STRING150
  1109.     PrintLn "@X0791: " + STRING151
  1110.     PrintLn "@X0792: " + STRING152
  1111.     PrintLn "@X07"
  1112.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1113.     If (STRING011 == "") Goto LABEL035
  1114.     :LABEL041
  1115.     Cls
  1116.     PrintLn "@X0ENow Viewing current Configuration for DRIVES.CNF File@X07"
  1117.     PrintLn 
  1118.     PrintLn "Line 1: Simulated Matrix Drive D: command  : " + STRING154
  1119.     PrintLn "Line 2: drive d: prompt                    : " + STRING155
  1120.     PrintLn "Line 3: path for drive d bulletins         : " + STRING156
  1121.     PrintLn "Line 4: path for drive d file listings     : " + STRING157
  1122.     PrintLn 
  1123.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1124.     If (STRING011 == "") Goto LABEL035
  1125.     :LABEL042
  1126.     Cls
  1127.     PrintLn STRING031 + "MT-Matrix  ■ CHECK Matrix Sysop Feedback Mail@X07"
  1128.     INTEGER002 = 0
  1129.     INTEGER003 = 0
  1130.     STRING002 = ""
  1131.     STRING001 = ""
  1132.     STRING003 = "TO: "
  1133.     PrintLn 
  1134.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  1135.     FPutLn 1, "  (CHECKSYS) Cmd used by Caller Name: (", STRING007, ") at: (", Time(), ")"
  1136.     FClose 1
  1137.     STRING002 = Upper(STRING002)
  1138.     STRING002 = Upper(STRING003) + Upper(STRING015)
  1139.     If (Exist(PPEPath() + "SYSOP.MSG")) Then
  1140.         PrintLn "@X07[@X0FScanning@X07] @X07SYSOP.MSG File for Feedback to: (@X0F" + STRING015 + "@X07)"
  1141.         PrintLn 
  1142.         PrintLn "@X02(@X0ACTRL-K@X02) @X0Aor @X02(@X0ACTRL-X@X02) @X0AAborts, @X02(@X0ACTRL-S@X02) @X0ASuspends..."
  1143.         FOpen 1, PPEPath() + "SYSOP.MSG", 0, 0
  1144.         :LABEL043
  1145.         If (Ferr(1)) Goto LABEL044
  1146.         FGet 1, STRING001
  1147.         If (STRING001 <> "") Then
  1148.             INTEGER002 = INTEGER002 + 1
  1149.             STRING001 = Upper(STRING001)
  1150.             If (InStr(STRING001, STRING002)) Then
  1151.                 INTEGER003 = INTEGER003 + 1
  1152.                 INTEGER001 = InStr(STRING001, STRING002)
  1153.                 If (INTEGER003 == 1) Newlines 1
  1154.             Endif
  1155.         Endif
  1156.         If (Abort()) FClose 1
  1157.         Goto LABEL043
  1158.         :LABEL044
  1159.         FClose 1
  1160.         Goto LABEL045
  1161.     Endif
  1162.     :LABEL045
  1163.     If (INTEGER003 == 0) Goto LABEL046
  1164.     ResetDisp
  1165.     PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  1166.     PrintLn "@X71 · SYSOP FEEDBACK left at Matrix Found! · @X07"
  1167.     PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  1168.     PrintLn 
  1169.     PrintLn "@X07(@X0E" + String(INTEGER003) + "@X07) Message(s) addressed to: (@X0E" + STRING015 + "@X07) have been found"
  1170.     PrintLn 
  1171.     PrintLn "@X07Use the Matrix READSYS command to View the SYSOP Feedback Msg File."
  1172.     PrintLn 
  1173.     FClose 1
  1174.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1175.     If (STRING011 == "") Goto LABEL004
  1176.     :LABEL046
  1177.     ResetDisp
  1178.     PrintLn "@X0CNO Feedback Msgs addressed to: (@X0F" + STRING015 + "@X0C) were found!@X07"
  1179.     PrintLn 
  1180.     FClose 1
  1181.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1182.     If (STRING011 == "") Goto LABEL004
  1183.     Newlines 1
  1184.     PrintLn "Mail Check Aborted!  Insuficient or Invalid Info Provided..."
  1185.     FClose 1
  1186.     Newlines 1
  1187.     Goto LABEL004
  1188.     :LABEL047
  1189.     Cls
  1190.     PrintLn STRING031 + "MT-Matrix  ■ CHECK Matrix PUBLIC MSG File@X07"
  1191.     INTEGER002 = 0
  1192.     INTEGER003 = 0
  1193.     STRING002 = ""
  1194.     STRING001 = ""
  1195.     STRING003 = "TO: "
  1196.     If (Exist(PPEPath() + "CHKMAIL")) Then
  1197.         PrintLn 
  1198.         DispFile PPEPath() + "CHKMAIL", 4 + 2 + 1
  1199.     Endif
  1200.     PrintLn 
  1201.     STRING007 = ""
  1202.     InputStr "@X07" + STRING062 + "", STRING007, 14, 20, "ABCDEFGHIJKLMNOPQRSTUVWXYZ :;'abcdefghijklmnopqrstuvwxyz1234567890-=\!@#$%^&*()_+|~/.,<>?", 8 + 4 + 2
  1203.     Newlines 1
  1204.     If ((STRING007 == "") || (Len(STRING007) <= STRING037)) Goto LABEL052
  1205.     FAppend 1, PPEPath() + "NODE" + String(PcbNode()) + ".LOG", 1, 2
  1206.     FPutLn 1, "  (CHECKPUB) Cmd used by Caller Name: (", STRING007, ") at: (", Time(), ")"
  1207.     FClose 1
  1208.     STRING002 = Upper(STRING002)
  1209.     STRING002 = Upper(STRING003) + Upper(STRING007)
  1210.     If (Exist(PPEPath() + "PUBLIC.MSG")) Then
  1211.         PrintLn 
  1212.         PrintLn "@X07[@X0FScanning@X07] @X07PUBLIC.MSG File for Mail Addressed to: (@X0F" + STRING007 + "@X07)"
  1213.         PrintLn 
  1214.         PrintLn "@X02(@X0ACTRL-K@X02) @X0Aor @X02(@X0ACTRL-X@X02) @X0AAborts, @X02(@X0ACTRL-S@X02) @X0ASuspends..."
  1215.         FOpen 1, PPEPath() + "PUBLIC.MSG", 0, 0
  1216.         :LABEL048
  1217.         If (Ferr(1)) Goto LABEL049
  1218.         FGet 1, STRING001
  1219.         If (STRING001 <> "") Then
  1220.             INTEGER002 = INTEGER002 + 1
  1221.             STRING001 = Upper(STRING001)
  1222.             If (InStr(STRING001, STRING002)) Then
  1223.                 INTEGER003 = INTEGER003 + 1
  1224.                 INTEGER001 = InStr(STRING001, STRING002)
  1225.                 If (INTEGER003 == 1) Newlines 1
  1226.             Endif
  1227.         Endif
  1228.         If (Abort()) FClose 1
  1229.         Goto LABEL048
  1230.         :LABEL049
  1231.         FClose 1
  1232.         Goto LABEL050
  1233.     Endif
  1234.     :LABEL050
  1235.     If (INTEGER003 == 0) Goto LABEL051
  1236.     ResetDisp
  1237.     PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  1238.     PrintLn "@X71 ·       PUBLIC Mail found!     · @X07"
  1239.     PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  1240.     PrintLn 
  1241.     PrintLn "@X07(@X0E" + String(INTEGER003) + "@X07) Message(s) addressed to: (@X0E" + STRING007 + "@X07) have been found"
  1242.     PrintLn 
  1243.     PrintLn "@X07Use the Matrix READ command to View the PUBLIC Msg File."
  1244.     PrintLn 
  1245.     FClose 1
  1246.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1247.     If (STRING011 == "") Goto LABEL004
  1248.     :LABEL051
  1249.     ResetDisp
  1250.     PrintLn 
  1251.     PrintLn "@X0CNO PUBLIC Msgs addressed to: (@X0F" + STRING007 + "@X0C) were found!@X07"
  1252.     PrintLn 
  1253.     FClose 1
  1254.     InputStr "@X07" + STRING152, STRING011, 14, 0, STRING012, +32
  1255.     If (STRING011 == "") Goto LABEL004
  1256.     :LABEL052
  1257.     Newlines 1
  1258.     PrintLn "Mail Check Aborted!  Insuficient or Invalid Info Provided..."
  1259.     FClose 1
  1260.     Newlines 1
  1261.     Goto LABEL004
  1262.     :LABEL053
  1263.     End
  1264.  
  1265. ;------------------------------------------------------------------------------
  1266. ;
  1267. ; Usage report (before postprocessing)
  1268. ;
  1269. ; ■ Statements used :
  1270. ;
  1271. ;    2       End
  1272. ;    23      Cls
  1273. ;    116     Goto 
  1274. ;    58      Let 
  1275. ;    4       Print 
  1276. ;    415     PrintLn 
  1277. ;    136     If 
  1278. ;    10      DispFile 
  1279. ;    6       FOpen 
  1280. ;    27      FAppend 
  1281. ;    41      FClose 
  1282. ;    145     FGet 
  1283. ;    35      FPutLn 
  1284. ;    4       ResetDisp
  1285. ;    1       Hangup
  1286. ;    4       Delete 
  1287. ;    1       AdjTime 
  1288. ;    38      InputStr 
  1289. ;    5       InputYN 
  1290. ;    39      Gosub 
  1291. ;    8       Delay 
  1292. ;    1       Inc 
  1293. ;    8       Newlines 
  1294. ;    1       Shell 
  1295. ;    1       KbdStuff 
  1296. ;    1       KbdChkOn
  1297. ;
  1298. ;
  1299. ; ■ Functions used :
  1300. ;
  1301. ;    32      +
  1302. ;    1       -
  1303. ;    461     +
  1304. ;    1       -
  1305. ;    105     ==
  1306. ;    7       <>
  1307. ;    1       <=
  1308. ;    36      !
  1309. ;    1       ||
  1310. ;    2       Len(
  1311. ;    1       Lower()
  1312. ;    9       Upper()
  1313. ;    2       Ferr()
  1314. ;    1       Chr()
  1315. ;    4       InStr()
  1316. ;    2       Abort()
  1317. ;    8       Date()
  1318. ;    17      Time()
  1319. ;    2       U_Name()
  1320. ;    5       YesChar()
  1321. ;    31      String()
  1322. ;    70      PPEPath()
  1323. ;    35      PcbNode()
  1324. ;    4       OnLocal()
  1325. ;    22      Exist()
  1326. ;    4       Carrier()
  1327. ;    8       GrafMode()
  1328. ;
  1329. ;------------------------------------------------------------------------------
  1330. ;
  1331. ; Analysis flags : ABS
  1332. ;
  1333. ; A - Adjust online time remaining ■ 5
  1334. ;     Program modify the amount of online time remaining, this may
  1335. ;     be a way to bypass time limits
  1336. ;     ■ Search for : ADJTIME
  1337. ;
  1338. ; B - Brute hangup ■ 1
  1339. ;     Program hangup without notification. This may be a good way to
  1340. ;     disconnect a user, but if used randomly, may be very nasty
  1341. ;     ■ Search for : HANGUP, DTROFF
  1342. ;
  1343. ; S - Shell to DOS ■ 5
  1344. ;     This may be normal if the PPE need to execute an external command,
  1345. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  1346. ;     or usefull (sorting, maintenance,...). Check!
  1347. ;     ■ Search for : SHELL
  1348. ;
  1349. ;------------------------------------------------------------------------------
  1350. ;
  1351. ; Postprocessing report
  1352. ;
  1353. ;    0       For/Next
  1354. ;    0       While/EndWhile
  1355. ;    34      If/Then or If/Then/Else
  1356. ;    0       Select Case
  1357. ;
  1358. ;------------------------------------------------------------------------------
  1359. ;                 AEGiS Corp - Break the routines, code against the machines!
  1360. ;------------------------------------------------------------------------------
  1361.