home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pcboard
/
nu_110a.zip
/
NEWUSER.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-06-08
|
13KB
|
579 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
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
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 TSTRING016(6)
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
;------------------------------------------------------------------------------
GetUser
STRING013 = YesChar()
STRING020 = YesChar()
STRING014 = U_Trans
FOpen 1, PPEPath() + "NEWUSER.CNF", 0, 0
FGet 1, INTEGER003
While (!Ferr(1) && (INTEGER002 <> INTEGER003)) Do
FGet 1, STRING001
INTEGER002 = INTEGER002 + 1
If (Exist(STRING001)) DispFile STRING001, 4 + 2 + 1
Newline
Wait
If (INTEGER002 == INTEGER003) Then
FGet 1, STRING002
If (Right(STRING002, (1 <> "\"))) STRING002 = STRING002 + "\"
STRING003 = STRING002 + "PCBS"
STRING004 = STRING002 + "PCBR"
FClose 1
Endif
EndWhile
PromptStr 54, STRING020, 1, "ynYN", 2 + 4 + 8 + 16384 + 128
If (STRING020 == YesChar()) Then
STRING018 = Upper(Left(STRING020, 1)) + Chr(13)
If (Exist(PPEPath() + "NEWINFO")) DispFile PPEPath() + "NEWINFO", 4 + 2 + 1
Newline
Goto LABEL001
Else
STRING018 = NoChar() + Chr(13)
Goto LABEL026
Endif
Goto LABEL028
:LABEL001
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_A")) DispFile PPEPath() + "NEW_A", 4 + 2 + 1
STRING007 = ""
PromptStr 152, STRING007, 13, Mask_Pwd(), 2 + 4 + 8 + 128 + 256 + 1
If (Len((STRING007 == 0))) INTEGER001 = INTEGER001 + 1
If (Psa(4) && (Len(STRING007) < ReadLine(PCBDat(), 265))) Then
If (!(Len(STRING007) == 0)) INTEGER001 = 0
STRING007 = ""
Newline
PrintLn "@X0CPassword too short! Must be @X0F" + Trim(ReadLine(PCBDat(), 265), Chr(32)) + " @X0Ccharacters or longer, try again.@X07"
FreshLine
Goto LABEL001
ElseIf (Psa(4) && (InStr(U_Name(), STRING007) > 0)) Then
INTEGER001 = 0
STRING007 = ""
Newline
PrintLn "@X0CYour password cannot be a subset of your name. While this may make it easy for"
PrintLn "@X0Cyou to remember, it also makes it easier for someone to guess your password.@X07"
FreshLine
Goto LABEL001
ElseIf (Trim(STRING007, Chr(32)) <> "") Then
INTEGER001 = 0
Else
FreshLine
Goto LABEL001
Endif
STRING008 = ""
PromptStr 111, STRING008, 13, Mask_Pwd(), 2 + 4 + 8 + 128 + 1
If (STRING007 <> STRING008) Then
INTEGER001 = 0
STRING007 = ""
STRING008 = ""
Newlines 2
PrintLn "@X0CSorry, @FIRST@, the two passwords do not match, try again.@X07"
FreshLine
Goto LABEL001
ElseIf (STRING007 == STRING008) Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL002
Else
FreshLine
Goto LABEL001
Endif
Goto LABEL028
:LABEL002
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_B")) DispFile PPEPath() + "NEW_B", 4 + 2 + 1
PromptStr 265, STRING009, 24, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((STRING009 == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(STRING009, Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL003
Else
FreshLine
Goto LABEL002
Endif
Goto LABEL028
:LABEL003
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_C")) DispFile PPEPath() + "NEW_C", 4 + 2 + 1
PromptStr 113, STRING010, 13, Mask_Num() + "- ", 2 + 4 + 8 + 128
If (Len((STRING010 == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(STRING010, Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL004
Else
FreshLine
Goto LABEL003
Endif
Goto LABEL028
:LABEL004
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_D")) DispFile PPEPath() + "NEW_D", 4 + 2 + 1
PromptStr 114, STRING011, 13, Mask_Num() + "- ", 2 + 4 + 8 + 128
If (Len((STRING011 == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(STRING011, Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL005
Else
FreshLine
Goto LABEL004
Endif
Goto LABEL028
:LABEL005
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_E")) DispFile PPEPath() + "NEW_E", 4 + 2 + 1
PromptStr 2, STRING012, 30, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((STRING012 == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(STRING012, Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL006
Else
FreshLine
Goto LABEL005
Endif
Goto LABEL028
:LABEL006
If (Exist(PPEPath() + "NEW_F")) DispFile PPEPath() + "NEW_F", 4 + 2 + 1
PromptStr 556, STRING013, 1, "ynYN", 2 + 4 + 8 + 128 + 16384
If (Trim(STRING013, Chr(32)) <> "") Then
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL007
Else
Newline
Goto LABEL007
Endif
Goto LABEL028
:LABEL007
If (Exist(ReadLine(PCBDat(), 45))) Goto LABEL008
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL015
:LABEL008
Newline
PrintLn "@X70┌────────────────────────────────────────────────────────@X7F┐@X07"
PrintLn "@X70│ @X7BP R O T O C O L S A V A I L A B L E@POS:58@@X7F│@X07"
PrintLn "@X70└@X7F────────────────────────────────────────────────────────┘@X07"
Newline
PrintLn "@X70┌@X7F────────────────────────────────────────────────────────┐@X07"
FOpen 1, ReadLine(PCBDat(), 45), 0, 0
:LABEL009
If (Ferr(1)) Goto LABEL012
FGet 1, STRING021
If (((Mid(STRING021, 3, 1) <> "I") && !Exist(STRING003 + Left(STRING021, 1) + ".BAT")) && !Exist(STRING004 + Left(STRING021, 1) + ".BAT")) BOOLEAN001 = 1
INTEGER004 = InStr(STRING021, ",")
If ((!(INTEGER004 == 0) && (BOOLEAN001 == 0)) || (Left(STRING021, 1) == "N")) Then
STRING023 = STRING023 + Left(STRING021, INTEGER004 - 1)
If (Left(STRING021, INTEGER004 - 1) == STRING014) Goto LABEL010
Print "@X70│ @X71(@X7E" + Left(STRING021, INTEGER004 - 1) + "@X71) "
Goto LABEL011
:LABEL010
Print "@X70│ @XF4=> @X71(@X7E" + Left(STRING021, INTEGER004 - 1) + "@X71) "
:LABEL011
STRING022 = Mid(STRING021, INTEGER004 + 1 + 2, Len(STRING021) - INTEGER004 + 2)
INTEGER005 = InStr(STRING022, ",")
STRING022 = Mid(STRING022, INTEGER005 + 1, Len(STRING021) - INTEGER004 + 2 - INTEGER005)
PrintLn "@X71" + Left(STRING022, String(InStr(STRING022, ",")) - 1) + "@POS:58@@X7F│@X07"
Endif
BOOLEAN001 = 0
Goto LABEL009
:LABEL012
FClose 1
PrintLn "@X70└────────────────────────────────────────────────────────@X7F┘@X07"
PromptStr 198, STRING014, 1, STRING023, 2 + 4 + 8 + 128
If (Left(STRING014, 1) == NoChar()) Then
If (STRING024 <> "") Goto LABEL025
Newline
Else
FOpen 1, ReadLine(PCBDat(), 45), 0, 0
:LABEL013
If (Ferr(1)) Goto LABEL014
FGet 1, STRING021
If (Len(Trim(STRING021, Chr(32)))) Then
If (((Mid(STRING021, 3, 1) <> "I") && !Exist(STRING003 + Left(STRING021, 1) + ".BAT")) && !Exist(STRING004 + Left(STRING021, 1) + ".BAT")) BOOLEAN001 = 1
If ((STRING014 == Left(STRING021, 1)) && (BOOLEAN001 == 0)) Then
STRING005 = Mid(STRING021, Len(STRING021) - 4, 1)
If (STRING005 == YesChar()) Then
If (!InStr(Modem(), ((("MNP" || "V42") || "LAPM") || "HST")) && !OnLocal()) Then
Newlines 2
PrintLn "@X0CProtocol Unavailable - Modem Type Wrong!"
FClose 1
Goto LABEL007
Endif
Endif
FClose 1
If (STRING024 <> "") Goto LABEL025
Newline
Else
Goto LABEL013
:LABEL014
Goto LABEL028
Endif
Endif
Endif
:LABEL015
If (Psa(1)) Then
If (Exist(PPEPath() + "ALIAS")) DispFile PPEPath() + "ALIAS", 4 + 2 + 1
PromptStr 690, STRING015, 25, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len(STRING015)) Then
FOpen 1, ReadLine(PCBDat(), 35), 0, 0
:LABEL016
If (Ferr(1)) Goto LABEL017
FGet 1, STRING006
If (Trim(STRING015, Chr(32)) == Trim(STRING006, Chr(32))) Then
FClose 1
Newlines 2
PrintLn "@X0CThe SysOp has disabled the use of this Alias Name.@X07"
STRING015 = ""
Goto LABEL015
Endif
Goto LABEL016
:LABEL017
FClose 1
Endif
If (U_RecNum(STRING015) <> -1) Then
Log "Attempted to use " + Trim(STRING015, Chr(32)) + " as an alias.", 0
Newlines 2
DispText 256, 256 + 2048
STRING015 = ""
Goto LABEL015
Else
STRING015 = Strip(Trim(STRING015, Chr(32)), Chr(0))
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL018
Endif
Else
:LABEL018
If (Psa(3)) Then
If (Exist(PPEPath() + "NEW_G")) DispFile PPEPath() + "NEW_G", 4 + 2 + 1
InputStr "Street Address and Number", TSTRING016(0), 14, 50, Mask_Ascii(), 2 + 4 + 8 + 128
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL019
Goto LABEL028
:LABEL019
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_H")) DispFile PPEPath() + "NEW_H", 4 + 2 + 1
InputStr "Suite or Apartment Number", TSTRING016(1), 14, 50, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((TSTRING016(1) == 0))) INTEGER001 = INTEGER001 + 1
If ((Trim(TSTRING016(0), Chr(32)) <> "") || (Trim(TSTRING016(1), Chr(32)) <> "")) Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL020
Else
FreshLine
Goto LABEL019
Endif
Goto LABEL028
:LABEL020
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_I")) DispFile PPEPath() + "NEW_I", 4 + 2 + 1
InputStr "City, Town or Village", TSTRING016(2), 14, 25, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((TSTRING016(2) == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(TSTRING016(2), Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL021
Else
FreshLine
Goto LABEL020
Endif
Goto LABEL028
:LABEL021
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_J")) DispFile PPEPath() + "NEW_J", 4 + 2 + 1
InputStr "Province or State", TSTRING016(3), 14, 10, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((TSTRING016(3) == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(TSTRING016(3), Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL022
Else
FreshLine
Goto LABEL021
Endif
Goto LABEL028
:LABEL022
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_K")) DispFile PPEPath() + "NEW_K", 4 + 2 + 1
InputStr "Postal/Zip Code", TSTRING016(4), 14, 10, Mask_Num() + "-", 2 + 4 + 8 + 128
If (Len((TSTRING016(4) == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(TSTRING016(4), Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL023
Else
FreshLine
Goto LABEL022
Endif
Goto LABEL028
:LABEL023
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "NEW_L")) DispFile PPEPath() + "NEW_L", 4 + 2 + 1
InputStr "Country or Region", TSTRING016(5), 14, 15, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((TSTRING016(5) == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(TSTRING016(5), Chr(32)) <> "") Then
INTEGER001 = 0
If (STRING024 <> "") Goto LABEL025
Newline
Goto LABEL024
Else
FreshLine
Goto LABEL023
Endif
Else
:LABEL024
If (Psa(2)) Then
If (INTEGER001 == 3) Goto LABEL027
If (Exist(PPEPath() + "VERIFY")) DispFile PPEPath() + "VERIFY", 4 + 2 + 1
PromptStr 706, STRING017, 25, Mask_Ascii(), 2 + 4 + 8 + 128
If (Len((STRING017 == 0))) INTEGER001 = INTEGER001 + 1
If (Trim(STRING017, Chr(32)) <> "") Then
INTEGER001 = 0
Goto LABEL025
Else
FreshLine
Goto LABEL024
Endif
Else
:LABEL025
STRING024 = ""
Cls
PrintLn "@X0F[@X0CA@X0F] @X0EPassword @X07: @X0F[@X0A" + Left(RTrim(STRING007, Chr(32)) + "·············", 13) + "@X0F]@X07"
PrintLn "@X0F[@X0CB@X0F] @X0ECity and State @X07: @X0F[@X0A" + Left(RTrim(STRING009, Chr(32)) + "························", 24) + "@X0F]@X07"
PrintLn "@X0F[@X0CC@X0F] @X0EBusiness or data phone @X07: @X0F[@X0A" + Left(RTrim(STRING010, Chr(32)) + "·············", 13) + "@X0F]@X07"
PrintLn "@X0F[@X0CD@X0F] @X0EHome or voice phone @X07: @X0F[@X0A" + Left(RTrim(STRING011, Chr(32)) + "·············", 13) + "@X0F]@X07"
PrintLn "@X0F[@X0CE@X0F] @X0EBrand of CPU @X07: @X0F[@X0A" + Left(RTrim(STRING012, Chr(32)) + "······························", 30) + "@X0F]@X07"
PrintLn
PrintLn "@X0F[@X0CF@X0F] @X0EMessage Clear Screen @X07: @X0F[@X0A" + STRING013 + "@X0F] @X07(@X03Clear Screen prior to Displaying a Message@X07)@X07"
PrintLn "@X0F[@X0CG@X0F] @X0EDefault Protocol @X07: @X0F[@X0A" + STRING014 + "@X0F] @X07(@X03Your default transfer protocol@X07)@X07"
If (Psa(3)) Then
PrintLn
PrintLn "@X0F[@X0CH@X0F] @X0EStreet Address and Number@X07: @X0F[@X0A" + Left(RTrim(TSTRING016(0), Chr(32)) + "··············································", 46) + "@X0F]@X07"
PrintLn "@X0F[@X0CI@X0F] @X0ESuite or Apartment Number@X07: @X0F[@X0A" + Left(RTrim(TSTRING016(1), Chr(32)) + "··············································", 46) + "@X0F]@X07"
PrintLn "@X0F[@X0CJ@X0F] @X0ECity, Town or Village @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(2), Chr(32)) + "·························", 25) + "@X0F]@X07"
PrintLn "@X0F[@X0CK@X0F] @X0EProvince or State @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(3), Chr(32)) + "··········", 10) + "@X0F]@X07"
PrintLn "@X0F[@X0CL@X0F] @X0EPostal Zip Code @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(4), Chr(32)) + "··········", 10) + "@X0F]@X07"
PrintLn "@X0F[@X0CM@X0F] @X0ECountry or Region @X07: @X0F[@X0A" + Left(RTrim(TSTRING016(5), Chr(32)) + "···············", 15) + "@X0F]@X07"
Endif
PrintLn
If (Psa(1)) PrintLn "@X0F[@X0CN@X0F] @X0EAlias Name @X07: @X0F[@X0A" + Left(RTrim(STRING015, Chr(32)) + "·························", 25) + "@X0F]@X07"
If (Psa(2)) PrintLn "@X0F[@X0CO@X0F] @X0EVerification Information @X07: @X0F[@X0A" + Left(RTrim(STRING017, Chr(32)) + "·························", 25) + "@X0F]@X07"
If (Psa(1) || Psa(2)) PrintLn
PrintLn "@X0BIf any of the information above is incorrect or inaccurate, now is your chance@X07"
PrintLn "@X0Bto change it. All information will be verified before full access is granted.@X07"
InputStr "(@X0C@MINLEFT@ @X0Fmin. left) Enter the letter to be edited? (@X0CEnter@X0F)=done", STRING024, 15, 1, "abcdefghijklmnoqABCDEFGHIJKLMNOQ", 2 + 4 + 8 + 128 + 32 + 2048
If (STRING024 == "A") Goto LABEL001
If (STRING024 == "B") Goto LABEL002
If (STRING024 == "C") Goto LABEL003
If (STRING024 == "D") Goto LABEL004
If (STRING024 == "E") Goto LABEL005
If (STRING024 == "F") Goto LABEL006
If (STRING024 == "G") Goto LABEL007
If (Psa(3) && (STRING024 == "H")) Goto LABEL018
If (Psa(3) && (STRING024 == "I")) Goto LABEL019
If (Psa(3) && (STRING024 == "J")) Goto LABEL020
If (Psa(3) && (STRING024 == "K")) Goto LABEL021
If (Psa(3) && (STRING024 == "L")) Goto LABEL022
If (Psa(3) && (STRING024 == "M")) Goto LABEL023
If (Psa(1) && (STRING024 == "N")) Goto LABEL015
If (Psa(2) && (STRING024 == "O")) Goto LABEL024
If (Len(STRING024) == 0) Goto LABEL026
If (STRING024 == "Q") Then
STRING024 = NoChar()
InputStr "Proceed with Log-Off", STRING024, 15, 1, "ynYN", 2 + 4 + 8 + 32 + 16384
If (STRING024 == YesChar()) Hangup
Endif
Goto LABEL025
:LABEL026
Cls
STRING019 = STRING007 + Chr(13) + STRING008 + Chr(13)
STRING019 = STRING019 + STRING009 + Chr(13)
STRING019 = STRING019 + STRING010 + Chr(13)
STRING019 = STRING019 + STRING011 + Chr(13)
STRING019 = STRING019 + STRING012 + Chr(13)
STRING019 = STRING019 + STRING013 + Chr(13)
STRING019 = STRING019 + STRING014 + Chr(13)
STRING019 = STRING019 + STRING015 + Chr(13)
STRING019 = STRING019 + TSTRING016(0) + Chr(13)
STRING019 = STRING019 + TSTRING016(1) + Chr(13)
STRING019 = STRING019 + TSTRING016(2) + Chr(13)
STRING019 = STRING019 + TSTRING016(3) + Chr(13)
STRING019 = STRING019 + TSTRING016(4) + Chr(13)
STRING019 = STRING019 + TSTRING016(5) + Chr(13)
STRING019 = STRING019 + STRING017 + Chr(13)
KbdStuff STRING018 + STRING019
End
:LABEL027
Newline
PrintLn "@X0CAccess Denied - Refused to Complete Registration!"
Hangup
Endif
Endif
Endif
:LABEL028
Newlines 2
Print "PPE Program Error... Please nodify SysOp... "
Delay 50
FreshLine
Hangup
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 2 Cls
; 1 Wait
; 159 Goto
; 70 Let
; 3 Print
; 34 PrintLn
; 116 If
; 16 DispFile
; 4 FOpen
; 6 FClose
; 6 FGet
; 3 Hangup
; 1 GetUser
; 1 Log
; 8 InputStr
; 11 PromptStr
; 1 Delay
; 24 Newline
; 5 Newlines
; 1 DispText
; 1 KbdStuff
; 16 FreshLine
;
;
; ■ Functions used :
;
; 1 -
; 248 +
; 9 -
; 53 ==
; 35 <>
; 1 <
; 1 >
; 47 !
; 18 &&
; 6 ||
; 19 Len(
; 1 Upper()
; 5 Mid()
; 26 Left()
; 1 Right()
; 4 Ferr()
; 51 Chr()
; 5 InStr()
; 13 RTrim()
; 19 Trim()
; 1 U_Name()
; 3 NoChar()
; 5 YesChar()
; 1 Strip()
; 1 String()
; 2 Mask_Pwd()
; 3 Mask_Num()
; 9 Mask_Ascii()
; 6 PCBDat()
; 31 PPEPath()
; 6 ReadLine()
; 1 OnLocal()
; 21 Exist()
; 18 Psa()
; 1 Modem()
; 1 U_RecNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Bd
;
; B - Brute hangup ■ 1
; Program hangup without notification. This may be a good way to
; disconnect a user, but if used randomly, may be very nasty
; ■ Search for : HANGUP, DTROFF
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 32 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------