home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
CW_PPP10.ZIP
/
WELCOMAT.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1993-09-09
|
6KB
|
289 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 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
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
Integer INTEGER033
Integer INTEGER034
Integer INTEGER035
Integer INTEGER036
Integer INTEGER037
Integer INTEGER038
Integer INTEGER039
Integer INTEGER040
String STRING001
String STRING002
String STRING003
String TSTRING004(250)
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
;------------------------------------------------------------------------------
STRING001 = "1.5"
FOpen 1, PPEPath() + "WELCOMAT.CNF", 0, 0
FGet 1, STRING009
FGet 1, INTEGER039
FGet 1, INTEGER037
FGet 1, STRING003
FGet 1, STRING002
FGet 1, INTEGER004
FGet 1, INTEGER005
FGet 1, INTEGER006
FGet 1, INTEGER007
FGet 1, INTEGER008
FGet 1, INTEGER009
FGet 1, INTEGER010
FGet 1, INTEGER011
FGet 1, INTEGER012
FGet 1, INTEGER013
FGet 1, INTEGER014
FGet 1, INTEGER015
FGet 1, INTEGER016
FGet 1, INTEGER017
FGet 1, INTEGER018
FGet 1, INTEGER019
FGet 1, INTEGER020
FGet 1, INTEGER021
FGet 1, INTEGER022
FGet 1, INTEGER023
FGet 1, INTEGER024
FGet 1, INTEGER025
FGet 1, INTEGER026
FGet 1, INTEGER027
FGet 1, INTEGER028
FGet 1, INTEGER029
FGet 1, INTEGER030
FGet 1, INTEGER031
FGet 1, INTEGER032
FGet 1, INTEGER033
FGet 1, INTEGER034
FClose 1
Tokenize STRING009
GetToken STRING013
GetToken STRING014
If (INTEGER039 == 0) Then
STRING015 = "N"
Goto LABEL002
Else
Goto LABEL001
Endif
:LABEL001
INTEGER035 = 36
INTEGER038 = 40621
STRING010 = Left(STRING013, 1)
STRING011 = Left(STRING014, 2)
STRING012 = STRING010 + STRING011
If (STRING010 == "A") INTEGER040 = 1934
If (STRING010 == "B") INTEGER040 = 2859
If (STRING010 == "C") INTEGER040 = 3743
If (STRING010 == "D") INTEGER040 = 4660
If (STRING010 == "E") INTEGER040 = 5534
If (STRING010 == "F") INTEGER040 = 6471
If (STRING010 == "G") INTEGER040 = 7325
If (STRING010 == "H") INTEGER040 = 8287
If (STRING010 == "I") INTEGER040 = 9119
If (STRING010 == "J") INTEGER040 = 1096
If (STRING010 == "K") INTEGER040 = 2928
If (STRING010 == "L") INTEGER040 = 3885
If (STRING010 == "M") INTEGER040 = 4737
If (STRING010 == "N") INTEGER040 = 5674
If (STRING010 == "O") INTEGER040 = 6546
If (STRING010 == "P") INTEGER040 = 7463
If (STRING010 == "Q") INTEGER040 = 8355
If (STRING010 == "R") INTEGER040 = 9242
If (STRING010 == "S") INTEGER040 = 1164
If (STRING010 == "T") INTEGER040 = 2031
If (STRING010 == "U") INTEGER040 = 3973
If (STRING010 == "V") INTEGER040 = 4820
If (STRING010 == "W") INTEGER040 = 5782
If (STRING010 == "X") INTEGER040 = 6619
If (STRING010 == "Y") INTEGER040 = 7591
If (STRING010 == "Z") INTEGER040 = 8408
INTEGER036 = S2I(STRING012, INTEGER035) + INTEGER039 + INTEGER038 + INTEGER040
If (Len(INTEGER039) == 1) STRING006 = "000"
If (Len(INTEGER039) == 2) STRING006 = "00"
If (Len(INTEGER039) == 3) STRING006 = "0"
If (Len(INTEGER039) == 4) STRING006 = ""
STRING007 = INTEGER039
STRING008 = STRING006 + STRING007
:LABEL002
If (!(INTEGER037 == INTEGER036) || (STRING015 == "N")) Then
STRING005 = "@X0B ■ WelcoMat v" + STRING001 + " # " + "@X0CUNREGISTERED@X0B" + " ■ " + STRING009 + " ■ "
Else
STRING005 = "@X0B ■ WelcoMat v" + STRING001 + " #@X0F" + STRING008 + "@X0B ■ " + STRING009 + " ■ "
Endif
GetUser
FOpen 1, STRING003, 0, 0
FGet 1, INTEGER002
For INTEGER003 = 1 To INTEGER002
FGet 1, TSTRING004(INTEGER003)
If (U_Name() == Upper(TSTRING004(INTEGER003))) Goto LABEL003
Next
FClose 1
Goto LABEL004
:LABEL003
U_Sec = INTEGER004
If (INTEGER005 <> "") ConfFlag INTEGER005, 1
If (INTEGER006 <> "") ConfFlag INTEGER006, 1
If (INTEGER007 <> "") ConfFlag INTEGER007, 1
If (INTEGER008 <> "") ConfFlag INTEGER008, 1
If (INTEGER009 <> "") ConfFlag INTEGER009, 1
If (INTEGER010 <> "") ConfFlag INTEGER010, 1
If (INTEGER011 <> "") ConfFlag INTEGER011, 1
If (INTEGER012 <> "") ConfFlag INTEGER012, 1
If (INTEGER013 <> "") ConfFlag INTEGER013, 1
If (INTEGER014 <> "") ConfFlag INTEGER014, 1
If (INTEGER015 <> "") ConfFlag INTEGER015, 1
If (INTEGER016 <> "") ConfFlag INTEGER016, 1
If (INTEGER017 <> "") ConfFlag INTEGER017, 1
If (INTEGER018 <> "") ConfFlag INTEGER018, 1
If (INTEGER019 <> "") ConfFlag INTEGER019, 1
If (INTEGER020 <> "") ConfFlag INTEGER020, 1
If (INTEGER021 <> "") ConfFlag INTEGER021, 1
If (INTEGER022 <> "") ConfFlag INTEGER022, 1
If (INTEGER023 <> "") ConfFlag INTEGER023, 1
If (INTEGER024 <> "") ConfFlag INTEGER024, 1
If (INTEGER025 <> "") ConfFlag INTEGER025, 1
If (INTEGER026 <> "") ConfFlag INTEGER026, 1
If (INTEGER027 <> "") ConfFlag INTEGER027, 1
If (INTEGER028 <> "") ConfFlag INTEGER028, 1
If (INTEGER029 <> "") ConfFlag INTEGER029, 1
If (INTEGER030 <> "") ConfFlag INTEGER030, 1
If (INTEGER031 <> "") ConfFlag INTEGER031, 1
If (INTEGER032 <> "") ConfFlag INTEGER032, 1
If (INTEGER033 <> "") ConfFlag INTEGER033, 1
If (INTEGER034 <> "") ConfFlag INTEGER034, 1
PutUser
Cls
Beep
DispFile STRING002, 4 + 2 + 1
PrintLn STRING005
PrintLn
Wait
:LABEL004
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 1 Wait
; 11 Goto
; 45 Let
; 2 PrintLn
; 64 If
; 30 ConfFlag
; 1 DispFile
; 2 FOpen
; 2 FClose
; 38 FGet
; 1 GetUser
; 1 PutUser
; 1 Tokenize
; 2 GetToken
; 1 Beep
;
;
; ■ Functions used :
;
; 21 +
; 34 ==
; 30 <>
; 1 <
; 1 <=
; 2 >=
; 4 !
; 2 &&
; 2 ||
; 4 Len(
; 1 Upper()
; 2 Left()
; 1 U_Name()
; 1 PPEPath()
; 1 S2I()
;
;------------------------------------------------------------------------------
;
; Analysis flags : FW
;
; 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
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------