home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CIAFSUE3.ZIP / CIAFSUE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-27  |  12KB  |  672 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN004
  20.     Boolean  BOOLEAN005
  21.     Boolean  BOOLEAN006
  22.     Boolean  BOOLEAN007
  23.     Date     DATE002
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  INTEGER012
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.     String   STRING018
  42.     String   STRING019
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     STRING015 = "                  "
  47.     BOOLEAN006 = 1
  48.     BOOLEAN005 = 0
  49.     STRING011 = PPEPath() + "CIAFSUE.CNF"
  50.     STRING010 = ReadLine(STRING011, 1)
  51.     STRING016 = ReadLine(STRING011, 2)
  52.     STRING018 = ReadLine(STRING011, 3)
  53.     STRING017 = ReadLine(STRING011, 4)
  54.     STRING019 = ReadLine(STRING011, 5)
  55.     GetUser
  56.     STRING012 = U_Name()
  57.     INTEGER004 = U_Bdl()
  58.     INTEGER005 = U_Bul()
  59.     INTEGER006 = U_Ful()
  60.     INTEGER007 = U_Fdl()
  61.     DATE002 = DATE002
  62.     INTEGER008 = U_TimeOn()
  63.     If (STRING010 >= U_Sec) Goto LABEL001
  64.     PrintLn "@X0F[@X07@X87Security Violation @X0F■ @X87Exiting CiA Full Screen User Editor @X0F]"
  65.     Goto LABEL030
  66.     :LABEL001
  67.     PrintLn "@CLS@"
  68.     PrintLn "@X0F         @X0D■@X07■@X0F■  @X07CiA Full Screen User Editor v2.0 by Defcon 4 [Ci/┤]  @X0F■@X07■@X0D■"
  69.     PrintLn "@X05┌───────────────────────────────┤@X07User Number @X08[   @X08]@X05├───────────────────────────┐"
  70.     PrintLn "│ @X07[@X0FA@X07] Handle     @X08[                    ]@X05│@X07[@X0FL@X07] Security     @X08[                  ] @X05│"
  71.     PrintLn "│ @X07[@X0FB@X07] Address    @X08[                    ]@X05│@X07[@X0FM@X07] Expired Sec. @X08[                  ] @X05│"
  72.     PrintLn "│ @X07[@X0FC@X07] City       @X08[                    ]@X05│@X07[@X0FN@X07] Reg. Ex. Date@X08[                  ] @X05│"
  73.     PrintLn "│ @X07[@X0FD@X07] State      @X08[                    ]@X05│@X07[@X0FO@X07] # of U/Ls    @X08[                  ] @X05│"
  74.     PrintLn "│ @X07[@X0FE@X07] User Note  @X08[                    ]@X05│@X07[@X0FP@X07] # of D/Ls    @X08[                  ] @X05│"
  75.     PrintLn "│ @X07[@X0FF@X07] Voice Phone@X08[                    ]@X05│@X07[@X0FR@X07] Bytes U/L    @X08[                  ] @X05│"
  76.     PrintLn "│ @X07[@X0FG@X07] Data Phone @X08[                    ]@X05│@X07[@X0FS@X07] Bytes D/L    @X08[                  ] @X05│"
  77.     PrintLn "│ @X07[@X0FH@X07] Expert Mode@X08[                    ]@X05│@X07[@X0FT@X07] File Ratio   @X08[                  ] @X05│"
  78.     PrintLn "│ @X07[@X0FI@X07] Protocol   @X08[                    ]@X05│@X07[@X0FU@X07] Byte Ratio   @X08[                  ] @X05│"
  79.     PrintLn "│ @X07[@X0FJ@X07] Page Length@X08[                    ]@X05│@X07[@X0FV@X07] Full Screen  @X08[                  ] @X05│"
  80.     PrintLn "│ @X07[@X0FK@X07] Real Name  @X08[                    ]@X05│@X07[@X0FW@X07] Password     @X08[                  ] @X05│"
  81.     PrintLn "├──────────────────────────────────────┴──────────────────────────────────────┤"
  82.     PrintLn "│ @X07[@X0FX@X07] Comment 1  @X08[                                                          ] @X05│"
  83.     PrintLn "│ @X07[@X0FY@X07] Comment 2  @X08[                                                          ] @X05│"
  84.     PrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  85.     PrintLn " @X07   [@X0FA-X@X07] Edit Field [@X0F+@X07] Next User [@X0F-@X07] Previous User [@X0F=@X07] User Jump [@X0FQ@X07]uit"
  86.     PrintLn "        [@X0F*@X07] Auto Validate [@X0F%@X07] SysOp Sec. [@X0F!@X07] Lock Out [@X0F?@X07] Name Search"
  87.     :LABEL002
  88.     AnsiPos 47, 3
  89.     Print U_RecNum(U_Name())
  90.     AnsiPos 19, 4
  91.     Print U_Name()
  92.     AnsiPos 19, 5
  93.     Print U_Addr(0)
  94.     AnsiPos 19, 6
  95.     Print U_Addr(2)
  96.     AnsiPos 19, 7
  97.     Print U_Addr(3)
  98.     AnsiPos 19, 8
  99.     Print U_City
  100.     AnsiPos 19, 9
  101.     Print U_HVPhone
  102.     AnsiPos 19, 10
  103.     Print U_BDPhone
  104.     AnsiPos 19, 11
  105.     If (U_Expert == 1) Print "Yes"
  106.     If (U_Expert == 0) Print "No "
  107.     AnsiPos 19, 12
  108.     Print U_Trans
  109.     AnsiPos 19, 13
  110.     Print U_PageLen
  111.     AnsiPos 19, 14
  112.     Print U_Ver
  113.     AnsiPos 19, 16
  114.     Print U_Cmnt1
  115.     AnsiPos 19, 17
  116.     Print U_Cmnt2
  117.     AnsiPos 59, 4
  118.     Print STRING015
  119.     AnsiPos 59, 4
  120.     Print U_Sec
  121.     AnsiPos 59, 5
  122.     Print U_ExpSec
  123.     AnsiPos 59, 6
  124.     Print U_ExpDate
  125.     AnsiPos 59, 7
  126.     Print INTEGER006
  127.     AnsiPos 59, 8
  128.     Print U_Fdl()
  129.     AnsiPos 59, 9
  130.     Print INTEGER005
  131.     AnsiPos 59, 10
  132.     Print U_Bdl()
  133.     AnsiPos 59, 11
  134.     Print "@FILERATIO@"
  135.     AnsiPos 59, 12
  136.     Print "@BYTERATIO@"
  137.     AnsiPos 59, 13
  138.     If (U_FSEP == 0) Then
  139.         If (U_FSE == 0) Print "No "
  140.         If (U_FSE == 1) Print "Yes"
  141.     Endif
  142.     If (U_FSEP == 1) Print "Ask"
  143.     AnsiPos 59, 14
  144.     Print U_Pwd
  145.     If (BOOLEAN005 == 1) Return
  146.     :LABEL003
  147.     If (BOOLEAN004) Goto LABEL030
  148.     STRING014 = ""
  149.     :LABEL004
  150.     STRING013 = Upper(Inkey())
  151.     If (STRING013 == "") Goto LABEL004
  152.     If (STRING013 == "A") Then
  153.         AnsiPos 19, 4
  154.         Print STRING015
  155.         AnsiPos 19, 4
  156.         STRING014 = ""
  157.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  158.         If (STRING014 <> "") Then
  159.             STRING012 = STRING014
  160.             PutUser
  161.             Goto LABEL005
  162.         Endif
  163.     Endif
  164.     :LABEL005
  165.     If (STRING013 == "B") Then
  166.         AnsiPos 19, 5
  167.         Print STRING015
  168.         AnsiPos 19, 5
  169.         STRING014 = ""
  170.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  171.         If (STRING014 <> "") Then
  172.             U_Addr(0) = STRING014
  173.             PutUser
  174.             Goto LABEL006
  175.         Endif
  176.     Endif
  177.     :LABEL006
  178.     If (STRING013 == "C") Then
  179.         AnsiPos 19, 6
  180.         Print STRING015
  181.         AnsiPos 19, 6
  182.         STRING014 = ""
  183.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  184.         If (STRING014 <> "") Then
  185.             U_Addr(2) = STRING014
  186.             PutUser
  187.             Goto LABEL007
  188.         Endif
  189.     Endif
  190.     :LABEL007
  191.     If (STRING013 == "D") Then
  192.         AnsiPos 19, 7
  193.         Print STRING015
  194.         AnsiPos 19, 7
  195.         STRING014 = ""
  196.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  197.         If (STRING014 <> "") Then
  198.             U_Addr(3) = STRING014
  199.             PutUser
  200.             Goto LABEL008
  201.         Endif
  202.     Endif
  203.     :LABEL008
  204.     If (STRING013 == "E") Then
  205.         AnsiPos 19, 8
  206.         Print STRING015
  207.         AnsiPos 19, 8
  208.         STRING014 = ""
  209.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  210.         If (STRING014 <> "") Then
  211.             U_City = STRING014
  212.             PutUser
  213.             Goto LABEL009
  214.         Endif
  215.     Endif
  216.     :LABEL009
  217.     If (STRING013 == "F") Then
  218.         AnsiPos 19, 9
  219.         Print STRING015
  220.         AnsiPos 19, 9
  221.         STRING014 = ""
  222.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  223.         If (STRING014 <> "") Then
  224.             U_HVPhone = STRING014
  225.             PutUser
  226.             Goto LABEL010
  227.         Endif
  228.     Endif
  229.     :LABEL010
  230.     If (STRING013 == "G") Then
  231.         AnsiPos 19, 10
  232.         Print STRING015
  233.         AnsiPos 19, 10
  234.         STRING014 = ""
  235.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  236.         If (STRING014 <> "") Then
  237.             U_BDPhone = STRING014
  238.             PutUser
  239.             Goto LABEL011
  240.         Endif
  241.     Endif
  242.     :LABEL011
  243.     If (STRING013 == "H") Then
  244.         AnsiPos 19, 11
  245.         BOOLEAN007 = 0
  246.         STRING013 = ""
  247.         :LABEL012
  248.         If (BOOLEAN007) Goto LABEL013
  249.         STRING013 = Upper(Inkey())
  250.         If (STRING013 == "Y") Then
  251.             U_Expert = 1
  252.             BOOLEAN007 = 1
  253.             PutUser
  254.         Endif
  255.         If (STRING013 == "N") Then
  256.             U_Expert = 0
  257.             BOOLEAN007 = 1
  258.             PutUser
  259.         Endif
  260.         Goto LABEL012
  261.         :LABEL013
  262.         STRING013 = ""
  263.     Endif
  264.     If (STRING013 == "I") Then
  265.         AnsiPos 19, 12
  266.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  267.         U_Trans = STRING014
  268.         PutUser
  269.     Endif
  270.     If (STRING013 == "J") Then
  271.         AnsiPos 19, 13
  272.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  273.         U_PageLen = STRING014
  274.         PutUser
  275.     Endif
  276.     If (STRING013 == "K") Then
  277.         AnsiPos 19, 14
  278.         Print STRING015
  279.         AnsiPos 19, 14
  280.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  281.         If (STRING014 <> "") Then
  282.             U_Ver = STRING014
  283.             PutUser
  284.             Goto LABEL014
  285.         Endif
  286.     Endif
  287.     :LABEL014
  288.     If (STRING013 == "L") Then
  289.         AnsiPos 59, 4
  290.         Print STRING015
  291.         AnsiPos 59, 4
  292.         STRING014 = ""
  293.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  294.         If (STRING014 <> "") Then
  295.             U_Sec = STRING014
  296.             PutUser
  297.             Goto LABEL015
  298.         Endif
  299.     Endif
  300.     :LABEL015
  301.     If (STRING013 == "M") Then
  302.         AnsiPos 59, 5
  303.         Print STRING015
  304.         AnsiPos 59, 5
  305.         STRING014 = ""
  306.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  307.         If (STRING014 <> "") Then
  308.             U_ExpSec = STRING014
  309.             PutUser
  310.         Endif
  311.     Endif
  312.     If (STRING013 == "N") Then
  313.         AnsiPos 59, 6
  314.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  315.         U_ExpDate = STRING014
  316.         PutUser
  317.     Endif
  318.     If (STRING013 == "O") Then
  319.         INTEGER011 = 59
  320.         INTEGER012 = 7
  321.         Gosub LABEL033
  322.     Endif
  323.     If (STRING013 == "P") Then
  324.         AnsiPos 59, 8
  325.         Print STRING015
  326.         AnsiPos 59, 8
  327.         STRING014 = ""
  328.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  329.         If (STRING014 <> "") Then
  330.             INTEGER007 = STRING014 - INTEGER007
  331.             AdjTFiles INTEGER007
  332.             PutUser
  333.         Endif
  334.     Endif
  335.     If (STRING013 == "R") Then
  336.         INTEGER011 = 59
  337.         INTEGER012 = 9
  338.         Gosub LABEL033
  339.     Endif
  340.     If (STRING013 == "S") Then
  341.         AnsiPos 59, 10
  342.         Print STRING015
  343.         AnsiPos 59, 10
  344.         STRING014 = ""
  345.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  346.         If (STRING014 <> "") Then
  347.             INTEGER004 = STRING014 - INTEGER004
  348.             AdjTBytes INTEGER004
  349.             PutUser
  350.         Endif
  351.     Endif
  352.     If (STRING013 == "T") Then
  353.         INTEGER011 = 59
  354.         INTEGER012 = 11
  355.         Gosub LABEL033
  356.     Endif
  357.     If (STRING013 == "U") Then
  358.         INTEGER011 = 59
  359.         INTEGER012 = 12
  360.         Gosub LABEL033
  361.     Endif
  362.     If (STRING013 == "V") Then
  363.         AnsiPos 59, 13
  364.         BOOLEAN007 = 0
  365.         STRING013 = ""
  366.         :LABEL016
  367.         If (BOOLEAN007) Goto LABEL017
  368.         STRING013 = Upper(Inkey())
  369.         If (STRING013 == "Y") Then
  370.             U_FSEP = 0
  371.             U_FSE = 1
  372.             PutUser
  373.             BOOLEAN007 = 1
  374.         Endif
  375.         If (STRING013 == "N") Then
  376.             U_FSEP = 0
  377.             U_FSE = 0
  378.             PutUser
  379.             BOOLEAN007 = 1
  380.         Endif
  381.         If (STRING013 == "A") Then
  382.             U_FSEP = 1
  383.             PutUser
  384.             BOOLEAN007 = 1
  385.         Endif
  386.         Goto LABEL016
  387.         :LABEL017
  388.         STRING013 = ""
  389.     Endif
  390.     If (STRING013 == "W") Then
  391.         AnsiPos 59, 14
  392.         Print STRING015
  393.         AnsiPos 59, 14
  394.         STRING014 = ""
  395.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  396.         If (STRING014 <> "") Then
  397.             U_Pwd = STRING014
  398.             PutUser
  399.             Goto LABEL018
  400.         Endif
  401.     Endif
  402.     :LABEL018
  403.     If (STRING013 == "X") Then
  404.         AnsiPos 19, 16
  405.         Print STRING015
  406.         Print STRING015
  407.         AnsiPos 19, 16
  408.         STRING014 = ""
  409.         InputStr "_", STRING014, 14, 40, Mask_Ascii(), 2 + 4 + 4096
  410.         If (STRING014 <> "") Then
  411.             U_Cmnt1 = STRING014
  412.             PutUser
  413.         Endif
  414.     Endif
  415.     If (STRING013 == "Y") Then
  416.         AnsiPos 19, 17
  417.         Print STRING015
  418.         Print STRING015
  419.         AnsiPos 19, 17
  420.         STRING014 = ""
  421.         InputStr "_", STRING014, 14, 40, Mask_Ascii(), 2 + 4 + 4096
  422.         If (STRING014 <> "") Then
  423.             U_Cmnt2 = STRING014
  424.             PutUser
  425.         Endif
  426.     Endif
  427.     If (STRING013 == "+") Then
  428.         INTEGER009 = U_RecNum(U_Name())
  429.         INTEGER009 = INTEGER009 + 1
  430.         GetAltUser INTEGER009
  431.         If (CurUser() == -1) GetAltUser 1
  432.         BOOLEAN005 = 1
  433.         Gosub LABEL001
  434.     Endif
  435.     If (STRING013 == "-") Then
  436.         INTEGER009 = U_RecNum(U_Name())
  437.         INTEGER009 = INTEGER009 - 1
  438.         If (INTEGER009 <> 0) Then
  439.             GetAltUser INTEGER009
  440.             Goto LABEL019
  441.         Endif
  442.         GetAltUser 1
  443.         :LABEL019
  444.         BOOLEAN005 = 1
  445.         Gosub LABEL001
  446.     Endif
  447.     If (STRING013 == "=") Then
  448.         AnsiPos 21, 21
  449.         InputStr "Enter User Number to Jump To", STRING014, 14, 3, "1234567890", 2 + 4 + 4096
  450.         GetAltUser STRING014
  451.         If (CurUser() == -1) Gosub LABEL032
  452.         GetAltUser U_RecNum(STRING012)
  453.         BOOLEAN005 = 1
  454.         Gosub LABEL001
  455.     Endif
  456.     If (STRING013 == "!") Then
  457.         U_Sec = STRING017
  458.         PutUser
  459.     Endif
  460.     If (STRING013 == "*") Then
  461.         U_Sec = STRING018
  462.         PutUser
  463.     Endif
  464.     If (STRING013 == "%") Then
  465.         U_Sec = STRING016
  466.         PutUser
  467.     Endif
  468.     If (STRING013 == "?") Then
  469.         AnsiPos 4, 21
  470.         Print "                                                                   "
  471.         AnsiPos 4, 21
  472.         STRING014 = ""
  473.         InputStr "Enter User Name to Jump To [LIST=List users]", STRING014, 14, 31, Mask_Ascii(), 2 + 4 + 4096 + 8
  474.         Select Case (STRING014)
  475.             Case "LIST"
  476.                 PrintLn "@CLS@"
  477.                 STRING014 = ""
  478.                 InputStr "List [A]ll Users [N]ew Users [L]ocked Users or [S]ysops", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096 + 8
  479.                 Newlines 2
  480.                 If (STRING014 == "A") Then
  481.                     INTEGER010 = 1
  482.                     GetAltUser INTEGER010
  483.                     STRING014 = ""
  484.                     BOOLEAN007 = 0
  485.                     :LABEL020
  486.                     If (BOOLEAN007) Goto LABEL021
  487.                     PrintLn U_Name()
  488.                     INTEGER010 = INTEGER010 + 1
  489.                     GetAltUser INTEGER010
  490.                     If (CurUser() == -1) BOOLEAN007 = 1
  491.                     Goto LABEL020
  492.                     :LABEL021
  493.                     Gosub LABEL031
  494.                 Endif
  495.                 If (STRING014 == "N") Then
  496.                     INTEGER010 = 1
  497.                     STRING014 = ""
  498.                     GetAltUser INTEGER010
  499.                     :LABEL022
  500.                     If (BOOLEAN007) Goto LABEL023
  501.                     If (U_Sec == STRING019) PrintLn U_Name()
  502.                     INTEGER010 = INTEGER010 + 1
  503.                     GetAltUser INTEGER010
  504.                     If (CurUser() == -1) BOOLEAN007 = 1
  505.                     Goto LABEL022
  506.                     :LABEL023
  507.                     Gosub LABEL031
  508.                 Endif
  509.                 If (STRING014 == "L") Then
  510.                     INTEGER010 = 1
  511.                     GetAltUser INTEGER010
  512.                     BOOLEAN007 = 0
  513.                     STRING014 = ""
  514.                     :LABEL024
  515.                     If (BOOLEAN007) Goto LABEL025
  516.                     If (U_Sec == STRING017) PrintLn U_Name()
  517.                     INTEGER010 = INTEGER010 + 1
  518.                     GetAltUser INTEGER010
  519.                     If (CurUser() == -1) BOOLEAN007 = 1
  520.                     Goto LABEL024
  521.                     :LABEL025
  522.                     Gosub LABEL031
  523.                 Endif
  524.             Case "S"
  525.                 INTEGER010 = 1
  526.                 GetAltUser INTEGER010
  527.                 BOOLEAN007 = 0
  528.                 STRING014 = ""
  529.                 :LABEL026
  530.                 If (BOOLEAN007) Goto LABEL027
  531.                 If (U_Sec == STRING016) PrintLn U_Name()
  532.                 INTEGER010 = INTEGER010 + 1
  533.                 GetAltUser INTEGER010
  534.                 If (CurUser() == -1) BOOLEAN007 = 1
  535.                 Goto LABEL026
  536.                 :LABEL027
  537.                 Gosub LABEL031
  538.         End Select
  539.         If (STRING014 <> "") Then
  540.             INTEGER009 = U_RecNum(STRING014)
  541.             If (INTEGER009 <> "-1") Then
  542.                 GetAltUser INTEGER009
  543.                 BOOLEAN005 = 1
  544.                 Gosub LABEL001
  545.                 Goto LABEL028
  546.             Endif
  547.             Gosub LABEL032
  548.             BOOLEAN005 = 1
  549.             Gosub LABEL001
  550.             :LABEL028
  551.             Goto LABEL029
  552.         Endif
  553.         GetAltUser U_RecNum(STRING012)
  554.         BOOLEAN005 = 1
  555.         Gosub LABEL001
  556.     Endif
  557.     :LABEL029
  558.     If (STRING013 == "Q") BOOLEAN004 = 1
  559.     BOOLEAN005 = 1
  560.     Gosub LABEL002
  561.     Goto LABEL003
  562.     :LABEL030
  563.     AnsiPos 0, 23
  564.     End
  565.     :LABEL031
  566.     STRING014 = ""
  567.     Newlines 1
  568.     InputStr "Enter User Name to Jump To", STRING014, 14, 40, Mask_Ascii(), 2 + 4 + 4096 + 8
  569.     Return
  570.     :LABEL032
  571.     AnsiPos 26, 22
  572.     Print "Invalid User"
  573.     Delay 15
  574.     AnsiPos 26, 22
  575.     Print STRING015
  576.     GetAltUser U_RecNum(STRING012)
  577.     Return
  578.     :LABEL033
  579.     AnsiPos INTEGER011, INTEGER012
  580.     Print "Unchangable Field"
  581.     Delay 15
  582.     AnsiPos INTEGER011, INTEGER012
  583.     Print STRING015
  584.     Return
  585.  
  586. ;------------------------------------------------------------------------------
  587. ;
  588. ; Usage report (before postprocessing)
  589. ;
  590. ; ■ Statements used :
  591. ;
  592. ;    1       End
  593. ;    90      Goto 
  594. ;    116     Let 
  595. ;    51      Print 
  596. ;    26      PrintLn 
  597. ;    85      If 
  598. ;    1       GetUser
  599. ;    26      PutUser
  600. ;    22      InputStr 
  601. ;    17      Gosub 
  602. ;    4       Return
  603. ;    2       Delay 
  604. ;    2       Newlines 
  605. ;    69      AnsiPos 
  606. ;    17      GetAltUser 
  607. ;    1       AdjTBytes 
  608. ;    1       AdjTFiles 
  609. ;
  610. ;
  611. ; ■ Functions used :
  612. ;
  613. ;    6       -
  614. ;    53      +
  615. ;    3       -
  616. ;    59      ==
  617. ;    18      <>
  618. ;    1       >=
  619. ;    67      !
  620. ;    3       Upper()
  621. ;    9       U_Name()
  622. ;    1       U_Ful()
  623. ;    2       U_Fdl()
  624. ;    1       U_TimeOn()
  625. ;    2       U_Bdl()
  626. ;    1       U_Bul()
  627. ;    3       Inkey()
  628. ;    21      Mask_Ascii()
  629. ;    1       PPEPath()
  630. ;    5       ReadLine()
  631. ;    7       U_RecNum()
  632. ;    6       CurUser()
  633. ;
  634. ;------------------------------------------------------------------------------
  635. ;
  636. ; Analysis flags : WRaH
  637. ;
  638. ; W - Write user ■ 5
  639. ;     Program writes a user record. Although this may be normal for a
  640. ;     User Editor, it may also be a way to modify an account level.
  641. ;     ■ Search for : PUTUSER
  642. ;
  643. ; R - Read user ■ 5
  644. ;     User records are read, this may signify that someone wants to get
  645. ;     various informations about a user (for example his password), but
  646. ;     this may also be normal for a program accessing user records (for
  647. ;     example a User Editor)
  648. ;     ■ Search for : GETALTUSER
  649. ;
  650. ; a - Adjust ratio ■ 4
  651. ;     User's ratio is adjusted by changing the amount of files/bytes
  652. ;     uploaded. This may be normal for a user editor.
  653. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  654. ;
  655. ; H - Read Password or Password History ■ 5
  656. ;     Program is reading the user's password or last password history
  657. ;     This may be ok for a password manager, but it is very suspect. Check!
  658. ;     ■ Search for : U_PWDHIST, U_PWD
  659. ;
  660. ;------------------------------------------------------------------------------
  661. ;
  662. ; Postprocessing report
  663. ;
  664. ;    0       For/Next
  665. ;    0       While/EndWhile
  666. ;    58      If/Then or If/Then/Else
  667. ;    1       Select Case
  668. ;
  669. ;------------------------------------------------------------------------------
  670. ;                 AEGiS Corp - Break the routines, code against the machines!
  671. ;------------------------------------------------------------------------------
  672.