home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
CW_PPP10.ZIP
/
CONFJOIN.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-09-09
|
12KB
|
722 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
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
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
;------------------------------------------------------------------------------
STRING001 = "1.3"
If (Exist(PPEPath() + "CONFJOIN.CNF") == 0) Then
PrintLn
PrintLn "@X8CERROR@X0B: Config file not found!"
PrintLn
Goto LABEL041
Else
FOpen 1, PPEPath() + "CONFJOIN.CNF", 0, 0
FGet 1, STRING042
FGet 1, INTEGER006
FGet 1, INTEGER004
FGet 1, STRING004
FGet 1, INTEGER001
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FGet 1, STRING018
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING023
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING031
FGet 1, STRING032
FGet 1, STRING033
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FClose 1
Endif
GetToken STRING003
If (Strip(STRING003, Chr(32)) == "") Goto LABEL001
KbdStuff "J " + STRING003 + Chr(13)
End
:LABEL001
Tokenize STRING042
GetToken STRING046
GetToken STRING047
If (INTEGER006 == 0) Then
STRING048 = "N"
Goto LABEL003
Else
Goto LABEL002
Endif
:LABEL002
INTEGER002 = 36
INTEGER005 = 27233
STRING043 = Left(STRING046, 1)
STRING044 = Left(STRING047, 2)
STRING045 = STRING043 + STRING044
If (STRING043 == "A") INTEGER007 = 1934
If (STRING043 == "B") INTEGER007 = 2859
If (STRING043 == "C") INTEGER007 = 3743
If (STRING043 == "D") INTEGER007 = 4660
If (STRING043 == "E") INTEGER007 = 5534
If (STRING043 == "F") INTEGER007 = 6471
If (STRING043 == "G") INTEGER007 = 7325
If (STRING043 == "H") INTEGER007 = 8287
If (STRING043 == "I") INTEGER007 = 9119
If (STRING043 == "J") INTEGER007 = 1096
If (STRING043 == "K") INTEGER007 = 2928
If (STRING043 == "L") INTEGER007 = 3885
If (STRING043 == "M") INTEGER007 = 4737
If (STRING043 == "N") INTEGER007 = 5674
If (STRING043 == "O") INTEGER007 = 6546
If (STRING043 == "P") INTEGER007 = 7463
If (STRING043 == "Q") INTEGER007 = 8355
If (STRING043 == "R") INTEGER007 = 9242
If (STRING043 == "S") INTEGER007 = 1164
If (STRING043 == "T") INTEGER007 = 2031
If (STRING043 == "U") INTEGER007 = 3973
If (STRING043 == "V") INTEGER007 = 4820
If (STRING043 == "W") INTEGER007 = 5782
If (STRING043 == "X") INTEGER007 = 6619
If (STRING043 == "Y") INTEGER007 = 7591
If (STRING043 == "Z") INTEGER007 = 8408
INTEGER003 = S2I(STRING045, INTEGER002) + INTEGER006 + INTEGER005 + INTEGER007
If (Len(INTEGER006) == 1) STRING039 = "000"
If (Len(INTEGER006) == 2) STRING039 = "00"
If (Len(INTEGER006) == 3) STRING039 = "0"
If (Len(INTEGER006) == 4) STRING039 = ""
STRING040 = INTEGER006
STRING041 = STRING039 + STRING040
:LABEL003
If (!(INTEGER004 == INTEGER003) || (STRING048 == "N")) Then
STRING038 = "@X0BConfJoin v" + STRING001 + " # " + "@X0CUNREGISTERED@X0B" + " ■ " + STRING042
Else
STRING038 = "@X0BConfJoin v" + STRING001 + " #@X0F" + STRING041 + "@X0B ■ " + STRING042
Endif
:LABEL004
Cls
If (Exist(STRING004)) Then
DispFile STRING004, 4 + 2 + 1
Else
PrintLn "@X8CERROR@X0B: Menu Display Missing! Notify SysOp!"
Endif
If (INTEGER001 == 1) Goto LABEL038
PrintLn STRING038
InputStr "@X0BWhich network (number) would you like to view, or S)earch", STRING005, 11, 2, "1234567890Ss", Mask_Alpha() + Mask_Num()
If (STRING005 == "1") Goto LABEL005
If (STRING005 == "2") Goto LABEL006
If (STRING005 == "3") Goto LABEL007
If (STRING005 == "4") Goto LABEL008
If (STRING005 == "5") Goto LABEL009
If (STRING005 == "6") Goto LABEL010
If (STRING005 == "7") Goto LABEL011
If (STRING005 == "8") Goto LABEL012
If (STRING005 == "9") Goto LABEL013
If (STRING005 == "10") Goto LABEL014
If (STRING005 == "11") Goto LABEL015
If (STRING005 == "12") Goto LABEL016
If (STRING005 == "13") Goto LABEL017
If (STRING005 == "14") Goto LABEL018
If (STRING005 == "15") Goto LABEL019
If (STRING005 == "16") Goto LABEL020
If (STRING005 == "17") Goto LABEL021
If (STRING005 == "18") Goto LABEL022
If (STRING005 == "19") Goto LABEL023
If (STRING005 == "20") Goto LABEL024
If (STRING005 == "21") Goto LABEL025
If (STRING005 == "22") Goto LABEL026
If (STRING005 == "23") Goto LABEL027
If (STRING005 == "24") Goto LABEL028
If (STRING005 == "25") Goto LABEL029
If (STRING005 == "26") Goto LABEL030
If (STRING005 == "27") Goto LABEL031
If (STRING005 == "28") Goto LABEL032
If (STRING005 == "29") Goto LABEL033
If (STRING005 == "30") Goto LABEL034
If (STRING005 == "31") Goto LABEL035
If (STRING005 == "32") Goto LABEL036
If (STRING005 == "S") Goto LABEL040
If (STRING005 == "s") Goto LABEL040
If (STRING005 == "") Goto LABEL041
:LABEL005
Cls
If (INTEGER001 < 1) Goto LABEL037
If (Exist(STRING006)) Then
DispFile STRING006, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL006
Cls
If (INTEGER001 < 2) Goto LABEL037
If (Exist(STRING007)) Then
DispFile STRING007, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL007
Cls
If (INTEGER001 < 3) Goto LABEL037
If (Exist(STRING008)) Then
DispFile STRING008, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL008
Cls
If (INTEGER001 < 4) Goto LABEL037
If (Exist(STRING009)) Then
DispFile STRING009, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL009
Cls
If (INTEGER001 < 5) Goto LABEL037
If (Exist(STRING010)) Then
DispFile STRING010, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL010
Cls
If (INTEGER001 < 6) Goto LABEL037
If (Exist(STRING011)) Then
DispFile STRING011, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL011
Cls
If (INTEGER001 < 7) Goto LABEL037
If (Exist(STRING012)) Then
DispFile STRING012, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL012
Cls
If (INTEGER001 < 8) Goto LABEL037
If (Exist(STRING013)) Then
DispFile STRING013, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL013
Cls
If (INTEGER001 < 9) Goto LABEL037
If (Exist(STRING014)) Then
DispFile STRING014, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL014
Cls
If (INTEGER001 < 10) Goto LABEL037
If (Exist(STRING015)) Then
DispFile STRING015, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL015
Cls
If (INTEGER001 < 11) Goto LABEL037
If (Exist(STRING016)) Then
DispFile STRING016, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL016
Cls
If (INTEGER001 < 12) Goto LABEL037
If (Exist(STRING017)) Then
DispFile STRING017, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL017
Cls
If (INTEGER001 < 13) Goto LABEL037
If (Exist(STRING018)) Then
DispFile STRING018, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL018
Cls
If (INTEGER001 < 14) Goto LABEL037
If (Exist(STRING019)) Then
DispFile STRING019, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL019
Cls
If (INTEGER001 < 15) Goto LABEL037
If (Exist(STRING020)) Then
DispFile STRING020, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL020
Cls
If (INTEGER001 < 16) Goto LABEL037
If (Exist(STRING021)) Then
DispFile STRING021, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL021
Cls
If (INTEGER001 < 17) Goto LABEL037
If (Exist(STRING022)) Then
DispFile STRING022, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL022
Cls
If (INTEGER001 < 18) Goto LABEL037
If (Exist(STRING023)) Then
DispFile STRING023, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL023
Cls
If (INTEGER001 < 19) Goto LABEL037
If (Exist(STRING024)) Then
DispFile STRING024, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL024
Cls
If (INTEGER001 < 20) Goto LABEL037
If (Exist(STRING025)) Then
DispFile STRING025, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL025
Cls
If (INTEGER001 < 21) Goto LABEL037
If (Exist(STRING026)) Then
DispFile STRING026, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL026
Cls
If (INTEGER001 < 22) Goto LABEL037
If (Exist(STRING027)) Then
DispFile STRING027, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL027
Cls
If (INTEGER001 < 23) Goto LABEL037
If (Exist(STRING028)) Then
DispFile STRING028, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL028
Cls
If (INTEGER001 < 24) Goto LABEL037
If (Exist(STRING029)) Then
DispFile STRING029, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL029
Cls
If (INTEGER001 < 25) Goto LABEL037
If (Exist(STRING030)) Then
DispFile STRING030, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL030
Cls
If (INTEGER001 < 26) Goto LABEL037
If (Exist(STRING031)) Then
DispFile STRING031, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL031
Cls
If (INTEGER001 < 27) Goto LABEL037
If (Exist(STRING032)) Then
DispFile STRING032, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL032
Cls
If (INTEGER001 < 28) Goto LABEL037
If (Exist(STRING033)) Then
DispFile STRING033, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL033
Cls
If (INTEGER001 < 29) Goto LABEL037
If (Exist(STRING034)) Then
DispFile STRING034, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL034
Cls
If (INTEGER001 < 30) Goto LABEL037
If (Exist(STRING035)) Then
DispFile STRING035, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL035
Cls
If (INTEGER001 < 31) Goto LABEL037
If (Exist(STRING036)) Then
DispFile STRING036, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL036
Cls
If (INTEGER001 < 32) Goto LABEL037
If (Exist(STRING037)) Then
DispFile STRING037, 4 + 2 + 1
Else
Goto LABEL039
Endif
PrintLn
InputStr "@X0EConference # to join (Enter)=none", STRING002, 11, 5, "0123456789", Mask_Ascii()
If (STRING002 == "") Goto LABEL004
KbdStuff "J " + STRING002 + Chr(13)
Goto LABEL041
:LABEL037
PrintLn
PrintLn "@X8CERROR@X0B: Network number not in configuration file! Notify SysOp!"
PrintLn
Wait
Goto LABEL004
:LABEL038
KbdStuff "J" + Chr(13)
Goto LABEL041
:LABEL039
PrintLn
PrintLn STRING038
PrintLn "@X8CERROR@X0B: Conference display for this network is missing! Notify SysOp!"
PrintLn
Goto LABEL041
:LABEL040
KbdStuff "J S ^M"
End
:LABEL041
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 33 Cls
; 1 Wait
; 244 Goto
; 42 Let
; 44 PrintLn
; 167 If
; 33 DispFile
; 1 FOpen
; 1 FClose
; 37 FGet
; 33 InputStr
; 1 Tokenize
; 3 GetToken
; 35 KbdStuff
;
;
; ■ Functions used :
;
; 151 +
; 103 ==
; 32 <
; 37 !
; 1 ||
; 4 Len(
; 2 Left()
; 35 Chr()
; 1 Strip()
; 1 Mask_Alpha()
; 1 Mask_Num()
; 32 Mask_Ascii()
; 2 PPEPath()
; 34 Exist()
; 1 S2I()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 36 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------