home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
AR_CFG15.ZIP
/
CONFIG.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-05
|
5KB
|
304 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 INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
;------------------------------------------------------------------------------
Cls
DispFile PPEPath() + "CONFIG.ANS", 0
GetUser
AnsiPos 36, 10
Print "@USER@"
AnsiPos 36, 11
Print U_Sec
AnsiPos 36, 12
Print "@LASTDATEON@"
AnsiPos 36, 13
Print "@DLBYTES@"
AnsiPos 36, 14
Print "@UPBYTES@"
AnsiPos 36, 15
Print "@BYTESLEFT@"
AnsiPos 18, 4
Print U_Pwd
AnsiPos 18, 5
Print U_City
AnsiPos 18, 6
Print U_BDPhone
AnsiPos 18, 7
Print U_HVPhone
AnsiPos 18, 8
Print U_Ver
STRING006 = U_Cls
Gosub LABEL015
AnsiPos 71, 2
Print STRING007
STRING006 = U_Scroll
Gosub LABEL015
AnsiPos 71, 3
Print STRING007
STRING006 = U_LongHDR
Gosub LABEL015
AnsiPos 71, 4
Print STRING007
STRING006 = U_FSE
Gosub LABEL015
AnsiPos 71, 5
Print STRING007
STRING006 = U_Def79
Gosub LABEL015
AnsiPos 71, 6
Print STRING007
STRING006 = U_Expert
Gosub LABEL015
AnsiPos 71, 7
Print STRING007
:LABEL001
STRING010 = ""
STRING009 = ""
INTEGER003 = ""
STRING006 = ""
STRING007 = ""
AnsiPos 12, 17
:LABEL002
If (FALSE) Goto LABEL003
STRING008 = Inkey()
STRING008 = Lower(STRING008)
If (STRING008 == "q") Goto LABEL016
If (STRING008 == "p") Goto LABEL004
If (STRING008 == "n") Goto LABEL005
If (STRING008 == "d") Goto LABEL006
If (STRING008 == "u") Goto LABEL007
If (STRING008 == "v") Goto LABEL008
If (STRING008 == "m") Goto LABEL009
If (STRING008 == "s") Goto LABEL010
If (STRING008 == "l") Goto LABEL011
If (STRING008 == "f") Goto LABEL012
If (STRING008 == "e") Goto LABEL013
If (STRING008 == "x") Goto LABEL014
Goto LABEL002
:LABEL003
End
:LABEL004
INTEGER001 = "18"
INTEGER002 = "4"
STRING010 = U_Pwd
INTEGER004 = 12
INTEGER003 = Len(STRING010)
AnsiPos INTEGER001, INTEGER002
Print Space(INTEGER003 + 1)
AnsiPos INTEGER001, INTEGER002
InputStr "_", U_Pwd, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
Goto LABEL001
End
:LABEL005
INTEGER001 = "18"
INTEGER002 = "5"
STRING010 = U_City
INTEGER004 = 24
INTEGER003 = Len(STRING010)
AnsiPos INTEGER001, INTEGER002
Print Space(INTEGER003 + 1)
AnsiPos INTEGER001, INTEGER002
InputStr "_", U_City, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
Goto LABEL001
End
:LABEL006
INTEGER001 = "18"
INTEGER002 = "6"
STRING010 = U_BDPhone
INTEGER004 = 12
INTEGER003 = Len(STRING010)
AnsiPos INTEGER001, INTEGER002
Print Space(INTEGER003 + 1)
AnsiPos INTEGER001, INTEGER002
InputStr "_", U_BDPhone, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
Goto LABEL001
End
:LABEL007
INTEGER001 = "18"
INTEGER002 = "7"
STRING010 = U_HVPhone
INTEGER004 = 12
INTEGER003 = Len(STRING010)
AnsiPos INTEGER001, INTEGER002
Print Space(INTEGER003 + 1)
AnsiPos INTEGER001, INTEGER002
InputStr "_", U_HVPhone, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
Goto LABEL001
End
:LABEL008
INTEGER001 = "18"
INTEGER002 = "8"
STRING010 = U_Ver
INTEGER004 = 10
INTEGER003 = Len(STRING010)
AnsiPos INTEGER001, INTEGER002
Print Space(INTEGER003 + 1)
AnsiPos INTEGER001, INTEGER002
InputStr "_", U_Ver, 14, INTEGER004, " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\!@#$%^&*()_+|,./?:", 8 + 4096
Goto LABEL001
End
:LABEL009
If (U_Cls == "0") STRING006 = "1"
If (U_Cls == "1") STRING006 = "0"
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
AnsiPos 71, 2
Print STRING007
U_Cls = STRING006
Goto LABEL001
End
:LABEL010
If (U_Scroll == "0") STRING006 = "1"
If (U_Scroll == "1") STRING006 = "0"
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
AnsiPos 71, 3
Print STRING007
U_Scroll = STRING006
Goto LABEL001
End
:LABEL011
If (U_LongHDR == "0") STRING006 = "1"
If (U_LongHDR == "1") STRING006 = "0"
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
AnsiPos 71, 4
Print STRING007
U_LongHDR = STRING006
Goto LABEL001
End
:LABEL012
If (U_FSE == "0") STRING006 = "1"
If (U_FSE == "1") STRING006 = "0"
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
AnsiPos 71, 5
Print STRING007
U_FSE = STRING006
Goto LABEL001
End
:LABEL013
If (U_Def79 == "0") STRING006 = "1"
If (U_Def79 == "1") STRING006 = "0"
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
AnsiPos 71, 6
Print STRING007
U_Def79 = STRING006
Goto LABEL001
End
:LABEL014
If (U_Expert == "0") STRING006 = "1"
If (U_Expert == "1") STRING006 = "0"
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
AnsiPos 71, 7
Print STRING007
U_Expert = STRING006
Goto LABEL001
End
:LABEL015
If (STRING006 == "0") STRING007 = "NO!"
If (STRING006 == "1") STRING007 = "YEP"
Return
:LABEL016
Cls
FClose 2
STRING011 = "@X0FL@X0BC@X03/@X08PPE By A@X03R@X0Be@X0FS"
Print STRING011
Newline
DispText 273, 256
PutUser
Newline
Wait
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 12 End
; 2 Cls
; 1 Wait
; 25 Goto
; 71 Let
; 29 Print
; 39 If
; 1 DispFile
; 1 FClose
; 1 GetUser
; 1 PutUser
; 5 InputStr
; 6 Gosub
; 1 Return
; 2 Newline
; 1 DispText
; 34 AnsiPos
;
;
; ■ Functions used :
;
; 11 +
; 38 ==
; 1 !
; 5 Len(
; 1 Lower()
; 5 Space()
; 1 Inkey()
; 1 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WH
;
; 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
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------