home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PIE-USLM.ZIP / USER.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1996-05-17  |  9.2 KB  |  571 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 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     String   TSTRING001(23)
  41.     String   STRING002
  42.     String   STRING003
  43.     String   STRING004
  44.     String   TSTRING005(23)
  45.     String   TSTRING006(4)
  46.     String   TSTRING007(2)
  47.     String   TSTRING008(2)
  48.     String   TSTRING009(2)
  49.     String   STRING010
  50.     String   STRING011
  51.     String   STRING012
  52.     String   STRING013
  53.     String   STRING014
  54.     String   STRING015
  55.     String   STRING016
  56.     String   STRING017
  57.     String   STRING018
  58.     String   STRING019
  59.     String   STRING020
  60.     String   STRING021
  61.     String   STRING022
  62.     String   STRING023
  63.     String   TSTRING024(2)
  64.     String   STRING025
  65.     String   STRING026
  66.     String   TSTRING027(3)
  67.     BigStr   BIGSTR001
  68.     Declare  Procedure PROC001()
  69.     Declare  Procedure PROC003()
  70.     Declare  Procedure PROC004()
  71.     Declare  Procedure PROC005()
  72.     Declare  Procedure PROC006()
  73.  
  74. ;------------------------------------------------------------------------------
  75.  
  76.     Delete PPEPath() + "user.dat"
  77.     Delete PPEPath() + "search.dat"
  78.     FCreate 2, PPEPath() + "search.dat", 1, 0
  79.     FCreate 1, PPEPath() + "user.dat", 1, 0
  80.     STRING010 = PPEPath() + "user.dat"
  81.     INTEGER006 = 0
  82.     STRING015 = FileInf(ReadLine(PCBDat(), 29), 4)
  83.     STRING014 = STRING015 / 400
  84.     PROC003()
  85.     End
  86.  
  87. ;------------------------------------------------------------------------------
  88.  
  89.     Procedure PROC003()
  90.  
  91.     WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "Using MST User Lister", " "
  92.     Cls
  93.     STRING017 = Upper(ReadLine(PPEPath() + "user.cfg", 9))
  94.     TSTRING007(0) = "@X08"
  95.     TSTRING007(1) = "@X07"
  96.     TSTRING007(2) = "@X0F"
  97.     STRING011 = "NO"
  98.     TSTRING006(0) = "\"
  99.     TSTRING006(1) = "│"
  100.     TSTRING006(2) = "/"
  101.     TSTRING006(3) = "─"
  102.     STRING003 = "YES"
  103.     STRING004 = "NO"
  104.     PrintLn "@X08[@X07PIE@X08] @X0F/ @X07User Lister By Main Stream"
  105.     PrintLn "@X8F■@X07 Please Wait While Compiling List @X07[   @X0F%@X07]"
  106.     For INTEGER001 = 1 To 10000
  107.         GetAltUser INTEGER001
  108.         If (STRING017 == "NO") STRING018 = "N/A"
  109.         If (STRING017 == "YES") STRING018 = String(U_Sec)
  110.         If ((INTEGER001 * 100) / STRING014 < 10) AnsiPos 39, 2
  111.         If ((INTEGER001 * 100) / STRING014 >= 10) Then
  112.             AnsiPos 38, 2
  113.         Else
  114.             If ((INTEGER001 * 100) / STRING014 == 100) AnsiPos 37, 2
  115.         Endif
  116.         Print (INTEGER001 * 100) / STRING014
  117.         Inc INTEGER004
  118.         If (CurUser() == -1) Break
  119.         FPut 1, Left("@X08│ ", 6)
  120.         FPut 1, Left("@X0F", 4)
  121.         FPut 1, Left(Mixed(U_Name()), 25)
  122.         FPut 1, Left("@X08 │ ", 7)
  123.         FPut 1, Left("@X07", 4)
  124.         FPut 1, Left(U_City, 24)
  125.         FPut 1, Left("@X08 │ ", 7)
  126.         FPut 1, Left("@X08", 4)
  127.         FPut 1, Left(STRING018, 3)
  128.         FPut 1, Left(" │@X07 ", 7)
  129.         FPut 1, Left("@X0F", 4)
  130.         FPut 1, Left(U_LDate(), 8)
  131.         FPutLn 1, Left("@X08 │", 6)
  132.     Next
  133.     FPutLn 1, "END"
  134.     FClose 1
  135.     STRING014 = I2S(INTEGER001 - 1, 10)
  136.     Cls
  137.     TSTRING008(0) = ReadLine(PPEPath() + "TOP.PCB", 1)
  138.     TSTRING008(1) = ReadLine(PPEPath() + "TOP.PCB", 2)
  139.     TSTRING008(2) = ReadLine(PPEPath() + "TOP.PCB", 3)
  140.     TSTRING009(0) = ReadLine(PPEPath() + "BOT.PCB", 1)
  141.     TSTRING009(1) = ReadLine(PPEPath() + "BOT.PCB", 2)
  142.     TSTRING009(2) = ReadLine(PPEPath() + "BOT.PCB", 3)
  143.     For INTEGER001 = 0 To 2
  144.         AnsiPos 1, INTEGER001 + 1
  145.         Print TSTRING008(INTEGER001)
  146.     Next
  147.     For INTEGER001 = 0 To 2
  148.         AnsiPos 1, 21 + INTEGER001
  149.         Print TSTRING009(INTEGER001)
  150.     Next
  151.     INTEGER002 = 1
  152.     :LABEL001
  153.     STRING003 = "YES"
  154.     For INTEGER001 = 1 To 17
  155.         TSTRING001(INTEGER001) = ReadLine(STRING010, INTEGER001 + INTEGER002 - 1)
  156.         If (TSTRING001(INTEGER001) == "END") STRING003 = "NO"
  157.         If (INTEGER002 <> 1) STRING004 = "YES"
  158.         If (INTEGER002 == 1) STRING004 = "NO"
  159.         If (TSTRING001(INTEGER001) == "END") Then
  160.             INTEGER005 = INTEGER001 - 1
  161.             TSTRING001(INTEGER001) = "└─@X07─@X0F────────────────────────@X07E@X0F─@X07N@X0F─@X07D@X0F───@X07O@X0F─@X07F@X0F───@X07L@X0F─@X07i@X0F─@X07S@X0F─@X07T@X0F──────────────────────@X07─@X08─┘"
  162.             TSTRING001(INTEGER001 + 1) = "                          @X0F─@X07─@X08[@X0FTotal Users : " + STRING014 + "@X08]@X07─@X0F─                         "
  163.             For INTEGER004 = INTEGER001 + 2 To 17
  164.                 TSTRING001(INTEGER004) = "                                                                             "
  165.             Next
  166.             INTEGER001 = 16
  167.             Break
  168.         Endif
  169.     Next
  170.     INTEGER003 = 4
  171.     For INTEGER001 = 1 To 17
  172.         AnsiPos 1, INTEGER003
  173.         Print "   " + TSTRING001(INTEGER001)
  174.         Inc INTEGER003
  175.     Next
  176.     While (Upper(STRING002) <> "Q") Do
  177.         STRING002 = Inkey()
  178.         If ((STRING002 == "DOWN") && (STRING003 <> "NO")) Then
  179.             INTEGER002 = INTEGER002 + 17
  180.             Goto LABEL001
  181.         Endif
  182.         If ((STRING002 == "UP") && (STRING004 <> "NO")) Then
  183.             INTEGER002 = INTEGER002 - 17
  184.             Goto LABEL001
  185.         Endif
  186.         If (Upper(STRING002) == "L") Then
  187.             AnsiPos 1, 22
  188.             Print ReadLine(PPEPath() + "user.cfg", 5)
  189.             PROC001()
  190.         Endif
  191.         If (Upper(STRING002) == "S") Then
  192.             PROC006()
  193.             Goto LABEL001
  194.         Endif
  195.         If (Upper(STRING002) == "Q") Then
  196.             WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "Browsing Arround", " "
  197.             Print "@X0F"
  198.             Cls
  199.         Endif
  200.     EndWhile
  201.  
  202.     EndProc
  203.  
  204.  
  205. ;------------------------------------------------------------------------------
  206.  
  207.     Procedure PROC001()
  208.  
  209.     String   STRING019
  210.     String   STRING020
  211.     String   STRING021
  212.     Integer  INTEGER007
  213.     Integer  INTEGER008
  214.     Integer  INTEGER009
  215.     Integer  INTEGER010
  216.  
  217.     STRING020 = ReadLine(PPEPath() + "user.cfg", 7)
  218.     STRING019 = "@X0F"
  219.     INTEGER007 = 4
  220.     INTEGER008 = 4
  221.     INTEGER010 = 1
  222.     AnsiPos INTEGER007, INTEGER008
  223.     Print STRING020 + StripAtx(TSTRING001(1))
  224.     While (STRING021 <> Chr(27)) Do
  225.         If (STRING003 == "YES") If ((STRING021 == "DOWN") && (INTEGER010 < 17)) INTEGER010 = INTEGER010 + 1
  226.         If (STRING003 == "NO") If ((STRING021 == "DOWN") && (INTEGER010 < INTEGER005)) INTEGER010 = INTEGER010 + 1
  227.         If ((STRING021 == "UP") && (INTEGER010 > 1)) INTEGER010 = INTEGER010 - 1
  228.         If (INTEGER007 - INTEGER009 + INTEGER010 <> INTEGER010) Then
  229.             If (STRING021 == "DOWN") Then
  230.                 AnsiPos INTEGER007, INTEGER008 - 1 + INTEGER010 - 1
  231.                 Print STRING019 + TSTRING001(INTEGER010 - 1)
  232.                 AnsiPos INTEGER007, INTEGER008 - 1 + INTEGER010
  233.                 Print STRING020 + StripAtx(TSTRING001(INTEGER010))
  234.                 INTEGER009 = INTEGER010 + INTEGER007
  235.             Endif
  236.             If (STRING021 == "UP") Then
  237.                 AnsiPos INTEGER007, INTEGER008 + INTEGER010
  238.                 Print STRING019 + TSTRING001(INTEGER010 + 1)
  239.                 AnsiPos INTEGER007, INTEGER008 + INTEGER010 - 1
  240.                 Print STRING020 + StripAtx(TSTRING001(INTEGER010))
  241.                 INTEGER009 = INTEGER010 + INTEGER007
  242.             Endif
  243.         Endif
  244.         STRING021 = Inkey()
  245.         INTEGER009 = INTEGER007 + INTEGER010
  246.         If (STRING021 == Chr(13)) Then
  247.             AnsiPos 1, 1
  248.             For INTEGER001 = 1 To 23
  249.                 TSTRING005(INTEGER001) = ScrText(1, INTEGER001, 79, 1)
  250.             Next
  251.             STRING012 = ""
  252.             If (STRING011 == "NO") GetAltUser INTEGER002 + INTEGER010 - 1
  253.             If (STRING011 == "YES") Then
  254.                 AnsiPos 1, 22
  255.                 Print ReadLine(PPEPath() + "user.cfg", 6)
  256.                 STRING013 = ScrText(6, INTEGER010 + INTEGER008 - 1, 24, 1)
  257.                 STRING013 = StripAtx(STRING013)
  258.                 For INTEGER001 = 1 To Len(STRING013)
  259.                     STRING012 = STRING012 + Mid(STRING013, INTEGER001, 1)
  260.                     If ((Mid(STRING013, INTEGER001 + 1, 1) == " ") && (Mid(STRING013, INTEGER001 + 2, 1) == " ")) Break
  261.                 Next
  262.                 For INTEGER001 = 1 To 10000
  263.                     GetAltUser INTEGER001
  264.                     If (U_Name() == Upper(STRING012)) Break
  265.                     If (CurUser() == -1) Goto LABEL002
  266.                 Next
  267.             Endif
  268.             Print "@X0F"
  269.             Cls
  270.             PROC004()
  271.             Cls
  272.             For INTEGER001 = 1 To 23
  273.                 Print TSTRING005(INTEGER001)
  274.                 AnsiPos 1, GetY() + 1
  275.             Next
  276.         Endif
  277.     EndWhile
  278.     :LABEL002
  279.     AnsiPos INTEGER007, INTEGER008 + INTEGER010 - 1
  280.     Print TSTRING001(INTEGER010)
  281.     AnsiPos 1, 22
  282.     Print TSTRING009(1)
  283.  
  284.     EndProc
  285.  
  286.     INTEGER011 = GetX()
  287.     INTEGER012 = GetY()
  288.     For INTEGER013 = 0 To 2
  289.         AnsiPos INTEGER011, INTEGER012
  290.         Print TSTRING007(INTEGER013) + ""
  291.         Delay 2
  292.     Next
  293.  
  294.     EndProc
  295.  
  296.  
  297. ;------------------------------------------------------------------------------
  298.  
  299.     Procedure PROC006()
  300.  
  301.     String   STRING022
  302.     String   STRING023
  303.     String   TSTRING024(2)
  304.     String   STRING025
  305.     String   STRING026
  306.     String   TSTRING027(3)
  307.     Integer  INTEGER014
  308.     Integer  INTEGER015
  309.     Integer  INTEGER016
  310.     Integer  INTEGER017
  311.     Integer  INTEGER018
  312.     Integer  INTEGER019
  313.     Integer  INTEGER020
  314.  
  315.     FClose 2
  316.     STRING011 = "YES"
  317.     INTEGER014 = 0
  318.     INTEGER015 = 0
  319.     TSTRING027(0) = "─"
  320.     TSTRING027(1) = "\"
  321.     TSTRING027(2) = "│"
  322.     TSTRING027(3) = "/"
  323.     TSTRING024(0) = ReadLine(PPEPath() + "user.cfg", 4)
  324.     AnsiPos 1, 20
  325.     INTEGER016 = 21
  326.     INTEGER019 = ReadLine(PPEPath() + "user.cfg", 3)
  327.     AnsiPos 1, 22
  328.     Print ReadLine(PPEPath() + "user.cfg", 1)
  329.     AnsiPos ReadLine(PPEPath() + "user.cfg", 2), 22
  330.     While (STRING022 <> Chr(13)) Do
  331.         STRING022 = Inkey()
  332.         If (Len(STRING022) == 1) Then
  333.             If ((STRING022 == Chr(8)) && (STRING023 <> "")) Then
  334.                 STRING023 = Left(STRING023, Len(STRING023) - 1)
  335.                 Print Chr(8) + TSTRING024(0) + " "
  336.                 AnsiPos GetX() - 1, GetY()
  337.                 Continue
  338.             Endif
  339.             If ((Len(STRING023) <> INTEGER019) && (STRING022 <> Chr(8))) Then
  340.                 If (STRING022 == Chr(32)) STRING022 = " "
  341.                 If (STRING022 <> Chr(13)) STRING023 = STRING023 + STRING022
  342.                 If (STRING022 == Chr(32)) Print TSTRING024(0) + " "
  343.                 If (STRING022 <> Chr(32)) Print TSTRING024(0) + STRING022
  344.             Endif
  345.         Endif
  346.     EndWhile
  347.     STRING025 = ""
  348.     STRING026 = ""
  349.     INTEGER020 = 1
  350.     If (Len(STRING023) <> 0) Then
  351.         STRING010 = PPEPath() + "search.dat"
  352.         FCreate 2, PPEPath() + "search.dat", 1, 0
  353.         FSeek 2, 0, 0
  354.         For INTEGER018 = 1 To 10000
  355.             STRING025 = ""
  356.             STRING026 = ""
  357.             If ((INTEGER018 * 100) / STRING014 < 10) AnsiPos 75, 22
  358.             If ((INTEGER018 * 100) / STRING014 >= 10) Then
  359.                 AnsiPos 74, 22
  360.                 Goto LABEL003
  361.             Endif
  362.             If ((INTEGER018 * 100) / STRING014 == 100) AnsiPos 73, 22
  363.             :LABEL003
  364.             Print TSTRING024(0)
  365.             Print (INTEGER018 * 100) / STRING014
  366.             Print "%"
  367.             Inc INTEGER020
  368.             GetAltUser INTEGER018
  369.             If (STRING017 == "NO") STRING018 = "N/A"
  370.             If (STRING017 == "YES") STRING018 = String(U_Sec)
  371.             If (CurUser() == -1) Break
  372.             INTEGER017 = 1
  373.             While (Mid(U_Name(), INTEGER017, 1) <> Chr(32)) Do
  374.                 STRING025 = STRING025 + Mid(U_Name(), INTEGER017, 1)
  375.                 Inc INTEGER017
  376.             EndWhile
  377.             Inc INTEGER017
  378.             While (Mid(U_Name(), INTEGER017, 1) <> Chr(32)) Do
  379.                 STRING026 = STRING026 + Mid(U_Name(), INTEGER017, 1)
  380.                 Inc INTEGER017
  381.             EndWhile
  382.             If (((STRING025 == Upper(STRING023)) || (STRING026 == Upper(STRING023))) || (STRING025 + " " + STRING026 == Upper(STRING023))) Then
  383.                 Inc INTEGER014
  384.                 INTEGER015 = 1
  385.                 FPut 2, Left("@X08│ ", 6)
  386.                 FPut 2, Left("@X0F", 4)
  387.                 FPut 2, Left(Mixed(U_Name()), 25)
  388.                 FPut 2, Left("@X08 │ ", 7)
  389.                 FPut 2, Left("@X07", 4)
  390.                 FPut 2, Left(U_City, 24)
  391.                 FPut 2, Left("@X08 │ ", 7)
  392.                 FPut 2, Left("@X08", 4)
  393.                 FPut 2, Left(STRING018, 3)
  394.                 FPut 2, Left(" │@X07 ", 7)
  395.                 FPut 2, Left("@X0F", 4)
  396.                 FPut 2, Left(U_LDate(), 8)
  397.                 FPutLn 2, Left("@X08 │", 6)
  398.             Endif
  399.         Next
  400.         If (INTEGER015 == 0) Then
  401.             AnsiPos 1, 22
  402.             Print ReadLine(PPEPath() + "user.cfg", 8)
  403.             STRING011 = "NO"
  404.             STRING010 = PPEPath() + "user.dat"
  405.             FClose 2
  406.             Delay 20
  407.             Goto LABEL004
  408.         Endif
  409.         AnsiPos 1, 22
  410.         Print TSTRING009(1)
  411.         FPutLn 2, "END"
  412.         FClose 2
  413.         AnsiPos 70, 22
  414.         INTEGER002 = 1
  415.     Endif
  416.     :LABEL004
  417.     AnsiPos 1, 22
  418.     Print TSTRING009(1)
  419.  
  420.     EndProc
  421.  
  422.  
  423. ;------------------------------------------------------------------------------
  424.  
  425.     Procedure PROC004()
  426.  
  427.     BigStr   BIGSTR001
  428.     Integer  INTEGER021
  429.  
  430.     BIGSTR001 = PPEPath() + "info.pcb"
  431.     STRING016 = ReadLine(BIGSTR001, INTEGER021)
  432.     INTEGER021 = 1
  433.     While (STRING016 <> "[EOF]") Do
  434.         STRING016 = ReadLine(BIGSTR001, INTEGER021)
  435.         If (STRING016 <> "[EOF]") PROC005()
  436.         If (STRING016 == "[EOF]") Break
  437.         Inc INTEGER021
  438.     EndWhile
  439.     Wait
  440.  
  441.     EndProc
  442.  
  443.  
  444.     EndProc
  445.  
  446.  
  447. ;------------------------------------------------------------------------------
  448.  
  449.     Procedure PROC005()
  450.  
  451.     STRING016 = ReplaceStr(STRING016, "%USER%", U_Name())
  452.     STRING016 = ReplaceStr(STRING016, "%CITY%", U_City)
  453.     STRING016 = ReplaceStr(STRING016, "%SEC%", U_Sec)
  454.     STRING016 = ReplaceStr(STRING016, "%BUL%", U_Bul())
  455.     STRING016 = ReplaceStr(STRING016, "%BDL%", U_Bdl())
  456.     STRING016 = ReplaceStr(STRING016, "%FILEDN%", U_Fdl())
  457.     STRING016 = ReplaceStr(STRING016, "%FILEUP%", U_Ful())
  458.     STRING016 = ReplaceStr(STRING016, "%NUMTIMES%", U_Logons())
  459.     STRING016 = ReplaceStr(STRING016, "%LASTTIME%", U_LTime())
  460.     STRING016 = ReplaceStr(STRING016, "%LASTDATE%", U_LDate())
  461.     PrintLn STRING016
  462.  
  463.     EndProc
  464.  
  465.  
  466. ;------------------------------------------------------------------------------
  467. ;
  468. ; Usage report (before postprocessing)
  469. ;
  470. ; ■ Statements used :
  471. ;
  472. ;    1       End
  473. ;    5       Cls
  474. ;    1       Wait
  475. ;    69      Goto 
  476. ;    125     Let 
  477. ;    27      Print 
  478. ;    3       PrintLn 
  479. ;    65      If 
  480. ;    3       FCreate 
  481. ;    4       FClose 
  482. ;    24      FPut 
  483. ;    4       FPutLn 
  484. ;    2       Delete 
  485. ;    2       Delay 
  486. ;    8       Inc 
  487. ;    2       WrUNet 
  488. ;    29      AnsiPos 
  489. ;    1       FSeek 
  490. ;    4       GetAltUser 
  491. ;    7       EndProc
  492. ;
  493. ;
  494. ; ■ Functions used :
  495. ;
  496. ;    3       -
  497. ;    8       *
  498. ;    9       /
  499. ;    78      +
  500. ;    16      -
  501. ;    39      ==
  502. ;    17      <>
  503. ;    16      <
  504. ;    12      <=
  505. ;    1       >
  506. ;    26      >=
  507. ;    37      !
  508. ;    32      &&
  509. ;    14      ||
  510. ;    6       Len(
  511. ;    9       Upper()
  512. ;    7       Mid()
  513. ;    27      Left()
  514. ;    12      Chr()
  515. ;    8       U_Name()
  516. ;    3       U_LDate()
  517. ;    1       U_LTime()
  518. ;    1       U_Logons()
  519. ;    1       U_Ful()
  520. ;    1       U_Fdl()
  521. ;    1       U_Bdl()
  522. ;    1       U_Bul()
  523. ;    4       StripAtx()
  524. ;    3       Inkey()
  525. ;    2       String()
  526. ;    1       PCBDat()
  527. ;    24      PPEPath()
  528. ;    2       PcbNode()
  529. ;    19      ReadLine()
  530. ;    2       UN_Name()
  531. ;    2       UN_City()
  532. ;    1       I2S()
  533. ;    2       GetX()
  534. ;    3       GetY()
  535. ;    1       FileInf()
  536. ;    2       ScrText()
  537. ;    10      ReplaceStr()
  538. ;    2       Mixed()
  539. ;    3       CurUser()
  540. ;
  541. ;------------------------------------------------------------------------------
  542. ;
  543. ; Analysis flags : Rd
  544. ;
  545. ; R - Read user ■ 5
  546. ;     User records are read, this may signify that someone wants to get
  547. ;     various informations about a user (for example his password), but
  548. ;     this may also be normal for a program accessing user records (for
  549. ;     example a User Editor)
  550. ;     ■ Search for : GETALTUSER
  551. ;
  552. ; d - Access PCBOARD.DAT ■ 2
  553. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  554. ;     for many PPE so they can find various informations on the system
  555. ;     (system paths, max number of lines in messages, ...) but it may also
  556. ;     be a way to gather vital informations.
  557. ;     ■ Search for : PCBDAT()
  558. ;
  559. ;------------------------------------------------------------------------------
  560. ;
  561. ; Postprocessing report
  562. ;
  563. ;    12      For/Next
  564. ;    6       While/EndWhile
  565. ;    19      If/Then or If/Then/Else
  566. ;    0       Select Case
  567. ;
  568. ;------------------------------------------------------------------------------
  569. ;                 AEGiS Corp - Break the routines, code against the machines!
  570. ;------------------------------------------------------------------------------
  571.