home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
PRFL100.ZIP
/
PROFILE.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-22
|
5KB
|
238 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
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
;------------------------------------------------------------------------------
STRING001 = TokenStr()
Tokenize STRING001
Select Case (Upper(STRING001))
Case "H", "HELP"
Goto LABEL004
Case "SET"
Goto LABEL007
Case ""
Goto LABEL003
Case "L", "LIST"
Goto LABEL008
STRING001 = GetToken() + " " + GetToken()
Tokenize STRING001
INTEGER002 = Len(GetToken()) + 1
INTEGER001 = Len(STRING001)
INTEGER001 = INTEGER001 - INTEGER002
STRING005 = U_RecNum(STRING001)
If (STRING005 == -1) Then
Goto LABEL005
Endif
FOpen 1, PPEPath() + "\INDEX-" + Left(Right(STRING001, INTEGER001), 1), 2, 0
:LABEL001
FGet 1, STRING002
FGet 1, STRING003
FGet 1, STRING004
INTEGER001 = Len(STRING001)
Case STRING001
FClose 1
Goto LABEL002
Case ""
Goto LABEL006
Case Else
Goto LABEL001
End Select
:LABEL002
STRING006 = Mixed(STRING001)
FClose 1
GetAltUser STRING005
Gosub LABEL010
PrintLn "@X0E***@X0FUNREGISTERED BBS@X0E***"
Newline
PrintLn "@X0COk, here's the info for@X0D ", STRING006, "@X0C..."
Newline
PrintLn "@X0AReal Name@X0F:@X0E ", Left(STRING006, 31), "@X0ASex@X0F:@X0E ", STRING010, " @X0AAge@X0F:@X0E ", STRING011
PrintLn "@X0AMarital Status@X0F:@X0E ", Left(STRING012, 26), "@X0ALast Date on@X0F:@X0E ", U_LDate()
PrintLn "@X0AAliases@X0F:@X0E ", Left(STRING013, 33), "@X0ALast Time on@X0F:@X0E ", U_LTime()
PrintLn "@X0ACity@X0F/@X0AState@X0F:@X0E ", Mixed(U_City)
PrintLn "@X0AVoice Phone@X0E#@X0F:@X0E ", STRING014
PrintLn "@X0APhysical Description@X0F: ", STRING015
PrintLn "@X0AComp. Phone @X0E#@X0F: ", Left(STRING016, 22), "@X0ABBS Name@X0F:@X0E ", STRING017
PrintLn "@X0AFavorite Movie@X0F:@X0E", Left(STRING018, 22), "@X0AFavorite TV Show@X0F:@X0E", STRING019
PrintLn "@X0AFavorite Music@X0F:@X0E", Left(STRING020, 22), "@X0AInstrument Played@X0F:@X0E", STRING021
PrintLn "@X0AFavorite Foods@X0F:@X0E", STRING022
PrintLn "@X0AFavorite Sport@X0F:@X0E", STRING023
PrintLn "@X0AOther Hobbies@X0F/@X0AInterests@X0F:@X0E ", STRING024
PrintLn "@X0AGeneral Info@X0F:@X0E ", STRING025
PrintLn "@X0E", STRING026
PrintLn "@X0ASummary@X0F:@X0E ", Left(STRING027, 130)
End
:LABEL003
If (Exist(PPEPath() + PPEName() + ".HLP")) DispFile PPEPath() + PPEName() + ".HLP", 1
End
:LABEL004
If (Exist(PPEPath() + PPEName() + "2.HLP")) DispFile PPEPath() + PPEName() + "2.HLP", 1
End
:LABEL005
Newline
PrintLn "@X0BSorry but that user is not a current user on this BBS."
End
:LABEL006
Newline
PrintLn "@X0DSorry but that user has not filled out a Profile yet."
End
:LABEL007
Call PPEPath() + "Setup.PPE"
End
:LABEL008
Newline
PrintLn "Listing of Callers who have filled out there Profile."
PrintLn "──────────────────────────────────────────────────────────────────────────────"
FOpen 2, PPEPath() + "\LIST.DAT", 2, 0
:LABEL009
FGet 2, STRING007
FGet 2, STRING008
FGet 2, STRING009
PrintLn Left(STRING007, 25) + Left(STRING008, 25) + Left(STRING009, 25)
If ((STRING007 == "") || (STRING008 == "")) Then
End
Else
Goto LABEL009
Endif
End
:LABEL010
STRING010 = Right(Left(STRING002, 27), 1)
STRING011 = Right(Left(STRING002, 30), 2)
STRING012 = Right(Left(STRING002, 56), 25)
STRING013 = Right(Left(STRING002, 82), 25)
STRING014 = Right(Left(STRING002, 95), 12)
STRING015 = Right(Left(STRING002, 151), 55)
STRING016 = Right(Left(STRING002, 164), 12)
STRING017 = Right(Left(STRING002, 191), 26)
STRING018 = Right(Left(STRING002, 217), 25)
STRING019 = Right(Left(STRING002, 243), 25)
STRING020 = Right(Left(STRING003, 21), 20)
STRING021 = Right(Left(STRING003, 47), 20)
STRING022 = Right(Left(STRING003, 79), 30)
STRING023 = Right(Left(STRING003, 106), 25)
STRING024 = Right(Left(STRING003, 173), 65)
STRING025 = Right(Left(STRING003, 245), 70)
STRING026 = Right(Left(STRING004, 81), 80)
STRING027 = Right(STRING004, 132)
Return
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 9 End
; 24 Goto
; 26 Let
; 22 PrintLn
; 10 If
; 2 DispFile
; 2 FOpen
; 2 FClose
; 6 FGet
; 1 Gosub
; 1 Return
; 5 Newline
; 2 Tokenize
; 1 Call
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 1 -
; 17 +
; 1 -
; 11 ==
; 8 !
; 3 ||
; 3 Len(
; 6 Upper()
; 29 Left()
; 19 Right()
; 1 U_LDate()
; 1 U_LTime()
; 7 PPEPath()
; 3 GetToken()
; 2 Exist()
; 1 TokenStr()
; 4 PPEName()
; 1 U_RecNum()
; 2 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : RC
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------