home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR9 / VOTE100.ZIP / VOTE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-11  |  13KB  |  450 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  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  TINTEGER013(9)
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  TINTEGER017(99)
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     String   TSTRING001(4)
  45.     String   STRING002
  46.     String   STRING003
  47.     String   STRING004
  48.     String   STRING005
  49.     String   STRING006
  50.     String   STRING007
  51.     String   TSTRING008(9)
  52.     String   STRING009
  53.     String   STRING010
  54.     String   TSTRING011(9)
  55.     String   STRING012
  56.     String   STRING013
  57.     String   STRING014
  58.     String   STRING015
  59.     String   STRING016
  60.  
  61. ;------------------------------------------------------------------------------
  62.  
  63.     GetUser
  64.     STRING005 = Time()
  65.     Log "+++ Entered Voter++ at -> " + STRING005, 0
  66.     RdUNet PcbNode()
  67.     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "RUNNING " + PPEName(), ""
  68.     FOpen 1, PPEPath() + PPEName() + ".CFG", 0, 0
  69.     For INTEGER001 = 1 To 4
  70.         FGet 1, TSTRING001(INTEGER001)
  71.         TSTRING001(INTEGER001) = RTrim(Left(TSTRING001(INTEGER001), 29), " ")
  72.     Next
  73.     FClose 1
  74.     STRING014 = TSTRING001(2) + TSTRING001(3)
  75.     STRING014 = Strip(STRING014, " ")
  76.     For INTEGER018 = 1 To Len(STRING014)
  77.         TINTEGER017(INTEGER018) = Asc(Mid(STRING014, INTEGER018, 1))
  78.     Next
  79.     INTEGER019 = 0
  80.     For INTEGER018 = 1 To 80
  81.         INTEGER019 = INTEGER019 + TINTEGER017(INTEGER018)
  82.     Next
  83.     INTEGER016 = INTEGER019 * 709
  84.     If (AnsiOn()) Goto LABEL001
  85.     PrintLn "Sorry, but this program requires you to have ANSI capabilities, if you"
  86.     PrintLn "would like to use this voting door, then please type M at the main menu"
  87.     PrintLn "this will place you in graphics mode, and allow you to use this door."
  88.     End
  89.     :LABEL001
  90.     Gosub LABEL010
  91.     StartDisp 1
  92.     Cls
  93.     Newlines 1
  94.     PrintLn " @X0F∞                                                                         ∞ "
  95.     PrintLn "                                                                             "
  96.     PrintLn "      @X0A ╓─┐ ╥  ┬ ╥──┐ ╥  ┬ ─╥─ ╥  ┬ ╓──┐ ╥          ╓─╥─┐ ╥──┐ ╓──┐ ╥  ┬  "
  97.     PrintLn "      @X04 ╙─┐ ║  │ ╟─┬┘ ╙╖┌┘  ║  ╙╖┌┘ ╟──┤ ║     ───    ║   ╟─   ║    ╟──┤  "
  98.     PrintLn "      @X02╙──┘ ╙──┘ ╨ ┴   ╙┘  ─╨─  ╙┘  ╨  ┴ ╨──┘         ╨   ╨──┘ ╙──┘ ╨  ┴ o"
  99.     PrintLn "                                                                         "
  100.     PrintLn "                          @X0D▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                            "
  101.     PrintLn "                                  @X0BPRESENTS                                    "
  102.     PrintLn "          @X0A┌─┐    ┌─┐ ┌──────┐ ┌─────┐ ┌─────┐ ┌──────┐                       "
  103.     PrintLn "          │ │    │ │ │ ┌──┐ │ └─┐ ┌─┘ │ ┌───┘ │ ┌──┐ │   @X09 ┌─┐   ┌─┐          "
  104.     PrintLn "          @X04└┐└┐  ┌┘┌┘ │ │  │ │   │ │   │ └─┐   │ └──┘ │   @X09┌┘ └┐ ┌┘ └┐         "
  105.     PrintLn "          @X02 └┐└┐┌┘┌┘  │ │  │ │   │ │   │ ┌─┘   │ ┌─┐ ┌┘   @X09└┐ ┌┘ └┐ ┌┘         "
  106.     PrintLn "          @X02  └┐└┘┌┘   │ └──┘ │   │ │   │ └───┐ │ │ │ └┐   @X09 └─┘   └─┘          "
  107.     PrintLn "          @X02   └──┘    └──────┘   └─┘   └─────┘ └─┘ └──┘                       "
  108.     PrintLn "                                                                             "
  109.     PrintLn "                           @X06(C)94 Bill Marcy  @X03V1.0 "
  110.     PrintLn "                                                                             "
  111.     PrintLn " @X0F∞                                                                         ∞ "
  112.     If (INTEGER016 == TSTRING001(4)) Then
  113.         OpText "This program is registered to"
  114.         AnsiPos 0, 20
  115.         PrintLn "@X09@OPTEXT:76C@"
  116.         OpText TSTRING001(3)
  117.         AnsiPos 0, 21
  118.         PrintLn "@X03@OPTEXT:76C@"
  119.         Delay (3 * 182) / 10
  120.     Else
  121.         For INTEGER015 = 5 To 0 Step -1
  122.             AnsiPos 9, 2
  123.             PrintLn "@X0EThis @X0B", INTEGER015, "@X0E second delay is removed once this program is registered "
  124.             Delay (1.5 * 182) / 18
  125.         Next
  126.         For INTEGER015 = 5 To 0 Step -1
  127.             AnsiPos 2, 21
  128.             PrintLn "@X0CPlease help your sysop register this program and remove this@X0E @X8B", INTEGER015, "@X0C second delay@X0F"
  129.             Delay (1.5 * 182) / 18
  130.         Next
  131.     Endif
  132.     :LABEL002
  133.     Cls
  134.     PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  135.     PrintLn "@X70│@X72··@X7EVoter++@X72···················@X71User Voting Area@X72······················@X74Main Menu@X72··@X7F│@X0F"
  136.     PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X0F"
  137.     PrintLn "@X70┌───────────────────────────────────@X7F┐@X70┌────────────────────────────────────────@X7F┐@X0F"
  138.     PrintLn "@X70│  @X76(@X71H@X76) - @X79Help with using Voter++    @X7F│@X70│  @X7ETotal number of booths is @X74            @X7F│@X0F"
  139.     PrintLn "@X70│  @X76(@X71L@X76) - @X79Look at available booths   @X7F│@X70│  @X7ETotal number of voters is @X740@X7E.          @X7F│@X0F"
  140.     PrintLn "@X70│  @X76(@X71V@X76) - @X79Vote! on a booth question  @X7F│@X70└@X7F────────────────────────────────────────┘@X0F"
  141.     PrintLn "@X70│  @X76(@X71D@X76) - @X79Display Voter Results      @X7F│@X70┌────────────────────────────────────────@X7F┐@X0F"
  142.     PrintLn "@X70│  @X76(@X74Q@X76) - @X74Quit back to the BBS       @X7F│@X70│ @X71(C)94 Survival Tech. Software   @X75 V1.0ß @X7F│@X0F"
  143.     PrintLn "@X70└@X7F───────────────────────────────────┘@X70└@X7F────────────────────────────────────────┘@X0F"
  144.     PrintLn "@X70┌───────────────────────────────────@X7F┐@X0F"
  145.     PrintLn "@X70│                                   @X7F│@X0F"
  146.     PrintLn "@X70└@X7F───────────────────────────────────┘@X0F"
  147.     Gosub LABEL009
  148.     AnsiPos 7, 12
  149.     PrintLn "@X76─ @X7EWhat is your choice@X0F"
  150.     AnsiPos 2, 12
  151.     InputStr " @X7E", STRING002, 116, 1, "HhLlVvDdQq", 4
  152.     If (Upper(STRING002) == "H") Goto LABEL003
  153.     If (Upper(STRING002) == "L") Goto LABEL004
  154.     If (Upper(STRING002) == "V") Goto LABEL005
  155.     If (Upper(STRING002) == "D") Goto LABEL007
  156.     If (Upper(STRING002) == "Q") Goto LABEL008
  157.     :LABEL003
  158.     Cls
  159.     DispFile PPEPath() + "HELP.DSP", 2 + 1 + 4
  160.     Wait
  161.     Goto LABEL002
  162.     Print "@X0F"
  163.     :LABEL004
  164.     Cls
  165.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  166.     PrintLn "@X70│  @X7EVoter++                                          @X74Available Voting Booths @X7F│@X0F"
  167.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  168.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  169.     For INTEGER001 = 1 To TSTRING001(1)
  170.         STRING003 = INTEGER001
  171.         STRING004 = ReadLine(PPEPath() + "VOTE" + STRING003 + ".QUE", 1)
  172.         INTEGER002 = 71 - Len(STRING004)
  173.         PrintLn "@X70│@X74 ", INTEGER001, "@X76)@X71 ", STRING004 + Space(INTEGER002), "@X7F│@X0F"
  174.     Next
  175.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  176.     Newline
  177.     Wait
  178.     Goto LABEL002
  179.     :LABEL005
  180.     Cls
  181.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  182.     PrintLn "@X70│  @X7EVoter++        @X71Please Choose from the booths below          @X74Voting Area  @X7F│@X0F"
  183.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  184.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  185.     For INTEGER001 = 1 To TSTRING001(1)
  186.         STRING003 = INTEGER001
  187.         STRING004 = ReadLine(PPEPath() + "VOTE" + STRING003 + ".QUE", 1)
  188.         INTEGER002 = 71 - Len(STRING004)
  189.         PrintLn "@X70│@X74 ", INTEGER001, "@X76)@X71 ", STRING004 + Space(INTEGER002), "@X7F│@X0F"
  190.     Next
  191.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  192.     InputStr "   @X03  Your Choice -> ", STRING002, 14, 1, "1234567890", 0 + 4
  193.     If (STRING002 == "") Goto LABEL005
  194.     Gosub LABEL011
  195.     If (STRING016 == "Y") Goto LABEL014
  196.     :LABEL006
  197.     Cls
  198.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  199.     STRING006 = ReadLine(PPEPath() + "VOTE" + STRING002 + ".QUE", 1)
  200.     INTEGER002 = 71 - Len(STRING006)
  201.     PrintLn "@X70│ @X74Q: @X71", STRING006 + Space(INTEGER002), "@X7F│@X0F"
  202.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  203.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  204.     INTEGER003 = 1
  205.     For INTEGER001 = 1 To 9
  206.         Inc INTEGER003
  207.         STRING006 = ReadLine(PPEPath() + "vote" + STRING002 + ".que", INTEGER003)
  208.         If (STRING006 == "") Break
  209.         INTEGER002 = 71 - Len(STRING006)
  210.         PrintLn "@X70│@X74 ", INTEGER001, "@X76)@X71 ", STRING006 + Space(INTEGER002), "@X7F│@X0F"
  211.     Next
  212.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  213.     InputStr "   @X03  Your Choice -> ", STRING007, 14, 1, "1234567890", 0 + 4
  214.     If (STRING007 == "") Goto LABEL006
  215.     FAppend 5, PPEPath() + "vote" + STRING002 + ".nam", 2, 0
  216.     FPutLn 5, U_Name() + " / " + String(Date()) + " / Answer " + STRING007
  217.     FClose 5
  218.     INTEGER005 = INTEGER001 - 1
  219.     For INTEGER004 = 1 To INTEGER005
  220.         FOpen 6, PPEPath() + "vote" + STRING002 + ".ans", 2, 0
  221.         FGet 6, TSTRING008(INTEGER004)
  222.     Next
  223.     FClose 6
  224.     TSTRING008(STRING007) = TSTRING008(STRING007) + 1
  225.     FOpen 7, PPEPath() + "VOTE" + STRING002 + ".ANS", 1, 0
  226.     For INTEGER006 = 1 To 9
  227.         FPutLn 7, TSTRING008(INTEGER006)
  228.     Next
  229.     FClose 7
  230.     Newlines 1
  231.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  232.     PrintLn "@X70│@X74Thank you for casting your vote  Make sure you take a look at the results! @X7F│@X0F"
  233.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  234.     Delay (2 * 182) / 10
  235.     Goto LABEL002
  236.     :LABEL007
  237.     Cls
  238.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  239.     PrintLn "@X70│  @X7EVoter++                                          @X74Voter Statistics Area   @X7F│@X0F"
  240.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  241.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  242.     For INTEGER007 = 1 To TSTRING001(1)
  243.         STRING009 = INTEGER007
  244.         STRING004 = ReadLine(PPEPath() + "VOTE" + STRING009 + ".QUE", 1)
  245.         INTEGER002 = 71 - Len(STRING004)
  246.         PrintLn "@X70│@X74 ", INTEGER007, "@X76)@X71 ", STRING004 + Space(INTEGER002), "@X7F│@X0F"
  247.     Next
  248.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  249.     InputStr "   @X03  See What Stat -> ", STRING010, 14, 1, "1234567890", 0 + 4
  250.     Newlines 2
  251.     INTEGER014 = 0
  252.     FOpen 3, PPEPath() + "VOTE" + STRING010 + ".ANS", 2, 0
  253.     For INTEGER008 = 1 To 9
  254.         FGet 3, TSTRING011(INTEGER008)
  255.         INTEGER014 = INTEGER014 + TSTRING011(INTEGER008)
  256.     Next
  257.     FClose 3
  258.     Cls
  259.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  260.     STRING013 = ReadLine(PPEPath() + "VOTE" + STRING010 + ".QUE", 1)
  261.     INTEGER012 = 71 - Len(STRING013)
  262.     PrintLn "@X70│ @X74Q: @X71", STRING013 + Space(INTEGER012), "@X7F│@X0F"
  263.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  264.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  265.     PrintLn "@X70│ @X7EVotes  @X74%%%  @X71Answer                                                        @X7F│@X0F"
  266.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  267.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  268.     INTEGER009 = 1
  269.     For INTEGER011 = 1 To 9
  270.         TINTEGER013(INTEGER011) = TSTRING011(INTEGER011)
  271.         Inc INTEGER009
  272.         STRING012 = ReadLine(PPEPath() + "vote" + STRING010 + ".que", INTEGER009)
  273.         If (STRING012 == "") Break
  274.         If (TSTRING011(INTEGER011) == "") Then
  275.             TSTRING011(INTEGER011) = 0
  276.         Endif
  277.         If (Len(TSTRING011(INTEGER011)) <= 1) Then
  278.             INTEGER020 = 4
  279.         Else
  280.             Select Case (Len(TSTRING011(INTEGER011)))
  281.                 Case 2
  282.                     INTEGER020 = 3
  283.                 Case 3
  284.                     INTEGER020 = 2
  285.                 Endif
  286.         End Select
  287.         INTEGER022 = (TINTEGER013(INTEGER011) * 100) / INTEGER014
  288.         If (Len(INTEGER022) <= 1) Then
  289.             INTEGER021 = 5
  290.         Else
  291.             Select Case (Len(INTEGER022))
  292.                 Case 2
  293.                     INTEGER021 = 4
  294.                 Case 3
  295.                     INTEGER021 = 3
  296.                 Endif
  297.         End Select
  298.         INTEGER010 = 64 - Len(STRING012) + Len(TINTEGER013(INTEGER011)) + Len(TSTRING011(INTEGER011))
  299.         PrintLn "@X70│@X7E", Space(INTEGER020), TSTRING011(INTEGER011), "@X74", Space(INTEGER021), INTEGER022, "@X71  ", STRING012 + Space(INTEGER010), "@X7F│@X0F"
  300.     Next
  301.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  302.     Newline
  303.     Wait
  304.     Goto LABEL002
  305.     :LABEL008
  306.     AnsiPos 38, 11
  307.     PrintLn "@X70┌────────────────────────────────────────@X7F┐@X0F"
  308.     AnsiPos 38, 12
  309.     PrintLn "@X70│ @XF4 @XF6 @X74Thank you for using Voter++ @XF6@XF4@X7F   │@X0F"
  310.     AnsiPos 38, 13
  311.     PrintLn "@X70└@X7F────────────────────────────────────────┘@X0F"
  312.     STRING005 = Time()
  313.     Log "--- Exited  Voter++ at -> " + STRING005, 0
  314.     End
  315.     :LABEL009
  316.     AnsiPos 67, 5
  317.     PrintLn "@X74", TSTRING001(1), "@X7E."
  318.     AnsiPos 67, 6
  319.     PrintLn "@X74", INTEGER025, "@X7E."
  320.     Return
  321.     :LABEL010
  322.     INTEGER025 = 0
  323.     INTEGER025 = ReadLine(PPEPath() + PPEName() + ".NUM", 1)
  324.     INTEGER025 = INTEGER025 + 1
  325.     FOpen 2, PPEPath() + PPEName() + ".NUM", 2, 0
  326.     FPut 2, INTEGER025
  327.     FClose 2
  328.     Return
  329.     :LABEL011
  330.     INTEGER023 = 0
  331.     FOpen 3, PPEPath() + "VOTE" + STRING002 + ".NAM", 2, 0
  332.     :LABEL012
  333.     If (Ferr(3)) Goto LABEL013
  334.     Inc INTEGER023
  335.     FGet 3, STRING015
  336.     Goto LABEL012
  337.     :LABEL013
  338.     FClose 3
  339.     INTEGER023 = INTEGER023 - 1
  340.     If (INTEGER023 == 0) Then
  341.         INTEGER023 = 1
  342.     Endif
  343.     INTEGER024 = Len(U_Name())
  344.     FOpen 4, PPEPath() + "VOTE" + STRING002 + ".NAM", 2, 0
  345.     For INTEGER001 = 1 To INTEGER023
  346.         FGet 4, STRING015
  347.         If (Left(STRING015, INTEGER024) == U_Name()) Then
  348.             STRING016 = "Y"
  349.         Endif
  350.     Next
  351.     FClose 4
  352.     Return
  353.     :LABEL014
  354.     Newlines 1
  355.     PrintLn "@X70┌───────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  356.     PrintLn "@X70│ @X74Sorry but you have already voted on this question, please choose another. @X7F│@X0F"
  357.     PrintLn "@X70└@X7F───────────────────────────────────────────────────────────────────────────┘@X0F"
  358.     Delay (3 * 182) / 10
  359.     Goto LABEL002
  360.  
  361. ;------------------------------------------------------------------------------
  362. ;
  363. ; Usage report (before postprocessing)
  364. ;
  365. ; ■ Statements used :
  366. ;
  367. ;    2       End
  368. ;    8       Cls
  369. ;    3       Wait
  370. ;    61      Goto 
  371. ;    77      Let 
  372. ;    1       Print 
  373. ;    83      PrintLn 
  374. ;    36      If 
  375. ;    1       DispFile 
  376. ;    7       FOpen 
  377. ;    1       FAppend 
  378. ;    8       FClose 
  379. ;    5       FGet 
  380. ;    1       FPut 
  381. ;    2       FPutLn 
  382. ;    1       StartDisp 
  383. ;    1       GetUser
  384. ;    2       Log 
  385. ;    4       InputStr 
  386. ;    3       Gosub 
  387. ;    3       Return
  388. ;    5       Delay 
  389. ;    3       Inc 
  390. ;    2       Newline
  391. ;    4       Newlines 
  392. ;    2       OpText 
  393. ;    1       RdUNet 
  394. ;    1       WrUNet 
  395. ;    11      AnsiPos 
  396. ;
  397. ;
  398. ; ■ Functions used :
  399. ;
  400. ;    6       -
  401. ;    7       *
  402. ;    6       /
  403. ;    86      +
  404. ;    9       -
  405. ;    18      ==
  406. ;    14      <
  407. ;    16      <=
  408. ;    28      >=
  409. ;    25      !
  410. ;    28      &&
  411. ;    14      ||
  412. ;    18      Len(
  413. ;    5       Upper()
  414. ;    1       Mid()
  415. ;    2       Left()
  416. ;    9       Space()
  417. ;    1       Ferr()
  418. ;    1       Asc()
  419. ;    1       RTrim()
  420. ;    1       Date()
  421. ;    2       Time()
  422. ;    3       U_Name()
  423. ;    1       Strip()
  424. ;    1       String()
  425. ;    17      PPEPath()
  426. ;    2       PcbNode()
  427. ;    8       ReadLine()
  428. ;    1       UN_Stat()
  429. ;    1       UN_Name()
  430. ;    1       UN_City()
  431. ;    1       AnsiOn()
  432. ;    4       PPEName()
  433. ;
  434. ;------------------------------------------------------------------------------
  435. ;
  436. ; Analysis flags : No flag
  437. ;
  438. ;------------------------------------------------------------------------------
  439. ;
  440. ; Postprocessing report
  441. ;
  442. ;    14      For/Next
  443. ;    0       While/EndWhile
  444. ;    6       If/Then or If/Then/Else
  445. ;    2       Select Case
  446. ;
  447. ;------------------------------------------------------------------------------
  448. ;                 AEGiS Corp - Break the routines, code against the machines!
  449. ;------------------------------------------------------------------------------
  450.