home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR3 / MAT35PWA.ZIP / NUV.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-10-05  |  9KB  |  543 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  TBOOLEAN003(100)
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  TINTEGER006(50)
  27.     Integer  TINTEGER007(50)
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  TINTEGER012(100)
  33.     Integer  TINTEGER013(100)
  34.     String   TSTRING001(100)
  35.     String   TSTRING002(5)
  36.     String   TSTRING003(50)
  37.     String   STRING004
  38.     String   STRING005
  39.     String   STRING006
  40.     String   STRING007
  41.     String   STRING008
  42.     String   TSTRING009(100)
  43.     String   STRING010
  44.     String   TSTRING011(100)
  45.     String   STRING012
  46.     String   STRING013
  47.     String   STRING014
  48.     String   STRING015
  49.     String   STRING016
  50.     String   STRING017
  51.     String   STRING018
  52.     String   STRING019
  53.     String   TSTRING020(10)
  54.     String   TSTRING021(100)
  55.     String   TSTRING022(100)
  56.     String   TSTRING023(100)
  57.  
  58. ;------------------------------------------------------------------------------
  59.  
  60.     STRING008 = Chr(13)
  61.     INTEGER009 = CurSec()
  62.     Gosub LABEL002
  63.     Gosub LABEL004
  64.     :LABEL001
  65.     Gosub LABEL006
  66.     :LABEL002
  67.     If (Exist(PPEPath() + "NUV.CFG")) Goto LABEL003
  68.     Log "Your NUV.CFG file is non-existant.", 1
  69.     End
  70.     Goto LABEL005
  71.     :LABEL003
  72.     FOpen 1, PPEPath() + "NUV.CFG", 0, 0
  73.     FGet 1, STRING018
  74.     FGet 1, STRING019
  75.     FGet 1, STRING016
  76.     FGet 1, STRING017
  77.     INTEGER002 = 0
  78.     BOOLEAN001 = 0
  79.     While (BOOLEAN001 == 0) Do
  80.         Inc INTEGER002
  81.         FGet 1, TSTRING020(INTEGER002)
  82.         If ((TSTRING020(INTEGER002) == "") && (INTEGER002 == 1)) Then
  83.             Log "No Infoforms have been defined.", 1
  84.             FClose 1
  85.             End
  86.         Endif
  87.         If ((TSTRING020(INTEGER002) == "") || (INTEGER002 == 10)) BOOLEAN001 = 1
  88.     EndWhile
  89.     FClose 1
  90.     INTEGER010 = INTEGER002 - 1
  91.     Return
  92.     :LABEL004
  93.     If (INTEGER009 <> S2I(STRING016, 10)) Then
  94.         Return
  95.     ElseIf (!Exist(PPEPath() + "VALID.NXT") && !Exist(PPEPath() + "DELETE.NXT")) Then
  96.         PrintLn "Sorry, you have not yet been validated"
  97.         Wait
  98.         Hangup
  99.     ElseIf (Exist(PPEPath() + "VALID.NXT")) Then
  100.         FOpen 1, PPEPath() + "VALID.NXT", 0, 0
  101.         BOOLEAN002 = 0
  102.         While (BOOLEAN002 == 0) Do
  103.             FGet 1, STRING010
  104.             If (Lower(STRING010) == Lower(U_Name())) Then
  105.                 FClose 1
  106.                 BOOLEAN001 = 0
  107.                 INTEGER002 = 0
  108.                 FOpen 1, PPEPath() + "VALID.NXT", 0, 0
  109.                 While (BOOLEAN001 == 0) Do
  110.                     Inc INTEGER002
  111.                     FGet 1, TSTRING009(INTEGER002)
  112.                     If (TSTRING009(INTEGER002) == "") BOOLEAN001 = 1
  113.                 EndWhile
  114.                 FClose 1
  115.                 FCreate 1, PPEPath() + "VALID.NXT", 2, 0
  116.                 For INTEGER003 = 1 To INTEGER002 - 1
  117.                     If (Lower(TSTRING009(INTEGER003)) <> Lower(U_Name())) Then
  118.                         FPutLn 1, TSTRING009(INTEGER003)
  119.                     Endif
  120.                 Next
  121.                 FClose 1
  122.                 PrintLn "You've been validated!"
  123.                 PrintLn "Performing online validation."
  124.                 GetUser
  125.                 U_Sec = 50
  126.                 PutUser
  127.                 Wait
  128.                 BOOLEAN002 = 1
  129.                 End
  130.             Endif
  131.             If (STRING010 == "") BOOLEAN002 = 1
  132.         EndWhile
  133.     Else
  134.         If (Exist(PPEPath() + "DELETE.NXT")) Then
  135.             FOpen 1, PPEPath() + "DELETE.NXT", 0, 0
  136.             BOOLEAN002 = 0
  137.             While (BOOLEAN002 == 0) Do
  138.                 FGet 1, STRING010
  139.                 If (Lower(STRING010) == Lower(U_Name())) Then
  140.                     FClose 1
  141.                     BOOLEAN001 = 0
  142.                     INTEGER002 = 0
  143.                     FOpen 1, PPEPath() + "DELETE.NXT", 0, 0
  144.                     While (BOOLEAN001 == 0) Do
  145.                         Inc INTEGER002
  146.                         FGet 1, TSTRING009(INTEGER002)
  147.                         If (TSTRING009(INTEGER002) == "") BOOLEAN001 = 1
  148.                     EndWhile
  149.                     FClose 1
  150.                     FCreate 1, PPEPath() + "DELETE.NXT", 2, 0
  151.                     For INTEGER003 = 1 To INTEGER002 - 1
  152.                         If (Lower(TSTRING009(INTEGER003)) <> Lower(U_Name())) Then
  153.                             FPutLn 1, TSTRING009(INTEGER003)
  154.                         Endif
  155.                     Next
  156.                     FClose 1
  157.                     PrintLn "You've been deleted!"
  158.                     PrintLn "Now deleting your account."
  159.                     GetUser
  160.                     U_Sec = 0
  161.                     PutUser
  162.                     Hangup
  163.                     BOOLEAN002 = 1
  164.                 Endif
  165.                 If (STRING010 == "") BOOLEAN002 = 1
  166.             EndWhile
  167.         Else
  168.             Hangup
  169.         Endif
  170.     Endif
  171.     :LABEL005
  172.     PrintLn "You have not yet finished going through the NUV."
  173.     Hangup
  174.     :LABEL006
  175.     If (!Exist(PPEPath() + "\APPS\WHOWAITS.APP")) End
  176.     FOpen 1, PPEPath() + "\APPS\WHOWAITS.APP", 0, 0
  177.     BOOLEAN001 = 0
  178.     INTEGER002 = 0
  179.     While (BOOLEAN001 == 0) Do
  180.         Inc INTEGER002
  181.         FGet 1, TSTRING001(INTEGER002)
  182.         If (TSTRING001(INTEGER002) == "") Then
  183.             BOOLEAN001 = 1
  184.             Continue
  185.         Endif
  186.         Tokenize TSTRING001(S2I(INTEGER002, 10))
  187.         INTEGER004 = TokCount()
  188.         If (INTEGER004 > 1) Then
  189.             For INTEGER005 = 1 To INTEGER004
  190.                 TSTRING002(INTEGER005) = GetToken()
  191.             Next
  192.             For INTEGER005 = 1 To INTEGER004
  193.                 TSTRING011(INTEGER002) = TSTRING011(INTEGER002) + TSTRING002(INTEGER005) + "_"
  194.             Next
  195.         Else
  196.             TSTRING011(INTEGER002) = TSTRING001(S2I(INTEGER002, 10))
  197.         Endif
  198.         If (Exist(PPEPath() + "\APPS\" + TSTRING011(INTEGER002) + ".RES")) Goto LABEL007
  199.         FCreate 3, PPEPath() + "\APPS\" + TSTRING011(INTEGER002) + ".RES", 2, 0
  200.         TINTEGER012(INTEGER002) = 0
  201.         TINTEGER013(INTEGER002) = 0
  202.         FPutLn 3, I2S(TINTEGER012(INTEGER002), 10)
  203.         FPutLn 3, I2S(TINTEGER013(INTEGER002), 10)
  204.         FClose 3
  205.         TBOOLEAN003(INTEGER002) = 0
  206.         Continue
  207.         :LABEL007
  208.         FOpen 2, PPEPath() + "\APPS\" + TSTRING011(INTEGER002) + ".RES", 0, 0
  209.         FGet 2, TINTEGER012(INTEGER002)
  210.         FGet 2, TINTEGER013(INTEGER002)
  211.         BOOLEAN002 = 0
  212.         While (BOOLEAN002 == 0) Do
  213.             FGet 2, STRING013
  214.             If (STRING013 == "") Then
  215.                 BOOLEAN002 = 1
  216.                 Continue
  217.             Endif
  218.             If (Lower(STRING013) == Lower(U_Name())) Then
  219.                 FGet 2, TSTRING021(INTEGER002)
  220.                 TBOOLEAN003(INTEGER002) = 1
  221.                 BOOLEAN002 = 1
  222.             Endif
  223.         EndWhile
  224.         FClose 2
  225.     EndWhile
  226.     FClose 1
  227.     If (INTEGER002 == 1) Then
  228.         PrintLn "No users are awaiting validation..."
  229.         End
  230.     Endif
  231.     INTEGER011 = INTEGER002 - 1
  232.     Cls
  233.     StartDisp 1
  234.     PrintLn "@X0D┌────────────────────────────  ·    ·    ·"
  235.     PrintLn "@X0D│ @X0BNew User Vote PPE   @X09-Coded By: @X0F L@X07iqu@X08id F@X07les@X0Fh"
  236.     PrintLn "@X0D└────────  ·   ·"
  237.     PrintLn 
  238.     For INTEGER003 = 1 To INTEGER011
  239.         Print "@X0D[@X0B" + I2S(INTEGER003, 10) + "@X0D] @X0F" + TSTRING001(INTEGER003)
  240.         If (TBOOLEAN003(INTEGER003) == 1) Then
  241.             Print "  Yea Votes: " + I2S(TINTEGER012(INTEGER003), 10)
  242.             PrintLn "  Nay Votes: " + I2S(TINTEGER013(INTEGER003), 10)
  243.             Continue
  244.         Endif
  245.         PrintLn "  [Undecided]"
  246.     Next
  247.     PrintLn "@X0D[@X0BQ@X0D] @X0FTo quit."
  248.     STRING006 = ""
  249.     InputStr "Who?", STRING006, 12, 3, Mask_Ascii(), 4096
  250.     If (STRING006 == "") Goto LABEL001
  251.     If (Lower(STRING006) == "q") End
  252.     INTEGER008 = S2I(STRING006, 10)
  253.     If (TBOOLEAN003(INTEGER008) == 1) Then
  254.         PrintLn 
  255.         InputYN "Change your vote", STRING012, 7
  256.         PrintLn 
  257.         If (STRING012 == YesChar()) Then
  258.             TBOOLEAN003(INTEGER008) = 0
  259.             If (Lower(TSTRING021(INTEGER008)) == "yes") Then
  260.                 TINTEGER012(INTEGER008) = TINTEGER012(INTEGER008) - 1
  261.                 Goto LABEL008
  262.             Endif
  263.             TINTEGER013(INTEGER008) = TINTEGER013(INTEGER008) - 1
  264.             :LABEL008
  265.             Goto LABEL009
  266.             Goto LABEL009
  267.         Endif
  268.         Goto LABEL001
  269.     Endif
  270.     :LABEL009
  271.     Gosub LABEL017
  272.     Gosub LABEL010
  273.     Goto LABEL013
  274.     Goto LABEL001
  275.     :LABEL010
  276.     If (Exist(PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM")) Goto LABEL011
  277.     Return
  278.     Goto LABEL012
  279.     :LABEL011
  280.     PrintLn 
  281.     InputYN "Comments Exist, Read them", STRING012, 15
  282.     PrintLn 
  283.     PrintLn 
  284.     If (STRING012 == YesChar()) Then
  285.         FOpen 1, PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM", 0, 0
  286.         BOOLEAN001 = 0
  287.         While (BOOLEAN001 == 0) Do
  288.             FGet 1, STRING013
  289.             If (STRING013 <> "") Then
  290.                 PrintLn STRING013
  291.                 Continue
  292.             Endif
  293.             BOOLEAN001 = 1
  294.         EndWhile
  295.         FClose 1
  296.     Endif
  297.     :LABEL012
  298.     Return
  299.     :LABEL013
  300.     PrintLn 
  301.     InputStr "How Do You Vote(Y/N/A)", STRING014, 12, 1, Mask_Ascii(), 4096
  302.     PrintLn 
  303.     Select Case (Lower(STRING014))
  304.         Case "y"
  305.             TINTEGER012(INTEGER008) = TINTEGER012(INTEGER008) + 1
  306.             Goto LABEL014
  307.         Case "n"
  308.             TINTEGER013(INTEGER008) = TINTEGER013(INTEGER008) + 1
  309.             Goto LABEL014
  310.         Case Else
  311.             Goto LABEL001
  312.     End Select
  313.     :LABEL014
  314.     STRING012 = ""
  315.     InputYN "Add A Comment", STRING012, 14
  316.     PrintLn 
  317.     If (STRING012 == YesChar()) Then
  318.         InputStr ">_", STRING013, 12, 75, Mask_Ascii(), 4096
  319.         PrintLn 
  320.         If (Exist(PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM")) Goto LABEL015
  321.         FCreate 2, PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM", 2, 0
  322.         FPutLn 2, "@X0E" + U_Name() + ": @X0F" + STRING013
  323.         FClose 2
  324.         Goto LABEL016
  325.         :LABEL015
  326.         FAppend 2, PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM", 2, 0
  327.         FPutLn 2, "@X0E" + U_Name() + ": @X0F" + STRING013
  328.         FClose 2
  329.     Endif
  330.     :LABEL016
  331.     Goto LABEL020
  332.     :LABEL017
  333.     For INTEGER002 = 1 To INTEGER010
  334.         If (Exist(PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + "." + I2S(INTEGER002, 10))) Then
  335.             If (CurSec() < TSTRING020(INTEGER002)) Then
  336.                 Continue
  337.                 Goto LABEL019
  338.             Endif
  339.             FOpen 1, PPEPath() + "\INFOFORM\INFOCFG." + I2S(INTEGER002, 10), 0, 0
  340.             FGet 1, STRING010
  341.             FGet 1, STRING004
  342.             For INTEGER003 = 1 To S2I(STRING004, 10)
  343.                 FGet 1, TSTRING003(INTEGER003)
  344.             Next
  345.             FClose 1
  346.             For INTEGER003 = 1 To S2I(STRING004, 10)
  347.                 Tokenize TSTRING003(INTEGER003)
  348.                 TINTEGER006(INTEGER003) = S2I(GetToken(), 10)
  349.                 TINTEGER007(INTEGER003) = S2I(GetToken(), 10)
  350.             Next
  351.             DispFile PPEPath() + "\INFOFORM\INFOFORM." + I2S(INTEGER002, 10), 1
  352.             FOpen 1, PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + "." + I2S(INTEGER002, 10), 0, 0
  353.             For INTEGER003 = 1 To S2I(STRING004, 10)
  354.                 FGet 1, STRING005
  355.                 AnsiPos TINTEGER006(INTEGER003), TINTEGER007(INTEGER003)
  356.                 Print STRING005
  357.             Next
  358.             FClose 1
  359.             AnsiPos 10, 23
  360.             Print "[ENTER] To Continue"
  361.             :LABEL018
  362.             STRING007 = Inkey()
  363.             If (!(STRING007 == STRING008)) Goto LABEL018
  364.             :LABEL019
  365.             Cls
  366.         Endif
  367.     Next
  368.     Return
  369.     :LABEL020
  370.     If (TINTEGER013(INTEGER008) >= S2I(STRING019, 10)) Then
  371.         FCreate 1, PPEPath() + "\APPS\WHOWAITS.APP", 2, 0
  372.         For INTEGER002 = 1 To INTEGER011
  373.             If (INTEGER002 <> INTEGER008) Then
  374.                 FPutLn 1, TSTRING001(INTEGER002)
  375.             Endif
  376.         Next
  377.         FClose 1
  378.         STRING015 = "\APPS\" + TSTRING011(INTEGER008) + "."
  379.         Delete PPEPath() + STRING015 + "APP"
  380.         If (Exist(PPEPath() + STRING015 + "COM")) Delete PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM"
  381.         If (Exist(PPEPath() + STRING015 + "RES")) Delete PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".RES"
  382.         For INTEGER002 = 1 To INTEGER010
  383.             If (Exist(PPEPath() + STRING015 + I2S(INTEGER002, 10))) Then
  384.                 Delete PPEPath() + STRING015 + I2S(INTEGER002, 10)
  385.             Endif
  386.         Next
  387.         If (Exist(PPEPath() + "DELETE.NXT")) Goto LABEL021
  388.         FCreate 3, PPEPath() + "DELETE.NXT", 2, 0
  389.         FPutLn 3, TSTRING001(INTEGER008)
  390.         FClose 3
  391.         Goto LABEL022
  392.         :LABEL021
  393.         FAppend 3, PPEPath() + "DELETE.NXT", 2, 0
  394.         FPutLn 3, TSTRING001(INTEGER008)
  395.         FClose 3
  396.         :LABEL022
  397.     Else
  398.         If (TINTEGER012(INTEGER008) >= S2I(STRING018, 10)) Then
  399.             FCreate 1, PPEPath() + "\APPS\WHOWAITS.APP", 2, 0
  400.             For INTEGER002 = 1 To INTEGER011
  401.                 If (INTEGER002 <> INTEGER008) Then
  402.                     FPutLn 1, TSTRING001(INTEGER002)
  403.                 Endif
  404.             Next
  405.             FClose 1
  406.             STRING015 = "\APPS\" + TSTRING011(INTEGER008) + "."
  407.             Delete PPEPath() + STRING015 + "APP"
  408.             If (Exist(PPEPath() + STRING015 + "COM")) Delete PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".COM"
  409.             If (Exist(PPEPath() + STRING015 + "RES")) Delete PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".RES"
  410.             For INTEGER002 = 1 To INTEGER010
  411.                 If (Exist(PPEPath() + STRING015 + I2S(INTEGER002, 10))) Then
  412.                     Delete PPEPath() + STRING015 + I2S(INTEGER002, 10)
  413.                 Endif
  414.             Next
  415.             If (Exist(PPEPath() + "VALID.NXT")) Goto LABEL023
  416.             FCreate 3, PPEPath() + "VALID.NXT", 2, 0
  417.             FPutLn 3, TSTRING001(INTEGER008)
  418.             FClose 3
  419.             Goto LABEL024
  420.             :LABEL023
  421.             FAppend 3, PPEPath() + "VALID.NXT", 2, 0
  422.             FPutLn 3, TSTRING001(INTEGER008)
  423.             FClose 3
  424.             :LABEL024
  425.         Else
  426.             FOpen 1, PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".RES", 0, 0
  427.             FGet 1, STRING010
  428.             FGet 1, STRING010
  429.             BOOLEAN001 = 0
  430.             INTEGER002 = 0
  431.             While (BOOLEAN001 == 0) Do
  432.                 Inc INTEGER002
  433.                 FGet 1, TSTRING022(INTEGER002)
  434.                 FGet 1, TSTRING023(INTEGER002)
  435.                 If (Lower(TSTRING022(INTEGER002)) == Lower(U_Name())) INTEGER002 = INTEGER002 - 1
  436.                 If (TSTRING022(INTEGER002) == "") BOOLEAN001 = 1
  437.             EndWhile
  438.             FClose 1
  439.             FCreate 1, PPEPath() + "\APPS\" + TSTRING011(INTEGER008) + ".RES", 2, 0
  440.             FPutLn 1, TINTEGER012(INTEGER008)
  441.             FPutLn 1, TINTEGER013(INTEGER008)
  442.             FPutLn 1, U_Name()
  443.             If (Lower(STRING014) == "y") FPutLn 1, "yes"
  444.             If (Lower(STRING014) == "n") FPutLn 1, "no"
  445.             For INTEGER003 = 1 To INTEGER002 - 1
  446.                 FPutLn 1, TSTRING022(INTEGER003)
  447.                 FPutLn 1, TSTRING023(INTEGER003)
  448.             Next
  449.             FClose 1
  450.         Endif
  451.     Endif
  452.     Goto LABEL006
  453.  
  454. ;------------------------------------------------------------------------------
  455. ;
  456. ; Usage report (before postprocessing)
  457. ;
  458. ; ■ Statements used :
  459. ;
  460. ;    6       End
  461. ;    2       Cls
  462. ;    2       Wait
  463. ;    117     Goto 
  464. ;    82      Let 
  465. ;    4       Print 
  466. ;    24      PrintLn 
  467. ;    77      If 
  468. ;    1       DispFile 
  469. ;    9       FCreate 
  470. ;    11      FOpen 
  471. ;    3       FAppend 
  472. ;    24      FClose 
  473. ;    23      FGet 
  474. ;    19      FPutLn 
  475. ;    1       StartDisp 
  476. ;    4       Hangup
  477. ;    2       GetUser
  478. ;    2       PutUser
  479. ;    8       Delete 
  480. ;    2       Log 
  481. ;    3       InputStr 
  482. ;    3       InputYN 
  483. ;    5       Gosub 
  484. ;    5       Return
  485. ;    5       Inc 
  486. ;    2       Tokenize 
  487. ;    2       AnsiPos 
  488. ;
  489. ;
  490. ; ■ Functions used :
  491. ;
  492. ;    129     +
  493. ;    11      -
  494. ;    38      ==
  495. ;    6       <>
  496. ;    15      <
  497. ;    14      <=
  498. ;    1       >
  499. ;    30      >=
  500. ;    64      !
  501. ;    30      &&
  502. ;    15      ||
  503. ;    18      Lower()
  504. ;    1       Chr()
  505. ;    9       U_Name()
  506. ;    3       YesChar()
  507. ;    1       Inkey()
  508. ;    3       Mask_Ascii()
  509. ;    50      PPEPath()
  510. ;    2       CurSec()
  511. ;    3       GetToken()
  512. ;    18      Exist()
  513. ;    13      I2S()
  514. ;    14      S2I()
  515. ;    1       TokCount()
  516. ;
  517. ;------------------------------------------------------------------------------
  518. ;
  519. ; Analysis flags : WB
  520. ;
  521. ; W - Write user ■ 5
  522. ;     Program writes a user record. Although this may be normal for a
  523. ;     User Editor, it may also be a way to modify an account level.
  524. ;     ■ Search for : PUTUSER
  525. ;
  526. ; B - Brute hangup ■ 1
  527. ;     Program hangup without notification. This may be a good way to
  528. ;     disconnect a user, but if used randomly, may be very nasty
  529. ;     ■ Search for : HANGUP, DTROFF
  530. ;
  531. ;------------------------------------------------------------------------------
  532. ;
  533. ; Postprocessing report
  534. ;
  535. ;    14      For/Next
  536. ;    9       While/EndWhile
  537. ;    29      If/Then or If/Then/Else
  538. ;    1       Select Case
  539. ;
  540. ;------------------------------------------------------------------------------
  541. ;                 AEGiS Corp - Break the routines, code against the machines!
  542. ;------------------------------------------------------------------------------
  543.