home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / URT_TP52.ZIP / TOP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-19  |  11KB  |  588 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     String   STRING001
  25.     String   TSTRING002(5)
  26.     String   STRING003
  27.     String   STRING004
  28.     String   TSTRING005(5)
  29.     String   TSTRING006(5)
  30.     String   TSTRING007(5)
  31.     String   TSTRING008(5)
  32.     String   TSTRING009(5)
  33.     String   STRING010
  34.     String   TSTRING011(5)
  35.     String   TSTRING012(5)
  36.     String   TSTRING013(5)
  37.     String   TSTRING014(5)
  38.     String   TSTRING015(5)
  39.     String   TSTRING016(5)
  40.     String   TSTRING017(5)
  41.     String   TSTRING018(5)
  42.     String   TSTRING019(5)
  43.     String   STRING020
  44.     String   STRING021
  45.     String   STRING022
  46.  
  47. ;------------------------------------------------------------------------------
  48.  
  49.     STRING022 = "@X0FT" + "o" + "p" + " " + "S" + "y" + "s" + "t" + "e" + "m" + " " + "I" + "n" + "f" + "o" + " " + "@X01(" + "@X09c" + "@X03)" + " @X0F" + "1" + "9" + "9" + "4" + " " + "O" + "v" + "e" + "r" + "t" + "h" + "r" + "o" + "w" + "n" + " " + "R" + "u" + "l" + "e" + "r" + " @X07" + "°" + "@X0F" + "U" + "A" + "R" + "T" + "@X07"
  50.     Print "@POFF@"
  51.     FOpen 2, PPEPath() + "TOP.CFG", 2, 0
  52.     FGet 2, STRING020
  53.     FGet 2, STRING021
  54.     FGet 2, STRING001
  55.     FClose 2
  56.     STRING001 = Upper(STRING001)
  57.     While (STRING010 <> Chr(27)) Do
  58.         INTEGER004 = 1
  59.         For INTEGER003 = 1 To 5
  60.             TSTRING007(INTEGER003) = 0
  61.             TSTRING008(INTEGER003) = 0
  62.             TSTRING009(INTEGER003) = 0
  63.             TSTRING011(INTEGER003) = 0
  64.             TSTRING012(INTEGER003) = STRING020
  65.             TSTRING013(INTEGER003) = STRING021
  66.             TSTRING014(INTEGER003) = 0
  67.             TSTRING015(INTEGER003) = STRING020
  68.             TSTRING016(INTEGER003) = STRING021
  69.             TSTRING017(INTEGER003) = 0
  70.             TSTRING018(INTEGER003) = STRING020
  71.             TSTRING019(INTEGER003) = STRING021
  72.         Next
  73.         STRING010 = ""
  74.         DispFile PPEPath() + "TOP.ANS", 0
  75.         While ((STRING010 <> Chr(13)) && (STRING010 <> Chr(27))) Do
  76.             STRING010 = ""
  77.             STRING010 = Upper(Inkey())
  78.             If ((STRING010 == "UP") || (STRING010 == "A")) Then
  79.                 If (INTEGER004 == 2) Then
  80.                     AnsiPos 29, 11
  81.                     PrintLn "@X78 Top Major DN/L'ers @X07"
  82.                     AnsiPos 29, 10
  83.                     PrintLn "@X1F Top Major UP/L'ers @X07"
  84.                     INTEGER004 = 1
  85.                     Goto LABEL001
  86.                 Endif
  87.                 If (INTEGER004 == 3) Then
  88.                     AnsiPos 29, 12
  89.                     PrintLn "@X78 Top Major Callers! @X07"
  90.                     AnsiPos 29, 11
  91.                     PrintLn "@X1F Top Major DN/L'ers @X07"
  92.                     INTEGER004 = 2
  93.                 Endif
  94.             Endif
  95.             :LABEL001
  96.             If ((STRING010 == "DOWN") || (STRING010 == "Z")) Then
  97.                 If (INTEGER004 == 1) Then
  98.                     AnsiPos 29, 10
  99.                     PrintLn "@X78 Top Major UP/L'ers @X07"
  100.                     AnsiPos 29, 11
  101.                     PrintLn "@X1F Top Major DN/L'ers @X07"
  102.                     INTEGER004 = 2
  103.                     Continue
  104.                 Endif
  105.                 If (INTEGER004 == 2) Then
  106.                     AnsiPos 29, 11
  107.                     PrintLn "@X78 Top Major DN/L'ers @X07"
  108.                     AnsiPos 29, 12
  109.                     PrintLn "@X1F Top Major Callers! @X07"
  110.                     INTEGER004 = 3
  111.                 Endif
  112.             Endif
  113.         EndWhile
  114.         If ((INTEGER004 == 1) && (STRING010 <> Chr(27))) Then
  115.             Cls
  116.             PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  117.             PrintLn "@X7F▒@X70 TOP 5 PPE [UART] @X08▓@X07"
  118.             PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  119.             Print "@X07Please wait, Gathering Data..."
  120.             Gosub LABEL004
  121.         Endif
  122.         If ((INTEGER004 == 2) && (STRING010 <> Chr(27))) Then
  123.             Cls
  124.             PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  125.             PrintLn "@X7F▒@X70 TOP 5 PPE [UART] @X08▓@X07"
  126.             PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  127.             Print "@X07Please wait, Gathering Data..."
  128.             Gosub LABEL002
  129.         Endif
  130.         If ((INTEGER004 == 3) && (STRING010 <> Chr(27))) Then
  131.             Cls
  132.             PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  133.             PrintLn "@X7F▒@X70 TOP 5 PPE [UART] @X08▓@X07"
  134.             PrintLn "@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  135.             Print "@X07Please wait, Gathering Data..."
  136.             Gosub LABEL006
  137.         Endif
  138.         Cls
  139.     EndWhile
  140.     End
  141.     :LABEL002
  142.     INTEGER003 = 1
  143.     INTEGER001 = 1
  144.     GetAltUser INTEGER003
  145.     While ((CurUser() > 0) || (INTEGER003 == 1)) Do
  146.         If (INTEGER001 == 6) INTEGER001 = 1
  147.         If ((INTEGER003 <> 1) || (STRING001 == "Y")) Then
  148.             Gosub LABEL008
  149.             If (U_Bdl() > TSTRING011(1)) Then
  150.                 TSTRING011(5) = TSTRING011(4)
  151.                 TSTRING012(5) = TSTRING012(4)
  152.                 TSTRING013(5) = TSTRING013(4)
  153.                 TSTRING007(5) = TSTRING007(4)
  154.                 TSTRING011(4) = TSTRING011(3)
  155.                 TSTRING012(4) = TSTRING012(3)
  156.                 TSTRING013(4) = TSTRING013(3)
  157.                 TSTRING007(4) = TSTRING007(3)
  158.                 TSTRING011(3) = TSTRING011(2)
  159.                 TSTRING012(3) = TSTRING012(2)
  160.                 TSTRING013(3) = TSTRING013(2)
  161.                 TSTRING007(3) = TSTRING007(2)
  162.                 TSTRING011(2) = TSTRING011(1)
  163.                 TSTRING012(2) = TSTRING012(1)
  164.                 TSTRING013(2) = TSTRING013(1)
  165.                 TSTRING007(2) = TSTRING007(1)
  166.                 TSTRING011(1) = U_Bdl()
  167.                 TSTRING012(1) = Mixed(U_Name())
  168.                 TSTRING013(1) = U_City
  169.                 TSTRING007(1) = TSTRING002(INTEGER001)
  170.                 Goto LABEL003
  171.             Endif
  172.             If (U_Bdl() > TSTRING011(2)) Then
  173.                 TSTRING011(5) = TSTRING011(4)
  174.                 TSTRING012(5) = TSTRING012(4)
  175.                 TSTRING013(5) = TSTRING013(4)
  176.                 TSTRING007(5) = TSTRING007(4)
  177.                 TSTRING011(4) = TSTRING011(3)
  178.                 TSTRING012(4) = TSTRING012(3)
  179.                 TSTRING013(4) = TSTRING013(3)
  180.                 TSTRING007(4) = TSTRING007(3)
  181.                 TSTRING011(3) = TSTRING011(2)
  182.                 TSTRING012(3) = TSTRING012(2)
  183.                 TSTRING013(3) = TSTRING013(2)
  184.                 TSTRING007(3) = TSTRING007(2)
  185.                 TSTRING011(2) = U_Bdl()
  186.                 TSTRING012(2) = Mixed(U_Name())
  187.                 TSTRING013(2) = U_City
  188.                 TSTRING007(2) = TSTRING002(INTEGER001)
  189.                 Goto LABEL003
  190.             Endif
  191.             If (U_Bdl() > TSTRING011(3)) Then
  192.                 TSTRING011(5) = TSTRING011(4)
  193.                 TSTRING012(5) = TSTRING012(4)
  194.                 TSTRING013(5) = TSTRING013(4)
  195.                 TSTRING007(5) = TSTRING007(4)
  196.                 TSTRING011(4) = TSTRING011(3)
  197.                 TSTRING012(4) = TSTRING012(3)
  198.                 TSTRING013(4) = TSTRING013(3)
  199.                 TSTRING007(4) = TSTRING007(3)
  200.                 TSTRING011(3) = U_Bdl()
  201.                 TSTRING012(3) = Mixed(U_Name())
  202.                 TSTRING013(3) = U_City
  203.                 TSTRING007(3) = TSTRING002(INTEGER001)
  204.                 Goto LABEL003
  205.             Endif
  206.             If (U_Bdl() > TSTRING011(4)) Then
  207.                 TSTRING011(5) = TSTRING011(4)
  208.                 TSTRING012(5) = TSTRING012(4)
  209.                 TSTRING013(5) = TSTRING013(4)
  210.                 TSTRING007(5) = TSTRING007(4)
  211.                 TSTRING011(4) = U_Bdl()
  212.                 TSTRING012(4) = Mixed(U_Name())
  213.                 TSTRING013(4) = U_City
  214.                 TSTRING007(4) = TSTRING002(INTEGER001)
  215.                 Goto LABEL003
  216.             Endif
  217.             If (U_Bdl() > TSTRING011(5)) Then
  218.                 TSTRING011(5) = U_Bdl()
  219.                 TSTRING012(5) = Mixed(U_Name())
  220.                 TSTRING013(5) = U_City
  221.                 TSTRING007(5) = TSTRING002(INTEGER001)
  222.             Endif
  223.         Endif
  224.         :LABEL003
  225.         Inc INTEGER003
  226.         Inc INTEGER001
  227.         GetAltUser INTEGER003
  228.     EndWhile
  229.     DispFile PPEPath() + "TOPDL.ANS", 0
  230.     INTEGER002 = GetY()
  231.     AnsiPos 15, 2
  232.     PrintLn STRING022
  233.     For INTEGER003 = 1 To 5
  234.         AnsiPos 3, 6 + INTEGER003
  235.         PrintLn TSTRING012(INTEGER003)
  236.         AnsiPos 31, 6 + INTEGER003
  237.         PrintLn TSTRING013(INTEGER003)
  238.         AnsiPos 78 - Len(TSTRING007(INTEGER003)), 6 + INTEGER003
  239.         PrintLn TSTRING007(INTEGER003)
  240.     Next
  241.     AnsiPos 1, INTEGER002
  242.     Wait
  243.     Return
  244.     :LABEL004
  245.     INTEGER003 = 1
  246.     INTEGER001 = 1
  247.     GetAltUser INTEGER003
  248.     While ((CurUser() > 0) || (INTEGER003 == 1)) Do
  249.         If (INTEGER001 == 6) INTEGER001 = 1
  250.         If ((INTEGER003 <> 1) || (STRING001 == "Y")) Then
  251.             Gosub LABEL009
  252.             If (U_Bul() > TSTRING014(1)) Then
  253.                 TSTRING014(5) = TSTRING014(4)
  254.                 TSTRING015(5) = TSTRING015(4)
  255.                 TSTRING016(5) = TSTRING016(4)
  256.                 TSTRING008(5) = TSTRING008(4)
  257.                 TSTRING014(4) = TSTRING014(3)
  258.                 TSTRING015(4) = TSTRING015(3)
  259.                 TSTRING016(4) = TSTRING016(3)
  260.                 TSTRING008(4) = TSTRING008(3)
  261.                 TSTRING014(3) = TSTRING014(2)
  262.                 TSTRING015(3) = TSTRING015(2)
  263.                 TSTRING016(3) = TSTRING016(2)
  264.                 TSTRING008(3) = TSTRING008(2)
  265.                 TSTRING014(2) = TSTRING014(1)
  266.                 TSTRING015(2) = TSTRING015(1)
  267.                 TSTRING016(2) = TSTRING016(1)
  268.                 TSTRING008(2) = TSTRING008(1)
  269.                 TSTRING014(1) = U_Bul()
  270.                 TSTRING015(1) = Mixed(U_Name())
  271.                 TSTRING016(1) = U_City
  272.                 TSTRING008(1) = TSTRING005(INTEGER001)
  273.                 Goto LABEL005
  274.             Endif
  275.             If (U_Bul() > TSTRING014(2)) Then
  276.                 TSTRING014(5) = TSTRING014(4)
  277.                 TSTRING015(5) = TSTRING015(4)
  278.                 TSTRING016(5) = TSTRING016(4)
  279.                 TSTRING008(5) = TSTRING008(4)
  280.                 TSTRING014(4) = TSTRING014(3)
  281.                 TSTRING015(4) = TSTRING015(3)
  282.                 TSTRING016(4) = TSTRING016(3)
  283.                 TSTRING008(4) = TSTRING008(3)
  284.                 TSTRING014(3) = TSTRING014(2)
  285.                 TSTRING015(3) = TSTRING015(2)
  286.                 TSTRING016(3) = TSTRING016(2)
  287.                 TSTRING008(3) = TSTRING008(2)
  288.                 TSTRING014(2) = U_Bul()
  289.                 TSTRING015(2) = Mixed(U_Name())
  290.                 TSTRING016(2) = U_City
  291.                 TSTRING008(2) = TSTRING005(INTEGER001)
  292.                 Goto LABEL005
  293.             Endif
  294.             If (U_Bul() > TSTRING014(3)) Then
  295.                 TSTRING014(5) = TSTRING014(4)
  296.                 TSTRING015(5) = TSTRING015(4)
  297.                 TSTRING016(5) = TSTRING016(4)
  298.                 TSTRING008(5) = TSTRING008(4)
  299.                 TSTRING014(4) = TSTRING014(3)
  300.                 TSTRING015(4) = TSTRING015(3)
  301.                 TSTRING016(4) = TSTRING016(3)
  302.                 TSTRING008(4) = TSTRING008(3)
  303.                 TSTRING014(3) = U_Bul()
  304.                 TSTRING015(3) = Mixed(U_Name())
  305.                 TSTRING016(3) = U_City
  306.                 TSTRING008(3) = TSTRING005(INTEGER001)
  307.                 Goto LABEL005
  308.             Endif
  309.             If (U_Bul() > TSTRING014(4)) Then
  310.                 TSTRING014(5) = TSTRING014(4)
  311.                 TSTRING015(5) = TSTRING015(4)
  312.                 TSTRING016(5) = TSTRING016(4)
  313.                 TSTRING008(5) = TSTRING008(4)
  314.                 TSTRING014(4) = U_Bul()
  315.                 TSTRING015(4) = Mixed(U_Name())
  316.                 TSTRING016(4) = U_City
  317.                 TSTRING008(4) = TSTRING005(INTEGER001)
  318.                 Goto LABEL005
  319.             Endif
  320.             If (U_Bul() > TSTRING014(5)) Then
  321.                 TSTRING014(5) = U_Bul()
  322.                 TSTRING015(5) = Mixed(U_Name())
  323.                 TSTRING016(5) = U_City
  324.                 TSTRING008(5) = TSTRING005(INTEGER001)
  325.             Endif
  326.         Endif
  327.         :LABEL005
  328.         Inc INTEGER003
  329.         Inc INTEGER001
  330.         GetAltUser INTEGER003
  331.     EndWhile
  332.     DispFile PPEPath() + "TOPUL.ANS", 0
  333.     INTEGER002 = GetY()
  334.     AnsiPos 15, 2
  335.     PrintLn STRING022
  336.     For INTEGER003 = 1 To 5
  337.         AnsiPos 3, 6 + INTEGER003
  338.         PrintLn TSTRING015(INTEGER003)
  339.         AnsiPos 31, 6 + INTEGER003
  340.         PrintLn TSTRING016(INTEGER003)
  341.         AnsiPos 78 - Len(TSTRING008(INTEGER003)), 6 + INTEGER003
  342.         PrintLn TSTRING008(INTEGER003)
  343.     Next
  344.     AnsiPos 1, INTEGER002
  345.     Wait
  346.     Return
  347.     :LABEL006
  348.     INTEGER003 = 1
  349.     INTEGER001 = INTEGER003
  350.     GetAltUser INTEGER003
  351.     While ((CurUser() > 0) || (INTEGER003 == 1)) Do
  352.         If (INTEGER001 == 6) INTEGER001 = 1
  353.         If ((INTEGER003 <> 1) || (STRING001 == "Y")) Then
  354.             Gosub LABEL010
  355.             If (U_Logons() > TSTRING017(1)) Then
  356.                 TSTRING017(5) = TSTRING017(4)
  357.                 TSTRING018(5) = TSTRING018(4)
  358.                 TSTRING019(5) = TSTRING019(4)
  359.                 TSTRING009(5) = TSTRING009(4)
  360.                 TSTRING017(4) = TSTRING017(3)
  361.                 TSTRING018(4) = TSTRING018(3)
  362.                 TSTRING019(4) = TSTRING019(3)
  363.                 TSTRING009(4) = TSTRING009(3)
  364.                 TSTRING017(3) = TSTRING017(2)
  365.                 TSTRING018(3) = TSTRING018(2)
  366.                 TSTRING019(3) = TSTRING019(2)
  367.                 TSTRING009(3) = TSTRING009(2)
  368.                 TSTRING017(2) = TSTRING017(1)
  369.                 TSTRING018(2) = TSTRING018(1)
  370.                 TSTRING019(2) = TSTRING019(1)
  371.                 TSTRING009(2) = TSTRING009(1)
  372.                 TSTRING017(1) = U_Logons()
  373.                 TSTRING018(1) = Mixed(U_Name())
  374.                 TSTRING019(1) = U_City
  375.                 TSTRING009(1) = TSTRING006(INTEGER001)
  376.                 Goto LABEL007
  377.             Endif
  378.             If (U_Logons() > TSTRING017(2)) Then
  379.                 TSTRING017(5) = TSTRING017(4)
  380.                 TSTRING018(5) = TSTRING018(4)
  381.                 TSTRING019(5) = TSTRING019(4)
  382.                 TSTRING009(5) = TSTRING009(4)
  383.                 TSTRING017(4) = TSTRING017(3)
  384.                 TSTRING018(4) = TSTRING018(3)
  385.                 TSTRING019(4) = TSTRING019(3)
  386.                 TSTRING009(4) = TSTRING009(3)
  387.                 TSTRING017(3) = TSTRING017(2)
  388.                 TSTRING018(3) = TSTRING018(2)
  389.                 TSTRING019(3) = TSTRING019(2)
  390.                 TSTRING009(3) = TSTRING009(2)
  391.                 TSTRING017(2) = U_Logons()
  392.                 TSTRING018(2) = Mixed(U_Name())
  393.                 TSTRING019(2) = U_City
  394.                 TSTRING009(2) = TSTRING006(INTEGER001)
  395.                 Goto LABEL007
  396.             Endif
  397.             If (U_Logons() > TSTRING017(3)) Then
  398.                 TSTRING017(5) = TSTRING017(4)
  399.                 TSTRING018(5) = TSTRING018(4)
  400.                 TSTRING019(5) = TSTRING019(4)
  401.                 TSTRING009(5) = TSTRING009(4)
  402.                 TSTRING017(4) = TSTRING017(3)
  403.                 TSTRING018(4) = TSTRING018(3)
  404.                 TSTRING019(4) = TSTRING019(3)
  405.                 TSTRING009(4) = TSTRING009(3)
  406.                 TSTRING017(3) = U_Logons()
  407.                 TSTRING018(3) = Mixed(U_Name())
  408.                 TSTRING019(3) = U_City
  409.                 TSTRING009(3) = TSTRING006(INTEGER001)
  410.                 Goto LABEL007
  411.             Endif
  412.             If (U_Logons() > TSTRING017(4)) Then
  413.                 TSTRING017(5) = TSTRING017(4)
  414.                 TSTRING018(5) = TSTRING018(4)
  415.                 TSTRING019(5) = TSTRING019(4)
  416.                 TSTRING009(5) = TSTRING009(4)
  417.                 TSTRING017(4) = U_Logons()
  418.                 TSTRING018(4) = Mixed(U_Name())
  419.                 TSTRING019(4) = U_City
  420.                 TSTRING009(4) = TSTRING006(INTEGER001)
  421.                 Goto LABEL007
  422.             Endif
  423.             If (U_Logons() > TSTRING017(5)) Then
  424.                 TSTRING017(5) = U_Logons()
  425.                 TSTRING018(5) = Mixed(U_Name())
  426.                 TSTRING019(5) = U_City
  427.                 TSTRING009(5) = TSTRING006(INTEGER001)
  428.             Endif
  429.         Endif
  430.         :LABEL007
  431.         Inc INTEGER003
  432.         Inc INTEGER001
  433.         GetAltUser INTEGER003
  434.     EndWhile
  435.     DispFile PPEPath() + "TOPCALL.ANS", 0
  436.     INTEGER002 = GetY()
  437.     AnsiPos 15, 2
  438.     PrintLn STRING022
  439.     For INTEGER003 = 1 To 5
  440.         AnsiPos 3, 6 + INTEGER003
  441.         PrintLn TSTRING018(INTEGER003)
  442.         AnsiPos 31, 6 + INTEGER003
  443.         PrintLn TSTRING019(INTEGER003)
  444.         AnsiPos 78 - Len(TSTRING009(INTEGER003)), 6 + INTEGER003
  445.         PrintLn TSTRING009(INTEGER003)
  446.     Next
  447.     AnsiPos 1, INTEGER002
  448.     Wait
  449.     Return
  450.     :LABEL008
  451.     TSTRING002(INTEGER001) = I2S(U_Bdl(), 10)
  452.     STRING003 = TSTRING002(INTEGER001)
  453.     TSTRING002(INTEGER001) = ""
  454.     If (Len(STRING003) > 3) Then
  455.         BOOLEAN001 = 1
  456.     Else
  457.         BOOLEAN001 = 0
  458.         TSTRING002(INTEGER001) = STRING003
  459.     Endif
  460.     While (BOOLEAN001) Do
  461.         STRING004 = Right(STRING003, 3)
  462.         TSTRING002(INTEGER001) = "," + STRING004 + TSTRING002(INTEGER001)
  463.         STRING003 = Left(STRING003, Len(STRING003) - 3)
  464.         If (Len(STRING003) < 4) Then
  465.             BOOLEAN001 = 0
  466.             TSTRING002(INTEGER001) = STRING003 + TSTRING002(INTEGER001)
  467.         Endif
  468.     EndWhile
  469.     Return
  470.     :LABEL009
  471.     TSTRING005(INTEGER001) = I2S(U_Bul(), 10)
  472.     STRING003 = TSTRING005(INTEGER001)
  473.     TSTRING005(INTEGER001) = ""
  474.     If (Len(STRING003) > 3) Then
  475.         BOOLEAN001 = 1
  476.     Else
  477.         BOOLEAN001 = 0
  478.         TSTRING005(INTEGER001) = STRING003
  479.     Endif
  480.     While (BOOLEAN001) Do
  481.         STRING004 = Right(STRING003, 3)
  482.         TSTRING005(INTEGER001) = "," + STRING004 + TSTRING005(INTEGER001)
  483.         STRING003 = Left(STRING003, Len(STRING003) - 3)
  484.         If (Len(STRING003) < 4) Then
  485.             BOOLEAN001 = 0
  486.             TSTRING005(INTEGER001) = STRING003 + TSTRING005(INTEGER001)
  487.         Endif
  488.     EndWhile
  489.     Return
  490.     :LABEL010
  491.     TSTRING006(INTEGER001) = I2S(U_Logons(), 10)
  492.     STRING003 = TSTRING006(INTEGER001)
  493.     TSTRING006(INTEGER001) = ""
  494.     If (Len(STRING003) > 3) Then
  495.         BOOLEAN001 = 1
  496.     Else
  497.         BOOLEAN001 = 0
  498.         TSTRING006(INTEGER001) = STRING003
  499.     Endif
  500.     While (BOOLEAN001) Do
  501.         STRING004 = Right(STRING003, 3)
  502.         TSTRING006(INTEGER001) = "," + STRING004 + TSTRING006(INTEGER001)
  503.         STRING003 = Left(STRING003, Len(STRING003) - 3)
  504.         If (Len(STRING003) < 4) Then
  505.             BOOLEAN001 = 0
  506.             TSTRING006(INTEGER001) = STRING003 + TSTRING006(INTEGER001)
  507.         Endif
  508.     EndWhile
  509.     Return
  510.  
  511. ;------------------------------------------------------------------------------
  512. ;
  513. ; Usage report (before postprocessing)
  514. ;
  515. ; ■ Statements used :
  516. ;
  517. ;    1       End
  518. ;    4       Cls
  519. ;    3       Wait
  520. ;    74      Goto 
  521. ;    255     Let 
  522. ;    4       Print 
  523. ;    29      PrintLn 
  524. ;    48      If 
  525. ;    4       DispFile 
  526. ;    1       FOpen 
  527. ;    1       FClose 
  528. ;    3       FGet 
  529. ;    6       Gosub 
  530. ;    6       Return
  531. ;    6       Inc 
  532. ;    23      AnsiPos 
  533. ;    6       GetAltUser 
  534. ;
  535. ;
  536. ; ■ Functions used :
  537. ;
  538. ;    75      +
  539. ;    6       -
  540. ;    20      ==
  541. ;    9       <>
  542. ;    7       <
  543. ;    4       <=
  544. ;    21      >
  545. ;    8       >=
  546. ;    45      !
  547. ;    12      &&
  548. ;    12      ||
  549. ;    12      Len(
  550. ;    2       Upper()
  551. ;    3       Left()
  552. ;    3       Right()
  553. ;    6       Chr()
  554. ;    15      U_Name()
  555. ;    11      U_Logons()
  556. ;    11      U_Bdl()
  557. ;    11      U_Bul()
  558. ;    1       Inkey()
  559. ;    5       PPEPath()
  560. ;    3       I2S()
  561. ;    3       GetY()
  562. ;    15      Mixed()
  563. ;    3       CurUser()
  564. ;
  565. ;------------------------------------------------------------------------------
  566. ;
  567. ; Analysis flags : R
  568. ;
  569. ; R - Read user ■ 5
  570. ;     User records are read, this may signify that someone wants to get
  571. ;     various informations about a user (for example his password), but
  572. ;     this may also be normal for a program accessing user records (for
  573. ;     example a User Editor)
  574. ;     ■ Search for : GETALTUSER
  575. ;
  576. ;------------------------------------------------------------------------------
  577. ;
  578. ; Postprocessing report
  579. ;
  580. ;    4       For/Next
  581. ;    8       While/EndWhile
  582. ;    33      If/Then or If/Then/Else
  583. ;    0       Select Case
  584. ;
  585. ;------------------------------------------------------------------------------
  586. ;                 AEGiS Corp - Break the routines, code against the machines!
  587. ;------------------------------------------------------------------------------
  588.