home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / PRO-VOTE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-09  |  35KB  |  1,817 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.     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.     Integer  INTEGER022
  41.     String   STRING001
  42.     String   STRING002
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   STRING008
  49.     String   STRING009
  50.     String   STRING010
  51.     String   STRING011
  52.     String   STRING012
  53.     String   STRING013
  54.     String   STRING014
  55.     String   STRING015
  56.     String   STRING016
  57.     String   STRING017
  58.     String   STRING018
  59.     String   STRING019
  60.     String   STRING020
  61.     String   STRING021
  62.     String   STRING022
  63.     String   STRING023
  64.     String   STRING024
  65.     String   STRING025
  66.     String   STRING026
  67.     String   STRING027
  68.     String   STRING028
  69.     String   STRING029
  70.  
  71. ;------------------------------------------------------------------------------
  72.  
  73.     GetUser
  74.     STRING013 = "1.2"
  75.     STRING014 = U_Name()
  76.     INTEGER017 = 36
  77.     INTEGER020 = 30147
  78.     FOpen 1, PPEPath() + "PRO-VOTE.CNF", 0, 0
  79.     FGet 1, STRING001
  80.     FGet 1, INTEGER021
  81.     FGet 1, INTEGER019
  82.     FGet 1, STRING019
  83.     FGet 1, INTEGER005
  84.     FClose 1
  85.     Tokenize STRING001
  86.     GetToken STRING009
  87.     GetToken STRING010
  88.     If (INTEGER021 == 0) Then
  89.         STRING011 = "N"
  90.         Goto LABEL002
  91.     Else
  92.         Goto LABEL001
  93.     Endif
  94.     :LABEL001
  95.     STRING006 = Left(STRING009, 1)
  96.     STRING007 = Left(STRING010, 2)
  97.     STRING008 = STRING006 + STRING007
  98.     If (STRING006 == "A") INTEGER022 = 1934
  99.     If (STRING006 == "B") INTEGER022 = 2859
  100.     If (STRING006 == "C") INTEGER022 = 3743
  101.     If (STRING006 == "D") INTEGER022 = 4660
  102.     If (STRING006 == "E") INTEGER022 = 5534
  103.     If (STRING006 == "F") INTEGER022 = 6471
  104.     If (STRING006 == "G") INTEGER022 = 7325
  105.     If (STRING006 == "H") INTEGER022 = 8287
  106.     If (STRING006 == "I") INTEGER022 = 9119
  107.     If (STRING006 == "J") INTEGER022 = 1096
  108.     If (STRING006 == "K") INTEGER022 = 2928
  109.     If (STRING006 == "L") INTEGER022 = 3885
  110.     If (STRING006 == "M") INTEGER022 = 4737
  111.     If (STRING006 == "N") INTEGER022 = 5674
  112.     If (STRING006 == "O") INTEGER022 = 6546
  113.     If (STRING006 == "P") INTEGER022 = 7463
  114.     If (STRING006 == "Q") INTEGER022 = 8355
  115.     If (STRING006 == "R") INTEGER022 = 9242
  116.     If (STRING006 == "S") INTEGER022 = 1164
  117.     If (STRING006 == "T") INTEGER022 = 2031
  118.     If (STRING006 == "U") INTEGER022 = 3973
  119.     If (STRING006 == "V") INTEGER022 = 4820
  120.     If (STRING006 == "W") INTEGER022 = 5782
  121.     If (STRING006 == "X") INTEGER022 = 6619
  122.     If (STRING006 == "Y") INTEGER022 = 7591
  123.     If (STRING006 == "Z") INTEGER022 = 8408
  124.     INTEGER018 = S2I(STRING008, INTEGER017) + INTEGER021 + INTEGER020 + INTEGER022
  125.     If (INTEGER019 == INTEGER018) Then
  126.         If (Len(INTEGER021) == 1) STRING003 = "000"
  127.         If (Len(INTEGER021) == 2) STRING003 = "00"
  128.         If (Len(INTEGER021) == 3) STRING003 = "0"
  129.         If (Len(INTEGER021) == 4) STRING003 = ""
  130.         STRING004 = INTEGER021
  131.         STRING005 = STRING003 + STRING004
  132.         If (Len(STRING001) == 30) STRING002 = ""
  133.         If (Len(STRING001) == 29) STRING002 = ""
  134.         If (Len(STRING001) == 28) STRING002 = " "
  135.         If (Len(STRING001) == 27) STRING002 = " "
  136.         If (Len(STRING001) == 26) STRING002 = "  "
  137.         If (Len(STRING001) == 25) STRING002 = "  "
  138.         If (Len(STRING001) == 24) STRING002 = "   "
  139.         If (Len(STRING001) == 23) STRING002 = "   "
  140.         If (Len(STRING001) == 22) STRING002 = "    "
  141.         If (Len(STRING001) == 21) STRING002 = "    "
  142.         If (Len(STRING001) == 20) STRING002 = "     "
  143.         If (Len(STRING001) == 19) STRING002 = "     "
  144.         If (Len(STRING001) == 18) STRING002 = "      "
  145.         If (Len(STRING001) == 17) STRING002 = "      "
  146.         If (Len(STRING001) == 16) STRING002 = "       "
  147.         If (Len(STRING001) == 15) STRING002 = "       "
  148.         If (Len(STRING001) == 14) STRING002 = "        "
  149.         If (Len(STRING001) == 13) STRING002 = "        "
  150.         If (Len(STRING001) == 12) STRING002 = "         "
  151.         If (Len(STRING001) == 11) STRING002 = "         "
  152.         If (Len(STRING001) == 10) STRING002 = "          "
  153.         If (Len(STRING001) == 9) STRING002 = "          "
  154.         If (Len(STRING001) == 8) STRING002 = "           "
  155.         If (Len(STRING001) == 7) STRING002 = "           "
  156.         If (Len(STRING001) == 6) STRING002 = "            "
  157.         If (Len(STRING001) == 5) STRING002 = "            "
  158.     Else
  159.         Cls
  160.         PrintLn 
  161.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  162.         PrintLn "                       @X50│        @X5APro-Vote  v", STRING013, "        @X5D│@X0D"
  163.         PrintLn "                       @X50│                              @X5D│@X07"
  164.         PrintLn "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  165.         PrintLn "                       @X50│                              @X5D│@X07"
  166.         PrintLn "                       @X50│  @X5BInvalid Registration Code!  @X5D│@X07"
  167.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  168.         Delay 182
  169.         End
  170.     Endif
  171.     :LABEL002
  172.     Cls
  173.     PrintLn 
  174.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  175.     PrintLn "                       @X50│        @X5APro-Vote  v", STRING013, "        @X5D│@X0D"
  176.     PrintLn "                       @X50│                              @X5D│@X0D"
  177.     If (STRING011 == "N") Then
  178.         PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  179.         PrintLn "                       @X50│                              @X5D│@X0D"
  180.         PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  181.         PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  182.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  183.         Beep
  184.         Delay 125
  185.     Else
  186.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  187.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  188.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  189.         PrintLn 
  190.         PrintLn 
  191.         PrintLn 
  192.         Wait
  193.     Endif
  194.     :LABEL003
  195.     Cls
  196.     PrintLn 
  197.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  198.     PrintLn "                       @X50│        @X5APro-Vote  v", STRING013, "        @X5D│@X0D"
  199.     PrintLn "                       @X50│                              @X5D│@X07"
  200.     PrintLn "                       @X50│        @X5BA)nswer A Poll        @X5D│@X07"
  201.     PrintLn "                       @X50│                              @X5D│@X07"
  202.     PrintLn "                       @X50│      @X5BV)iew Poll Results      @X5D│@X07"
  203.     PrintLn "                       @X50│                              @X5D│@X07"
  204.     PrintLn "                       @X50│         @X5BQ)uit to BBS         @X5D│@X07"
  205.     PrintLn "                       @X50│                              @X5D│@X07"
  206.     PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  207.     STRING018 = ""
  208.     InputStr "                                    ", STRING018, 11, 1, Mask_Alpha(), 2 + 8
  209.     If (STRING018 == "A") Goto LABEL004
  210.     If (STRING018 == "V") Goto LABEL069
  211.     If (STRING018 == "Q") Goto LABEL075
  212.     If (STRING018 == "") Goto LABEL075
  213.     Goto LABEL003
  214.     :LABEL004
  215.     Cls
  216.     DispFile STRING019, 4 + 2 + 1
  217.     INTEGER004 = ""
  218.     InputStr "Questionnaire/Poll to Answer", INTEGER004, 11, 2, Mask_Num(), 2 + 128
  219.     If (INTEGER004 > INTEGER005) Goto LABEL073
  220.     If (INTEGER004 == 1) Goto LABEL005
  221.     If (INTEGER004 == 2) Goto LABEL007
  222.     If (INTEGER004 == 3) Goto LABEL009
  223.     If (INTEGER004 == 4) Goto LABEL011
  224.     If (INTEGER004 == 5) Goto LABEL013
  225.     If (INTEGER004 == 6) Goto LABEL015
  226.     If (INTEGER004 == 7) Goto LABEL017
  227.     If (INTEGER004 == 8) Goto LABEL019
  228.     If (INTEGER004 == 9) Goto LABEL021
  229.     If (INTEGER004 == 10) Goto LABEL023
  230.     If (INTEGER004 == 11) Goto LABEL025
  231.     If (INTEGER004 == 12) Goto LABEL027
  232.     If (INTEGER004 == 13) Goto LABEL029
  233.     If (INTEGER004 == 14) Goto LABEL031
  234.     If (INTEGER004 == 15) Goto LABEL033
  235.     If (INTEGER004 == 16) Goto LABEL035
  236.     If (INTEGER004 == 17) Goto LABEL037
  237.     If (INTEGER004 == 18) Goto LABEL039
  238.     If (INTEGER004 == 19) Goto LABEL041
  239.     If (INTEGER004 == 20) Goto LABEL043
  240.     If (INTEGER004 == 21) Goto LABEL045
  241.     If (INTEGER004 == 22) Goto LABEL047
  242.     If (INTEGER004 == 23) Goto LABEL049
  243.     If (INTEGER004 == 24) Goto LABEL051
  244.     If (INTEGER004 == 25) Goto LABEL053
  245.     If (INTEGER004 == 26) Goto LABEL055
  246.     If (INTEGER004 == 27) Goto LABEL057
  247.     If (INTEGER004 == 28) Goto LABEL059
  248.     If (INTEGER004 == 29) Goto LABEL061
  249.     If (INTEGER004 == 30) Goto LABEL063
  250.     If (INTEGER004 == 31) Goto LABEL065
  251.     If (INTEGER004 == 32) Goto LABEL067
  252.     :LABEL005
  253.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  254.     FGet 1, STRING016
  255.     FGet 1, INTEGER002
  256.     FClose 1
  257.     If (Exist(PPEPath() + "Q01N.PV")) Then
  258.         FOpen 1, PPEPath() + "Q01N.PV", 0, 0
  259.         For INTEGER001 = 1 To INTEGER002
  260.             FGet 1, STRING015
  261.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  262.         Next
  263.         FClose 1
  264.         Goto LABEL006
  265.     Endif
  266.     :LABEL006
  267.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  268.     Gosub LABEL108
  269.     INTEGER004 = ""
  270.     Gosub LABEL110
  271.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  272.     If (INTEGER004 > INTEGER003) Goto LABEL074
  273.     If (INTEGER004 == "0") Goto LABEL003
  274.     If (INTEGER004 == "") Goto LABEL003
  275.     FAppend 1, PPEPath() + "Q01N.PV", 2, 3
  276.     FPutLn 1, STRING014
  277.     FClose 1
  278.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  279.     Gosub LABEL108
  280.     INTEGER002 = INTEGER002 + 1
  281.     Gosub LABEL111
  282.     FOpen 1, PPEPath() + "Q01.PV", 1, 0
  283.     Gosub LABEL109
  284.     Goto LABEL003
  285.     :LABEL007
  286.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  287.     FGet 1, STRING016
  288.     FGet 1, INTEGER002
  289.     FClose 1
  290.     If (Exist(PPEPath() + "Q02N.PV")) Then
  291.         FOpen 1, PPEPath() + "Q02N.PV", 0, 0
  292.         For INTEGER001 = 1 To INTEGER002
  293.             FGet 1, STRING015
  294.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  295.         Next
  296.         FClose 1
  297.         Goto LABEL008
  298.     Endif
  299.     :LABEL008
  300.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  301.     Gosub LABEL108
  302.     INTEGER004 = ""
  303.     Gosub LABEL110
  304.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  305.     If (INTEGER004 > INTEGER003) Goto LABEL074
  306.     If (INTEGER004 == "") Goto LABEL003
  307.     FAppend 1, PPEPath() + "Q02N.PV", 2, 3
  308.     FPutLn 1, STRING014
  309.     FClose 1
  310.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  311.     Gosub LABEL108
  312.     INTEGER002 = INTEGER002 + 1
  313.     Gosub LABEL111
  314.     FOpen 1, PPEPath() + "Q02.PV", 1, 0
  315.     Gosub LABEL109
  316.     Goto LABEL003
  317.     :LABEL009
  318.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  319.     FGet 1, STRING016
  320.     FGet 1, INTEGER002
  321.     FClose 1
  322.     If (Exist(PPEPath() + "Q03N.PV")) Then
  323.         FOpen 1, PPEPath() + "Q03N.PV", 0, 0
  324.         For INTEGER001 = 1 To INTEGER002
  325.             FGet 1, STRING015
  326.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  327.         Next
  328.         FClose 1
  329.         Goto LABEL010
  330.     Endif
  331.     :LABEL010
  332.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  333.     Gosub LABEL108
  334.     INTEGER004 = ""
  335.     Gosub LABEL110
  336.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  337.     If (INTEGER004 > INTEGER003) Goto LABEL074
  338.     If (INTEGER004 == "") Goto LABEL003
  339.     FAppend 1, PPEPath() + "Q03N.PV", 2, 3
  340.     FPutLn 1, STRING014
  341.     FClose 1
  342.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  343.     Gosub LABEL108
  344.     INTEGER002 = INTEGER002 + 1
  345.     Gosub LABEL111
  346.     FOpen 1, PPEPath() + "Q03.PV", 1, 0
  347.     Gosub LABEL109
  348.     Goto LABEL003
  349.     :LABEL011
  350.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  351.     FGet 1, STRING016
  352.     FGet 1, INTEGER002
  353.     FClose 1
  354.     If (Exist(PPEPath() + "Q04N.PV")) Then
  355.         FOpen 1, PPEPath() + "Q04N.PV", 0, 0
  356.         For INTEGER001 = 1 To INTEGER002
  357.             FGet 1, STRING015
  358.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  359.         Next
  360.         FClose 1
  361.         Goto LABEL012
  362.     Endif
  363.     :LABEL012
  364.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  365.     Gosub LABEL108
  366.     INTEGER004 = ""
  367.     Gosub LABEL110
  368.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  369.     If (INTEGER004 > INTEGER003) Goto LABEL074
  370.     If (INTEGER004 == "") Goto LABEL003
  371.     FAppend 1, PPEPath() + "Q04N.PV", 2, 3
  372.     FPutLn 1, STRING014
  373.     FClose 1
  374.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  375.     Gosub LABEL108
  376.     INTEGER002 = INTEGER002 + 1
  377.     Gosub LABEL111
  378.     FOpen 1, PPEPath() + "Q04.PV", 1, 0
  379.     Gosub LABEL109
  380.     Goto LABEL003
  381.     :LABEL013
  382.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  383.     FGet 1, STRING016
  384.     FGet 1, INTEGER002
  385.     FClose 1
  386.     If (Exist(PPEPath() + "Q05N.PV")) Then
  387.         FOpen 1, PPEPath() + "Q05N.PV", 0, 0
  388.         For INTEGER001 = 1 To INTEGER002
  389.             FGet 1, STRING015
  390.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  391.         Next
  392.         FClose 1
  393.         Goto LABEL014
  394.     Endif
  395.     :LABEL014
  396.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  397.     Gosub LABEL108
  398.     INTEGER004 = ""
  399.     Gosub LABEL110
  400.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  401.     If (INTEGER004 > INTEGER003) Goto LABEL074
  402.     If (INTEGER004 == "") Goto LABEL003
  403.     FAppend 1, PPEPath() + "Q05N.PV", 2, 3
  404.     FPutLn 1, STRING014
  405.     FClose 1
  406.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  407.     Gosub LABEL108
  408.     INTEGER002 = INTEGER002 + 1
  409.     Gosub LABEL111
  410.     FOpen 1, PPEPath() + "Q05.PV", 1, 0
  411.     Gosub LABEL109
  412.     Goto LABEL003
  413.     :LABEL015
  414.     If (STRING011 == "N") Goto LABEL072
  415.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  416.     FGet 1, STRING016
  417.     FGet 1, INTEGER002
  418.     FClose 1
  419.     If (Exist(PPEPath() + "Q06N.PV")) Then
  420.         FOpen 1, PPEPath() + "Q06N.PV", 0, 0
  421.         For INTEGER001 = 1 To INTEGER002
  422.             FGet 1, STRING015
  423.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  424.         Next
  425.         FClose 1
  426.         Goto LABEL016
  427.     Endif
  428.     :LABEL016
  429.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  430.     Gosub LABEL108
  431.     INTEGER004 = ""
  432.     Gosub LABEL110
  433.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  434.     If (INTEGER004 > INTEGER003) Goto LABEL074
  435.     If (INTEGER004 == "0") Goto LABEL003
  436.     If (INTEGER004 == "") Goto LABEL003
  437.     FAppend 1, PPEPath() + "Q06N.PV", 2, 3
  438.     FPutLn 1, STRING014
  439.     FClose 1
  440.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  441.     Gosub LABEL108
  442.     INTEGER002 = INTEGER002 + 1
  443.     Gosub LABEL111
  444.     FOpen 1, PPEPath() + "Q06.PV", 1, 0
  445.     Gosub LABEL109
  446.     Goto LABEL003
  447.     :LABEL017
  448.     If (STRING011 == "N") Goto LABEL072
  449.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  450.     FGet 1, STRING016
  451.     FGet 1, INTEGER002
  452.     FClose 1
  453.     If (Exist(PPEPath() + "Q07N.PV")) Then
  454.         FOpen 1, PPEPath() + "Q07N.PV", 0, 0
  455.         For INTEGER001 = 1 To INTEGER002
  456.             FGet 1, STRING015
  457.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  458.         Next
  459.         FClose 1
  460.         Goto LABEL018
  461.     Endif
  462.     :LABEL018
  463.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  464.     Gosub LABEL108
  465.     INTEGER004 = ""
  466.     Gosub LABEL110
  467.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  468.     If (INTEGER004 > INTEGER003) Goto LABEL074
  469.     If (INTEGER004 == "") Goto LABEL003
  470.     FAppend 1, PPEPath() + "Q07N.PV", 2, 3
  471.     FPutLn 1, STRING014
  472.     FClose 1
  473.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  474.     Gosub LABEL108
  475.     INTEGER002 = INTEGER002 + 1
  476.     Gosub LABEL111
  477.     FOpen 1, PPEPath() + "Q07.PV", 1, 0
  478.     Gosub LABEL109
  479.     Goto LABEL003
  480.     :LABEL019
  481.     If (STRING011 == "N") Goto LABEL072
  482.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  483.     FGet 1, STRING016
  484.     FGet 1, INTEGER002
  485.     FClose 1
  486.     If (Exist(PPEPath() + "Q08N.PV")) Then
  487.         FOpen 1, PPEPath() + "Q08N.PV", 0, 0
  488.         For INTEGER001 = 1 To INTEGER002
  489.             FGet 1, STRING015
  490.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  491.         Next
  492.         FClose 1
  493.         Goto LABEL020
  494.     Endif
  495.     :LABEL020
  496.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  497.     Gosub LABEL108
  498.     INTEGER004 = ""
  499.     Gosub LABEL110
  500.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  501.     If (INTEGER004 > INTEGER003) Goto LABEL074
  502.     If (INTEGER004 == "") Goto LABEL003
  503.     FAppend 1, PPEPath() + "Q08N.PV", 2, 3
  504.     FPutLn 1, STRING014
  505.     FClose 1
  506.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  507.     Gosub LABEL108
  508.     INTEGER002 = INTEGER002 + 1
  509.     Gosub LABEL111
  510.     FOpen 1, PPEPath() + "Q08.PV", 1, 0
  511.     Gosub LABEL109
  512.     Goto LABEL003
  513.     :LABEL021
  514.     If (STRING011 == "N") Goto LABEL072
  515.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  516.     FGet 1, STRING016
  517.     FGet 1, INTEGER002
  518.     FClose 1
  519.     If (Exist(PPEPath() + "Q09N.PV")) Then
  520.         FOpen 1, PPEPath() + "Q09N.PV", 0, 0
  521.         For INTEGER001 = 1 To INTEGER002
  522.             FGet 1, STRING015
  523.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  524.         Next
  525.         FClose 1
  526.         Goto LABEL022
  527.     Endif
  528.     :LABEL022
  529.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  530.     Gosub LABEL108
  531.     INTEGER004 = ""
  532.     Gosub LABEL110
  533.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  534.     If (INTEGER004 > INTEGER003) Goto LABEL074
  535.     If (INTEGER004 == "") Goto LABEL003
  536.     FAppend 1, PPEPath() + "Q09N.PV", 2, 3
  537.     FPutLn 1, STRING014
  538.     FClose 1
  539.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  540.     Gosub LABEL108
  541.     INTEGER002 = INTEGER002 + 1
  542.     Gosub LABEL111
  543.     FOpen 1, PPEPath() + "Q09.PV", 1, 0
  544.     Gosub LABEL109
  545.     Goto LABEL003
  546.     :LABEL023
  547.     If (STRING011 == "N") Goto LABEL072
  548.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  549.     FGet 1, STRING016
  550.     FGet 1, INTEGER002
  551.     FClose 1
  552.     If (Exist(PPEPath() + "Q10N.PV")) Then
  553.         FOpen 1, PPEPath() + "Q10N.PV", 0, 0
  554.         For INTEGER001 = 1 To INTEGER002
  555.             FGet 1, STRING015
  556.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  557.         Next
  558.         FClose 1
  559.         Goto LABEL024
  560.     Endif
  561.     :LABEL024
  562.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  563.     Gosub LABEL108
  564.     INTEGER004 = ""
  565.     Gosub LABEL110
  566.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  567.     If (INTEGER004 > INTEGER003) Goto LABEL074
  568.     If (INTEGER004 == "") Goto LABEL003
  569.     FAppend 1, PPEPath() + "Q10N.PV", 2, 3
  570.     FPutLn 1, STRING014
  571.     FClose 1
  572.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  573.     Gosub LABEL108
  574.     INTEGER002 = INTEGER002 + 1
  575.     Gosub LABEL111
  576.     FOpen 1, PPEPath() + "Q10.PV", 1, 0
  577.     Gosub LABEL109
  578.     Goto LABEL003
  579.     :LABEL025
  580.     If (STRING011 == "N") Goto LABEL072
  581.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  582.     FGet 1, STRING016
  583.     FGet 1, INTEGER002
  584.     FClose 1
  585.     If (Exist(PPEPath() + "Q11N.PV")) Then
  586.         FOpen 1, PPEPath() + "Q11N.PV", 0, 0
  587.         For INTEGER001 = 1 To INTEGER002
  588.             FGet 1, STRING015
  589.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  590.         Next
  591.         FClose 1
  592.         Goto LABEL026
  593.     Endif
  594.     :LABEL026
  595.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  596.     Gosub LABEL108
  597.     INTEGER004 = ""
  598.     Gosub LABEL110
  599.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  600.     If (INTEGER004 > INTEGER003) Goto LABEL074
  601.     If (INTEGER004 == "0") Goto LABEL003
  602.     If (INTEGER004 == "") Goto LABEL003
  603.     FAppend 1, PPEPath() + "Q11N.PV", 2, 3
  604.     FPutLn 1, STRING014
  605.     FClose 1
  606.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  607.     Gosub LABEL108
  608.     INTEGER002 = INTEGER002 + 1
  609.     Gosub LABEL111
  610.     FOpen 1, PPEPath() + "Q11.PV", 1, 0
  611.     Gosub LABEL109
  612.     Goto LABEL003
  613.     :LABEL027
  614.     If (STRING011 == "N") Goto LABEL072
  615.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  616.     FGet 1, STRING016
  617.     FGet 1, INTEGER002
  618.     FClose 1
  619.     If (Exist(PPEPath() + "Q12N.PV")) Then
  620.         FOpen 1, PPEPath() + "Q12N.PV", 0, 0
  621.         For INTEGER001 = 1 To INTEGER002
  622.             FGet 1, STRING015
  623.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  624.         Next
  625.         FClose 1
  626.         Goto LABEL028
  627.     Endif
  628.     :LABEL028
  629.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  630.     Gosub LABEL108
  631.     INTEGER004 = ""
  632.     Gosub LABEL110
  633.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  634.     If (INTEGER004 > INTEGER003) Goto LABEL074
  635.     If (INTEGER004 == "") Goto LABEL003
  636.     FAppend 1, PPEPath() + "Q12N.PV", 2, 3
  637.     FPutLn 1, STRING014
  638.     FClose 1
  639.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  640.     Gosub LABEL108
  641.     INTEGER002 = INTEGER002 + 1
  642.     Gosub LABEL111
  643.     FOpen 1, PPEPath() + "Q12.PV", 1, 0
  644.     Gosub LABEL109
  645.     Goto LABEL003
  646.     :LABEL029
  647.     If (STRING011 == "N") Goto LABEL072
  648.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  649.     FGet 1, STRING016
  650.     FGet 1, INTEGER002
  651.     FClose 1
  652.     If (Exist(PPEPath() + "Q13N.PV")) Then
  653.         FOpen 1, PPEPath() + "Q13N.PV", 0, 0
  654.         For INTEGER001 = 1 To INTEGER002
  655.             FGet 1, STRING015
  656.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  657.         Next
  658.         FClose 1
  659.         Goto LABEL030
  660.     Endif
  661.     :LABEL030
  662.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  663.     Gosub LABEL108
  664.     INTEGER004 = ""
  665.     Gosub LABEL110
  666.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  667.     If (INTEGER004 > INTEGER003) Goto LABEL074
  668.     If (INTEGER004 == "") Goto LABEL003
  669.     FAppend 1, PPEPath() + "Q13N.PV", 2, 3
  670.     FPutLn 1, STRING014
  671.     FClose 1
  672.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  673.     Gosub LABEL108
  674.     INTEGER002 = INTEGER002 + 1
  675.     Gosub LABEL111
  676.     FOpen 1, PPEPath() + "Q13.PV", 1, 0
  677.     Gosub LABEL109
  678.     Goto LABEL003
  679.     :LABEL031
  680.     If (STRING011 == "N") Goto LABEL072
  681.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  682.     FGet 1, STRING016
  683.     FGet 1, INTEGER002
  684.     FClose 1
  685.     If (Exist(PPEPath() + "Q14N.PV")) Then
  686.         FOpen 1, PPEPath() + "Q14N.PV", 0, 0
  687.         For INTEGER001 = 1 To INTEGER002
  688.             FGet 1, STRING015
  689.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  690.         Next
  691.         FClose 1
  692.         Goto LABEL032
  693.     Endif
  694.     :LABEL032
  695.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  696.     Gosub LABEL108
  697.     INTEGER004 = ""
  698.     Gosub LABEL110
  699.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  700.     If (INTEGER004 > INTEGER003) Goto LABEL074
  701.     If (INTEGER004 == "") Goto LABEL003
  702.     FAppend 1, PPEPath() + "Q14N.PV", 2, 3
  703.     FPutLn 1, STRING014
  704.     FClose 1
  705.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  706.     Gosub LABEL108
  707.     INTEGER002 = INTEGER002 + 1
  708.     Gosub LABEL111
  709.     FOpen 1, PPEPath() + "Q14.PV", 1, 0
  710.     Gosub LABEL109
  711.     Goto LABEL003
  712.     :LABEL033
  713.     If (STRING011 == "N") Goto LABEL072
  714.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  715.     FGet 1, STRING016
  716.     FGet 1, INTEGER002
  717.     FClose 1
  718.     If (Exist(PPEPath() + "Q15N.PV")) Then
  719.         FOpen 1, PPEPath() + "Q15N.PV", 0, 0
  720.         For INTEGER001 = 1 To INTEGER002
  721.             FGet 1, STRING015
  722.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  723.         Next
  724.         FClose 1
  725.         Goto LABEL034
  726.     Endif
  727.     :LABEL034
  728.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  729.     Gosub LABEL108
  730.     INTEGER004 = ""
  731.     Gosub LABEL110
  732.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  733.     If (INTEGER004 > INTEGER003) Goto LABEL074
  734.     If (INTEGER004 == "") Goto LABEL003
  735.     FAppend 1, PPEPath() + "Q15N.PV", 2, 3
  736.     FPutLn 1, STRING014
  737.     FClose 1
  738.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  739.     Gosub LABEL108
  740.     INTEGER002 = INTEGER002 + 1
  741.     Gosub LABEL111
  742.     FOpen 1, PPEPath() + "Q15.PV", 1, 0
  743.     Gosub LABEL109
  744.     Goto LABEL003
  745.     :LABEL035
  746.     If (STRING011 == "N") Goto LABEL072
  747.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  748.     FGet 1, STRING016
  749.     FGet 1, INTEGER002
  750.     FClose 1
  751.     If (Exist(PPEPath() + "Q16N.PV")) Then
  752.         FOpen 1, PPEPath() + "Q16N.PV", 0, 0
  753.         For INTEGER001 = 1 To INTEGER002
  754.             FGet 1, STRING015
  755.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  756.         Next
  757.         FClose 1
  758.         Goto LABEL036
  759.     Endif
  760.     :LABEL036
  761.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  762.     Gosub LABEL108
  763.     INTEGER004 = ""
  764.     Gosub LABEL110
  765.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  766.     If (INTEGER004 > INTEGER003) Goto LABEL074
  767.     If (INTEGER004 == "0") Goto LABEL003
  768.     If (INTEGER004 == "") Goto LABEL003
  769.     FAppend 1, PPEPath() + "Q16N.PV", 2, 3
  770.     FPutLn 1, STRING014
  771.     FClose 1
  772.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  773.     Gosub LABEL108
  774.     INTEGER002 = INTEGER002 + 1
  775.     Gosub LABEL111
  776.     FOpen 1, PPEPath() + "Q16.PV", 1, 0
  777.     Gosub LABEL109
  778.     Goto LABEL003
  779.     :LABEL037
  780.     If (STRING011 == "N") Goto LABEL072
  781.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  782.     FGet 1, STRING016
  783.     FGet 1, INTEGER002
  784.     FClose 1
  785.     If (Exist(PPEPath() + "Q17N.PV")) Then
  786.         FOpen 1, PPEPath() + "Q17N.PV", 0, 0
  787.         For INTEGER001 = 1 To INTEGER002
  788.             FGet 1, STRING015
  789.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  790.         Next
  791.         FClose 1
  792.         Goto LABEL038
  793.     Endif
  794.     :LABEL038
  795.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  796.     Gosub LABEL108
  797.     INTEGER004 = ""
  798.     Gosub LABEL110
  799.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  800.     If (INTEGER004 > INTEGER003) Goto LABEL074
  801.     If (INTEGER004 == "") Goto LABEL003
  802.     FAppend 1, PPEPath() + "Q17N.PV", 2, 3
  803.     FPutLn 1, STRING014
  804.     FClose 1
  805.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  806.     Gosub LABEL108
  807.     INTEGER002 = INTEGER002 + 1
  808.     Gosub LABEL111
  809.     FOpen 1, PPEPath() + "Q17.PV", 1, 0
  810.     Gosub LABEL109
  811.     Goto LABEL003
  812.     :LABEL039
  813.     If (STRING011 == "N") Goto LABEL072
  814.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  815.     FGet 1, STRING016
  816.     FGet 1, INTEGER002
  817.     FClose 1
  818.     If (Exist(PPEPath() + "Q18N.PV")) Then
  819.         FOpen 1, PPEPath() + "Q18N.PV", 0, 0
  820.         For INTEGER001 = 1 To INTEGER002
  821.             FGet 1, STRING015
  822.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  823.         Next
  824.         FClose 1
  825.         Goto LABEL040
  826.     Endif
  827.     :LABEL040
  828.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  829.     Gosub LABEL108
  830.     INTEGER004 = ""
  831.     Gosub LABEL110
  832.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  833.     If (INTEGER004 > INTEGER003) Goto LABEL074
  834.     If (INTEGER004 == "") Goto LABEL003
  835.     FAppend 1, PPEPath() + "Q18N.PV", 2, 3
  836.     FPutLn 1, STRING014
  837.     FClose 1
  838.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  839.     Gosub LABEL108
  840.     INTEGER002 = INTEGER002 + 1
  841.     Gosub LABEL111
  842.     FOpen 1, PPEPath() + "Q18.PV", 1, 0
  843.     Gosub LABEL109
  844.     Goto LABEL003
  845.     :LABEL041
  846.     If (STRING011 == "N") Goto LABEL072
  847.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  848.     FGet 1, STRING016
  849.     FGet 1, INTEGER002
  850.     FClose 1
  851.     If (Exist(PPEPath() + "Q19N.PV")) Then
  852.         FOpen 1, PPEPath() + "Q19N.PV", 0, 0
  853.         For INTEGER001 = 1 To INTEGER002
  854.             FGet 1, STRING015
  855.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  856.         Next
  857.         FClose 1
  858.         Goto LABEL042
  859.     Endif
  860.     :LABEL042
  861.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  862.     Gosub LABEL108
  863.     INTEGER004 = ""
  864.     Gosub LABEL110
  865.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  866.     If (INTEGER004 > INTEGER003) Goto LABEL074
  867.     If (INTEGER004 == "") Goto LABEL003
  868.     FAppend 1, PPEPath() + "Q19N.PV", 2, 3
  869.     FPutLn 1, STRING014
  870.     FClose 1
  871.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  872.     Gosub LABEL108
  873.     INTEGER002 = INTEGER002 + 1
  874.     Gosub LABEL111
  875.     FOpen 1, PPEPath() + "Q19.PV", 1, 0
  876.     Gosub LABEL109
  877.     Goto LABEL003
  878.     :LABEL043
  879.     If (STRING011 == "N") Goto LABEL072
  880.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  881.     FGet 1, STRING016
  882.     FGet 1, INTEGER002
  883.     FClose 1
  884.     If (Exist(PPEPath() + "Q20N.PV")) Then
  885.         FOpen 1, PPEPath() + "Q20N.PV", 0, 0
  886.         For INTEGER001 = 1 To INTEGER002
  887.             FGet 1, STRING015
  888.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  889.         Next
  890.         FClose 1
  891.         Goto LABEL044
  892.     Endif
  893.     :LABEL044
  894.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  895.     Gosub LABEL108
  896.     INTEGER004 = ""
  897.     Gosub LABEL110
  898.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  899.     If (INTEGER004 > INTEGER003) Goto LABEL074
  900.     If (INTEGER004 == "") Goto LABEL003
  901.     FAppend 1, PPEPath() + "Q20N.PV", 2, 3
  902.     FPutLn 1, STRING014
  903.     FClose 1
  904.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  905.     Gosub LABEL108
  906.     INTEGER002 = INTEGER002 + 1
  907.     Gosub LABEL111
  908.     FOpen 1, PPEPath() + "Q20.PV", 1, 0
  909.     Gosub LABEL109
  910.     Goto LABEL003
  911.     :LABEL045
  912.     If (STRING011 == "N") Goto LABEL072
  913.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  914.     FGet 1, STRING016
  915.     FGet 1, INTEGER002
  916.     FClose 1
  917.     If (Exist(PPEPath() + "Q21N.PV")) Then
  918.         FOpen 1, PPEPath() + "Q21N.PV", 0, 0
  919.         For INTEGER001 = 1 To INTEGER002
  920.             FGet 1, STRING015
  921.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  922.         Next
  923.         FClose 1
  924.         Goto LABEL046
  925.     Endif
  926.     :LABEL046
  927.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  928.     Gosub LABEL108
  929.     INTEGER004 = ""
  930.     Gosub LABEL110
  931.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  932.     If (INTEGER004 > INTEGER003) Goto LABEL074
  933.     If (INTEGER004 == "0") Goto LABEL003
  934.     If (INTEGER004 == "") Goto LABEL003
  935.     FAppend 1, PPEPath() + "Q21N.PV", 2, 3
  936.     FPutLn 1, STRING014
  937.     FClose 1
  938.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  939.     Gosub LABEL108
  940.     INTEGER002 = INTEGER002 + 1
  941.     Gosub LABEL111
  942.     FOpen 1, PPEPath() + "Q21.PV", 1, 0
  943.     Gosub LABEL109
  944.     Goto LABEL003
  945.     :LABEL047
  946.     If (STRING011 == "N") Goto LABEL072
  947.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  948.     FGet 1, STRING016
  949.     FGet 1, INTEGER002
  950.     FClose 1
  951.     If (Exist(PPEPath() + "Q22N.PV")) Then
  952.         FOpen 1, PPEPath() + "Q22N.PV", 0, 0
  953.         For INTEGER001 = 1 To INTEGER002
  954.             FGet 1, STRING015
  955.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  956.         Next
  957.         FClose 1
  958.         Goto LABEL048
  959.     Endif
  960.     :LABEL048
  961.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  962.     Gosub LABEL108
  963.     INTEGER004 = ""
  964.     Gosub LABEL110
  965.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  966.     If (INTEGER004 > INTEGER003) Goto LABEL074
  967.     If (INTEGER004 == "") Goto LABEL003
  968.     FAppend 1, PPEPath() + "Q22N.PV", 2, 3
  969.     FPutLn 1, STRING014
  970.     FClose 1
  971.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  972.     Gosub LABEL108
  973.     INTEGER002 = INTEGER002 + 1
  974.     Gosub LABEL111
  975.     FOpen 1, PPEPath() + "Q22.PV", 1, 0
  976.     Gosub LABEL109
  977.     Goto LABEL003
  978.     :LABEL049
  979.     If (STRING011 == "N") Goto LABEL072
  980.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  981.     FGet 1, STRING016
  982.     FGet 1, INTEGER002
  983.     FClose 1
  984.     If (Exist(PPEPath() + "Q23N.PV")) Then
  985.         FOpen 1, PPEPath() + "Q23N.PV", 0, 0
  986.         For INTEGER001 = 1 To INTEGER002
  987.             FGet 1, STRING015
  988.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  989.         Next
  990.         FClose 1
  991.         Goto LABEL050
  992.     Endif
  993.     :LABEL050
  994.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  995.     Gosub LABEL108
  996.     INTEGER004 = ""
  997.     Gosub LABEL110
  998.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  999.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1000.     If (INTEGER004 == "") Goto LABEL003
  1001.     FAppend 1, PPEPath() + "Q23N.PV", 2, 3
  1002.     FPutLn 1, STRING014
  1003.     FClose 1
  1004.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  1005.     Gosub LABEL108
  1006.     INTEGER002 = INTEGER002 + 1
  1007.     Gosub LABEL111
  1008.     FOpen 1, PPEPath() + "Q23.PV", 1, 0
  1009.     Gosub LABEL109
  1010.     Goto LABEL003
  1011.     :LABEL051
  1012.     If (STRING011 == "N") Goto LABEL072
  1013.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1014.     FGet 1, STRING016
  1015.     FGet 1, INTEGER002
  1016.     FClose 1
  1017.     If (Exist(PPEPath() + "Q24N.PV")) Then
  1018.         FOpen 1, PPEPath() + "Q24N.PV", 0, 0
  1019.         For INTEGER001 = 1 To INTEGER002
  1020.             FGet 1, STRING015
  1021.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1022.         Next
  1023.         FClose 1
  1024.         Goto LABEL052
  1025.     Endif
  1026.     :LABEL052
  1027.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1028.     Gosub LABEL108
  1029.     INTEGER004 = ""
  1030.     Gosub LABEL110
  1031.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1032.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1033.     If (INTEGER004 == "") Goto LABEL003
  1034.     FAppend 1, PPEPath() + "Q24N.PV", 2, 3
  1035.     FPutLn 1, STRING014
  1036.     FClose 1
  1037.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1038.     Gosub LABEL108
  1039.     INTEGER002 = INTEGER002 + 1
  1040.     Gosub LABEL111
  1041.     FOpen 1, PPEPath() + "Q24.PV", 1, 0
  1042.     Gosub LABEL109
  1043.     Goto LABEL003
  1044.     :LABEL053
  1045.     If (STRING011 == "N") Goto LABEL072
  1046.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1047.     FGet 1, STRING016
  1048.     FGet 1, INTEGER002
  1049.     FClose 1
  1050.     If (Exist(PPEPath() + "Q25N.PV")) Then
  1051.         FOpen 1, PPEPath() + "Q25N.PV", 0, 0
  1052.         For INTEGER001 = 1 To INTEGER002
  1053.             FGet 1, STRING015
  1054.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1055.         Next
  1056.         FClose 1
  1057.         Goto LABEL054
  1058.     Endif
  1059.     :LABEL054
  1060.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1061.     Gosub LABEL108
  1062.     INTEGER004 = ""
  1063.     Gosub LABEL110
  1064.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1065.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1066.     If (INTEGER004 == "") Goto LABEL003
  1067.     FAppend 1, PPEPath() + "Q25N.PV", 2, 3
  1068.     FPutLn 1, STRING014
  1069.     FClose 1
  1070.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1071.     Gosub LABEL108
  1072.     INTEGER002 = INTEGER002 + 1
  1073.     Gosub LABEL111
  1074.     FOpen 1, PPEPath() + "Q25.PV", 1, 0
  1075.     Gosub LABEL109
  1076.     Goto LABEL003
  1077.     :LABEL055
  1078.     If (STRING011 == "N") Goto LABEL072
  1079.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1080.     FGet 1, STRING016
  1081.     FGet 1, INTEGER002
  1082.     FClose 1
  1083.     If (Exist(PPEPath() + "Q26N.PV")) Then
  1084.         FOpen 1, PPEPath() + "Q26N.PV", 0, 0
  1085.         For INTEGER001 = 1 To INTEGER002
  1086.             FGet 1, STRING015
  1087.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1088.         Next
  1089.         FClose 1
  1090.         Goto LABEL056
  1091.     Endif
  1092.     :LABEL056
  1093.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1094.     Gosub LABEL108
  1095.     INTEGER004 = ""
  1096.     Gosub LABEL110
  1097.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1098.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1099.     If (INTEGER004 == "0") Goto LABEL003
  1100.     If (INTEGER004 == "") Goto LABEL003
  1101.     FAppend 1, PPEPath() + "Q26N.PV", 2, 3
  1102.     FPutLn 1, STRING014
  1103.     FClose 1
  1104.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1105.     Gosub LABEL108
  1106.     INTEGER002 = INTEGER002 + 1
  1107.     Gosub LABEL111
  1108.     FOpen 1, PPEPath() + "Q26.PV", 1, 0
  1109.     Gosub LABEL109
  1110.     Goto LABEL003
  1111.     :LABEL057
  1112.     If (STRING011 == "N") Goto LABEL072
  1113.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1114.     FGet 1, STRING016
  1115.     FGet 1, INTEGER002
  1116.     FClose 1
  1117.     If (Exist(PPEPath() + "Q27N.PV")) Then
  1118.         FOpen 1, PPEPath() + "Q27N.PV", 0, 0
  1119.         For INTEGER001 = 1 To INTEGER002
  1120.             FGet 1, STRING015
  1121.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1122.         Next
  1123.         FClose 1
  1124.         Goto LABEL058
  1125.     Endif
  1126.     :LABEL058
  1127.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1128.     Gosub LABEL108
  1129.     INTEGER004 = ""
  1130.     Gosub LABEL110
  1131.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1132.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1133.     If (INTEGER004 == "") Goto LABEL003
  1134.     FAppend 1, PPEPath() + "Q27N.PV", 2, 3
  1135.     FPutLn 1, STRING014
  1136.     FClose 1
  1137.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1138.     Gosub LABEL108
  1139.     INTEGER002 = INTEGER002 + 1
  1140.     Gosub LABEL111
  1141.     FOpen 1, PPEPath() + "Q27.PV", 1, 0
  1142.     Gosub LABEL109
  1143.     Goto LABEL003
  1144.     :LABEL059
  1145.     If (STRING011 == "N") Goto LABEL072
  1146.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1147.     FGet 1, STRING016
  1148.     FGet 1, INTEGER002
  1149.     FClose 1
  1150.     If (Exist(PPEPath() + "Q28N.PV")) Then
  1151.         FOpen 1, PPEPath() + "Q28N.PV", 0, 0
  1152.         For INTEGER001 = 1 To INTEGER002
  1153.             FGet 1, STRING015
  1154.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1155.         Next
  1156.         FClose 1
  1157.         Goto LABEL060
  1158.     Endif
  1159.     :LABEL060
  1160.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1161.     Gosub LABEL108
  1162.     INTEGER004 = ""
  1163.     Gosub LABEL110
  1164.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1165.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1166.     If (INTEGER004 == "") Goto LABEL003
  1167.     FAppend 1, PPEPath() + "Q28N.PV", 2, 3
  1168.     FPutLn 1, STRING014
  1169.     FClose 1
  1170.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1171.     Gosub LABEL108
  1172.     INTEGER002 = INTEGER002 + 1
  1173.     Gosub LABEL111
  1174.     FOpen 1, PPEPath() + "Q28.PV", 1, 0
  1175.     Gosub LABEL109
  1176.     Goto LABEL003
  1177.     :LABEL061
  1178.     If (STRING011 == "N") Goto LABEL072
  1179.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1180.     FGet 1, STRING016
  1181.     FGet 1, INTEGER002
  1182.     FClose 1
  1183.     If (Exist(PPEPath() + "Q29N.PV")) Then
  1184.         FOpen 1, PPEPath() + "Q29N.PV", 0, 0
  1185.         For INTEGER001 = 1 To INTEGER002
  1186.             FGet 1, STRING015
  1187.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1188.         Next
  1189.         FClose 1
  1190.         Goto LABEL062
  1191.     Endif
  1192.     :LABEL062
  1193.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1194.     Gosub LABEL108
  1195.     INTEGER004 = ""
  1196.     Gosub LABEL110
  1197.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1198.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1199.     If (INTEGER004 == "") Goto LABEL003
  1200.     FAppend 1, PPEPath() + "Q29N.PV", 2, 3
  1201.     FPutLn 1, STRING014
  1202.     FClose 1
  1203.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1204.     Gosub LABEL108
  1205.     INTEGER002 = INTEGER002 + 1
  1206.     Gosub LABEL111
  1207.     FOpen 1, PPEPath() + "Q29.PV", 1, 0
  1208.     Gosub LABEL109
  1209.     Goto LABEL003
  1210.     :LABEL063
  1211.     If (STRING011 == "N") Goto LABEL072
  1212.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1213.     FGet 1, STRING016
  1214.     FGet 1, INTEGER002
  1215.     FClose 1
  1216.     If (Exist(PPEPath() + "Q30N.PV")) Then
  1217.         FOpen 1, PPEPath() + "Q30N.PV", 0, 0
  1218.         For INTEGER001 = 1 To INTEGER002
  1219.             FGet 1, STRING015
  1220.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1221.         Next
  1222.         FClose 1
  1223.         Goto LABEL064
  1224.     Endif
  1225.     :LABEL064
  1226.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1227.     Gosub LABEL108
  1228.     INTEGER004 = ""
  1229.     Gosub LABEL110
  1230.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1231.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1232.     If (INTEGER004 == "") Goto LABEL003
  1233.     FAppend 1, PPEPath() + "Q30N.PV", 2, 3
  1234.     FPutLn 1, STRING014
  1235.     FClose 1
  1236.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1237.     Gosub LABEL108
  1238.     INTEGER002 = INTEGER002 + 1
  1239.     Gosub LABEL111
  1240.     FOpen 1, PPEPath() + "Q30.PV", 1, 0
  1241.     Gosub LABEL109
  1242.     Goto LABEL003
  1243.     :LABEL065
  1244.     If (STRING011 == "N") Goto LABEL072
  1245.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1246.     FGet 1, STRING016
  1247.     FGet 1, INTEGER002
  1248.     FClose 1
  1249.     If (Exist(PPEPath() + "Q31N.PV")) Then
  1250.         FOpen 1, PPEPath() + "Q31N.PV", 0, 0
  1251.         For INTEGER001 = 1 To INTEGER002
  1252.             FGet 1, STRING015
  1253.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1254.         Next
  1255.         FClose 1
  1256.         Goto LABEL066
  1257.     Endif
  1258.     :LABEL066
  1259.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1260.     Gosub LABEL108
  1261.     INTEGER004 = ""
  1262.     Gosub LABEL110
  1263.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1264.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1265.     If (INTEGER004 == "0") Goto LABEL003
  1266.     If (INTEGER004 == "") Goto LABEL003
  1267.     FAppend 1, PPEPath() + "Q31N.PV", 2, 3
  1268.     FPutLn 1, STRING014
  1269.     FClose 1
  1270.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1271.     Gosub LABEL108
  1272.     INTEGER002 = INTEGER002 + 1
  1273.     Gosub LABEL111
  1274.     FOpen 1, PPEPath() + "Q31.PV", 1, 0
  1275.     Gosub LABEL109
  1276.     Goto LABEL003
  1277.     :LABEL067
  1278.     If (STRING011 == "N") Goto LABEL072
  1279.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1280.     FGet 1, STRING016
  1281.     FGet 1, INTEGER002
  1282.     FClose 1
  1283.     If (Exist(PPEPath() + "Q32N.PV")) Then
  1284.         FOpen 1, PPEPath() + "Q32N.PV", 0, 0
  1285.         For INTEGER001 = 1 To INTEGER002
  1286.             FGet 1, STRING015
  1287.             If (U_Name() == Upper(STRING015)) Goto LABEL071
  1288.         Next
  1289.         FClose 1
  1290.         Goto LABEL068
  1291.     Endif
  1292.     :LABEL068
  1293.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1294.     Gosub LABEL108
  1295.     INTEGER004 = ""
  1296.     Gosub LABEL110
  1297.     InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1298.     If (INTEGER004 > INTEGER003) Goto LABEL074
  1299.     If (INTEGER004 == "") Goto LABEL003
  1300.     FAppend 1, PPEPath() + "Q32N.PV", 2, 3
  1301.     FPutLn 1, STRING014
  1302.     FClose 1
  1303.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1304.     Gosub LABEL108
  1305.     INTEGER002 = INTEGER002 + 1
  1306.     Gosub LABEL111
  1307.     FOpen 1, PPEPath() + "Q32.PV", 1, 0
  1308.     Gosub LABEL109
  1309.     Goto LABEL003
  1310.     :LABEL069
  1311.     Cls
  1312.     DispFile STRING019, 4 + 2 + 1
  1313.     INTEGER004 = ""
  1314.     InputStr "Select Questionnaire/Poll to view", INTEGER004, 11, 2, Mask_Num(), 2 + 128
  1315.     If (INTEGER004 > INTEGER005) Goto LABEL003
  1316.     If (INTEGER004 == 0) Goto LABEL003
  1317.     If (INTEGER004 == 1) Gosub LABEL076
  1318.     If (INTEGER004 == 2) Gosub LABEL077
  1319.     If (INTEGER004 == 3) Gosub LABEL078
  1320.     If (INTEGER004 == 4) Gosub LABEL079
  1321.     If (INTEGER004 == 5) Gosub LABEL080
  1322.     If (INTEGER004 == 6) Gosub LABEL081
  1323.     If (INTEGER004 == 7) Gosub LABEL082
  1324.     If (INTEGER004 == 8) Gosub LABEL083
  1325.     If (INTEGER004 == 9) Gosub LABEL084
  1326.     If (INTEGER004 == 10) Gosub LABEL085
  1327.     If (INTEGER004 == 11) Gosub LABEL086
  1328.     If (INTEGER004 == 12) Gosub LABEL087
  1329.     If (INTEGER004 == 13) Gosub LABEL088
  1330.     If (INTEGER004 == 14) Gosub LABEL089
  1331.     If (INTEGER004 == 15) Gosub LABEL090
  1332.     If (INTEGER004 == 16) Gosub LABEL091
  1333.     If (INTEGER004 == 17) Gosub LABEL092
  1334.     If (INTEGER004 == 18) Gosub LABEL093
  1335.     If (INTEGER004 == 19) Gosub LABEL094
  1336.     If (INTEGER004 == 20) Gosub LABEL095
  1337.     If (INTEGER004 == 21) Gosub LABEL096
  1338.     If (INTEGER004 == 22) Gosub LABEL097
  1339.     If (INTEGER004 == 23) Gosub LABEL098
  1340.     If (INTEGER004 == 24) Gosub LABEL099
  1341.     If (INTEGER004 == 25) Gosub LABEL100
  1342.     If (INTEGER004 == 26) Gosub LABEL101
  1343.     If (INTEGER004 == 27) Gosub LABEL102
  1344.     If (INTEGER004 == 28) Gosub LABEL103
  1345.     If (INTEGER004 == 29) Gosub LABEL104
  1346.     If (INTEGER004 == 30) Gosub LABEL105
  1347.     If (INTEGER004 == 31) Gosub LABEL106
  1348.     If (INTEGER004 == 32) Gosub LABEL107
  1349.     Gosub LABEL108
  1350.     Cls
  1351.     PrintLn "@X0F", INTEGER002, " @X0BResponses to the question:"
  1352.     PrintLn STRING016
  1353.     PrintLn 
  1354.     PrintLn "@X0FVotes @X0DPercent @X0EOptions...."
  1355.     PrintLn "@X0F===== @X0D======= @X0E===========@X0B"
  1356.     If (Len(INTEGER007) == 1) STRING017 = "   "
  1357.     If (Len(INTEGER007) == 2) STRING017 = "  "
  1358.     If (Len(INTEGER007) == 3) STRING017 = " "
  1359.     If (Len(INTEGER007) == 4) STRING017 = ""
  1360.     If (INTEGER003 >= 1) Then
  1361.         INTEGER006 = (INTEGER007 * 100) / INTEGER002
  1362.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1363.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1364.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1365.         PrintLn STRING017, INTEGER007, STRING012, INTEGER006, "%   1  ", STRING020
  1366.     Else
  1367.         Goto LABEL070
  1368.     Endif
  1369.     If (Len(INTEGER008) == 1) STRING017 = "   "
  1370.     If (Len(INTEGER008) == 2) STRING017 = "  "
  1371.     If (Len(INTEGER008) == 3) STRING017 = " "
  1372.     If (Len(INTEGER008) == 4) STRING017 = ""
  1373.     If (INTEGER003 >= 2) Then
  1374.         INTEGER006 = (INTEGER008 * 100) / INTEGER002
  1375.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1376.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1377.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1378.         PrintLn STRING017, INTEGER008, STRING012, INTEGER006, "%   2  ", STRING021
  1379.     Else
  1380.         Goto LABEL070
  1381.     Endif
  1382.     If (Len(INTEGER009) == 1) STRING017 = "   "
  1383.     If (Len(INTEGER009) == 2) STRING017 = "  "
  1384.     If (Len(INTEGER009) == 3) STRING017 = " "
  1385.     If (Len(INTEGER009) == 4) STRING017 = ""
  1386.     If (INTEGER003 >= 3) Then
  1387.         INTEGER006 = (INTEGER009 * 100) / INTEGER002
  1388.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1389.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1390.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1391.         PrintLn STRING017, INTEGER009, STRING012, INTEGER006, "%   3  ", STRING022
  1392.     Else
  1393.         Goto LABEL070
  1394.     Endif
  1395.     If (Len(INTEGER010) == 1) STRING017 = "   "
  1396.     If (Len(INTEGER010) == 2) STRING017 = "  "
  1397.     If (Len(INTEGER010) == 3) STRING017 = " "
  1398.     If (Len(INTEGER010) == 4) STRING017 = ""
  1399.     If (INTEGER003 >= 4) Then
  1400.         INTEGER006 = (INTEGER010 * 100) / INTEGER002
  1401.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1402.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1403.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1404.         PrintLn STRING017, INTEGER010, STRING012, INTEGER006, "%   4  ", STRING023
  1405.     Else
  1406.         Goto LABEL070
  1407.     Endif
  1408.     If (Len(INTEGER011) == 1) STRING017 = "   "
  1409.     If (Len(INTEGER011) == 2) STRING017 = "  "
  1410.     If (Len(INTEGER011) == 3) STRING017 = " "
  1411.     If (Len(INTEGER011) == 4) STRING017 = ""
  1412.     If (INTEGER003 >= 5) Then
  1413.         INTEGER006 = (INTEGER011 * 100) / INTEGER002
  1414.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1415.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1416.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1417.         PrintLn STRING017, INTEGER011, STRING012, INTEGER006, "%   5  ", STRING024
  1418.     Else
  1419.         Goto LABEL070
  1420.     Endif
  1421.     If (Len(INTEGER012) == 1) STRING017 = "   "
  1422.     If (Len(INTEGER012) == 2) STRING017 = "  "
  1423.     If (Len(INTEGER012) == 3) STRING017 = " "
  1424.     If (Len(INTEGER012) == 4) STRING017 = ""
  1425.     If (INTEGER003 >= 6) Then
  1426.         INTEGER006 = (INTEGER012 * 100) / INTEGER002
  1427.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1428.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1429.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1430.         PrintLn STRING017, INTEGER012, STRING012, INTEGER006, "%   6  ", STRING025
  1431.     Else
  1432.         Goto LABEL070
  1433.     Endif
  1434.     If (Len(INTEGER013) == 1) STRING017 = "   "
  1435.     If (Len(INTEGER013) == 2) STRING017 = "  "
  1436.     If (Len(INTEGER013) == 3) STRING017 = " "
  1437.     If (Len(INTEGER013) == 4) STRING017 = ""
  1438.     If (INTEGER003 >= 7) Then
  1439.         INTEGER006 = (INTEGER013 * 100) / INTEGER002
  1440.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1441.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1442.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1443.         PrintLn STRING017, INTEGER013, STRING012, INTEGER006, "%   7  ", STRING026
  1444.     Else
  1445.         Goto LABEL070
  1446.     Endif
  1447.     If (Len(INTEGER014) == 1) STRING017 = "   "
  1448.     If (Len(INTEGER014) == 2) STRING017 = "  "
  1449.     If (Len(INTEGER014) == 3) STRING017 = " "
  1450.     If (Len(INTEGER014) == 4) STRING017 = ""
  1451.     If (INTEGER003 >= 8) Then
  1452.         INTEGER006 = (INTEGER014 * 100) / INTEGER002
  1453.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1454.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1455.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1456.         PrintLn STRING017, INTEGER014, STRING012, INTEGER006, "%   8  ", STRING027
  1457.     Else
  1458.         Goto LABEL070
  1459.     Endif
  1460.     If (Len(INTEGER015) == 1) STRING017 = "   "
  1461.     If (Len(INTEGER015) == 2) STRING017 = "  "
  1462.     If (Len(INTEGER015) == 3) STRING017 = " "
  1463.     If (Len(INTEGER015) == 4) STRING017 = ""
  1464.     If (INTEGER003 >= 9) Then
  1465.         INTEGER006 = (INTEGER015 * 100) / INTEGER002
  1466.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1467.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1468.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1469.         PrintLn STRING017, INTEGER015, STRING012, INTEGER006, "%   9  ", STRING028
  1470.     Else
  1471.         Goto LABEL070
  1472.     Endif
  1473.     If (Len(INTEGER016) == 1) STRING017 = "   "
  1474.     If (Len(INTEGER016) == 2) STRING017 = "  "
  1475.     If (Len(INTEGER016) == 3) STRING017 = " "
  1476.     If (Len(INTEGER016) == 4) STRING017 = ""
  1477.     If (INTEGER003 >= 10) Then
  1478.         INTEGER006 = (INTEGER016 * 100) / INTEGER002
  1479.         If (Len(INTEGER006) == 1) STRING012 = "     "
  1480.         If (Len(INTEGER006) == 2) STRING012 = "    "
  1481.         If (Len(INTEGER006) == 3) STRING012 = "   "
  1482.         PrintLn STRING017, INTEGER016, STRING012, INTEGER006, "%  10  ", STRING029
  1483.     Else
  1484.         Goto LABEL070
  1485.     Endif
  1486.     :LABEL070
  1487.     PrintLn 
  1488.     Wait
  1489.     Goto LABEL069
  1490.     :LABEL071
  1491.     FClose 1
  1492.     PrintLn 
  1493.     PrintLn "@X0CSorry, you already answered this one..."
  1494.     PrintLn 
  1495.     Wait
  1496.     Goto LABEL003
  1497.     :LABEL072
  1498.     PrintLn 
  1499.     PrintLn "@X0CSorry, the UnRegistered version supports only one Poll."
  1500.     PrintLn "@X0CThe Registered version of Pro-Vote supports  32  Polls."
  1501.     PrintLn "@X0CRegistration is only $10 and removes any delays/limits!"
  1502.     PrintLn "@X0CPlease help your SysOp to support shareware. Thank you."
  1503.     PrintLn 
  1504.     Delay 91
  1505.     Goto LABEL003
  1506.     :LABEL073
  1507.     PrintLn 
  1508.     PrintLn "@X0C Config Error - Problem With Config File - Please inform SysOp"
  1509.     End
  1510.     :LABEL074
  1511.     PrintLn 
  1512.     PrintLn "@X0C Config Error - Problem With Answer File - Please inform SysOp"
  1513.     End
  1514.     :LABEL075
  1515.     Cls
  1516.     PrintLn 
  1517.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  1518.     PrintLn "                       @X50│        @X5APro-Vote  v", STRING013, "        @X5D│@X0D"
  1519.     PrintLn "                       @X50│                              @X5D│@X0D"
  1520.     If (STRING011 == "N") Then
  1521.         PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  1522.         PrintLn "                       @X50│                              @X5D│@X0D"
  1523.         PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  1524.         PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  1525.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  1526.         Beep
  1527.         Delay 182
  1528.     Else
  1529.         PrintLn "                       @X50│          @X5BReg # ", STRING005, "    @POS:55@@X5D│@X07"
  1530.         PrintLn "                       @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
  1531.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  1532.         PrintLn 
  1533.         PrintLn 
  1534.         PrintLn 
  1535.         Wait
  1536.     Endif
  1537.     End
  1538.     PrintLn 
  1539.     PrintLn "Your vote has been registered, thank you."
  1540.     PrintLn 
  1541.     Wait
  1542.     Goto LABEL003
  1543.     :LABEL076
  1544.     FOpen 1, PPEPath() + "Q01.PV", 0, 0
  1545.     Return
  1546.     :LABEL077
  1547.     If (STRING011 == "N") Goto LABEL072
  1548.     FOpen 1, PPEPath() + "Q02.PV", 0, 0
  1549.     Return
  1550.     :LABEL078
  1551.     If (STRING011 == "N") Goto LABEL072
  1552.     FOpen 1, PPEPath() + "Q03.PV", 0, 0
  1553.     Return
  1554.     :LABEL079
  1555.     If (STRING011 == "N") Goto LABEL072
  1556.     FOpen 1, PPEPath() + "Q04.PV", 0, 0
  1557.     Return
  1558.     :LABEL080
  1559.     If (STRING011 == "N") Goto LABEL072
  1560.     FOpen 1, PPEPath() + "Q05.PV", 0, 0
  1561.     Return
  1562.     :LABEL081
  1563.     If (STRING011 == "N") Goto LABEL072
  1564.     FOpen 1, PPEPath() + "Q06.PV", 0, 0
  1565.     Return
  1566.     :LABEL082
  1567.     If (STRING011 == "N") Goto LABEL072
  1568.     FOpen 1, PPEPath() + "Q07.PV", 0, 0
  1569.     Return
  1570.     :LABEL083
  1571.     If (STRING011 == "N") Goto LABEL072
  1572.     FOpen 1, PPEPath() + "Q08.PV", 0, 0
  1573.     Return
  1574.     :LABEL084
  1575.     If (STRING011 == "N") Goto LABEL072
  1576.     FOpen 1, PPEPath() + "Q09.PV", 0, 0
  1577.     Return
  1578.     :LABEL085
  1579.     If (STRING011 == "N") Goto LABEL072
  1580.     FOpen 1, PPEPath() + "Q10.PV", 0, 0
  1581.     Return
  1582.     :LABEL086
  1583.     If (STRING011 == "N") Goto LABEL072
  1584.     FOpen 1, PPEPath() + "Q11.PV", 0, 0
  1585.     Return
  1586.     :LABEL087
  1587.     If (STRING011 == "N") Goto LABEL072
  1588.     FOpen 1, PPEPath() + "Q12.PV", 0, 0
  1589.     Return
  1590.     :LABEL088
  1591.     If (STRING011 == "N") Goto LABEL072
  1592.     FOpen 1, PPEPath() + "Q13.PV", 0, 0
  1593.     Return
  1594.     :LABEL089
  1595.     If (STRING011 == "N") Goto LABEL072
  1596.     FOpen 1, PPEPath() + "Q14.PV", 0, 0
  1597.     Return
  1598.     :LABEL090
  1599.     If (STRING011 == "N") Goto LABEL072
  1600.     FOpen 1, PPEPath() + "Q15.PV", 0, 0
  1601.     Return
  1602.     :LABEL091
  1603.     If (STRING011 == "N") Goto LABEL072
  1604.     FOpen 1, PPEPath() + "Q16.PV", 0, 0
  1605.     Return
  1606.     :LABEL092
  1607.     If (STRING011 == "N") Goto LABEL072
  1608.     FOpen 1, PPEPath() + "Q17.PV", 0, 0
  1609.     Return
  1610.     :LABEL093
  1611.     If (STRING011 == "N") Goto LABEL072
  1612.     FOpen 1, PPEPath() + "Q18.PV", 0, 0
  1613.     Return
  1614.     :LABEL094
  1615.     If (STRING011 == "N") Goto LABEL072
  1616.     FOpen 1, PPEPath() + "Q19.PV", 0, 0
  1617.     Return
  1618.     :LABEL095
  1619.     If (STRING011 == "N") Goto LABEL072
  1620.     FOpen 1, PPEPath() + "Q20.PV", 0, 0
  1621.     Return
  1622.     :LABEL096
  1623.     If (STRING011 == "N") Goto LABEL072
  1624.     FOpen 1, PPEPath() + "Q21.PV", 0, 0
  1625.     Return
  1626.     :LABEL097
  1627.     If (STRING011 == "N") Goto LABEL072
  1628.     FOpen 1, PPEPath() + "Q22.PV", 0, 0
  1629.     Return
  1630.     :LABEL098
  1631.     If (STRING011 == "N") Goto LABEL072
  1632.     FOpen 1, PPEPath() + "Q23.PV", 0, 0
  1633.     Return
  1634.     :LABEL099
  1635.     If (STRING011 == "N") Goto LABEL072
  1636.     FOpen 1, PPEPath() + "Q24.PV", 0, 0
  1637.     Return
  1638.     :LABEL100
  1639.     If (STRING011 == "N") Goto LABEL072
  1640.     FOpen 1, PPEPath() + "Q25.PV", 0, 0
  1641.     Return
  1642.     :LABEL101
  1643.     If (STRING011 == "N") Goto LABEL072
  1644.     FOpen 1, PPEPath() + "Q26.PV", 0, 0
  1645.     Return
  1646.     :LABEL102
  1647.     If (STRING011 == "N") Goto LABEL072
  1648.     FOpen 1, PPEPath() + "Q27.PV", 0, 0
  1649.     Return
  1650.     :LABEL103
  1651.     If (STRING011 == "N") Goto LABEL072
  1652.     FOpen 1, PPEPath() + "Q28.PV", 0, 0
  1653.     Return
  1654.     :LABEL104
  1655.     If (STRING011 == "N") Goto LABEL072
  1656.     FOpen 1, PPEPath() + "Q29.PV", 0, 0
  1657.     Return
  1658.     :LABEL105
  1659.     If (STRING011 == "N") Goto LABEL072
  1660.     FOpen 1, PPEPath() + "Q30.PV", 0, 0
  1661.     Return
  1662.     :LABEL106
  1663.     If (STRING011 == "N") Goto LABEL072
  1664.     FOpen 1, PPEPath() + "Q31.PV", 0, 0
  1665.     Return
  1666.     :LABEL107
  1667.     If (STRING011 == "N") Goto LABEL072
  1668.     FOpen 1, PPEPath() + "Q32.PV", 0, 0
  1669.     Return
  1670.     :LABEL108
  1671.     FGet 1, STRING016
  1672.     FGet 1, INTEGER002
  1673.     FGet 1, INTEGER003
  1674.     FGet 1, STRING020
  1675.     FGet 1, INTEGER007
  1676.     FGet 1, STRING021
  1677.     FGet 1, INTEGER008
  1678.     FGet 1, STRING022
  1679.     FGet 1, INTEGER009
  1680.     FGet 1, STRING023
  1681.     FGet 1, INTEGER010
  1682.     FGet 1, STRING024
  1683.     FGet 1, INTEGER011
  1684.     FGet 1, STRING025
  1685.     FGet 1, INTEGER012
  1686.     FGet 1, STRING026
  1687.     FGet 1, INTEGER013
  1688.     FGet 1, STRING027
  1689.     FGet 1, INTEGER014
  1690.     FGet 1, STRING028
  1691.     FGet 1, INTEGER015
  1692.     FGet 1, STRING029
  1693.     FGet 1, INTEGER016
  1694.     FClose 1
  1695.     Return
  1696.     :LABEL109
  1697.     FPutLn 1, STRING016
  1698.     FPutLn 1, INTEGER002
  1699.     FPutLn 1, INTEGER003
  1700.     FPutLn 1, STRING020
  1701.     FPutLn 1, INTEGER007
  1702.     FPutLn 1, STRING021
  1703.     FPutLn 1, INTEGER008
  1704.     FPutLn 1, STRING022
  1705.     FPutLn 1, INTEGER009
  1706.     FPutLn 1, STRING023
  1707.     FPutLn 1, INTEGER010
  1708.     FPutLn 1, STRING024
  1709.     FPutLn 1, INTEGER011
  1710.     FPutLn 1, STRING025
  1711.     FPutLn 1, INTEGER012
  1712.     FPutLn 1, STRING026
  1713.     FPutLn 1, INTEGER013
  1714.     FPutLn 1, STRING027
  1715.     FPutLn 1, INTEGER014
  1716.     FPutLn 1, STRING028
  1717.     FPutLn 1, INTEGER015
  1718.     FPutLn 1, STRING029
  1719.     FPutLn 1, INTEGER016
  1720.     FClose 1
  1721.     Return
  1722.     :LABEL110
  1723.     Cls
  1724.     PrintLn 
  1725.     If (INTEGER003 >= 1) PrintLn " 1  ", STRING020
  1726.     If (INTEGER003 >= 2) PrintLn " 2  ", STRING021
  1727.     If (INTEGER003 >= 3) PrintLn " 3  ", STRING022
  1728.     If (INTEGER003 >= 4) PrintLn " 4  ", STRING023
  1729.     If (INTEGER003 >= 5) PrintLn " 5  ", STRING024
  1730.     If (INTEGER003 >= 6) PrintLn " 6  ", STRING025
  1731.     If (INTEGER003 >= 7) PrintLn " 7  ", STRING026
  1732.     If (INTEGER003 >= 8) PrintLn " 8  ", STRING027
  1733.     If (INTEGER003 >= 9) PrintLn " 9  ", STRING028
  1734.     If (INTEGER003 >= 10) PrintLn "10  ", STRING029
  1735.     Return
  1736.     :LABEL111
  1737.     If (INTEGER004 == 1) INTEGER007 = INTEGER007 + 1
  1738.     If (INTEGER004 == 2) INTEGER008 = INTEGER008 + 1
  1739.     If (INTEGER004 == 3) INTEGER009 = INTEGER009 + 1
  1740.     If (INTEGER004 == 4) INTEGER010 = INTEGER010 + 1
  1741.     If (INTEGER004 == 5) INTEGER011 = INTEGER011 + 1
  1742.     If (INTEGER004 == 6) INTEGER012 = INTEGER012 + 1
  1743.     If (INTEGER004 == 7) INTEGER013 = INTEGER013 + 1
  1744.     If (INTEGER004 == 8) INTEGER014 = INTEGER014 + 1
  1745.     If (INTEGER004 == 9) INTEGER015 = INTEGER015 + 1
  1746.     If (INTEGER004 == 10) INTEGER016 = INTEGER016 + 1
  1747.     Return
  1748.  
  1749. ;------------------------------------------------------------------------------
  1750. ;
  1751. ; Usage report (before postprocessing)
  1752. ;
  1753. ; ■ Statements used :
  1754. ;
  1755. ;    4       End
  1756. ;    8       Cls
  1757. ;    5       Wait
  1758. ;    405     Goto 
  1759. ;    288     Let 
  1760. ;    92      PrintLn 
  1761. ;    456     If 
  1762. ;    2       DispFile 
  1763. ;    193     FOpen 
  1764. ;    32      FAppend 
  1765. ;    100     FClose 
  1766. ;    124     FGet 
  1767. ;    55      FPutLn 
  1768. ;    1       GetUser
  1769. ;    35      InputStr 
  1770. ;    193     Gosub 
  1771. ;    36      Return
  1772. ;    4       Delay 
  1773. ;    1       Tokenize 
  1774. ;    2       GetToken 
  1775. ;    2       Beep
  1776. ;
  1777. ;
  1778. ; ■ Functions used :
  1779. ;
  1780. ;    10      *
  1781. ;    10      /
  1782. ;    375     +
  1783. ;    338     ==
  1784. ;    32      <
  1785. ;    32      <=
  1786. ;    34      >
  1787. ;    84      >=
  1788. ;    78      !
  1789. ;    64      &&
  1790. ;    32      ||
  1791. ;    100     Len(
  1792. ;    32      Upper()
  1793. ;    2       Left()
  1794. ;    33      U_Name()
  1795. ;    1       Mask_Alpha()
  1796. ;    34      Mask_Num()
  1797. ;    257     PPEPath()
  1798. ;    32      Exist()
  1799. ;    1       S2I()
  1800. ;
  1801. ;------------------------------------------------------------------------------
  1802. ;
  1803. ; Analysis flags : No flag
  1804. ;
  1805. ;------------------------------------------------------------------------------
  1806. ;
  1807. ; Postprocessing report
  1808. ;
  1809. ;    32      For/Next
  1810. ;    0       While/EndWhile
  1811. ;    46      If/Then or If/Then/Else
  1812. ;    0       Select Case
  1813. ;
  1814. ;------------------------------------------------------------------------------
  1815. ;                 AEGiS Corp - Break the routines, code against the machines!
  1816. ;------------------------------------------------------------------------------
  1817.