home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SEXSCHAT.ZIP / CSSC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-11  |  24KB  |  1,176 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER004
  20.     Integer  INTEGER005
  21.     Integer  INTEGER006
  22.     Integer  INTEGER007
  23.     Integer  INTEGER008
  24.     Integer  INTEGER009
  25.     Integer  INTEGER010
  26.     Integer  INTEGER011
  27.     Integer  INTEGER012
  28.     Integer  INTEGER013
  29.     Integer  INTEGER014
  30.     Integer  INTEGER015
  31.     String   STRING010
  32.     String   TSTRING011(4)
  33.     String   STRING012
  34.     String   TSTRING013(5)
  35.     String   STRING014
  36.     String   STRING015
  37.     String   STRING016
  38.     String   STRING017
  39.     String   STRING018
  40.     String   STRING019
  41.     String   STRING020
  42.     String   STRING021
  43.     String   STRING022
  44.     String   STRING023
  45.     String   STRING024
  46.     String   STRING025
  47.     String   STRING026
  48.     String   STRING027
  49.     String   STRING028
  50.     String   STRING029
  51.     String   STRING030
  52.     String   STRING031
  53.     String   STRING032
  54.     String   STRING033
  55.     String   STRING034
  56.     String   STRING035
  57.     String   STRING036
  58.     String   STRING037
  59.     String   STRING038
  60.     String   STRING039
  61.     String   STRING040
  62.     String   STRING041
  63.     String   STRING042
  64.     String   STRING043
  65.     String   STRING044
  66.     String   TSTRING045(25)
  67.     String   TSTRING046(25)
  68.     String   STRING047
  69.     String   STRING048
  70.     String   STRING049
  71.     String   STRING050
  72.     String   TSTRING051(25)
  73.     String   STRING052
  74.     String   STRING053
  75.     String   STRING054
  76.  
  77. ;------------------------------------------------------------------------------
  78.  
  79.     TSTRING011(1) = Chr(67)
  80.     TSTRING011(2) = Chr(83)
  81.     TSTRING011(3) = TSTRING011(2)
  82.     TSTRING011(4) = TSTRING011(1)
  83.     TSTRING013(1) = Chr(118)
  84.     TSTRING013(2) = Chr(50)
  85.     TSTRING013(3) = Chr(46)
  86.     TSTRING013(4) = TSTRING013(2)
  87.     TSTRING013(5) = Chr(48)
  88.     STRING010 = TSTRING011(1) + TSTRING011(2) + TSTRING011(3) + TSTRING011(4)
  89.     STRING012 = TSTRING013(1) + TSTRING013(2) + TSTRING013(3) + TSTRING013(4) + TSTRING013(5)
  90.     INTEGER006 = MinLeft()
  91.     INTEGER007 = INTEGER006
  92.     STRING026 = Mixed(U_Name())
  93.     STRING032 = PPEPath() + STRING010 + "." + "D" + "A" + "T"
  94.     STRING033 = "System Operator"
  95.     STRING052 = Chr(77) + Chr(105) + Chr(100) + Chr(110) + Chr(105) + Chr(103) + Chr(104) + Chr(116) + Space(1) + Chr(83) + Chr(108) + Chr(97) + Chr(115) + Chr(104) + Chr(101) + Chr(114)
  96.     STRING035 = "@" + "X" + "0" + "8"
  97.     STRING037 = "@" + "X" + "0" + "F"
  98.     STRING041 = "@" + "X" + "0" + "7"
  99.     If (Exist(STRING032)) Then
  100.         FOpen 1, STRING032, 0, 2
  101.         FGet 1, STRING033
  102.         FGet 1, INTEGER013
  103.         FGet 1, INTEGER014
  104.         FGet 1, INTEGER015
  105.         FClose 1
  106.         If ((INTEGER013 >= 1) && (INTEGER013 <= 9)) Then
  107.             STRING037 = "@" + "X" + "0" + String(INTEGER013)
  108.             Goto LABEL001
  109.         Endif
  110.         If (INTEGER013 == 10) Then
  111.             STRING037 = "@" + "X" + "0" + "A"
  112.             Goto LABEL001
  113.         Endif
  114.         If (INTEGER013 == 11) Then
  115.             STRING037 = "@" + "X" + "0" + "B"
  116.             Goto LABEL001
  117.         Endif
  118.         If (INTEGER013 == 12) Then
  119.             STRING037 = "@" + "X" + "0" + "C"
  120.             Goto LABEL001
  121.         Endif
  122.         If (INTEGER013 == 13) Then
  123.             STRING037 = "@" + "X" + "0" + "D"
  124.             Goto LABEL001
  125.         Endif
  126.         If (INTEGER013 == 14) Then
  127.             STRING037 = "@" + "X" + "0" + "E"
  128.             Goto LABEL001
  129.         Endif
  130.         If (INTEGER013 == 15) Then
  131.             STRING037 = "@" + "X" + "0" + "F"
  132.         Endif
  133.         :LABEL001
  134.         If ((INTEGER014 >= 1) && (INTEGER014 <= 9)) Then
  135.             STRING041 = "@" + "X" + "0" + String(INTEGER014)
  136.             Goto LABEL002
  137.         Endif
  138.         If (INTEGER014 == 10) Then
  139.             STRING041 = "@" + "X" + "0" + "A"
  140.             Goto LABEL002
  141.         Endif
  142.         If (INTEGER014 == 11) Then
  143.             STRING041 = "@" + "X" + "0" + "B"
  144.             Goto LABEL002
  145.         Endif
  146.         If (INTEGER014 == 12) Then
  147.             STRING041 = "@" + "X" + "0" + "C"
  148.             Goto LABEL002
  149.         Endif
  150.         If (INTEGER014 == 13) Then
  151.             STRING041 = "@" + "X" + "0" + "D"
  152.             Goto LABEL002
  153.         Endif
  154.         If (INTEGER014 == 14) Then
  155.             STRING041 = "@" + "X" + "0" + "E"
  156.             Goto LABEL002
  157.         Endif
  158.         If (INTEGER014 == 15) Then
  159.             STRING041 = "@" + "X" + "0" + "F"
  160.         Endif
  161.         :LABEL002
  162.         If ((INTEGER015 >= 1) && (INTEGER015 <= 9)) Then
  163.             STRING035 = "@" + "X" + "0" + String(INTEGER015)
  164.             Goto LABEL003
  165.         Endif
  166.         If (INTEGER015 == 10) Then
  167.             STRING035 = "@" + "X" + "0" + "A"
  168.             Goto LABEL003
  169.         Endif
  170.         If (INTEGER015 == 11) Then
  171.             STRING035 = "@" + "X" + "0" + "B"
  172.             Goto LABEL003
  173.         Endif
  174.         If (INTEGER015 == 12) Then
  175.             STRING035 = "@" + "X" + "0" + "C"
  176.             Goto LABEL003
  177.         Endif
  178.         If (INTEGER015 == 13) Then
  179.             STRING035 = "@" + "X" + "0" + "D"
  180.             Goto LABEL003
  181.         Endif
  182.         If (INTEGER015 == 14) Then
  183.             STRING035 = "@" + "X" + "0" + "E"
  184.             Goto LABEL003
  185.         Endif
  186.         If (INTEGER015 == 15) Then
  187.             STRING035 = "@" + "X" + "0" + "F"
  188.         Endif
  189.     Endif
  190.     :LABEL003
  191.     STRING034 = Len(STRING033)
  192.     Log "" + STRING010 + " " + STRING012 + " " + "" + "[" + "O" + "p" + "e" + "n" + "e" + "d: " + Left(Time(), 5) + "]", 0
  193.     Cls
  194.     StartDisp 1
  195.     Gosub LABEL034
  196.     STRING039 = 0
  197.     STRING040 = 6
  198.     STRING043 = 0
  199.     STRING044 = 15
  200.     :LABEL004
  201.     While (STRING038 <> Chr(27)) Do
  202.         STRING038 = ""
  203.         STRING042 = ""
  204.         STRING038 = KInkey()
  205.         STRING042 = MInkey()
  206.         If (STRING038 <> "") Gosub LABEL005
  207.         If (STRING042 <> "") Gosub LABEL012
  208.         If (Abort()) ResetDisp
  209.     EndWhile
  210.     Goto LABEL035
  211.     :LABEL005
  212.     If ((STRING040 == 13) && (STRING039 == 79)) Then
  213.         If (STRING038 == Chr(13)) Goto LABEL011
  214.         STRING047 = ScrText(79, 13, 1, 0)
  215.         If (Left(STRING047, 1) == " ") Then
  216.             Gosub LABEL021
  217.             Goto LABEL008
  218.         Endif
  219.         For INTEGER010 = 1 To 79
  220.             INTEGER011 = 80 - INTEGER010
  221.             STRING047 = ScrText(INTEGER011, 13, INTEGER010, 0)
  222.             If (Left(STRING047, 1) == " ") Goto LABEL006
  223.         Next
  224.         Goto LABEL007
  225.         :LABEL006
  226.         AnsiPos INTEGER011, 13
  227.         Print Space(INTEGER010)
  228.         Gosub LABEL021
  229.         STRING048 = STRING047
  230.         Print STRING037 + LTrim(STRING048, " ")
  231.         STRING039 = INTEGER010 - 1
  232.         ClrEol
  233.         Goto LABEL008
  234.         :LABEL007
  235.         Gosub LABEL021
  236.     Endif
  237.     :LABEL008
  238.     If (STRING039 == 79) Then
  239.         If (STRING038 == Chr(13)) Goto LABEL011
  240.         STRING047 = ScrText(79, GetY(), 1, 0)
  241.         If (Left(STRING047, 1) == " ") Then
  242.             STRING039 = 0
  243.             STRING040 = STRING040 + 1
  244.             Goto LABEL011
  245.         Endif
  246.         For INTEGER010 = 1 To 79
  247.             INTEGER011 = 80 - INTEGER010
  248.             STRING047 = ScrText(INTEGER011, GetY(), INTEGER010, 0)
  249.             If (Left(STRING047, 1) == " ") Goto LABEL009
  250.         Next
  251.         Goto LABEL010
  252.         :LABEL009
  253.         AnsiPos INTEGER011, GetY()
  254.         Print Space(INTEGER011)
  255.         STRING039 = 0
  256.         STRING040 = STRING040 + 1
  257.         STRING048 = STRING047
  258.         AnsiPos 1, STRING040
  259.         Print LTrim(STRING048, " ")
  260.         STRING039 = INTEGER010 - 1
  261.         Goto LABEL011
  262.         :LABEL010
  263.         STRING039 = 0
  264.         STRING040 = STRING040 + 1
  265.     Endif
  266.     :LABEL011
  267.     Select Case (STRING038)
  268.         Case Chr(13)
  269.             If (STRING040 >= 13) Then
  270.                 Gosub LABEL021
  271.             ElseIf (STRING039 == 80) Then
  272.                 STRING040 = STRING040 + 1
  273.                 STRING039 = 0
  274.                 AnsiPos STRING039, STRING040
  275.             Else
  276.                 STRING040 = STRING040 + 1
  277.                 STRING039 = 0
  278.                 AnsiPos STRING039, STRING040
  279.             Endif
  280.         Case Chr(8), Chr(127)
  281.             If (STRING039 <> 0) Then
  282.                 STRING039 = STRING039 + 1
  283.                 AnsiPos STRING039, STRING040
  284.                 Print Chr(8) + " " + Chr(8)
  285.                 STRING039 = STRING039 - 2
  286.             Endif
  287.         Case "AL" + "T Q"
  288.             Gosub LABEL034
  289.         Case "AL" + "T E"
  290.             Goto LABEL022
  291.         Case "AL" + "T W"
  292.             For INTEGER010 = 6 To 13
  293.                 AnsiPos 1, INTEGER010
  294.                 ClrEol
  295.             Next
  296.             STRING039 = 0
  297.             STRING040 = 6
  298.             AnsiPos 1, 6
  299.         Case 0
  300.             STRING039 = STRING039 + 1
  301.             AnsiPos STRING039, STRING040
  302.             Print STRING037 + STRING038
  303.     End Select
  304.     Return
  305.     :LABEL012
  306.     If ((STRING044 == 22) && (STRING043 == 79)) Then
  307.         If (STRING042 == Chr(13)) Goto LABEL018
  308.         STRING049 = ScrText(79, 22, 1, 0)
  309.         If (Left(STRING049, 1) == " ") Then
  310.             Gosub LABEL020
  311.             Goto LABEL015
  312.         Endif
  313.         For INTEGER010 = 1 To 79
  314.             INTEGER011 = 80 - INTEGER010
  315.             STRING049 = ScrText(INTEGER011, 22, INTEGER010, 0)
  316.             If (Left(STRING049, 1) == " ") Goto LABEL013
  317.         Next
  318.         Goto LABEL014
  319.         :LABEL013
  320.         AnsiPos INTEGER011, 22
  321.         Print Space(INTEGER010)
  322.         Gosub LABEL020
  323.         STRING050 = STRING049
  324.         Print STRING041 + LTrim(STRING050, " ")
  325.         STRING043 = INTEGER010 - 1
  326.         ClrEol
  327.         Goto LABEL015
  328.         :LABEL014
  329.         Gosub LABEL020
  330.     Endif
  331.     :LABEL015
  332.     If (STRING043 == 79) Then
  333.         If (STRING042 == Chr(13)) Goto LABEL018
  334.         STRING049 = ScrText(79, GetY(), 1, 0)
  335.         If (Left(STRING049, 1) == " ") Then
  336.             STRING043 = 0
  337.             STRING044 = STRING044 + 1
  338.             Goto LABEL018
  339.         Endif
  340.         For INTEGER010 = 1 To 79
  341.             INTEGER011 = 80 - INTEGER010
  342.             STRING049 = ScrText(INTEGER011, GetY(), INTEGER010, 0)
  343.             If (Left(STRING049, 1) == " ") Goto LABEL016
  344.         Next
  345.         Goto LABEL017
  346.         :LABEL016
  347.         AnsiPos INTEGER011, GetY()
  348.         Print Space(INTEGER011)
  349.         STRING043 = 0
  350.         STRING044 = STRING044 + 1
  351.         STRING050 = STRING049
  352.         AnsiPos 1, STRING044
  353.         Print LTrim(STRING050, " ")
  354.         STRING043 = INTEGER010 - 1
  355.         Goto LABEL018
  356.         :LABEL017
  357.         STRING043 = 0
  358.         STRING044 = STRING044 + 1
  359.     Endif
  360.     :LABEL018
  361.     Select Case (STRING042)
  362.         Case Chr(13)
  363.             If (STRING044 >= 22) Then
  364.                 Gosub LABEL020
  365.             ElseIf (STRING043 == 80) Then
  366.                 STRING044 = STRING044 + 1
  367.                 STRING043 = 0
  368.                 AnsiPos STRING043, STRING044
  369.             Else
  370.                 STRING044 = STRING044 + 1
  371.                 STRING043 = 0
  372.                 AnsiPos STRING043, STRING044
  373.             Endif
  374.         Case Chr(8), Chr(127)
  375.             If (STRING043 <> 0) Then
  376.                 STRING043 = STRING043 + 1
  377.                 AnsiPos STRING043, STRING044
  378.                 Print Chr(8) + " " + Chr(8)
  379.                 STRING043 = STRING043 - 2
  380.             Endif
  381.         Case "AL" + "T E"
  382.             AnsiPos 1, 4
  383.             Print STRING035 + "----------------Only fer SysOp------------------- " + STRING035 + " ------Editin'----------- " + STRING035 + " --D"
  384.             Delay 25
  385.             AnsiPos 1, 4
  386.             Print STRING035 + "----------------------------------------------------------------- Chattin'  " + STRING035 + " --D"
  387.         Case "AL" + "T Q"
  388.             Gosub LABEL034
  389.         Case "AL" + "T W"
  390.             For INTEGER010 = 15 To 22
  391.                 AnsiPos 1, INTEGER010
  392.                 ClrEol
  393.             Next
  394.             STRING043 = 0
  395.             STRING044 = 15
  396.             AnsiPos 1, 15
  397.         Case Chr(27)
  398.             Goto LABEL035
  399.             If (Left(STRING042, 1) == "") Then
  400.                 Goto LABEL019
  401.             Endif
  402.         Case 0
  403.             STRING043 = STRING043 + 1
  404.             AnsiPos STRING043, STRING044
  405.             Print STRING041 + STRING042
  406.     End Select
  407.     :LABEL019
  408.     Return
  409.     :LABEL020
  410.     TSTRING046(15) = ScrText(1, 20, 80, 0)
  411.     TSTRING046(16) = ScrText(1, 21, 80, 0)
  412.     TSTRING046(17) = ScrText(1, 22, 80, 0)
  413.     INTEGER005 = 17
  414.     If (TSTRING046(17) == Space(80)) Then
  415.         If (TSTRING046(16) == Space(80)) Then
  416.             Select Case (TSTRING046(15))
  417.                 Case Space(80)
  418.                     INTEGER005 = 14
  419.                     TSTRING046(15) = ScrText(1, 20, 80, 1)
  420.                     INTEGER005 = 15
  421.                 Else
  422.                 Case Space(80)
  423.                     TSTRING046(15) = ScrText(1, 21, 80, 1)
  424.                     TSTRING046(16) = ScrText(1, 22, 80, 1)
  425.                     INTEGER005 = 16
  426.                     TSTRING046(15) = ScrText(1, 20, 80, 1)
  427.                     TSTRING046(16) = ScrText(1, 21, 80, 1)
  428.                     TSTRING046(17) = ScrText(1, 22, 80, 1)
  429.                     INTEGER005 = 17
  430.                 Else
  431.                 Case Space(80)
  432.                 Case Space(80)
  433.                     TSTRING046(15) = ScrText(1, 22, 80, 1)
  434.                     INTEGER005 = 15
  435.                 Case Else
  436.                     TSTRING046(15) = ScrText(1, 21, 80, 1)
  437.                     TSTRING046(16) = ScrText(1, 22, 80, 1)
  438.                     INTEGER005 = 16
  439.                     TSTRING046(15) = ScrText(1, 20, 80, 1)
  440.                     TSTRING046(16) = ScrText(1, 21, 80, 1)
  441.                     TSTRING046(17) = ScrText(1, 22, 80, 1)
  442.                 Endif
  443.             Endif
  444.     End Select
  445.     For INTEGER012 = 15 To INTEGER005
  446.         AnsiPos 1, INTEGER012
  447.         PrintLn TSTRING046(INTEGER012)
  448.     Next
  449.     For INTEGER012 = INTEGER005 + 1 To 22
  450.         AnsiPos 1, INTEGER012
  451.         ClrEol
  452.     Next
  453.     STRING043 = 0
  454.     STRING044 = INTEGER005 + 1
  455.     AnsiPos 1, INTEGER005 + 1
  456.     Return
  457.     :LABEL021
  458.     TSTRING045(6) = ScrText(1, 11, 80, 0)
  459.     TSTRING045(7) = ScrText(1, 12, 80, 0)
  460.     TSTRING045(8) = ScrText(1, 13, 80, 0)
  461.     INTEGER004 = 8
  462.     If (TSTRING045(8) == Space(80)) Then
  463.         If (TSTRING045(7) == Space(80)) Then
  464.             Select Case (TSTRING045(6))
  465.                 Case Space(80)
  466.                     INTEGER004 = 5
  467.                     TSTRING045(6) = ScrText(1, 11, 80, 1)
  468.                     INTEGER004 = 6
  469.                 Else
  470.                 Case Space(80)
  471.                     TSTRING045(6) = ScrText(1, 12, 80, 1)
  472.                     TSTRING045(7) = ScrText(1, 13, 80, 1)
  473.                     INTEGER004 = 7
  474.                     TSTRING045(6) = ScrText(1, 11, 80, 1)
  475.                     TSTRING045(7) = ScrText(1, 12, 80, 1)
  476.                     TSTRING045(8) = ScrText(1, 13, 80, 1)
  477.                     INTEGER004 = 8
  478.                 Else
  479.                 Case Space(80)
  480.                 Case Space(80)
  481.                     TSTRING045(6) = ScrText(1, 13, 80, 1)
  482.                     INTEGER004 = 6
  483.                 Case Else
  484.                     TSTRING045(6) = ScrText(1, 12, 80, 1)
  485.                     TSTRING045(7) = ScrText(1, 13, 80, 1)
  486.                     INTEGER004 = 7
  487.                     TSTRING045(6) = ScrText(1, 11, 80, 1)
  488.                     TSTRING045(7) = ScrText(1, 12, 80, 1)
  489.                     TSTRING045(8) = ScrText(1, 13, 80, 1)
  490.                 Endif
  491.             Endif
  492.     End Select
  493.     For INTEGER012 = 6 To INTEGER004
  494.         AnsiPos 1, INTEGER012
  495.         PrintLn TSTRING045(INTEGER012)
  496.     Next
  497.     For INTEGER012 = INTEGER004 + 1 To 13
  498.         AnsiPos 1, INTEGER012
  499.         ClrEol
  500.     Next
  501.     STRING039 = 0
  502.     STRING040 = INTEGER004 + 1
  503.     AnsiPos 1, INTEGER004 + 1
  504.     Return
  505.     :LABEL022
  506.     Log "" + STRING010 + " " + STRING012 + " " + "" + "[" + ">U" + "s" + "er" + " " + "E" + "di" + "to" + "r<" + "]", 0
  507.     GetUser
  508.     STRING053 = U_Name()
  509.     AnsiPos 1, 4
  510.     Print "@X02+@X07-----------------@X02+ @X03Hold a sec. SysOp iz editin' yer shit. @X02+@X07------------------@X02+"
  511.     TSTRING051(6) = ScrText(1, 6, 80, 1)
  512.     TSTRING051(7) = ScrText(1, 7, 80, 1)
  513.     TSTRING051(8) = ScrText(1, 8, 80, 1)
  514.     TSTRING051(9) = ScrText(1, 9, 80, 1)
  515.     TSTRING051(10) = ScrText(1, 10, 80, 1)
  516.     TSTRING051(11) = ScrText(1, 11, 80, 1)
  517.     TSTRING051(12) = ScrText(1, 12, 80, 1)
  518.     TSTRING051(13) = ScrText(1, 13, 80, 1)
  519.     TSTRING051(14) = ScrText(1, 14, 80, 1)
  520.     TSTRING051(15) = ScrText(1, 15, 80, 1)
  521.     TSTRING051(16) = ScrText(1, 16, 80, 1)
  522.     TSTRING051(17) = ScrText(1, 17, 80, 1)
  523.     TSTRING051(18) = ScrText(1, 18, 80, 1)
  524.     TSTRING051(19) = ScrText(1, 19, 80, 1)
  525.     TSTRING051(20) = ScrText(1, 20, 80, 1)
  526.     TSTRING051(21) = ScrText(1, 21, 80, 1)
  527.     TSTRING051(22) = ScrText(1, 22, 80, 1)
  528.     SPrint "H"
  529.     SPrintLn "▐╔═══════════════════════════════════════════════════════════════════════════╗▌"
  530.     SPrintLn "▐║                                                  [ESC]=Exit User Editor   ║▌"
  531.     SPrintLn "▐╟───────────────────┬──────────────────────────┬────────────────────────────╢▌"
  532.     SPrintLn "▐║ [A] Security:     │ [H] Exp. Date :          │ [O] UL (Files):            ║▌"
  533.     SPrintLn "▐║ [B] Exp. Sec:     │ [I] Last Date :          │ [P] UL (Bytes):            ║▌"
  534.     SPrintLn "▐║ [C] Page Len:     │ [J] Last DIR  :          │ [Q] DL (Files):            ║▌"
  535.     SPrintLn "▐║ [D] Protocol:     │ [K] Total Call:          │ [R] DL (Bytes):            ║▌"
  536.     SPrintLn "▐║ [E] Msg Clr.:     │ [L] FSE Editor:          │ [S] DL (Today):            ║▌"
  537.     SPrintLn "▐║ [F] Msg Scrl:     │ [M] FSE Prompt:          │ [T] MSGs Left :            ║▌"
  538.     SPrintLn "▐║ [G] Expert  :     │ [N] Msg Header:          │ [U] MSGs Read :            ║▌"
  539.     SPrintLn "▐╟───────────────────┴────────────┬─────────────┴────────────────────────────╢▌"
  540.     SPrintLn "▐║ [V] H/V Phone:                 │ [Y] City:                                ║▌"
  541.     SPrintLn "▐║ [W] B/D Phone:                 │ [Z] C #1:                                ║▌"
  542.     SPrintLn "▐║ [X] Password :                 │ [!] C #2:                                ║▌"
  543.     SPrintLn "▐╟────────────────────────────────┤ [@] Alias-PSA:                           ║▌"
  544.     SPrintLn "▐║▌ D─ D = Jump 1│PGUP/DN = Jump 10▐│ [#] VerifyPSA:                           ║▌"
  545.     SPrintLn "▐╚════════════════════════════════╧══════════════════════════════════════════╝▌"
  546.     Gosub LABEL036
  547.     STRING036 = ""
  548.     While (STRING036 <> Chr(27)) Do
  549.         STRING036 = ""
  550.         STRING036 = KInkey()
  551.         If (STRING036 <> "") Gosub LABEL023
  552.         If (Abort()) ResetDisp
  553.     EndWhile
  554.     Goto LABEL032
  555.     :LABEL023
  556.     STRING027 = ""
  557.     STRING028 = ""
  558.     Select Case (Upper(STRING036))
  559.         Case "PGUP"
  560.             GetAltUser U_RecNum(U_Name()) + 10
  561.             If (CurUser() == -1) Then
  562.                 GetAltUser 1
  563.             Endif
  564.             Gosub LABEL036
  565.         Case "PGDN"
  566.             If (U_RecNum(U_Name()) == 1) Then
  567.                 Goto LABEL024
  568.             Endif
  569.             If (U_RecNum(U_Name()) <= 10) Then
  570.                 GetAltUser 1
  571.                 Gosub LABEL036
  572.             Else
  573.                 GetAltUser U_RecNum(U_Name()) - 10
  574.                 Gosub LABEL036
  575.             Endif
  576.             :LABEL024
  577.         Case "LEFT"
  578.             If (U_RecNum(U_Name()) == 1) Then
  579.                 Goto LABEL025
  580.             Endif
  581.             GetAltUser U_RecNum(U_Name()) - 1
  582.             Gosub LABEL036
  583.             :LABEL025
  584.         Case "RIGHT"
  585.             GetAltUser U_RecNum(U_Name()) + 1
  586.             If (CurUser() == -1) Then
  587.                 GetAltUser 1
  588.             Endif
  589.             Gosub LABEL036
  590.         Case "A"
  591.             SPrint "8H" + Space(3) + "D"
  592.             INTEGER009 = 3
  593.             STRING014 = Mask_Num()
  594.             Gosub LABEL033
  595.             If (STRING028 <> "") Then
  596.                 U_Sec = Upper(STRING028)
  597.                 PutUser
  598.             Endif
  599.             SPrint "8H" + Left(String(U_Sec), 3)
  600.             SPrint "H"
  601.         Case "B"
  602.             SPrint "18H" + Space(3) + "D"
  603.             INTEGER009 = 3
  604.             STRING014 = Mask_Num()
  605.             Gosub LABEL033
  606.             If (STRING028 <> "") Then
  607.                 U_ExpSec = Upper(STRING028)
  608.                 PutUser
  609.             Endif
  610.             SPrint "18H" + Left(String(U_ExpSec), 3)
  611.             SPrint "H"
  612.         Case "C"
  613.             SPrint "18H" + Space(2) + "D"
  614.             INTEGER009 = 2
  615.             STRING014 = Mask_Num()
  616.             Gosub LABEL033
  617.             If (STRING028 <> "") Then
  618.                 U_PageLen = Upper(STRING028)
  619.                 PutUser
  620.             Endif
  621.             SPrint "18H" + Left(String(U_PageLen), 2)
  622.             SPrint "H"
  623.         Case "D"
  624.             SPrint "18H" + Space(1) + "D"
  625.             INTEGER009 = 1
  626.             STRING014 = Mask_AlNum()
  627.             Gosub LABEL033
  628.             If (STRING028 <> "") Then
  629.                 U_Trans = Upper(STRING028)
  630.                 PutUser
  631.             Endif
  632.             SPrint "18H" + Left(String(U_Trans), 1)
  633.             SPrint "H"
  634.         Case "E"
  635.             SPrint "18H" + Space(1) + "D"
  636.             INTEGER009 = 1
  637.             STRING014 = "YyNn"
  638.             Gosub LABEL033
  639.             If (STRING028 <> "") Then
  640.                 If (Upper(STRING028) == "N") Then
  641.                     U_Cls = 0
  642.                     Goto LABEL026
  643.                 Endif
  644.                 U_Cls = 1
  645.                 :LABEL026
  646.                 PutUser
  647.             Endif
  648.             If (U_Cls == 0) Then
  649.                 STRING017 = "N"
  650.             Else
  651.                 STRING017 = "Y"
  652.             Endif
  653.             SPrint "18H" + Left(STRING017, 1)
  654.             SPrint "H"
  655.         Case "F"
  656.             SPrint "18H" + Space(1) + "D"
  657.             INTEGER009 = 1
  658.             STRING014 = "YyNn"
  659.             Gosub LABEL033
  660.             If (STRING028 <> "") Then
  661.                 If (Upper(STRING028) == "N") Then
  662.                     U_Scroll = 0
  663.                     Goto LABEL027
  664.                 Endif
  665.                 U_Scroll = 1
  666.                 :LABEL027
  667.                 PutUser
  668.             Endif
  669.             If (U_Scroll == 0) Then
  670.                 STRING018 = "N"
  671.             Else
  672.                 STRING018 = "Y"
  673.             Endif
  674.             SPrint "18H" + Left(STRING018, 1)
  675.             SPrint "H"
  676.         Case "G"
  677.             SPrint "18H" + Space(1) + "D"
  678.             INTEGER009 = 1
  679.             STRING014 = "YyNn"
  680.             Gosub LABEL033
  681.             If (STRING028 <> "") Then
  682.                 If (Upper(STRING028) == "N") Then
  683.                     U_Expert = 0
  684.                     Goto LABEL028
  685.                 Endif
  686.                 U_Expert = 1
  687.                 :LABEL028
  688.                 PutUser
  689.             Endif
  690.             If (U_Expert == 0) Then
  691.                 STRING019 = "N"
  692.             Else
  693.                 STRING019 = "Y"
  694.             Endif
  695.             SPrint "18H" + Left(STRING019, 1)
  696.             SPrint "H"
  697.         Case "H"
  698.             SPrint "0H" + Space(8) + "D"
  699.             INTEGER009 = 8
  700.             STRING014 = Mask_Num() + "-"
  701.             Gosub LABEL033
  702.             If (STRING028 <> "") Then
  703.                 U_ExpDate = Upper(STRING028)
  704.                 PutUser
  705.             Endif
  706.             SPrint "0H" + Left(String(U_ExpDate), 8)
  707.             SPrint "H"
  708.         Case "L"
  709.             SPrint "40H" + Space(1) + "D"
  710.             INTEGER009 = 1
  711.             STRING014 = "YyNn"
  712.             Gosub LABEL033
  713.             If (STRING028 <> "") Then
  714.                 If (Upper(STRING028) == "N") Then
  715.                     U_FSE = 0
  716.                     Goto LABEL029
  717.                 Endif
  718.                 U_FSE = 1
  719.                 :LABEL029
  720.                 PutUser
  721.             Endif
  722.             If (U_FSE == 0) Then
  723.                 STRING021 = "N"
  724.             Else
  725.                 STRING021 = "Y"
  726.             Endif
  727.             SPrint "40H" + Left(STRING021, 1)
  728.             SPrint "H"
  729.         Case "M"
  730.             SPrint "40H" + Space(1) + "D"
  731.             INTEGER009 = 1
  732.             STRING014 = "YyNn"
  733.             Gosub LABEL033
  734.             If (STRING028 <> "") Then
  735.                 If (Upper(STRING028) == "N") Then
  736.                     U_FSEP = 0
  737.                     Goto LABEL030
  738.                 Endif
  739.                 U_FSEP = 1
  740.                 :LABEL030
  741.                 PutUser
  742.             Endif
  743.             If (U_FSEP == 0) Then
  744.                 STRING022 = "N"
  745.             Else
  746.                 STRING022 = "Y"
  747.             Endif
  748.             SPrint "40H" + Left(STRING022, 1)
  749.             SPrint "H"
  750.         Case "N"
  751.             SPrint "40H" + Space(1) + "D"
  752.             INTEGER009 = 1
  753.             STRING014 = "SsLl"
  754.             Gosub LABEL033
  755.             If (STRING028 <> "") Then
  756.                 If (Upper(STRING028) == "S") Then
  757.                     U_LongHDR = 0
  758.                     Goto LABEL031
  759.                 Endif
  760.                 U_LongHDR = 1
  761.                 :LABEL031
  762.                 PutUser
  763.             Endif
  764.             If (U_LongHDR == 0) Then
  765.                 STRING023 = "S"
  766.             Else
  767.                 STRING023 = "L"
  768.             Endif
  769.             SPrint "40H" + Left(STRING023, 1)
  770.             SPrint "H"
  771.         Case "Q"
  772.             SPrint "67H" + Space(5) + "D"
  773.             INTEGER009 = 5
  774.             STRING014 = Mask_Num() + "-"
  775.             STRING030 = U_Fdl()
  776.             Gosub LABEL033
  777.             If (STRING028 <> "") Then
  778.                 AdjTFiles Upper(STRING028) - STRING030
  779.                 PutUser
  780.             Endif
  781.             SPrint "67H" + Left(String(U_Fdl()), 5)
  782.             SPrint "H"
  783.         Case "R"
  784.             SPrint "67H" + Space(10) + "D"
  785.             INTEGER009 = 10
  786.             STRING014 = Mask_Num() + "-"
  787.             STRING029 = U_Bdl()
  788.             Gosub LABEL033
  789.             If (STRING028 <> "") Then
  790.                 AdjTBytes Upper(STRING028) - STRING029
  791.                 PutUser
  792.             Endif
  793.             SPrint "67H" + Left(String(U_Bdl()), 10)
  794.             SPrint "H"
  795.         Case "S"
  796.             SPrint "67H" + Space(10) + "D"
  797.             INTEGER009 = 10
  798.             STRING014 = Mask_Num() + "-"
  799.             STRING031 = U_BdlDay()
  800.             Gosub LABEL033
  801.             If (STRING028 <> "") Then
  802.                 AdjDBytes Upper(STRING028) - STRING031
  803.                 PutUser
  804.             Endif
  805.             SPrint "67H" + Left(String(U_BdlDay()), 10)
  806.             SPrint "H"
  807.         Case "V"
  808.             SPrint "19H" + Space(13) + "D"
  809.             INTEGER009 = 13
  810.             STRING014 = Mask_Ascii()
  811.             Gosub LABEL033
  812.             If (STRING028 <> "") Then
  813.                 U_HVPhone = Upper(STRING028)
  814.                 PutUser
  815.             Endif
  816.             SPrint "19H" + Left(String(U_HVPhone), 13)
  817.             SPrint "H"
  818.         Case "W"
  819.             SPrint "19H" + Space(13) + "D"
  820.             INTEGER009 = 13
  821.             STRING014 = Mask_Ascii()
  822.             Gosub LABEL033
  823.             If (STRING028 <> "") Then
  824.                 U_BDPhone = Upper(STRING028)
  825.                 PutUser
  826.             Endif
  827.             SPrint "19H" + Left(String(U_BDPhone), 13)
  828.             SPrint "H"
  829.         Case "X"
  830.             SPrint "19H" + Space(12) + "D"
  831.             INTEGER009 = 12
  832.             STRING014 = Mask_Pwd()
  833.             Gosub LABEL033
  834.             If (STRING028 <> "") Then
  835.                 U_Pwd = Upper(STRING028)
  836.                 PutUser
  837.             Endif
  838.             SPrint "19H" + Left(String(U_Pwd), 12)
  839.             SPrint "H"
  840.         Case "Y"
  841.             SPrint "47H" + Space(24) + "D"
  842.             INTEGER009 = 24
  843.             STRING014 = Mask_Ascii()
  844.             Gosub LABEL033
  845.             If (STRING028 <> "") Then
  846.                 U_City = Upper(STRING028)
  847.                 PutUser
  848.             Endif
  849.             SPrint "47H" + Left(String(U_City), 24)
  850.             SPrint "H"
  851.         Case "Z"
  852.             SPrint "47H" + Space(30) + "D"
  853.             INTEGER009 = 30
  854.             STRING014 = Mask_Ascii()
  855.             Gosub LABEL033
  856.             If (STRING028 <> "") Then
  857.                 U_Cmnt1 = Upper(STRING028)
  858.                 PutUser
  859.             Endif
  860.             SPrint "47H" + Left(String(U_Cmnt1), 30)
  861.             SPrint "H"
  862.         Case "!"
  863.             SPrint "47H" + Space(30) + "D"
  864.             INTEGER009 = 30
  865.             STRING014 = Mask_Ascii()
  866.             Gosub LABEL033
  867.             If (STRING028 <> "") Then
  868.                 U_Cmnt2 = Upper(STRING028)
  869.                 PutUser
  870.             Endif
  871.             SPrint "47H" + Left(String(U_Cmnt2), 30)
  872.             SPrint "H"
  873.         Case "@"
  874.             If (Psa(1)) Then
  875.                 SPrint "52H" + Space(25) + "D"
  876.                 INTEGER009 = 25
  877.                 STRING014 = Mask_Ascii()
  878.                 Gosub LABEL033
  879.                 If (STRING028 <> "") Then
  880.                     U_Alias = Upper(STRING028)
  881.                     PutUser
  882.                 Endif
  883.                 STRING024 = U_Alias
  884.                 SPrint "52H" + Left(STRING024, 25)
  885.                 SPrint "H"
  886.             Endif
  887.         Case "#"
  888.         Case 
  889.             SPrint "52H" + Space(25) + "D"
  890.             INTEGER009 = 25
  891.             STRING014 = Mask_Ascii()
  892.             Gosub LABEL033
  893.             If (STRING028 <> "") Then
  894.                 U_Ver = Upper(STRING028)
  895.                 PutUser
  896.             Endif
  897.             STRING025 = U_Ver
  898.             SPrint "52H" + Left(STRING025, 25)
  899.             SPrint "H"
  900.     End Select
  901.     Return
  902.     :LABEL032
  903.     For INTEGER012 = 6 To 22
  904.         AnsiPos 1, INTEGER012
  905.         Print TSTRING051(INTEGER012)
  906.     Next
  907.     AnsiPos 1, 4
  908.     Print "@X07|                         @X05  @BOARDNAME:20C@                             @X07 |"
  909.     Goto LABEL004
  910.     :LABEL033
  911.     While (STRING027 <> Chr(13)) Do
  912.         STRING027 = KInkey()
  913.         If ((Upper(STRING027) == Chr(8)) || (Upper(STRING027) == Chr(127))) Then
  914.             If (Len(STRING028) <> 0) Then
  915.                 SPrint Chr(8) + " " + Chr(8)
  916.                 STRING028 = Left(STRING028, Len(STRING028) - 1)
  917.             Endif
  918.         ElseIf (InStr(STRING014, STRING027) <> 0) Then
  919.             If (Len(STRING028) < INTEGER009) Then
  920.                 SPrint STRING027
  921.                 STRING028 = STRING028 + STRING027
  922.             Endif
  923.         Endif
  924.         If (Abort()) ResetDisp
  925.     EndWhile
  926.     Return
  927.     :LABEL034
  928.     AnsiPos 1, 23
  929.     Print "@X02+@X07-----------------------------------------------------------------------------" + String(Len(U_Name()) + 9) + "D"
  930.     Print "@X07-@X02+@X05 " + STRING041 + STRING026 + STRING035 + " @X02+@X07----@X02+"
  931.     AnsiPos 1, 14
  932.     Print "@X02+@X07-----------------------------------------------------------------------------" + String(STRING034 + 8) + "D"
  933.     Print "@X07-@X02+@X05 " + STRING037 + STRING033 + STRING035 + " @X02+@X07----@X02+"
  934.     AnsiPos 1, 1
  935.     PrintLn "@X02+@X07----------------@X02+ @X13 AMi-X SYSChat SeX '95 · Code by HellRazoR @X07 @X02+@X07--------------@X02+"
  936.     PrintLn "@X07|         @X04     Time : @SYSTIME:5@  ·  Date : @SYSDATE:8@  ·  Yer Time : @TIMELEFT:4@           @X07|"
  937.     PrintLn "@X02+@X07-----------------------------------------------------------------------------@X02+"
  938.     PrintLn "@X07|  @X05                         @BOARDNAME:20C@                              @X07|"
  939.     PrintLn "@X02+@X07-----------------------------------------------------------------------------@X02+"
  940.     AnsiPos 79, 4
  941.     Return
  942.     :LABEL035
  943.     Log "" + STRING010 + " " + STRING012 + " Closed: " + Left(Time(), 5) + "]", 0
  944.     INTEGER008 = MinLeft()
  945.     If (INTEGER007 > INTEGER008) Then
  946.         AdjTime INTEGER007 - INTEGER008
  947.     Endif
  948.     DefColor
  949.     Cls
  950.     Cls
  951.     DefColor
  952.     StartDisp 2
  953.     KbdStuff Chr(27)
  954.     End
  955.     :LABEL036
  956.     If (U_Name() == STRING053) Then
  957.         STRING015 = U_MsgRd()
  958.     Else
  959.         STRING015 = "UNKNOWN"
  960.     Endif
  961.     If (U_Name() == STRING053) Then
  962.         STRING016 = U_MsgWr()
  963.     Else
  964.         STRING016 = "UNKNOWN"
  965.     Endif
  966.     If (Psa(1)) Then
  967.         STRING024 = U_Alias
  968.     Else
  969.         STRING024 = "[NOT INSTALLED]"
  970.     Endif
  971.     If (Psa(2)) Then
  972.         STRING025 = U_Ver
  973.     Else
  974.         STRING025 = "[NOT INSTALLED]"
  975.     Endif
  976.     If (U_LongHDR == 0) Then
  977.         STRING023 = "S"
  978.     Else
  979.         STRING023 = "L"
  980.     Endif
  981.     If (U_FSE == 0) Then
  982.         STRING021 = "N"
  983.     Else
  984.         STRING021 = "Y"
  985.     Endif
  986.     If (U_FSEP == 0) Then
  987.         STRING022 = "N"
  988.     Else
  989.         STRING022 = "Y"
  990.     Endif
  991.     If (U_Cls == 0) Then
  992.         STRING017 = "N"
  993.     Else
  994.         STRING017 = "Y"
  995.     Endif
  996.     If (U_Scroll == 0) Then
  997.         STRING018 = "N"
  998.     Else
  999.         STRING018 = "Y"
  1000.     Endif
  1001.     If (U_Expert == 0) Then
  1002.         STRING019 = "N"
  1003.     Else
  1004.         STRING019 = "Y"
  1005.     Endif
  1006.     If (U_Sec == 0) Then
  1007.         STRING020 = "Y"
  1008.     Else
  1009.         STRING020 = "N"
  1010.     Endif
  1011.     SPrint "H[" + String(U_RecNum(U_Name())) + "] " + Left(String(U_Name()), 25)
  1012.     SPrint "8H" + Left(String(U_Sec), 3)
  1013.     SPrint "18H" + Left(String(U_ExpSec), 3)
  1014.     SPrint "18H" + Left(String(U_PageLen), 2)
  1015.     SPrint "18H" + Left(String(U_Trans), 1)
  1016.     SPrint "18H" + Left(STRING017, 1)
  1017.     SPrint "18H" + Left(STRING018, 1)
  1018.     SPrint "18H" + Left(STRING019, 1)
  1019.     SPrint "0H" + Left(String(U_ExpDate), 8)
  1020.     SPrint "40H" + Left(String(U_LDate()), 8)
  1021.     SPrint "40H" + Left(String(U_LDir()), 8)
  1022.     SPrint "40H" + Left(String(U_Logons()), 5)
  1023.     SPrint "40H" + Left(STRING021, 1)
  1024.     SPrint "40H" + Left(STRING022, 1)
  1025.     SPrint "40H" + Left(STRING023, 1)
  1026.     SPrint "7H" + Left(String(U_Ful()), 5)
  1027.     SPrint "67H" + Left(String(U_Bul()), 10)
  1028.     SPrint "67H" + Left(String(U_Fdl()), 5)
  1029.     SPrint "67H" + Left(String(U_Bdl()), 10)
  1030.     SPrint "67H" + Left(String(U_BdlDay()), 10)
  1031.     SPrint "67H" + Left(String(STRING015), 10)
  1032.     SPrint "67H" + Left(String(STRING016), 10)
  1033.     SPrint "19H" + Left(String(U_HVPhone), 13)
  1034.     SPrint "19H" + Left(String(U_BDPhone), 13)
  1035.     SPrint "19H" + Left(String(U_Pwd), 12)
  1036.     SPrint "47H" + Left(String(U_City), 24)
  1037.     SPrint "47H" + Left(String(U_Cmnt1), 30)
  1038.     SPrint "47H" + Left(String(U_Cmnt2), 30)
  1039.     SPrint "52H" + Left(STRING024, 25)
  1040.     SPrint "52H" + Left(STRING025, 25)
  1041.     SPrint "H"
  1042.     Return
  1043.     STRING054 = "@POS:50@@X08ßµ @X07[@X08HellRazoR@X07] @X05'95@X07 "
  1044.  
  1045. ;------------------------------------------------------------------------------
  1046. ;
  1047. ; Usage report (before postprocessing)
  1048. ;
  1049. ; ■ Statements used :
  1050. ;
  1051. ;    1       End
  1052. ;    3       Cls
  1053. ;    6       ClrEol
  1054. ;    296     Goto 
  1055. ;    306     Let 
  1056. ;    21      Print 
  1057. ;    7       PrintLn 
  1058. ;    173     If 
  1059. ;    1       FOpen 
  1060. ;    1       FClose 
  1061. ;    4       FGet 
  1062. ;    3       ResetDisp
  1063. ;    2       StartDisp 
  1064. ;    1       GetUser
  1065. ;    22      PutUser
  1066. ;    2       DefColor
  1067. ;    1       AdjTime 
  1068. ;    3       Log 
  1069. ;    42      Gosub 
  1070. ;    8       Return
  1071. ;    1       Delay 
  1072. ;    1       KbdStuff 
  1073. ;    33      AnsiPos 
  1074. ;    100     SPrint 
  1075. ;    17      SPrintLn 
  1076. ;    7       GetAltUser 
  1077. ;    1       AdjDBytes 
  1078. ;    1       AdjTBytes 
  1079. ;    1       AdjTFiles 
  1080. ;
  1081. ;
  1082. ; ■ Functions used :
  1083. ;
  1084. ;    2       -
  1085. ;    308     +
  1086. ;    17      -
  1087. ;    117     ==
  1088. ;    34      <>
  1089. ;    12      <
  1090. ;    15      <=
  1091. ;    1       >
  1092. ;    27      >=
  1093. ;    159     !
  1094. ;    27      &&
  1095. ;    14      ||
  1096. ;    5       Len(
  1097. ;    50      Upper()
  1098. ;    64      Left()
  1099. ;    39      Space()
  1100. ;    44      Chr()
  1101. ;    3       InStr()
  1102. ;    3       Abort()
  1103. ;    4       LTrim()
  1104. ;    2       Time()
  1105. ;    14      U_Name()
  1106. ;    1       U_LDate()
  1107. ;    1       U_LDir()
  1108. ;    1       U_Logons()
  1109. ;    1       U_Ful()
  1110. ;    3       U_Fdl()
  1111. ;    3       U_BdlDay()
  1112. ;    3       U_Bdl()
  1113. ;    1       U_Bul()
  1114. ;    42      String()
  1115. ;    1       Mask_Pwd()
  1116. ;    7       Mask_Num()
  1117. ;    1       Mask_AlNum()
  1118. ;    9       Mask_Ascii()
  1119. ;    1       PPEPath()
  1120. ;    1       U_MsgRd()
  1121. ;    1       U_MsgWr()
  1122. ;    2       MinLeft()
  1123. ;    1       Exist()
  1124. ;    6       GetY()
  1125. ;    4       Psa()
  1126. ;    3       KInkey()
  1127. ;    1       MInkey()
  1128. ;    8       U_RecNum()
  1129. ;    55      ScrText()
  1130. ;    1       Mixed()
  1131. ;    2       CurUser()
  1132. ;
  1133. ;------------------------------------------------------------------------------
  1134. ;
  1135. ; Analysis flags : WRAaH
  1136. ;
  1137. ; W - Write user ■ 5
  1138. ;     Program writes a user record. Although this may be normal for a
  1139. ;     User Editor, it may also be a way to modify an account level.
  1140. ;     ■ Search for : PUTUSER
  1141. ;
  1142. ; R - Read user ■ 5
  1143. ;     User records are read, this may signify that someone wants to get
  1144. ;     various informations about a user (for example his password), but
  1145. ;     this may also be normal for a program accessing user records (for
  1146. ;     example a User Editor)
  1147. ;     ■ Search for : GETALTUSER
  1148. ;
  1149. ; A - Adjust online time remaining ■ 5
  1150. ;     Program modify the amount of online time remaining, this may
  1151. ;     be a way to bypass time limits
  1152. ;     ■ Search for : ADJTIME
  1153. ;
  1154. ; a - Adjust ratio ■ 4
  1155. ;     User's ratio is adjusted by changing the amount of files/bytes
  1156. ;     uploaded. This may be normal for a user editor.
  1157. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  1158. ;
  1159. ; H - Read Password or Password History ■ 5
  1160. ;     Program is reading the user's password or last password history
  1161. ;     This may be ok for a password manager, but it is very suspect. Check!
  1162. ;     ■ Search for : U_PWDHIST, U_PWD
  1163. ;
  1164. ;------------------------------------------------------------------------------
  1165. ;
  1166. ; Postprocessing report
  1167. ;
  1168. ;    11      For/Next
  1169. ;    3       While/EndWhile
  1170. ;    97      If/Then or If/Then/Else
  1171. ;    5       Select Case
  1172. ;
  1173. ;------------------------------------------------------------------------------
  1174. ;                 AEGiS Corp - Break the routines, code against the machines!
  1175. ;------------------------------------------------------------------------------
  1176.