home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TABPPE50.ZIP
/
TABS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-05-28
|
31KB
|
1,248 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 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
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 TSTRING031(3)
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
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String STRING062
String STRING063
String STRING064
String STRING065
String STRING066
String STRING067
String STRING068
String STRING069
String STRING070
String STRING071
String STRING072
String STRING073
String STRING074
String STRING075
String STRING076
String STRING077
String STRING078
String STRING079
String STRING080
String STRING081
;------------------------------------------------------------------------------
STRING025 = PPEPath()
TSTRING031(0) = "/"
TSTRING031(1) = "-"
TSTRING031(2) = "\"
TSTRING031(3) = "│"
STRING081 = Chr(13)
STRING026 = " 0123456789.,:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
STRING045 = ""
INTEGER003 = ""
STRING049 = "5.0"
STRING056 = "1-900-622-8227"
STRING057 = "1-900-622-5225"
STRING059 = STRING025 + "TABS" + String(PcbNode()) + ".LOG"
STRING069 = STRING025 + "SYSOP" + String(PcbNode()) + ".TXT"
STRING070 = STRING025 + "RECPT" + String(PcbNode()) + ".TXT"
If (Exist(STRING070)) Delete STRING070
STRING071 = STRING025 + "WARN" + String(PcbNode()) + ".TXT"
STRING072 = STRING025 + "FAILED" + String(PcbNode()) + ".TXT"
STRING079 = STRING025 + "BUSY" + String(PcbNode()) + ".FLG"
STRING074 = STRING025 + "TABSINFO.TXT"
STRING062 = ""
STRING063 = ""
INTEGER005 = ""
STRING064 = ""
FCreate 1, STRING079, 0, 3
FClose 1
If (Exist(STRING025 + "CONFIG.FLG")) Then
Cls
PrintLn "@X0FThe TABS door is currently running configuration routines."
PrintLn "@X0F Please try again in a few minutes. Thank you."
Delay 55
Else
STRING046 = ""
STRING032 = GetToken()
While (STRING032 <> "") Do
STRING046 = Mid(Upper(STRING032), 1, 12)
STRING032 = GetToken()
EndWhile
STRING032 = ""
GetUser
Tokenize U_Name()
STRING002 = GetToken()
STRING002 = Left(STRING002, 1) + Lower(Right(STRING002, Len(STRING002) - 1))
STRING024 = STRING002
FAppend 2, STRING059, 1, 3
FPutLn 2, "**** ", U_Name(), " Entered PPE on ", String(Date()), " at ", String(Time()), " ****"
FClose 2
FOpen 1, STRING025 + STRING046, 0, 3
FGet 1, STRING063
FGet 1, STRING062
If (Len(STRING062) <= "1") STRING064 = "NO"
FGet 1, STRING048
STRING048 = Upper(STRING048)
FGet 1, STRING054
FGet 1, STRING052
STRING052 = Upper(STRING052)
FGet 1, STRING055
FGet 1, STRING050
STRING050 = Upper(STRING050)
FGet 1, STRING047
FGet 1, STRING068
FClose 1
For INTEGER006 = 1 To 30
STRING065 = Mid(STRING063, INTEGER006, 1)
INTEGER004 = Asc(STRING065)
INTEGER005 = INTEGER005 + INTEGER004
Next
INTEGER005 = INTEGER005 * "804"
If (STRING062 == INTEGER005) STRING064 = "YES"
STRING060 = ""
If (STRING048 == "NO") Then
STRING053 = "25"
STRING033 = STRING055
STRING058 = STRING057
STRING060 = "NO"
Else
If (STRING052 == "NO") Then
STRING053 = "10"
STRING033 = STRING054
STRING058 = STRING056
STRING060 = "NO"
Else
STRING060 = "YES"
:LABEL001
If (STRING060 == "NO") Goto LABEL009
STRING053 = ""
Cls
If (STRING050 == "NO") Then
DispFile STRING025 + STRING047, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« TABS PCBoard Version ", STRING049, " » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1FTelephone Access Billing Processor @X1B(TABSPPE) @X19 │@X07"
PrintLn "@X10│ @X1E@X1CWritten By Ray Sulich @X1E(Straight Board BBS 804-468-6454/6525) @X19 │@X07"
PrintLn "@X10│ @X1BRIME ->1475 FIDO 1:275/25 @X19 │@X07"
PrintLn "@X10│ @X19 │@X07"
PrintLn "@X10│ @X1ETelephone Access Billing System (TABS) allows you to charge a subscription @X19│@X07"
PrintLn "@X10│ @X1E to this BBS by calling a (900) telephone number. @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1EThis Bulletin Board Service offers both a $10 and a $25 subscription rate. @X19│@X07"
PrintLn "@X10│ @X1E Which rate would you like to participate in, or obtain information about? @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1B(@X1E1@X1B)@X1F $10 Service @X19│@X07"
PrintLn "@X10│ @X1B(@X1E2@X1B)@X1F $25 Service @X19│@X07"
If (Upper(STRING068) == "YES") Then
PrintLn "@X10│ @X1B(@X1ED@X1B) @X1Fownload TABS information @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
Else
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
Endif
Endif
STRING023 = ""
InputStr "@X0F(@X0B1@X0F) $10 Options, (@X0B2@X0F) $25 Options, @X0F(@X0BD@X0F)ownload, (@X0BQ@X0F)uit", STRING023, 15, 1, "Qq12Dd", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "1") Goto LABEL004
If (STRING023 == "2") Goto LABEL005
If (STRING023 == "D") Then
If (Exist(STRING074)) Then
Flag STRING074
Cls
Newlines 2
PrintLn "@X0FInformation concerning the TABS service has been flagged for later download !"
Newlines 2
Wait
Goto LABEL002
Endif
Cls
Newlines 2
PrintLn "@X0FERROR : @X0CTABSINFO.TXT @X0Fcould not be found... Please inform your Sysop !"
Newlines 2
Wait
:LABEL002
Goto LABEL003
Endif
:LABEL003
Goto LABEL001
Endif
:LABEL004
STRING053 = "10"
STRING033 = STRING054
Goto LABEL006
Endif
:LABEL005
STRING053 = "25"
STRING033 = STRING055
:LABEL006
If (Len(STRING033) < 1) STRING033 = "TABS.CFG"
FOpen 1, STRING025 + STRING033, 0, 3
FGet 1, STRING004
FGet 1, STRING061
STRING061 = Upper(STRING061)
FGet 1, STRING066
FGet 1, STRING067
FGet 1, STRING068
FGet 1, STRING075
FGet 1, STRING076
FGet 1, STRING077
FGet 1, STRING080
FGet 1, STRING078
FGet 1, STRING005
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING013
If (Len(STRING013) < 1) Then
STRING012 = "TRUE"
STRING073 = STRING010
Else
STRING012 = "FALSE"
Endif
FGet 1, STRING014
FGet 1, STRING016
FGet 1, STRING017
If (STRING012 == "FALSE") STRING073 = STRING017
FGet 1, STRING018
FGet 1, STRING020
If (Len(STRING020) < 1) STRING020 = "NONE"
FGet 1, STRING043
FGet 1, STRING044
FGet 1, STRING021
If (Len(STRING021) < 1) STRING021 = "NONE"
FGet 1, STRING003
FGet 1, STRING022
STRING022 = Upper(STRING022)
FGet 1, STRING034
STRING034 = Upper(STRING034)
Select Case (STRING034)
Case "YES"
STRING041 = "FALSE"
Case "NO"
STRING041 = "TRUE"
End Select
FGet 1, STRING051
FGet 1, STRING035
STRING035 = Upper(STRING035)
If (STRING035 == "YES") Then
STRING042 = "FALSE"
Goto LABEL007
Else
STRING042 = "TRUE"
Endif
Goto LABEL008
:LABEL007
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
FGet 1, STRING039
FGet 1, STRING040
:LABEL008
FClose 1
:LABEL009
STRING023 = "Y"
Cls
DispFile STRING025 + STRING051, 1 + 2 + 4
InputStr "(@X0BY@X0F) to continue, (@X0BN@X0F) to Return to the BBS", STRING023, 15, 1, "YyNn", 32 + 2 + 4 + 128 + 8
If (STRING023 == YesChar()) Goto LABEL010
If (STRING023 == NoChar()) Goto LABEL068
Goto LABEL009
:LABEL010
Cls
STRING027 = ""
STRING028 = ""
If (CurSec() < STRING005) Goto LABEL011
If (STRING012 == 1) Goto LABEL013
If (CurSec() < STRING013) Goto LABEL012
If (STRING041 == "FALSE") Goto LABEL013
If (CurSec() >= STRING013) Goto LABEL013
Goto LABEL063
:LABEL011
Cls
If (STRING042 == "FALSE") Then
DispFile STRING025 + STRING036, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« First Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X07"
PrintLn "@X07 @X0EYour First $", STRING053, " Contribution will entitle you to:@X07"
PrintLn "@X07 @X07"
PrintLn "@X07 @X0F(1)@X0E Access Level @X0C", STRING005, "@X07"
PrintLn "@X07 @X0F(2) @X0C", STRING010, " @X0EMinutes per day@X07"
PrintLn "@X07 @X0F(3) @X0C", STRING011, " @X0E Download Bytes per day@X07"
PrintLn "@X07 @X0F(4)@X0E This Access Level would expire in @X0C", STRING008, "@X0E Days@X07"
PrintLn "@X07"
Endif
If (STRING012 == "FALSE") Then
PrintLn ""
PrintLn "@X07 @X0F Additional Entitlements are granted for additional fees !!@X07"
PrintLn "@X07 @X0F See Next page for more information.....@X07"
PrintLn "@X07"
STRING023 = ""
InputStr "(@X0BC@X0F)ontinue, (@X0BN@X0F)ext Page, (@X0BR@X0F)eturn to Intro. (@X0BQ@X0F)uit", STRING023, 15, 1, "QqRrCcNn", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "N") Goto LABEL012
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "C") Goto LABEL016
Goto LABEL011
Else
PrintLn ""
PrintLn "@X0F See Next page for more information .....@X07"
STRING023 = ""
InputStr "(@X0BC@X0F)ontinue, (@X0BN@X0F)ext Page, (@X0BR@X0F)eturn to Intro. (@X0BQ@X0F)uit", STRING023, 15, 1, "QqRrCcNn", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "N") Goto LABEL013
If (STRING023 == "C") Goto LABEL016
Goto LABEL011
Endif
:LABEL012
Cls
If (STRING042 == "FALSE") Then
DispFile STRING025 + STRING037, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Second Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X07"
PrintLn "@X07 @X0EA Second $", STRING053, " Contribution will entitle you to:@X07"
PrintLn "@X07"
PrintLn "@X07 @X0F(1)@X0E Access Level @X0C", STRING013, "@X07"
PrintLn "@X07 @X0F(2)@X0C ", STRING017, " @X0EMinutes per day@X07"
PrintLn "@X07 @X0F(3)@X0C ", STRING018, " @X0E Download Bytes per day@X07"
PrintLn "@X07 @X0F(4)@X0E This Access Level would expire in @X0C", STRING014, "@X0E Days@X07"
PrintLn "@X07"
Endif
If (STRING041 == "TRUE") Then
PrintLn ""
PrintLn "@X0F See Next page for information concerning subsequent uses of this program .....@X07"
STRING023 = ""
InputStr "(@X0BP@X0F)revious Page, (@X0BR@X0F)eturn to Intro., (@X0BC@X0F)ontinue, (@X0BQ@X0F)uit, (@X0BN@X0F)ext", STRING023, 15, 1, "QqRrCcPpNn", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "P") Goto LABEL011
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "N") Goto LABEL013
If (STRING023 == "C") Goto LABEL016
Goto LABEL012
Else
PrintLn ""
PrintLn "@X0F See Next page for more information .....@X07"
STRING023 = ""
InputStr "(@X0BC@X0F)ontinue, (@X0BN@X0F)ext Page, (@X0BR@X0F)eturn to Intro. (@X0BP@X0F)revious Page, (@X0BQ@X0F)uit", STRING023, 15, 1, "QqRrCcPpNn", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "P") Goto LABEL011
If (STRING023 == "N") Goto LABEL013
If (STRING023 == "C") Goto LABEL016
Goto LABEL011
Endif
:LABEL013
Cls
If (STRING042 == "FALSE") Goto LABEL015
If (STRING041 == "FALSE") Then
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Additional Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn ""
PrintLn "@X07 @X0EAny Additional Contributions will not yield more entitlements@X07"
PrintLn ""
PrintLn "@X07 @X0E Due to your current security level, we do not offer any other @X07"
PrintLn "@X07 @X0E entitlements utilizing the TABS program. If you want a higher @X07"
PrintLn "@X07 @X0E access level, please contact the Sysop of this BBS for more @X07"
PrintLn "@X07 @X0E information. @X07"
PrintLn ""
Goto LABEL014
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Additional Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn ""
PrintLn "@X07 @X0EAny Additional Contributions will not yield more entitlements@X07"
PrintLn ""
PrintLn "@X07 @X0E But they will help the Sysop pay the BBS bills. With more contributions@X07"
PrintLn "@X07 @X0E comes more features such as, Door Games, Mail Doors, Files, and Nodes@X07"
PrintLn "@X07 @X0E to call. BBS's can be quite an expense for your Sysop. Any help the@X07"
PrintLn "@X07 @X0E callers can give to help defray this expense is very much appreciated.@X07"
PrintLn ""
:LABEL014
If (STRING012 == "FALSE") Then
STRING023 = "C"
InputStr "(@X0BP@X0F)revious Page, (@X0BR@X0F)eturn to Intro., (@X0BC@X0F)ontinue, (@X0BQ@X0F)uit", STRING023, 15, 1, "QqRrCcPp", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "P") Goto LABEL012
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "C") Goto LABEL016
Goto LABEL013
Else
STRING023 = "C"
InputStr "(@X0BP@X0F)revious Page, (@X0BR@X0F)eturn to Intro., (@X0BC@X0F)ontinue, (@X0BQ@X0F)uit", STRING023, 15, 1, "QqRrCcPp", 32 + 2 + 4 + 128 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "P") Goto LABEL011
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "C") Goto LABEL016
Goto LABEL013
Endif
Endif
:LABEL015
If (STRING041 == "FALSE") Then
DispFile STRING025 + STRING040, 1 + 2 + 4
Goto LABEL014
Else
DispFile STRING025 + STRING038, 1 + 2 + 4
Goto LABEL014
Endif
:LABEL016
Cls
If (STRING042 == "FALSE") Then
DispFile STRING025 + STRING039, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Telephone Access Billing Menu » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1FPlease select one of the options below: @X19│@X07"
PrintLn "@X10│ @X19│@X07"
If (U_Name() == Upper(STRING004)) Then
PrintLn "@X10│ @X1B(@X1EI@X1B)@X1F nquire about the # of SIDS in the $", STRING053, " SID List @X19│@X07"
PrintLn "@X10│ @X1B(@X1EA@X1B)@X1F dd New SID's to the $", STRING053, " SID List @X19│@X07"
PrintLn "@X10│ @X1B(@X1EE@X1B)@X1F nter your Subscription ID # @X19│@X07"
PrintLn "@X10│ @X1B(@X1EQ@X1B)@X1F uit Return to the BBS @X19│@X07"
If (Upper(STRING068) == "YES") Then
PrintLn "@X10│ @X1B(@X1ED@X1B)@X1F ownload TABS information @X19│@X07"
Goto LABEL017
Endif
:LABEL017
PrintLn "@X10│ @X1B(@X1ER@X1B)@X1F eturn to Introduction Screen @X19 │@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1CNOTE: @X1E If this is not the SID file you wish to process. Return to @X19│@X07"
PrintLn "@X10│ @X1E the Introduction screen and select the correct service to @X19│@X07"
PrintLn "@X10│ @X1E process. @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
Endif
STRING023 = ""
If (U_Name() <> Upper(STRING004)) Goto LABEL021
InputStr "@X0F(@X0BQ@X0F)uit, (@X0BR@X0F)eturn to Intro, (@X0BE@X0F)nter ID #, (@X0BI@X0F)nquire, (@X0BA@X0F)dd, (@X0BD@X0F)ownload", STRING023, 15, 1, "QqRrEeIiAadD", 32 + 2 + 4 + 8
If (STRING023 == "I") Goto LABEL024
If (STRING023 == "A") Goto LABEL028
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "E") Goto LABEL039
If (STRING023 == "D") Then
If (Exist(STRING074)) Then
Flag STRING074
Cls
Newlines 2
PrintLn "@X0FInformation concerning the TABS service has been flagged for later download !"
Newlines 2
Wait
Goto LABEL018
Endif
Cls
Newlines 2
PrintLn "@X0FERROR : @X0CTABSINFO.TXT @X0Fcould not be found... Please inform your Sysop !"
Newlines 2
Wait
:LABEL018
Goto LABEL019
Endif
:LABEL019
Goto LABEL016
Goto LABEL024
Endif
PrintLn "@X10│ @X1B(@X1EE@X1B) @X1Fnter your Subscription ID # @X19│@X07"
PrintLn "@X10│ @X1B(@X1EQ@X1B) @X1Fuit Return to the BBS @X19│@X07"
If (Upper(STRING068) == "YES") Then
PrintLn "@X10│ @X1B(@X1ED@X1B)@X1F ownload TABS information @X19│@X07"
Goto LABEL020
Endif
:LABEL020
PrintLn "@X10│ @X1B(@X1ER@X1B) @X1Feturn to Introduction Screen @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
:LABEL021
STRING023 = ""
PrintLn ""
InputStr "(@X0BQ@X0F)uit, (@X0BR@X0F)eturn to Intro, @X0F(@X0BD@X0F)ownload, @X0F(@X0BE@X0F)nter ID #", STRING023, 15, 1, "QqEeRrDd", 32 + 2 + 4 + 8
If (STRING023 == "Q") Goto LABEL068
If (STRING023 == "R") Goto LABEL001
If (STRING023 == "E") Goto LABEL039
If (STRING023 == "D") Then
If (Exist(STRING074)) Then
Flag "TABSINFO.TXT"
Cls
Newlines 2
PrintLn "@X0FInformation concerning the TABS service has been flagged for later download !"
Newlines 2
Wait
Goto LABEL022
Endif
Cls
Newlines 2
PrintLn "@X0FERROR : @X0CTABSINFO.TXT @X0Fcould not be found... Please inform your Sysop !"
Newlines 2
Wait
:LABEL022
Goto LABEL023
Endif
:LABEL023
Goto LABEL016
:LABEL024
INTEGER003 = ""
Print "Standby, while I process your request... "
FOpen 1, STRING025 + STRING003, 0, 3
If (Ferr(1)) Then
STRING027 = "14"
FClose 1
FClose 2
Else
Frewind 1
INTEGER007 = GetX()
INTEGER008 = GetY()
:LABEL025
If (Ferr(1)) Goto LABEL027
FGet 1, STRING006
AnsiPos INTEGER007, INTEGER008
Print TSTRING031(INTEGER009 % 4)
Inc INTEGER009
If (Len(STRING006) < 7) Then
Goto LABEL026
ElseIf (Len(STRING006) > 8) Then
Goto LABEL026
Else
Inc INTEGER003
Endif
:LABEL026
Goto LABEL025
:LABEL027
FClose 1
Cls
Newlines 2
PrintLn "@X0F There are currently @X0C", INTEGER003, "@X0F SIDS available for usage in the $@X0C", STRING053, " @X0FSID list."
Newlines 2
Wait
Goto LABEL016
:LABEL028
Cls
STRING023 = ""
Newlines 2
PrintLn "@X0FYour new @X0BSIDS@X0F must reside in the same directory as the @X0CTABS @X0FPPE."
PrintLn "@X0EENSURE @X0Fthat you are adding $@X0C", STRING053, " @X0FSIDS to this ID list."
PrintLn "@X0FThe file that you about to add subscription ID's to is:"
PrintLn ""
PrintLn "@X0E ", STRING025 + STRING003, " @X0C!!!!"
PrintLn ""
InputStr "@X0FIs this the file you wish to add SIDS to? (@X0BY@X0F)es, (@X0BN@X0F)o ", STRING023, 15, 1, "YyNn", 32 + 2 + 4 + 128 + 8
If (STRING023 == YesChar()) Goto LABEL029
If (STRING023 == NoChar()) Goto LABEL016
Goto LABEL028
:LABEL029
InputStr "@X0FEnter the filename of the $@X0E" + STRING053 + " @X0FSID file to add ", STRING029, 15, 12, Mask_File(), 8 + 32 + 2 + 4 + 128
Newlines 2
Print "@X0FHold on while we add the numbers to your $@X0E", STRING053, " @X0FSID listing "
Delete STRING025 + "WORK.$$$"
FCreate 1, STRING025 + "WORK.$$$", 2, 3
If (Ferr(1)) Then
STRING027 = "12"
FClose 1
Else
FOpen 2, STRING025 + STRING003, 2, 3
If (Ferr(2)) Then
STRING027 = "14"
FClose 2
FClose 1
Else
INTEGER007 = GetX()
INTEGER008 = GetY()
:LABEL030
If (Ferr(2)) Goto LABEL033
FGet 2, STRING030
AnsiPos INTEGER007, INTEGER008
Print TSTRING031(INTEGER009 % 4)
Inc INTEGER009
If (Len(STRING030) >= 7) Then
Goto LABEL031
Else
Goto LABEL032
Endif
:LABEL031
FPutLn 1, STRING030
:LABEL032
Goto LABEL030
:LABEL033
FOpen 3, STRING025 + STRING029, 0, 3
If (Ferr(3)) Then
STRING027 = "13"
FClose 1
FClose 2
FClose 3
Else
:LABEL034
If (Ferr(3)) Goto LABEL038
FGet 3, STRING030
AnsiPos INTEGER007, INTEGER008
Print TSTRING031(INTEGER009 % 4)
Inc INTEGER009
If (Len(STRING030) > 6) Then
Goto LABEL035
Else
Goto LABEL037
Endif
:LABEL035
If (Len(STRING030) < 8) Then
Goto LABEL036
Else
Goto LABEL037
Endif
:LABEL036
FPutLn 1, STRING030
:LABEL037
Goto LABEL034
:LABEL038
FClose 1
FClose 2
FClose 3
Delete STRING025 + STRING003
Delete STRING025 + STRING029
Rename STRING025 + "WORK.$$$", STRING025 + STRING003
Cls
Newlines 2
PrintLn " Operation successfull !!!! "
Newlines 2
Delay 100
Goto LABEL024
:LABEL039
STRING028 = ""
STRING027 = ""
PrintLn ""
InputStr "(@X0BQ@X0F)uit, @X0BEnter your Subscription #@X0F", STRING028, 15, 7, "Qq0123456789", 32 + 2 + 4 + 8
If (STRING028 == "Q") Goto LABEL016
If (Len(STRING028) < 7) Goto LABEL061
If (Len(STRING028) > 8) Goto LABEL061
PrintLn ""
Print "@X0F Please standby while I validate your Subscription Number... "
FAppend 2, STRING059, 1, 3
FPutLn 2, " Entered SID# ", STRING028, " looking in $", STRING053, " list for a match."
FClose 2
FOpen 1, STRING025 + STRING003, 0, 3
If (Ferr(1)) Then
STRING027 = "14"
FClose 1
Else
FCreate 2, STRING025 + "WORK.$$$", 1, 3
If (Ferr(2)) Then
STRING027 = "12"
FClose 1
FClose 2
Else
Frewind 1
STRING027 = "11"
INTEGER007 = GetX()
INTEGER008 = GetY()
:LABEL040
If (Ferr(1)) Goto LABEL042
FGet 1, STRING006
AnsiPos INTEGER007, INTEGER008
Print TSTRING031(INTEGER009 % 4)
Inc INTEGER009
If (STRING028 == STRING006) Then
FPutLn 2, " *** SID ", STRING028, " was used ", String(Date()), " at ", String(Time()), " by ", U_Name(), " ***"
STRING027 = "10"
ElseIf (Len(STRING006) >= 7) Then
FPutLn 2, STRING006
If (Len(STRING006) == 7) Inc INTEGER003
Goto LABEL041
Endif
:LABEL041
Goto LABEL040
:LABEL042
FClose 1
FClose 2
FClose 3
Delete STRING025 + STRING003
Rename STRING025 + "WORK.$$$", STRING025 + STRING003
Endif
Endif
Endif
Endif
Endif
Endif
If (STRING027 == "14") Goto LABEL062
If (STRING027 == "13") Goto LABEL062
If (STRING027 == "12") Goto LABEL063
If (STRING027 == "11") Goto LABEL061
If (STRING027 == "10") Goto LABEL043
Goto LABEL063
:LABEL043
If (CurSec() < STRING005) Goto LABEL044
If (STRING012 == "TRUE") Goto LABEL050
If (CurSec() < STRING013) Goto LABEL047
If (CurSec() >= STRING013) Goto LABEL050
Goto LABEL063
:LABEL044
If (STRING061 == "YES") U_ExpDate = Date()
If (U_ExpDate < Date()) U_ExpDate = Date()
U_Sec = STRING005
U_ExpDate = U_ExpDate + STRING008
U_ExpSec = STRING009
STRING073 = STRING010
PutUser
If (STRING022 == "NO") Then
Goto LABEL045
ElseIf (Psa(6)) Then
U_Notes(0) = "TABS donation " + STRING028 + " "
U_Notes(1) = "ON: " + String(Date()) + " First Donation, $" + STRING053 + " "
PutUser
Endif
:LABEL045
FAppend 2, STRING059, 1, 3
FPutLn 2, " SID was accepted:"
FPutLn 2, " Access level now: ", CurSec()
FPutLn 2, " Daily Access Time: ", STRING010, " mins."
FPutLn 2, " This is the first time this caller has contributed $", STRING053, " !"
FClose 2
If (STRING020 == "NONE") Goto LABEL046
ConfFlag STRING020, 1 + 2 + 4
PutUser
:LABEL046
If (STRING021 == "NONE") Goto LABEL057
FCreate 1, STRING069, 1, 3
FPutLn 1, ""
FPutLn 1, "@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0C", U_Name(), "@X0F, donated $", STRING053, " to the BBS and his/her access "
FPutLn 1, "level was changed to: ", CurSec(), ", and their access time per "
FPutLn 1, "day is now: ", STRING010, " mins., this was a first time "
FPutLn 1, "$@X0C", STRING053, "@X0F contribution."
FClose 1
Message STRING021, STRING004, "TABS-PPE", "Contribution", "R", 0, 0, 0, STRING069
Delete STRING069
Goto LABEL057
:LABEL047
If (STRING061 == "YES") U_ExpDate = Date()
If (U_ExpDate < Date()) U_ExpDate = Date()
U_Sec = STRING013
U_ExpDate = U_ExpDate + STRING014
U_ExpSec = STRING016
STRING073 = STRING017
PutUser
If (STRING022 == "NO") Then
Goto LABEL048
ElseIf (Psa(6)) Then
U_Notes(0) = "TABS Contribution " + STRING028 + " "
U_Notes(1) = "ON: " + String(Date()) + " Second $" + STRING053 + "Contribution"
PutUser
Endif
:LABEL048
FAppend 2, STRING059, 1, 3
FPutLn 2, " SID was accepted:"
FPutLn 2, " Access level now: ", CurSec()
FPutLn 2, " Daily Access Time: ", STRING017, " mins."
FPutLn 2, " This was a the second time this caller has contributed !"
FPutLn 2, " This was a $", STRING053, " contribution."
FClose 2
If (STRING020 == "NONE") Goto LABEL049
ConfFlag STRING020, 1 + 2 + 4
PutUser
:LABEL049
If (STRING021 == "NONE") Goto LABEL057
FCreate 1, STRING069, 1, 3
FPutLn 1, ""
FPutLn 1, "@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0C", U_Name(), "@X0F, donated $", STRING053, " to the BBS and his/her access level was"
FPutLn 1, "changed to: ", CurSec(), ", and their access time per day is"
FPutLn 1, "now: ", STRING017, " mins., this was a second time Contribution."
FClose 1
Message STRING021, STRING004, "TABS-PPE", "Contribution", "R", 0, 0, 0, STRING069
Delete STRING069
Goto LABEL057
:LABEL050
If (STRING012 == "TRUE") STRING017 = STRING010
FAppend 2, STRING059, 1, 3
FPutLn 2, " SID was accepted, Access level not adjusted. User has donated more"
FPutLn 2, " than configured number of times."
FClose 2
If (STRING020 == "NONE") Goto LABEL051
ConfFlag STRING020, 1 + 2 + 4
:LABEL051
If (STRING021 == "NONE") Goto LABEL053
If (STRING022 == "NO") Then
Goto LABEL052
ElseIf (Psa(6)) Then
GetUser
U_Notes(0) = "TABS Contribution " + STRING028 + " "
U_Notes(1) = "ON: " + String(Date()) + " Third $" + STRING053 + " Contribution"
Endif
:LABEL052
FCreate 1, STRING069, 1, 3
FPutLn 1, ""
FPutLn 1, "@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0C", U_Name(), "@X0F, donated $", STRING053, " to the BBS and since this was his/her"
FPutLn 1, "third (or higher) Contribution no change was made to their account"
FPutLn 1, "The callers security level is: ", CurSec(), " , and their"
FPutLn 1, "access time per day is: ", STRING073, " mins."
FClose 1
Message STRING021, STRING004, "TABS-PPE", "Contribution", "R", 0, 0, 0, STRING069
Delete STRING069
:LABEL053
Cls
PrintLn ""
PrintLn "@X0CThank you !!! @X0E", STRING024, ", @X0Ffor your Contribution."
PrintLn ""
PrintLn "@X0FThis is the kindest type of contribution, as it was a contribution that you"
PrintLn "@X0Fgave without expecting anything in return."
PrintLn ""
PrintLn "@X0FThank you very much for your generosity !!!!"
PrintLn ""
PrintLn "@X0FYour access level is :@X0E ", CurSec(), "@X0B"
PrintLn "@X0FYour access time per day is :@X0E ", STRING073, " @X0BMins."
PrintLn "@X0FYour account expiration date is :@X0E ", U_ExpDate, "@X0B"
Newlines 2
If (Upper(STRING066) == "YES") Then
STRING023 = ""
InputStr "@X0FWould you like to download a receipt for this transaction", STRING023, 11, 1, "yYnN", 256 + 16384
If (STRING023 == YesChar()) Then
FCreate 1, STRING070, 1, 3
FClose 1
Append STRING025 + STRING067, STRING070
FAppend 1, STRING070, 1, 3
FPutLn 1, ""
FPutLn 1, "Your new access level is : ", CurSec(), ""
FPutLn 1, "Access time per day is : ", STRING073, ""
FPutLn 1, "Your account expiration date is : ", U_ExpDate, ""
FPutLn 1, ""
FPutLn 1, "Receipt generated on ", Date(), " for $", STRING053, " at ", STRING063
FClose 1
Flag STRING070
Newlines 2
PrintLn "@X0FYour receipt has been flagged for later download."
Newlines 2
Wait
Goto LABEL054
Endif
:LABEL054
Goto LABEL055
Endif
:LABEL055
If (STRING021 == "NONE") Goto LABEL068
If (INTEGER003 <= STRING043) Then
FAppend 2, STRING059, 1, 3
FPutLn 2, "******* WARNING !!!!!!!!!!!!!!!! *******"
FPutLn 2, " Only ", INTEGER003, " $", STRING053, " SIDS remaining ! "
FClose 2
FCreate 3, STRING071, 1, 3
FPutLn 3, ""
FPutLn 3, "@X0F TABS PPE would like to inform that there are only"
FPutLn 3, "@X0C ", INTEGER003, "@X0E $", STRING053, " @X0FSubscription ID's remaining. Please call the TABS service"
FPutLn 3, "BBS at @X0B1-407-722-3406 @X0Fand download more $", STRING053, " Subscription ID's"
FPutLn 3, ""
FClose 3
Message STRING021, STRING004, "TABS-PPE", "Warning", "R", 0, 0, 0, STRING071
Delete STRING071
Goto LABEL056
Endif
:LABEL056
If (STRING075 == "YES") Goto LABEL064
Goto LABEL016
:LABEL057
Cls
PrintLn ""
PrintLn "@X0CThank you @X0E", STRING024, ", @X0Ffor your Contribution. Your account on this BBS has"
PrintLn "@X0Fbeen adjusted to reflect your generosity."
PrintLn ""
PrintLn "@X0FYour new access level is :@X0E ", CurSec(), "@X0B"
PrintLn "@X0FYour access time per day is :@X0E ", STRING073, " @X0BMins."
PrintLn "@X0B@X0FYour account expiration date is :@X0E ", U_ExpDate, "@X0B"
Newlines 2
If (Upper(STRING066) == "YES") Then
STRING023 = ""
InputStr "@X0FWould you like to download a receipt for this transaction", STRING023, 11, 1, "yYnN", 256 + 16384
If (STRING023 == YesChar()) Then
FCreate 1, STRING070, 1, 3
FClose 1
Append STRING025 + STRING067, STRING070
FAppend 1, STRING070, 1, 3
FPutLn 1, ""
FPutLn 1, "Your new access level is : ", CurSec(), ""
FPutLn 1, "Access time per day is : ", STRING073, " Mins."
FPutLn 1, "Your account expiration date is : ", U_ExpDate, ""
FPutLn 1, ""
FPutLn 1, "Receipt generated on ", Date(), " for $", STRING053, " at ", STRING063
FClose 1
Flag STRING070
Newlines 2
PrintLn "@X0FYour receipt has been flagged for later download."
Newlines 2
Wait
Goto LABEL058
Endif
:LABEL058
Goto LABEL059
Endif
:LABEL059
If (STRING021 == "NONE") Goto LABEL068
If (INTEGER003 <= STRING043) Then
FAppend 2, STRING059, 1, 3
FPutLn 2, "******* WARNING !!!!!!!!!!!!!!!! *******"
FPutLn 2, " Only ", INTEGER003, " $", STRING053, " SIDS remaining ! "
FClose 2
FCreate 3, STRING071, 1, 3
FPutLn 3, ""
FPutLn 3, "@X0F TABS PPE would like to inform that there are only"
FPutLn 3, "@X0C ", INTEGER003, "@X0E $", STRING053, "@X0F Subscription ID's remaining. Please call the TABS service"
FPutLn 3, "BBS at @X0B1-407-722-3406 @X0Fand download more $", STRING053, " Subscription ID's"
FPutLn 3, ""
FClose 3
Message STRING021, STRING004, "TABS-PPE", "Warning", "R", 0, 0, 0, STRING071
Delete STRING071
Goto LABEL060
Endif
:LABEL060
If (STRING075 == "YES") Goto LABEL064
Goto LABEL016
:LABEL061
FAppend 2, STRING059, 1, 3
Inc STRING045
FPutLn 2, " Entered an incorrect REGISTRATION NUMBER!"
FClose 2
Cls
PrintLn ""
PrintLn "@X0F You entered an @X0Cincorrect @X0FSubscription Number, Please try again @X0E!@X0F"
Newlines 2
If (STRING045 == STRING044) Then
Goto LABEL067
Else
Goto LABEL039
Endif
:LABEL062
FAppend 2, STRING059, 1, 3
FPutLn 2, "******* TABS PPE returned Errorlevel ", STRING027, " *******"
FPutLn 2, " Please check TABS.DOC for a description of the error"
FClose 2
Cls
PrintLn
PrintLn "@X0E The fuction that you just executed ended in error and "
PrintLn "@X0E the program returned Errorlevel ", STRING027, " please"
PrintLn "@X0E your TABS.DOC file for an explaination of this error !!!"
Newlines 2
Wait
Goto LABEL016
:LABEL063
FAppend 2, STRING059, 1, 3
FPutLn 2, "******* TABS PPE returned Errorlevel ", STRING027, " *******"
FPutLn 2, " Please check TABS.DOC for a description of the error"
FClose 2
Cls
PrintLn
PrintLn "@X0F The validation process ended in an error !!!"
PrintLn "@X8C Please inform your Sysop @X8B!@X8A!@X89!@X8E!@X07"
Newlines 2
If (STRING021 == "NONE") Goto LABEL068
FCreate 1, STRING069, 1, 3
FPutLn 1, ""
FPutLn 1, "@X0EThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0C", U_Name(), "@X0F, attempted to donate to the BBS and TABS PPE exited"
FPutLn 1, "with @X8C Errorlevel ", STRING027, " @X0F- so their access rights were not"
FPutLn 1, "changed."
FPutLn 1, ""
FClose 1
Message STRING021, STRING004, "TABS-PPE", "TABS_Problem", "R", 0, 0, 0, STRING069
Delete STRING069
Wait
Goto LABEL068
:LABEL064
If (!Exist(STRING025 + STRING080)) FOpen 1, STRING025 + STRING080, 2, 3
FAppend 1, STRING025 + STRING080, 2, 3
FPutLn 1, "", U_Name()
FClose 1
If (Exist(STRING025 + STRING076)) Delete STRING025 + STRING076
FCreate 1, STRING025 + STRING076, 2, 3
FOpen 2, STRING025 + STRING080, 2, 3
FPutLn 1, "%" + STRING025 + +STRING077
FPutLn 1, ""
:LABEL065
STRING007 = ""
STRING015 = ""
STRING019 = ""
FGet 2, STRING007
FGet 2, STRING015
FGet 2, STRING019
FPutPad 1, " " + STRING007, -32
FPutPad 1, STRING015, -25
FPutPad 1, STRING019, -22
FPutLn 1, ""
If (Ferr(2)) Goto LABEL066
Goto LABEL065
:LABEL066
FPutLn 1, ""
FPutLn 1, "%" + STRING025 + +STRING078
FClose 1
FClose 2
Goto LABEL016
:LABEL067
FAppend 2, STRING059, 1, 3
FPutLn 2, " USER FAILED ", STRING045, " times trying to enter SID"
FClose 2
Cls
Newlines 2
PrintLn " @X0FYou have entered an invalid SID @X0C", STRING045, " @X0Ftimes"
PrintLn ""
PrintLn " Please contact your @X0CSysop @X0Ffor assistance @X8B!@X8A!@X89!@X8E!@X07"
Newlines 2
If (STRING021 == "NONE") Then
Delay 126
Else
FCreate 1, STRING072, 1, 3
FPutLn 1, ""
FPutLn 1, "@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0C", U_Name(), "@X0F, attempted to donate to the BBS and was unable to"
FPutLn 1, "@X0Fenter a correct SID within the ", STRING045, " attempts configured."
FPutLn 1, ""
FClose 1
Message STRING021, STRING004, "TABS-PPE", "SID_MISSES", "R", 0, 0, 0, STRING072
Delete STRING072
Delay 126
Endif
:LABEL068
If (STRING064 == "YES") Then
Cls
PrintLn "@X0FTABS-PPE @X0Ewritten by: @X0BRay Sulich "
Newlines 4
PrintLn "@BEEP@@BEEP@@BEEP@"
PrintLn ""
PrintLn "@X0C This Copy of TABS-PPE Version ", STRING049, " is Registered to"
PrintLn ""
Forward (80 - Len(STRING063)) / 2
Print "@X0E", STRING063
Newlines 8
Delay 45
Else
Cls
PrintLn "@X0FTABS-PPE @X0Ewritten by: @X0BRay Sulich"
Newlines 4
PrintLn "@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@"
Newlines 2
PrintLn "@X0C Unregistered Copy of TABS-PPE Version ", STRING049
Newlines 2
PrintLn "@X0E Please help your Sysop Register ME !!"
Newlines 4
PrintLn "@X07 "
Delay 126
Endif
Endif
FAppend 2, STRING059, 1, 3
FPutLn 2, "---- ", U_Name(), " Exited PPE on ", String(Date()), " at ", String(Time()), " ----"
FPutLn 2, ""
FClose 2
PutUser
FClose 1
FClose 3
If (Exist(STRING069)) Delete STRING069
If (Exist(STRING071)) Delete STRING071
If (Exist(STRING072)) Delete STRING072
If (Exist(STRING079)) Delete STRING079
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 25 Cls
; 11 Wait
; 239 Goto
; 126 Let
; 8 Print
; 162 PrintLn
; 152 If
; 3 ConfFlag
; 7 DispFile
; 13 FCreate
; 8 FOpen
; 15 FAppend
; 49 FClose
; 50 FGet
; 90 FPutLn
; 3 FPutPad
; 2 GetUser
; 7 PutUser
; 17 Delete
; 15 InputStr
; 6 Delay
; 7 Inc
; 35 Newlines
; 1 Tokenize
; 4 AnsiPos
; 1 Forward
; 7 Message
; 2 Rename
; 2 Frewind
; 2 Append
; 5 Flag
;
;
; ■ Functions used :
;
; 2 +
; 3 -
; 1 *
; 1 /
; 4 %
; 154 +
; 2 -
; 101 ==
; 2 <>
; 14 <
; 4 <=
; 3 >
; 6 >=
; 61 !
; 2 &&
; 1 ||
; 16 Len(
; 1 Lower()
; 15 Upper()
; 2 Mid()
; 1 Left()
; 1 Right()
; 11 Ferr()
; 1 Chr()
; 1 Asc()
; 14 Date()
; 3 Time()
; 12 U_Name()
; 2 NoChar()
; 4 YesChar()
; 15 String()
; 1 Mask_File()
; 1 PPEPath()
; 6 PcbNode()
; 15 CurSec()
; 3 GetToken()
; 11 Exist()
; 3 GetX()
; 3 GetY()
; 3 Psa()
;
;------------------------------------------------------------------------------
;
; Analysis flags : FWf
;
; F - Change conference flags status ■ 2
; This may be normal for a SELECT replacement but it may also be
; a way to get access to conferences a user is not allowed to.
; ■ Search for : CONFFLAG, CONFUNFLAG
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; f - Flag files for download ■ 3
; This may be normal if a PPE needs to send some files, but since
; this statement allows flagging of any file on the hard disk, you
; have to be carefull. Check!
; ■ Search for : FLAG
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 1 While/EndWhile
; 52 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------