home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
CW_PPP10.ZIP
/
PRO-VOTE.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-09-09
|
35KB
|
1,817 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
;------------------------------------------------------------------------------
GetUser
STRING013 = "1.2"
STRING014 = U_Name()
INTEGER017 = 36
INTEGER020 = 30147
FOpen 1, PPEPath() + "PRO-VOTE.CNF", 0, 0
FGet 1, STRING001
FGet 1, INTEGER021
FGet 1, INTEGER019
FGet 1, STRING019
FGet 1, INTEGER005
FClose 1
Tokenize STRING001
GetToken STRING009
GetToken STRING010
If (INTEGER021 == 0) Then
STRING011 = "N"
Goto LABEL002
Else
Goto LABEL001
Endif
:LABEL001
STRING006 = Left(STRING009, 1)
STRING007 = Left(STRING010, 2)
STRING008 = STRING006 + STRING007
If (STRING006 == "A") INTEGER022 = 1934
If (STRING006 == "B") INTEGER022 = 2859
If (STRING006 == "C") INTEGER022 = 3743
If (STRING006 == "D") INTEGER022 = 4660
If (STRING006 == "E") INTEGER022 = 5534
If (STRING006 == "F") INTEGER022 = 6471
If (STRING006 == "G") INTEGER022 = 7325
If (STRING006 == "H") INTEGER022 = 8287
If (STRING006 == "I") INTEGER022 = 9119
If (STRING006 == "J") INTEGER022 = 1096
If (STRING006 == "K") INTEGER022 = 2928
If (STRING006 == "L") INTEGER022 = 3885
If (STRING006 == "M") INTEGER022 = 4737
If (STRING006 == "N") INTEGER022 = 5674
If (STRING006 == "O") INTEGER022 = 6546
If (STRING006 == "P") INTEGER022 = 7463
If (STRING006 == "Q") INTEGER022 = 8355
If (STRING006 == "R") INTEGER022 = 9242
If (STRING006 == "S") INTEGER022 = 1164
If (STRING006 == "T") INTEGER022 = 2031
If (STRING006 == "U") INTEGER022 = 3973
If (STRING006 == "V") INTEGER022 = 4820
If (STRING006 == "W") INTEGER022 = 5782
If (STRING006 == "X") INTEGER022 = 6619
If (STRING006 == "Y") INTEGER022 = 7591
If (STRING006 == "Z") INTEGER022 = 8408
INTEGER018 = S2I(STRING008, INTEGER017) + INTEGER021 + INTEGER020 + INTEGER022
If (INTEGER019 == INTEGER018) Then
If (Len(INTEGER021) == 1) STRING003 = "000"
If (Len(INTEGER021) == 2) STRING003 = "00"
If (Len(INTEGER021) == 3) STRING003 = "0"
If (Len(INTEGER021) == 4) STRING003 = ""
STRING004 = INTEGER021
STRING005 = STRING003 + STRING004
If (Len(STRING001) == 30) STRING002 = ""
If (Len(STRING001) == 29) STRING002 = ""
If (Len(STRING001) == 28) STRING002 = " "
If (Len(STRING001) == 27) STRING002 = " "
If (Len(STRING001) == 26) STRING002 = " "
If (Len(STRING001) == 25) STRING002 = " "
If (Len(STRING001) == 24) STRING002 = " "
If (Len(STRING001) == 23) STRING002 = " "
If (Len(STRING001) == 22) STRING002 = " "
If (Len(STRING001) == 21) STRING002 = " "
If (Len(STRING001) == 20) STRING002 = " "
If (Len(STRING001) == 19) STRING002 = " "
If (Len(STRING001) == 18) STRING002 = " "
If (Len(STRING001) == 17) STRING002 = " "
If (Len(STRING001) == 16) STRING002 = " "
If (Len(STRING001) == 15) STRING002 = " "
If (Len(STRING001) == 14) STRING002 = " "
If (Len(STRING001) == 13) STRING002 = " "
If (Len(STRING001) == 12) STRING002 = " "
If (Len(STRING001) == 11) STRING002 = " "
If (Len(STRING001) == 10) STRING002 = " "
If (Len(STRING001) == 9) STRING002 = " "
If (Len(STRING001) == 8) STRING002 = " "
If (Len(STRING001) == 7) STRING002 = " "
If (Len(STRING001) == 6) STRING002 = " "
If (Len(STRING001) == 5) STRING002 = " "
Else
Cls
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X07"
PrintLn " @X50│ @X5APro-Vote v", STRING013, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BAborting Operation @X5D│@X07"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BInvalid Registration Code! @X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Delay 182
End
Endif
:LABEL002
Cls
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X0D"
PrintLn " @X50│ @X5APro-Vote v", STRING013, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X0D"
If (STRING011 == "N") Then
PrintLn " @X50│ @X51UNREGISTERED @X5D│@X07"
PrintLn " @X50│ @X5D│@X0D"
PrintLn " @X50│ @X5BRegistration is only $10 @X5D│@X07"
PrintLn " @X50│@X5BPlease help support shareware.@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 125
Else
PrintLn " @X50│ @X5BReg # ", STRING005, " @POS:55@@X5D│@X07"
PrintLn " @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
PrintLn
PrintLn
PrintLn
Wait
Endif
:LABEL003
Cls
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X07"
PrintLn " @X50│ @X5APro-Vote v", STRING013, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BA)nswer A Poll @X5D│@X07"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BV)iew Poll Results @X5D│@X07"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50│ @X5BQ)uit to BBS @X5D│@X07"
PrintLn " @X50│ @X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
STRING018 = ""
InputStr " ", STRING018, 11, 1, Mask_Alpha(), 2 + 8
If (STRING018 == "A") Goto LABEL004
If (STRING018 == "V") Goto LABEL069
If (STRING018 == "Q") Goto LABEL075
If (STRING018 == "") Goto LABEL075
Goto LABEL003
:LABEL004
Cls
DispFile STRING019, 4 + 2 + 1
INTEGER004 = ""
InputStr "Questionnaire/Poll to Answer", INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER005) Goto LABEL073
If (INTEGER004 == 1) Goto LABEL005
If (INTEGER004 == 2) Goto LABEL007
If (INTEGER004 == 3) Goto LABEL009
If (INTEGER004 == 4) Goto LABEL011
If (INTEGER004 == 5) Goto LABEL013
If (INTEGER004 == 6) Goto LABEL015
If (INTEGER004 == 7) Goto LABEL017
If (INTEGER004 == 8) Goto LABEL019
If (INTEGER004 == 9) Goto LABEL021
If (INTEGER004 == 10) Goto LABEL023
If (INTEGER004 == 11) Goto LABEL025
If (INTEGER004 == 12) Goto LABEL027
If (INTEGER004 == 13) Goto LABEL029
If (INTEGER004 == 14) Goto LABEL031
If (INTEGER004 == 15) Goto LABEL033
If (INTEGER004 == 16) Goto LABEL035
If (INTEGER004 == 17) Goto LABEL037
If (INTEGER004 == 18) Goto LABEL039
If (INTEGER004 == 19) Goto LABEL041
If (INTEGER004 == 20) Goto LABEL043
If (INTEGER004 == 21) Goto LABEL045
If (INTEGER004 == 22) Goto LABEL047
If (INTEGER004 == 23) Goto LABEL049
If (INTEGER004 == 24) Goto LABEL051
If (INTEGER004 == 25) Goto LABEL053
If (INTEGER004 == 26) Goto LABEL055
If (INTEGER004 == 27) Goto LABEL057
If (INTEGER004 == 28) Goto LABEL059
If (INTEGER004 == 29) Goto LABEL061
If (INTEGER004 == 30) Goto LABEL063
If (INTEGER004 == 31) Goto LABEL065
If (INTEGER004 == 32) Goto LABEL067
:LABEL005
FOpen 1, PPEPath() + "Q01.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q01N.PV")) Then
FOpen 1, PPEPath() + "Q01N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL006
Endif
:LABEL006
FOpen 1, PPEPath() + "Q01.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q01N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q01.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q01.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL007
FOpen 1, PPEPath() + "Q02.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q02N.PV")) Then
FOpen 1, PPEPath() + "Q02N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL008
Endif
:LABEL008
FOpen 1, PPEPath() + "Q02.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q02N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q02.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q02.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL009
FOpen 1, PPEPath() + "Q03.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q03N.PV")) Then
FOpen 1, PPEPath() + "Q03N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL010
Endif
:LABEL010
FOpen 1, PPEPath() + "Q03.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q03N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q03.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q03.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL011
FOpen 1, PPEPath() + "Q04.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q04N.PV")) Then
FOpen 1, PPEPath() + "Q04N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL012
Endif
:LABEL012
FOpen 1, PPEPath() + "Q04.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q04N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q04.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q04.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL013
FOpen 1, PPEPath() + "Q05.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q05N.PV")) Then
FOpen 1, PPEPath() + "Q05N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL014
Endif
:LABEL014
FOpen 1, PPEPath() + "Q05.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q05N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q05.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q05.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL015
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q06.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q06N.PV")) Then
FOpen 1, PPEPath() + "Q06N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL016
Endif
:LABEL016
FOpen 1, PPEPath() + "Q06.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q06N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q06.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q06.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL017
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q07.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q07N.PV")) Then
FOpen 1, PPEPath() + "Q07N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL018
Endif
:LABEL018
FOpen 1, PPEPath() + "Q07.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q07N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q07.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q07.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL019
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q08.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q08N.PV")) Then
FOpen 1, PPEPath() + "Q08N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL020
Endif
:LABEL020
FOpen 1, PPEPath() + "Q08.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q08N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q08.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q08.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL021
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q09.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q09N.PV")) Then
FOpen 1, PPEPath() + "Q09N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL022
Endif
:LABEL022
FOpen 1, PPEPath() + "Q09.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q09N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q09.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q09.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL023
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q10.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q10N.PV")) Then
FOpen 1, PPEPath() + "Q10N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL024
Endif
:LABEL024
FOpen 1, PPEPath() + "Q10.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q10N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q10.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q10.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL025
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q11.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q11N.PV")) Then
FOpen 1, PPEPath() + "Q11N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL026
Endif
:LABEL026
FOpen 1, PPEPath() + "Q11.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q11N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q11.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q11.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL027
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q12.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q12N.PV")) Then
FOpen 1, PPEPath() + "Q12N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL028
Endif
:LABEL028
FOpen 1, PPEPath() + "Q12.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q12N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q12.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q12.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL029
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q13.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q13N.PV")) Then
FOpen 1, PPEPath() + "Q13N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL030
Endif
:LABEL030
FOpen 1, PPEPath() + "Q13.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q13N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q13.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q13.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL031
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q14.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q14N.PV")) Then
FOpen 1, PPEPath() + "Q14N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL032
Endif
:LABEL032
FOpen 1, PPEPath() + "Q14.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q14N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q14.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q14.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL033
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q15.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q15N.PV")) Then
FOpen 1, PPEPath() + "Q15N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL034
Endif
:LABEL034
FOpen 1, PPEPath() + "Q15.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q15N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q15.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q15.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL035
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q16.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q16N.PV")) Then
FOpen 1, PPEPath() + "Q16N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL036
Endif
:LABEL036
FOpen 1, PPEPath() + "Q16.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q16N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q16.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q16.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL037
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q17.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q17N.PV")) Then
FOpen 1, PPEPath() + "Q17N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL038
Endif
:LABEL038
FOpen 1, PPEPath() + "Q17.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q17N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q17.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q17.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL039
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q18.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q18N.PV")) Then
FOpen 1, PPEPath() + "Q18N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL040
Endif
:LABEL040
FOpen 1, PPEPath() + "Q18.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q18N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q18.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q18.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL041
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q19.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q19N.PV")) Then
FOpen 1, PPEPath() + "Q19N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL042
Endif
:LABEL042
FOpen 1, PPEPath() + "Q19.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q19N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q19.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q19.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL043
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q20.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q20N.PV")) Then
FOpen 1, PPEPath() + "Q20N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL044
Endif
:LABEL044
FOpen 1, PPEPath() + "Q20.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q20N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q20.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q20.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL045
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q21.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q21N.PV")) Then
FOpen 1, PPEPath() + "Q21N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL046
Endif
:LABEL046
FOpen 1, PPEPath() + "Q21.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q21N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q21.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q21.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL047
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q22.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q22N.PV")) Then
FOpen 1, PPEPath() + "Q22N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL048
Endif
:LABEL048
FOpen 1, PPEPath() + "Q22.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q22N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q22.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q22.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL049
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q23.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q23N.PV")) Then
FOpen 1, PPEPath() + "Q23N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL050
Endif
:LABEL050
FOpen 1, PPEPath() + "Q23.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q23N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q23.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q23.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL051
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q24.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q24N.PV")) Then
FOpen 1, PPEPath() + "Q24N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL052
Endif
:LABEL052
FOpen 1, PPEPath() + "Q24.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q24N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q24.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q24.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL053
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q25.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q25N.PV")) Then
FOpen 1, PPEPath() + "Q25N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL054
Endif
:LABEL054
FOpen 1, PPEPath() + "Q25.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q25N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q25.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q25.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL055
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q26.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q26N.PV")) Then
FOpen 1, PPEPath() + "Q26N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL056
Endif
:LABEL056
FOpen 1, PPEPath() + "Q26.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q26N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q26.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q26.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL057
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q27.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q27N.PV")) Then
FOpen 1, PPEPath() + "Q27N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL058
Endif
:LABEL058
FOpen 1, PPEPath() + "Q27.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q27N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q27.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q27.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL059
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q28.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q28N.PV")) Then
FOpen 1, PPEPath() + "Q28N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL060
Endif
:LABEL060
FOpen 1, PPEPath() + "Q28.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q28N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q28.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q28.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL061
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q29.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q29N.PV")) Then
FOpen 1, PPEPath() + "Q29N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL062
Endif
:LABEL062
FOpen 1, PPEPath() + "Q29.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q29N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q29.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q29.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL063
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q30.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q30N.PV")) Then
FOpen 1, PPEPath() + "Q30N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL064
Endif
:LABEL064
FOpen 1, PPEPath() + "Q30.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q30N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q30.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q30.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL065
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q31.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q31N.PV")) Then
FOpen 1, PPEPath() + "Q31N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL066
Endif
:LABEL066
FOpen 1, PPEPath() + "Q31.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "0") Goto LABEL003
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q31N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q31.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q31.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL067
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q32.PV", 0, 0
FGet 1, STRING016
FGet 1, INTEGER002
FClose 1
If (Exist(PPEPath() + "Q32N.PV")) Then
FOpen 1, PPEPath() + "Q32N.PV", 0, 0
For INTEGER001 = 1 To INTEGER002
FGet 1, STRING015
If (U_Name() == Upper(STRING015)) Goto LABEL071
Next
FClose 1
Goto LABEL068
Endif
:LABEL068
FOpen 1, PPEPath() + "Q32.PV", 0, 0
Gosub LABEL108
INTEGER004 = ""
Gosub LABEL110
InputStr STRING016, INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER003) Goto LABEL074
If (INTEGER004 == "") Goto LABEL003
FAppend 1, PPEPath() + "Q32N.PV", 2, 3
FPutLn 1, STRING014
FClose 1
FOpen 1, PPEPath() + "Q32.PV", 0, 0
Gosub LABEL108
INTEGER002 = INTEGER002 + 1
Gosub LABEL111
FOpen 1, PPEPath() + "Q32.PV", 1, 0
Gosub LABEL109
Goto LABEL003
:LABEL069
Cls
DispFile STRING019, 4 + 2 + 1
INTEGER004 = ""
InputStr "Select Questionnaire/Poll to view", INTEGER004, 11, 2, Mask_Num(), 2 + 128
If (INTEGER004 > INTEGER005) Goto LABEL003
If (INTEGER004 == 0) Goto LABEL003
If (INTEGER004 == 1) Gosub LABEL076
If (INTEGER004 == 2) Gosub LABEL077
If (INTEGER004 == 3) Gosub LABEL078
If (INTEGER004 == 4) Gosub LABEL079
If (INTEGER004 == 5) Gosub LABEL080
If (INTEGER004 == 6) Gosub LABEL081
If (INTEGER004 == 7) Gosub LABEL082
If (INTEGER004 == 8) Gosub LABEL083
If (INTEGER004 == 9) Gosub LABEL084
If (INTEGER004 == 10) Gosub LABEL085
If (INTEGER004 == 11) Gosub LABEL086
If (INTEGER004 == 12) Gosub LABEL087
If (INTEGER004 == 13) Gosub LABEL088
If (INTEGER004 == 14) Gosub LABEL089
If (INTEGER004 == 15) Gosub LABEL090
If (INTEGER004 == 16) Gosub LABEL091
If (INTEGER004 == 17) Gosub LABEL092
If (INTEGER004 == 18) Gosub LABEL093
If (INTEGER004 == 19) Gosub LABEL094
If (INTEGER004 == 20) Gosub LABEL095
If (INTEGER004 == 21) Gosub LABEL096
If (INTEGER004 == 22) Gosub LABEL097
If (INTEGER004 == 23) Gosub LABEL098
If (INTEGER004 == 24) Gosub LABEL099
If (INTEGER004 == 25) Gosub LABEL100
If (INTEGER004 == 26) Gosub LABEL101
If (INTEGER004 == 27) Gosub LABEL102
If (INTEGER004 == 28) Gosub LABEL103
If (INTEGER004 == 29) Gosub LABEL104
If (INTEGER004 == 30) Gosub LABEL105
If (INTEGER004 == 31) Gosub LABEL106
If (INTEGER004 == 32) Gosub LABEL107
Gosub LABEL108
Cls
PrintLn "@X0F", INTEGER002, " @X0BResponses to the question:"
PrintLn STRING016
PrintLn
PrintLn "@X0FVotes @X0DPercent @X0EOptions...."
PrintLn "@X0F===== @X0D======= @X0E===========@X0B"
If (Len(INTEGER007) == 1) STRING017 = " "
If (Len(INTEGER007) == 2) STRING017 = " "
If (Len(INTEGER007) == 3) STRING017 = " "
If (Len(INTEGER007) == 4) STRING017 = ""
If (INTEGER003 >= 1) Then
INTEGER006 = (INTEGER007 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER007, STRING012, INTEGER006, "% 1 ", STRING020
Else
Goto LABEL070
Endif
If (Len(INTEGER008) == 1) STRING017 = " "
If (Len(INTEGER008) == 2) STRING017 = " "
If (Len(INTEGER008) == 3) STRING017 = " "
If (Len(INTEGER008) == 4) STRING017 = ""
If (INTEGER003 >= 2) Then
INTEGER006 = (INTEGER008 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER008, STRING012, INTEGER006, "% 2 ", STRING021
Else
Goto LABEL070
Endif
If (Len(INTEGER009) == 1) STRING017 = " "
If (Len(INTEGER009) == 2) STRING017 = " "
If (Len(INTEGER009) == 3) STRING017 = " "
If (Len(INTEGER009) == 4) STRING017 = ""
If (INTEGER003 >= 3) Then
INTEGER006 = (INTEGER009 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER009, STRING012, INTEGER006, "% 3 ", STRING022
Else
Goto LABEL070
Endif
If (Len(INTEGER010) == 1) STRING017 = " "
If (Len(INTEGER010) == 2) STRING017 = " "
If (Len(INTEGER010) == 3) STRING017 = " "
If (Len(INTEGER010) == 4) STRING017 = ""
If (INTEGER003 >= 4) Then
INTEGER006 = (INTEGER010 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER010, STRING012, INTEGER006, "% 4 ", STRING023
Else
Goto LABEL070
Endif
If (Len(INTEGER011) == 1) STRING017 = " "
If (Len(INTEGER011) == 2) STRING017 = " "
If (Len(INTEGER011) == 3) STRING017 = " "
If (Len(INTEGER011) == 4) STRING017 = ""
If (INTEGER003 >= 5) Then
INTEGER006 = (INTEGER011 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER011, STRING012, INTEGER006, "% 5 ", STRING024
Else
Goto LABEL070
Endif
If (Len(INTEGER012) == 1) STRING017 = " "
If (Len(INTEGER012) == 2) STRING017 = " "
If (Len(INTEGER012) == 3) STRING017 = " "
If (Len(INTEGER012) == 4) STRING017 = ""
If (INTEGER003 >= 6) Then
INTEGER006 = (INTEGER012 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER012, STRING012, INTEGER006, "% 6 ", STRING025
Else
Goto LABEL070
Endif
If (Len(INTEGER013) == 1) STRING017 = " "
If (Len(INTEGER013) == 2) STRING017 = " "
If (Len(INTEGER013) == 3) STRING017 = " "
If (Len(INTEGER013) == 4) STRING017 = ""
If (INTEGER003 >= 7) Then
INTEGER006 = (INTEGER013 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER013, STRING012, INTEGER006, "% 7 ", STRING026
Else
Goto LABEL070
Endif
If (Len(INTEGER014) == 1) STRING017 = " "
If (Len(INTEGER014) == 2) STRING017 = " "
If (Len(INTEGER014) == 3) STRING017 = " "
If (Len(INTEGER014) == 4) STRING017 = ""
If (INTEGER003 >= 8) Then
INTEGER006 = (INTEGER014 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER014, STRING012, INTEGER006, "% 8 ", STRING027
Else
Goto LABEL070
Endif
If (Len(INTEGER015) == 1) STRING017 = " "
If (Len(INTEGER015) == 2) STRING017 = " "
If (Len(INTEGER015) == 3) STRING017 = " "
If (Len(INTEGER015) == 4) STRING017 = ""
If (INTEGER003 >= 9) Then
INTEGER006 = (INTEGER015 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER015, STRING012, INTEGER006, "% 9 ", STRING028
Else
Goto LABEL070
Endif
If (Len(INTEGER016) == 1) STRING017 = " "
If (Len(INTEGER016) == 2) STRING017 = " "
If (Len(INTEGER016) == 3) STRING017 = " "
If (Len(INTEGER016) == 4) STRING017 = ""
If (INTEGER003 >= 10) Then
INTEGER006 = (INTEGER016 * 100) / INTEGER002
If (Len(INTEGER006) == 1) STRING012 = " "
If (Len(INTEGER006) == 2) STRING012 = " "
If (Len(INTEGER006) == 3) STRING012 = " "
PrintLn STRING017, INTEGER016, STRING012, INTEGER006, "% 10 ", STRING029
Else
Goto LABEL070
Endif
:LABEL070
PrintLn
Wait
Goto LABEL069
:LABEL071
FClose 1
PrintLn
PrintLn "@X0CSorry, you already answered this one..."
PrintLn
Wait
Goto LABEL003
:LABEL072
PrintLn
PrintLn "@X0CSorry, the UnRegistered version supports only one Poll."
PrintLn "@X0CThe Registered version of Pro-Vote supports 32 Polls."
PrintLn "@X0CRegistration is only $10 and removes any delays/limits!"
PrintLn "@X0CPlease help your SysOp to support shareware. Thank you."
PrintLn
Delay 91
Goto LABEL003
:LABEL073
PrintLn
PrintLn "@X0C Config Error - Problem With Config File - Please inform SysOp"
End
:LABEL074
PrintLn
PrintLn "@X0C Config Error - Problem With Answer File - Please inform SysOp"
End
:LABEL075
Cls
PrintLn
PrintLn " @X50┌──────────────────────────────@X5D┐@X0D"
PrintLn " @X50│ @X5APro-Vote v", STRING013, " @X5D│@X0D"
PrintLn " @X50│ @X5D│@X0D"
If (STRING011 == "N") Then
PrintLn " @X50│ @X51UNREGISTERED @X5D│@X07"
PrintLn " @X50│ @X5D│@X0D"
PrintLn " @X50│ @X5BRegistration is only $10 @X5D│@X07"
PrintLn " @X50│@X5BPlease help support shareware.@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
Beep
Delay 182
Else
PrintLn " @X50│ @X5BReg # ", STRING005, " @POS:55@@X5D│@X07"
PrintLn " @X50│@X5B", STRING002, STRING001, "@POS:55@@X5D│@X07"
PrintLn " @X50└@X5D──────────────────────────────┘@X07"
PrintLn
PrintLn
PrintLn
Wait
Endif
End
PrintLn
PrintLn "Your vote has been registered, thank you."
PrintLn
Wait
Goto LABEL003
:LABEL076
FOpen 1, PPEPath() + "Q01.PV", 0, 0
Return
:LABEL077
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q02.PV", 0, 0
Return
:LABEL078
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q03.PV", 0, 0
Return
:LABEL079
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q04.PV", 0, 0
Return
:LABEL080
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q05.PV", 0, 0
Return
:LABEL081
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q06.PV", 0, 0
Return
:LABEL082
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q07.PV", 0, 0
Return
:LABEL083
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q08.PV", 0, 0
Return
:LABEL084
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q09.PV", 0, 0
Return
:LABEL085
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q10.PV", 0, 0
Return
:LABEL086
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q11.PV", 0, 0
Return
:LABEL087
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q12.PV", 0, 0
Return
:LABEL088
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q13.PV", 0, 0
Return
:LABEL089
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q14.PV", 0, 0
Return
:LABEL090
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q15.PV", 0, 0
Return
:LABEL091
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q16.PV", 0, 0
Return
:LABEL092
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q17.PV", 0, 0
Return
:LABEL093
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q18.PV", 0, 0
Return
:LABEL094
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q19.PV", 0, 0
Return
:LABEL095
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q20.PV", 0, 0
Return
:LABEL096
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q21.PV", 0, 0
Return
:LABEL097
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q22.PV", 0, 0
Return
:LABEL098
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q23.PV", 0, 0
Return
:LABEL099
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q24.PV", 0, 0
Return
:LABEL100
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q25.PV", 0, 0
Return
:LABEL101
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q26.PV", 0, 0
Return
:LABEL102
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q27.PV", 0, 0
Return
:LABEL103
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q28.PV", 0, 0
Return
:LABEL104
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q29.PV", 0, 0
Return
:LABEL105
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q30.PV", 0, 0
Return
:LABEL106
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q31.PV", 0, 0
Return
:LABEL107
If (STRING011 == "N") Goto LABEL072
FOpen 1, PPEPath() + "Q32.PV", 0, 0
Return
:LABEL108
FGet 1, STRING016
FGet 1, INTEGER002
FGet 1, INTEGER003
FGet 1, STRING020
FGet 1, INTEGER007
FGet 1, STRING021
FGet 1, INTEGER008
FGet 1, STRING022
FGet 1, INTEGER009
FGet 1, STRING023
FGet 1, INTEGER010
FGet 1, STRING024
FGet 1, INTEGER011
FGet 1, STRING025
FGet 1, INTEGER012
FGet 1, STRING026
FGet 1, INTEGER013
FGet 1, STRING027
FGet 1, INTEGER014
FGet 1, STRING028
FGet 1, INTEGER015
FGet 1, STRING029
FGet 1, INTEGER016
FClose 1
Return
:LABEL109
FPutLn 1, STRING016
FPutLn 1, INTEGER002
FPutLn 1, INTEGER003
FPutLn 1, STRING020
FPutLn 1, INTEGER007
FPutLn 1, STRING021
FPutLn 1, INTEGER008
FPutLn 1, STRING022
FPutLn 1, INTEGER009
FPutLn 1, STRING023
FPutLn 1, INTEGER010
FPutLn 1, STRING024
FPutLn 1, INTEGER011
FPutLn 1, STRING025
FPutLn 1, INTEGER012
FPutLn 1, STRING026
FPutLn 1, INTEGER013
FPutLn 1, STRING027
FPutLn 1, INTEGER014
FPutLn 1, STRING028
FPutLn 1, INTEGER015
FPutLn 1, STRING029
FPutLn 1, INTEGER016
FClose 1
Return
:LABEL110
Cls
PrintLn
If (INTEGER003 >= 1) PrintLn " 1 ", STRING020
If (INTEGER003 >= 2) PrintLn " 2 ", STRING021
If (INTEGER003 >= 3) PrintLn " 3 ", STRING022
If (INTEGER003 >= 4) PrintLn " 4 ", STRING023
If (INTEGER003 >= 5) PrintLn " 5 ", STRING024
If (INTEGER003 >= 6) PrintLn " 6 ", STRING025
If (INTEGER003 >= 7) PrintLn " 7 ", STRING026
If (INTEGER003 >= 8) PrintLn " 8 ", STRING027
If (INTEGER003 >= 9) PrintLn " 9 ", STRING028
If (INTEGER003 >= 10) PrintLn "10 ", STRING029
Return
:LABEL111
If (INTEGER004 == 1) INTEGER007 = INTEGER007 + 1
If (INTEGER004 == 2) INTEGER008 = INTEGER008 + 1
If (INTEGER004 == 3) INTEGER009 = INTEGER009 + 1
If (INTEGER004 == 4) INTEGER010 = INTEGER010 + 1
If (INTEGER004 == 5) INTEGER011 = INTEGER011 + 1
If (INTEGER004 == 6) INTEGER012 = INTEGER012 + 1
If (INTEGER004 == 7) INTEGER013 = INTEGER013 + 1
If (INTEGER004 == 8) INTEGER014 = INTEGER014 + 1
If (INTEGER004 == 9) INTEGER015 = INTEGER015 + 1
If (INTEGER004 == 10) INTEGER016 = INTEGER016 + 1
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 8 Cls
; 5 Wait
; 405 Goto
; 288 Let
; 92 PrintLn
; 456 If
; 2 DispFile
; 193 FOpen
; 32 FAppend
; 100 FClose
; 124 FGet
; 55 FPutLn
; 1 GetUser
; 35 InputStr
; 193 Gosub
; 36 Return
; 4 Delay
; 1 Tokenize
; 2 GetToken
; 2 Beep
;
;
; ■ Functions used :
;
; 10 *
; 10 /
; 375 +
; 338 ==
; 32 <
; 32 <=
; 34 >
; 84 >=
; 78 !
; 64 &&
; 32 ||
; 100 Len(
; 32 Upper()
; 2 Left()
; 33 U_Name()
; 1 Mask_Alpha()
; 34 Mask_Num()
; 257 PPEPath()
; 32 Exist()
; 1 S2I()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 32 For/Next
; 0 While/EndWhile
; 46 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------