home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SL_VOTE1.ZIP / SL-VOTE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-10-20  |  9KB  |  558 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  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  TINTEGER004(16)
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     Integer  INTEGER007
  29.     Integer  INTEGER008
  30.     Integer  INTEGER009
  31.     Integer  INTEGER010
  32.     Integer  INTEGER011
  33.     Integer  INTEGER012
  34.     Integer  INTEGER013
  35.     Integer  TINTEGER014(99)
  36.     Integer  TINTEGER015(99)
  37.     Integer  TINTEGER016(99)
  38.     Integer  INTEGER017
  39.     String   STRING001
  40.     String   STRING002
  41.     String   STRING003
  42.     String   STRING004
  43.     String   STRING005
  44.     String   STRING006
  45.     String   STRING007
  46.     String   STRING008
  47.     String   STRING009
  48.     String   STRING010
  49.     String   TSTRING011(16)
  50.     String   STRING012
  51.     String   STRING013
  52.     String   STRING014
  53.  
  54. ;------------------------------------------------------------------------------
  55.  
  56.     Cls
  57.     GetUser
  58.     If (Exist(PPEPath() + "SL-VOTE.CNF")) Goto LABEL001
  59.     PrintLn "@X8CConfiguration file Error @X0F Please Notify your Sysop"
  60.     End
  61.     :LABEL001
  62.     FOpen 1, PPEPath() + "sl-vote.cnf", 0, 0
  63.     FGet 1, STRING001
  64.     FGet 1, STRING006
  65.     FGet 1, STRING005
  66.     FGet 1, INTEGER008
  67.     FGet 1, INTEGER001
  68.     FGet 1, INTEGER012
  69.     FGet 1, STRING009
  70.     FGet 1, STRING008
  71.     FGet 1, STRING010
  72.     FClose 1
  73.     If (STRING010 == "") Then
  74.         STRING010 = "@X07(@X0B@TIMELEFT@ @X07min.) @X0FSurreal@X07 Voting Booth Command"
  75.     Endif
  76.     INTEGER009 = 1
  77.     STRING003 = Strip(STRING006, " ")
  78.     STRING004 = Strip(STRING005, " ")
  79.     STRING002 = Strip(STRING001, " ")
  80.     INTEGER006 = S2I(STRING002, 14)
  81.     INTEGER007 = S2I(STRING003, 11)
  82.     INTEGER005 = S2I(STRING004, 23)
  83.     If (INTEGER008 == 0) Then
  84.         BOOLEAN001 = 0
  85.         STRING001 = "@X8FUnregistered Evaluation Copy@X07"
  86.         Goto LABEL003
  87.     ElseIf (INTEGER008 == ((INTEGER006 + 69) * (94 + INTEGER007)) / INTEGER005) Then
  88.         BOOLEAN001 = 1
  89.         Goto LABEL002
  90.     Endif
  91.     BOOLEAN001 = 0
  92.     STRING001 = "@X8FUnregistered Evaluation Copy@X07"
  93.     :LABEL002
  94.     DispFile STRING009, 4 + 1 + 2
  95.     Delay 36
  96.     PrintLn "@X07Registered to: @X0B", STRING001
  97.     PrintLn 
  98.     Wait
  99.     :LABEL003
  100.     STRING007 = ""
  101.     Cls
  102.     If (Exist(PPEPath() + "sl-vote.mnu")) Then
  103.         DispFile "sl-vote.mnu", 0
  104.     Else
  105.         PrintLn 
  106.         PrintLn "@X0FSurreal Voting Booth"
  107.         PrintLn 
  108.         PrintLn "@X08(@X0BV@X08)ote on a Current Topic"
  109.         PrintLn "@X08(@X0BR@X08)esults on Current Topics"
  110.         PrintLn "@X08==================================="
  111.         PrintLn "@X08(@X0BH@X08)elp"
  112.         PrintLn "@X08(@X0BQ@X08)uit      (@X0BG@X08)oodbye!"
  113.         PrintLn 
  114.     Endif
  115.     InputStr STRING010, STRING007, 8, 1, "VRADHGQvradhgq", 0
  116.     STRING007 = Upper(STRING007)
  117.     If (STRING007 == "G") Goodbye
  118.     If (STRING007 == "Q") Goto LABEL026
  119.     If (STRING007 == "V") Goto LABEL004
  120.     If (STRING007 == "R") Goto LABEL008
  121.     If (STRING007 == "H") Goto LABEL023
  122.     Goto LABEL003
  123.     :LABEL004
  124.     INTEGER002 = ""
  125.     Cls
  126.     If (Exist(PPEPath() + STRING008)) Then
  127.         DispFile PPEPath() + STRING008, 0
  128.     Else
  129.         PrintLn "@X8C There is an Error with the Polls Listing    Notify Sysop!"
  130.         End
  131.     Endif
  132.     STRING007 = ""
  133.     PrintLn 
  134.     InputStr "Which topic do you wish to Vote on", STRING007, 8, 2, Mask_Num(), 0
  135.     If (STRING007 == "") Goto LABEL003
  136.     If (STRING007 > INTEGER001) Then
  137.         PrintLn 
  138.         PrintLn "@X0CInvalid Topic Number! @X0F Try again..."
  139.         Goto LABEL004
  140.     Endif
  141.     INTEGER009 = 1
  142.     If (Exist(PPEPath() + "sl-vote.q" + STRING007)) Goto LABEL005
  143.     PrintLn 
  144.     PrintLn "@X0CTopic Not Found...Try Again"
  145.     PrintLn 
  146.     Wait
  147.     Goto LABEL004
  148.     :LABEL005
  149.     INTEGER009 = 1
  150.     FOpen 1, PPEPath() + "sl-vote.n" + STRING007, 2, 2
  151.     INTEGER009 = 1
  152.     BOOLEAN002 = 0
  153.     BOOLEAN003 = 0
  154.     :LABEL006
  155.     If (BOOLEAN003) Goto LABEL007
  156.     FGet 1, STRING013
  157.     If (InStr(STRING013, U_Name())) Then
  158.         BOOLEAN002 = 1
  159.         BOOLEAN003 = 1
  160.     Endif
  161.     If (Len((STRING013 == 0))) BOOLEAN003 = 1
  162.     Goto LABEL006
  163.     :LABEL007
  164.     If (BOOLEAN002 == 1) Goto LABEL024
  165.     FClose 1
  166.     INTEGER009 = 1
  167.     FOpen 1, PPEPath() + "sl-vote.q" + STRING007, 2, 2
  168.     FGet 1, STRING012
  169.     FGet 1, STRING014
  170.     FGet 1, INTEGER003
  171.     FGet 1, INTEGER010
  172.     If (INTEGER010 > 16) INTEGER010 = 16
  173.     While (INTEGER009 <= INTEGER010) Do
  174.         FGet 1, TSTRING011(INTEGER009)
  175.         FGet 1, TINTEGER004(INTEGER009)
  176.         Inc INTEGER009
  177.     EndWhile
  178.     FClose 1
  179.     Cls
  180.     PrintLn 
  181.     PrintLn STRING012
  182.     PrintLn 
  183.     INTEGER009 = 1
  184.     PrintLn "@X0B 0 @X07·@X03 Go Back to Main Menu"
  185.     While (INTEGER009 <= INTEGER010) Do
  186.         PrintLn "@X0B ", INTEGER009, " @X07·@X03 ", TSTRING011(INTEGER009)
  187.         Inc INTEGER009
  188.     EndWhile
  189.     PrintLn 
  190.     InputText "@X0B(@X03@TIMELEFT@ @X08min.@X0B) Your Vote", INTEGER002, 8, 2
  191.     If (INTEGER002 == 0) Goto LABEL003
  192.     Inc TINTEGER004(INTEGER002)
  193.     INTEGER009 = 1
  194.     FCreate 1, PPEPath() + "sl-vote.q" + STRING007, 1, 2
  195.     FPutLn 1, STRING012
  196.     FPutLn 1, INTEGER003 + 1
  197.     FPutLn 1, INTEGER010
  198.     While (INTEGER009 <= INTEGER010) Do
  199.         FPutLn 1, TSTRING011(INTEGER009)
  200.         FPutLn 1, TINTEGER004(INTEGER009)
  201.         Inc INTEGER009
  202.     EndWhile
  203.     FClose 1
  204.     Goto LABEL025
  205.     :LABEL008
  206.     INTEGER002 = ""
  207.     Cls
  208.     If (Exist(PPEPath() + STRING008)) Then
  209.         DispFile PPEPath() + STRING008, 0
  210.     Else
  211.         PrintLn "@X8C There is an Error with the Polls Listing    Notify Sysop!"
  212.         End
  213.     Endif
  214.     STRING007 = ""
  215.     PrintLn 
  216.     InputStr "Which topic do you wish to View Results of", STRING007, 8, 2, Mask_Num(), 0
  217.     If (STRING007 == "") Goto LABEL003
  218.     If (STRING007 > INTEGER001) Then
  219.         PrintLn 
  220.         PrintLn "@X0CInvalid Topic Number! @X0F Try again..."
  221.         Goto LABEL008
  222.     Endif
  223.     INTEGER009 = 1
  224.     If (Exist(PPEPath() + "sl-vote.q" + STRING007)) Goto LABEL009
  225.     PrintLn 
  226.     PrintLn "@X0CTopic Not Found...Try Again"
  227.     PrintLn 
  228.     Wait
  229.     Goto LABEL008
  230.     :LABEL009
  231.     FOpen 1, PPEPath() + "sl-vote.q" + STRING007, 2, 2
  232.     FGet 1, STRING012
  233.     FGet 1, STRING014
  234.     FGet 1, INTEGER003
  235.     FGet 1, INTEGER010
  236.     If (INTEGER010 > 16) INTEGER010 = 16
  237.     While (INTEGER009 <= INTEGER010) Do
  238.         FGet 1, TSTRING011(INTEGER009)
  239.         FGet 1, TINTEGER004(INTEGER009)
  240.         Inc INTEGER009
  241.     EndWhile
  242.     FClose 1
  243.     Cls
  244.     INTEGER009 = 1
  245.     PrintLn 
  246.     PrintLn 
  247.     PrintLn "    ", STRING012
  248.     PrintLn "══════════════════════════════════════════════════════════════"
  249.     PrintLn "Number of Votes      Percentage          Answer"
  250.     PrintLn 
  251.     While (INTEGER009 <= INTEGER010) Do
  252.         PrintLn "       ", TINTEGER004(INTEGER009), "                  ", (TINTEGER004(INTEGER009) * 100) / INTEGER003, "%            ", Left(TSTRING011(INTEGER009), 14)
  253.         Inc INTEGER009
  254.     EndWhile
  255.     PrintLn "══════════════════════════════════════════════════════════════"
  256.     PrintLn "Total Number of Votes: ", INTEGER003
  257.     FOpen 1, PPEPath() + "sl-vote.n" + STRING007, 2, 2
  258.     INTEGER009 = 1
  259.     BOOLEAN003 = 0
  260.     BOOLEAN002 = 0
  261.     :LABEL010
  262.     If (BOOLEAN003) Goto LABEL011
  263.     FGet 1, STRING013
  264.     If (InStr(STRING013, U_Name())) Then
  265.         BOOLEAN002 = 1
  266.         BOOLEAN003 = 1
  267.     Endif
  268.     If (Len((STRING013 == 0))) BOOLEAN003 = 1
  269.     Goto LABEL010
  270.     :LABEL011
  271.     If (BOOLEAN002 == 1) Goto LABEL012
  272.     Goto LABEL013
  273.     :LABEL012
  274.     PrintLn "Your Vote was: ", TSTRING011(Right(STRING013, 1))
  275.     PrintLn 
  276.     Wait
  277.     FClose 1
  278.     Goto LABEL003
  279.     :LABEL013
  280.     PrintLn "Your Vote was: You Haven't Voted on This Topic!"
  281.     PrintLn 
  282.     Wait
  283.     FClose 1
  284.     Goto LABEL003
  285.     If (CurSec() < INTEGER012) Then
  286.         PrintLn 
  287.         PrintLn "@X8CYour Security is too low to Add a Booth!@X07"
  288.         PrintLn 
  289.         PrintLn 
  290.         Wait
  291.         Goto LABEL003
  292.     Endif
  293.     If (Exist(PPEPath() + "sl-vote.q" + INTEGER001)) Then
  294.         PrintLn 
  295.         PrintLn "@X0CSorry, there are already ", INTEGER001, " Topics up to be voted on."
  296.         PrintLn "Either Delete one of your Polls, or ask your Sysop to."
  297.         PrintLn 
  298.         Wait
  299.         Goto LABEL003
  300.     Endif
  301.     Cls
  302.     PrintLn 
  303.     STRING007 = ""
  304.     InputYN "Do you wish to Add a Booth", STRING007, 3
  305.     If ((Upper(STRING007) == "N") || (Upper(STRING007) == NoChar())) Then
  306.         STRING007 = ""
  307.         Goto LABEL003
  308.     Endif
  309.     Cls
  310.     STRING012 = ""
  311.     :LABEL014
  312.     PrintLn "What Question do you wish to ask?"
  313.     InputStr ">_", STRING007, 11, 78, Mask_Ascii(), 0
  314.     If (Len(STRING007) == 0) Goto LABEL003
  315.     STRING007 = Upper(STRING007)
  316.     If ((InStr(STRING007, "FUCK") || InStr(STRING007, "DAMN")) || InStr(STRING007, "SHIT")) Goto LABEL014
  317.     STRING007 = STRING012
  318.     STRING007 = ""
  319.     PrintLn 
  320.     PrintLn 
  321.     PrintLn "You can Have 16 different Responses.  Enter a Blank to End."
  322.     INTEGER009 = 1
  323.     BOOLEAN003 = 0
  324.     While ((INTEGER009 <= 16) && !BOOLEAN003) Do
  325.         Print "Answer ("
  326.         Print INTEGER009
  327.         Print ")"
  328.         InputStr "", TSTRING011(INTEGER009), 3, 36, Mask_Ascii(), 0
  329.         PrintLn 
  330.         If (Len(TSTRING011(INTEGER009)) == 0) BOOLEAN003 = 1
  331.         Inc INTEGER009
  332.     EndWhile
  333.     INTEGER013 = 1
  334.     If (Exist(PPEPath() + "sl-vote.q1")) Then
  335.         :LABEL015
  336.         If (BOOLEAN002) Goto LABEL016
  337.         If (!Exist(PPEPath() + "sl-vote.q" + INTEGER013)) BOOLEAN002 = 1
  338.         Inc INTEGER013
  339.         Goto LABEL015
  340.         :LABEL016
  341.         INTEGER013 = INTEGER013 - 1
  342.     Endif
  343.     STRING014 = Left(Upper(U_Name()), 1) + Lower(Right(Upper(U_Name()), Len(Upper(U_Name())) - 1))
  344.     FCreate 1, PPEPath() + "sl-vote.q" + INTEGER013, 1, 3
  345.     FPutLn 1, STRING012
  346.     FPutLn 1, STRING014
  347.     FPutLn 1, "0"
  348.     FPutLn 1, INTEGER009
  349.     INTEGER009 = 1
  350.     BOOLEAN003 = 0
  351.     While ((INTEGER009 <= 16) && !BOOLEAN003) Do
  352.         FPutLn 1, TSTRING011(INTEGER009)
  353.         FPutLn 1, "0"
  354.         PrintLn TSTRING011(INTEGER009)
  355.         If (Len(TSTRING011(INTEGER009)) <= 0) BOOLEAN003 = 1
  356.         Inc INTEGER009
  357.     EndWhile
  358.     FClose 1
  359.     PrintLn STRING008
  360.     INTEGER009 = 1
  361.     FOpen 1, PPEPath() + "sl-vote.dat", 2, 2
  362.     BOOLEAN003 = 0
  363.     :LABEL017
  364.     If (BOOLEAN003) Goto LABEL018
  365.     FGet 1, TINTEGER014(INTEGER009)
  366.     Tokenize TINTEGER014(INTEGER009)
  367.     GetToken TINTEGER015(INTEGER009)
  368.     GetToken TINTEGER016(INTEGER009)
  369.     If (TINTEGER015(INTEGER009) > INTEGER013) BOOLEAN003 = 1
  370.     Inc INTEGER009
  371.     Goto LABEL017
  372.     :LABEL018
  373.     INTEGER017 = TINTEGER015(INTEGER009) - 1
  374.     While (Len(TINTEGER014(INTEGER009)) <> 0) Do
  375.         FGet 1, TINTEGER014(INTEGER009)
  376.         Tokenize TINTEGER014(INTEGER009)
  377.         GetToken TINTEGER015(INTEGER009)
  378.         GetToken TINTEGER016(INTEGER009)
  379.         Inc INTEGER009
  380.     EndWhile
  381.     FClose 1
  382.     FOpen 1, PPEPath() + "sl-vote.dat", 2, 2
  383.     INTEGER009 = 1
  384.     For INTEGER011 = 1 To INTEGER017
  385.         FPutLn 1, INTEGER009, ";", TINTEGER016(INTEGER009)
  386.     Next
  387.     FPutLn 1, INTEGER009, ";", STRING012
  388.     BOOLEAN003 = 0
  389.     :LABEL019
  390.     If (BOOLEAN003) Goto LABEL020
  391.     FPutLn 1, INTEGER009 - 1, ";", TINTEGER016(INTEGER009 - 1)
  392.     If (Len(TINTEGER016(INTEGER009 - 1)) == 0) BOOLEAN003 = 1
  393.     Goto LABEL019
  394.     :LABEL020
  395.     Goto LABEL003
  396.     PrintLn 
  397.     PrintLn 
  398.     If (CurSec() < INTEGER012) Then
  399.         PrintLn 
  400.         PrintLn "@X8CYour Security is too low to Delete a Booth!@X07"
  401.         PrintLn 
  402.         PrintLn 
  403.         Wait
  404.         Goto LABEL003
  405.     Endif
  406.     STRING007 = ""
  407.     InputYN "Do you wish to Delete a Booth", STRING007, 3
  408.     If ((Upper(STRING007) == "N") || (Upper(STRING007) == NoChar())) Then
  409.         STRING007 = ""
  410.         Goto LABEL003
  411.     Endif
  412.     Cls
  413.     INTEGER011 = ""
  414.     PrintLn "You can only delete a Booth you created."
  415.     InputInt "Which booth do you wish to delete", INTEGER011, 11
  416.     FOpen 1, PPEPath() + "sl-vote.q" + INTEGER011, 1, 3
  417.     FGet 1, STRING012
  418.     FGet 1, STRING014
  419.     FClose 1
  420.     If (Upper(STRING014) <> U_Name()) Then
  421.         PrintLn 
  422.         PrintLn "@X0CYou did not create this booth.  Therefore you can not Delete it!"
  423.         PrintLn 
  424.         PrintLn 
  425.         Wait
  426.         Goto LABEL003
  427.     Endif
  428.     STRING007 = ""
  429.     PrintLn 
  430.     PrintLn STRING012
  431.     PrintLn 
  432.     InputYN "Do you wish to Delete This Booth", STRING007, 12
  433.     If ((Upper(STRING007) == "N") || (Upper(STRING007) == NoChar())) Then
  434.         STRING007 = ""
  435.         Goto LABEL003
  436.     Endif
  437.     Delete PPEPath() + "sl-vote.q" + INTEGER011
  438.     BOOLEAN003 = 0
  439.     :LABEL021
  440.     If (BOOLEAN003) Goto LABEL022
  441.     Rename PPEPath() + "sl-vote.q" + INTEGER011 + 1, PPEPath() + "sl-vote.q" + INTEGER011
  442.     If (!Exist(PPEPath() + "sl-vote.q" + INTEGER011)) BOOLEAN003 = 1
  443.     Inc INTEGER011
  444.     Goto LABEL021
  445.     :LABEL022
  446.     Goto LABEL003
  447.     :LABEL023
  448.     DispFile "sl-vote.hlp", 0
  449.     PrintLn 
  450.     Wait
  451.     Goto LABEL003
  452.     :LABEL024
  453.     FClose 1
  454.     PrintLn 
  455.     PrintLn "@X0C You have already voted on this topic...Please choose another"
  456.     PrintLn 
  457.     PrintLn 
  458.     Wait
  459.     Goto LABEL003
  460.     :LABEL025
  461.     FAppend 1, PPEPath() + "sl-vote.n" + STRING007, 2, 0
  462.     FPut 1, U_Name()
  463.     FPut 1, ";"
  464.     FPut 1, INTEGER002
  465.     FClose 1
  466.     Goto LABEL003
  467.     :LABEL026
  468.     PrintLn 
  469.     PrintLn "Registered To: ", STRING001
  470.     If (BOOLEAN001 == 0) Then
  471.         Delay (10 * 182) / 10
  472.     Endif
  473.     End
  474.  
  475. ;------------------------------------------------------------------------------
  476. ;
  477. ; Usage report (before postprocessing)
  478. ;
  479. ; ■ Statements used :
  480. ;
  481. ;    4       End
  482. ;    9       Cls
  483. ;    11      Wait
  484. ;    90      Goto 
  485. ;    72      Let 
  486. ;    3       Print 
  487. ;    82      PrintLn 
  488. ;    59      If 
  489. ;    5       DispFile 
  490. ;    2       FCreate 
  491. ;    8       FOpen 
  492. ;    1       FAppend 
  493. ;    12      FClose 
  494. ;    27      FGet 
  495. ;    3       FPut 
  496. ;    14      FPutLn 
  497. ;    1       GetUser
  498. ;    1       Delete 
  499. ;    5       InputStr 
  500. ;    3       InputYN 
  501. ;    1       InputInt 
  502. ;    2       Delay 
  503. ;    12      Inc 
  504. ;    2       Tokenize 
  505. ;    4       GetToken 
  506. ;    1       InputText 
  507. ;    1       Goodbye
  508. ;    1       Rename 
  509. ;
  510. ;
  511. ; ■ Functions used :
  512. ;
  513. ;    3       *
  514. ;    3       /
  515. ;    50      +
  516. ;    6       -
  517. ;    25      ==
  518. ;    2       <>
  519. ;    3       <
  520. ;    9       <=
  521. ;    5       >
  522. ;    2       >=
  523. ;    41      !
  524. ;    4       &&
  525. ;    6       ||
  526. ;    8       Len(
  527. ;    1       Lower()
  528. ;    12      Upper()
  529. ;    2       Left()
  530. ;    2       Right()
  531. ;    5       InStr()
  532. ;    7       U_Name()
  533. ;    3       NoChar()
  534. ;    3       Strip()
  535. ;    2       Mask_Num()
  536. ;    2       Mask_Ascii()
  537. ;    26      PPEPath()
  538. ;    2       CurSec()
  539. ;    10      Exist()
  540. ;    3       S2I()
  541. ;
  542. ;------------------------------------------------------------------------------
  543. ;
  544. ; Analysis flags : No flag
  545. ;
  546. ;------------------------------------------------------------------------------
  547. ;
  548. ; Postprocessing report
  549. ;
  550. ;    1       For/Next
  551. ;    8       While/EndWhile
  552. ;    19      If/Then or If/Then/Else
  553. ;    0       Select Case
  554. ;
  555. ;------------------------------------------------------------------------------
  556. ;                 AEGiS Corp - Break the routines, code against the machines!
  557. ;------------------------------------------------------------------------------
  558.