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