home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
PRFL100.ZIP
/
SETUP.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-22
|
12KB
|
451 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
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
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
;------------------------------------------------------------------------------
INTEGER003 = 0
GetUser
STRING006 = Left(U_Name(), 25)
STRING014 = U_Name()
Tokenize STRING014
INTEGER002 = Len(GetToken()) + 1
INTEGER001 = Len(STRING014)
INTEGER001 = INTEGER001 - INTEGER002
STRING015 = U_RecNum(STRING014)
If (STRING015 == -1) Then
Goto LABEL021
Endif
STRING005 = Left(Right(STRING014, INTEGER001), 1)
FOpen 1, PPEPath() + "\INDEX-" + STRING005, 2, 0
:LABEL001
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
INTEGER001 = Len(STRING014)
If (Upper(Left(STRING011, INTEGER001)) == STRING014) Then
FClose 1
ElseIf (STRING011 == "") Then
STRING002 = "False"
If (INTEGER003 == 0) Then
Frewind 1
FPutLn 1, "Dummy Info"
FPutLn 1, ";"
FPutLn 1, ";"
Else
STRING011 = ""
STRING012 = ""
STRING013 = ""
FClose 1
Endif
Else
STRING007 = Upper(Left(STRING011, 25))
INTEGER003 = INTEGER003 + 1
Goto LABEL001
Endif
Gosub LABEL022
:LABEL002
Cls
STRING001 = ""
PrintLn "@X7F┌─────────────────────────────────────────────────────────────────────────────@X70┐@X07"
PrintLn "@X7F│ @X70@SYSDATE:8@ @X75C A L L E R P R O F I L E I N F O R M A T I O N @X70" + String(Time()) + "@POS:79@│@X07"
PrintLn "@X7F└@X70─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X07"
PrintLn "@X70│ @X71(@X74A@X71) Age (@X74F@X71) Favorite Foods @X7F│@X07"
PrintLn "@X70│ @X71(@X74B@X71) BBS Name (@X74G@X71) General Info 1 @X7F│@X07"
PrintLn "@X70│ @X71(@X74C@X71) Computer Phone Number (@X741@X71) Hobbies/Interests @X7F│@X07"
PrintLn "@X70│ @X71(@X74D@X71) Home or voice phone (@X74I@X71) Instrument Played @X7F│@X07"
PrintLn "@X70│ @X71(@X74E@X71) Alias(s) (@X74J@X71) Physical Description @X7F│@X07"
PrintLn "@X70│ @X7F│@X07"
PrintLn "@X70│ @X71(@X74K@X71) Favorite Movie (@X74X@X71) Sex @X7F│@X07"
PrintLn "@X70│ @X71(@X74L@X71) Favorite TV Show (@X74Y@X71) Summary @X7F│@X07"
PrintLn "@X70│ @X71(@X74M@X71) Marital Status @X7F│@X07"
PrintLn "@X70│ @X71(@X74N@X71) Favorite Sport(s) @X7F┌───────────────────────────────────────@X70┐@X70 @X7F│@X07"
PrintLn "@X70│ @X71(@X74O@X71) Favorite Music @X7F│ @X71Name: @X74" + Left(U_Name(), 20), +"@POS:77@@X70│@X70 @X7F│@X07"
PrintLn "@X70│ @X71(@X74P@X71) General Info 2 @X7F└@X70───────────────────────────────────────┘@X70 @X7F│@X07"
PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X07"
InputStr "(@X0EV@X0F)iew Current Profile,(@X0ES@X0F)ave Current Info,(@X0EQ@X0F)uit, Caller Profile Command", STRING001, 15, 1, "ABCDEFGIJKLMNOPQSVXY1", 2 + 4 + 8 + 128 + 32
Select Case (STRING001)
Case "A"
STRING008 = 3
STRING009 = "Your current Age?"
Goto LABEL003
Case "B"
STRING008 = 26
STRING009 = "Name of your BBS?"
Goto LABEL004
Case "C"
Goto LABEL018
Case "D"
Goto LABEL019
Case "E"
Goto LABEL020
Case "F"
STRING008 = 30
STRING009 = "Your Favorite Food?"
Goto LABEL005
Case "G"
STRING008 = 70
STRING009 = "General Info about yourself?"
Goto LABEL006
Case "1"
STRING008 = 65
STRING009 = "Your favorite Hobbies?"
Goto LABEL007
Case "I"
STRING008 = 20
STRING009 = "Instrument played?"
Goto LABEL008
Case "J"
STRING008 = 55
STRING009 = "Physical Description?"
Goto LABEL009
Case "K"
STRING008 = 25
STRING009 = "Favorite Movie(s)?"
Goto LABEL010
Case "L"
STRING008 = 25
STRING009 = "Favorite T.V Show(s)?"
Goto LABEL011
Case "M"
STRING008 = 25
STRING009 = "Current Marital Status?"
Goto LABEL012
Case "N"
STRING008 = 25
STRING009 = "Favorite Sport(s)?"
Goto LABEL013
Case "O"
STRING008 = 20
STRING009 = "Favorite Music?"
Goto LABEL014
Case "P"
STRING008 = 80
STRING009 = "More General Info?"
Goto LABEL015
Case "V"
Goto LABEL023
Case "X"
STRING008 = 1
STRING009 = "Enter your Sex (M)ale/(F)emale?"
Goto LABEL016
Case "Y"
STRING008 = 132
STRING009 = "Your Summary?"
Goto LABEL017
Case "Q"
End
Case "S"
Goto LABEL024
Case ""
Goto LABEL025
Goto LABEL002
End Select
:LABEL003
If (Exist(PPEPath() + "Setup_A")) DispFile PPEPath() + "Setup_A", 4 + 2 + 1
InputStr STRING009, STRING017, 14, STRING008, Mask_Ascii(), 2 + 4 + 8 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL004
If (Exist(PPEPath() + "Setup_B")) DispFile PPEPath() + "Setup_B", 4 + 2 + 1
InputStr STRING009, STRING023, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL005
If (Exist(PPEPath() + "Setup_F")) DispFile PPEPath() + "Setup_F", 4 + 2 + 1
InputStr STRING009, STRING028, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL006
If (Exist(PPEPath() + "Setup_G")) DispFile PPEPath() + "Setup_G", 4 + 2 + 1
InputStr STRING009, STRING031, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL007
If (Exist(PPEPath() + "Setup_H")) DispFile PPEPath() + "Setup_H", 4 + 2 + 1
InputStr STRING009, STRING030, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL008
If (Exist(PPEPath() + "Setup_I")) DispFile PPEPath() + "Setup_I", 4 + 2 + 1
InputStr STRING009, STRING027, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL009
If (Exist(PPEPath() + "Setup_J")) DispFile PPEPath() + "Setup_J", 4 + 2 + 1
InputStr STRING009, STRING021, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL010
If (Exist(PPEPath() + "Setup_K")) DispFile PPEPath() + "Setup_K", 4 + 2 + 1
InputStr STRING009, STRING024, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL011
If (Exist(PPEPath() + "Setup_L")) DispFile PPEPath() + "Setup_L", 4 + 2 + 1
InputStr STRING009, STRING025, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL012
If (Exist(PPEPath() + "Setup_M")) DispFile PPEPath() + "Setup_M", 4 + 2 + 1
InputStr STRING009, STRING018, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL013
If (Exist(PPEPath() + "Setup_N")) DispFile PPEPath() + "Setup_N", 4 + 2 + 1
InputStr STRING009, STRING029, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL014
If (Exist(PPEPath() + "Setup_O")) DispFile PPEPath() + "Setup_O", 4 + 2 + 1
InputStr STRING009, STRING026, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL015
If (Exist(PPEPath() + "Setup_P")) DispFile PPEPath() + "Setup_P", 4 + 2 + 1
InputStr STRING009, STRING032, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL016
If (Exist(PPEPath() + "Setup_X")) DispFile PPEPath() + "Setup_X", 4 + 2 + 1
InputStr STRING009, STRING016, 14, STRING008, Mask_Ascii(), 2 + 4 + 8 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL017
If (Exist(PPEPath() + "Setup_Y")) DispFile PPEPath() + "Setup_Y", 4 + 2 + 1
InputStr STRING009, STRING033, 14, STRING008, Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL018
If (Exist(PPEPath() + "SETUP_C")) DispFile PPEPath() + "SETUP_C", 4 + 2 + 1
PromptStr 113, STRING022, 12, Mask_Num() + "-()" + Chr(32), 2 + 4 + 8 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL019
If (Exist(PPEPath() + "SETUP_D")) DispFile PPEPath() + "SETUP_D", 4 + 2 + 1
PromptStr 114, STRING020, 12, Mask_Num() + "-()" + Chr(32), 2 + 4 + 8 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL020
If (Exist(PPEPath() + "SETUP_E")) DispFile PPEPath() + "SETUP_E", 4 + 2 + 1
PromptStr 690, STRING019, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 128
If ("" == "") Goto LABEL002
Goto LABEL025
:LABEL021
PrintLn "You must first be upgraded or sign up on TSCNet to use this function."
End
:LABEL022
STRING016 = Right(Left(STRING011, 27), 1)
STRING017 = Right(Left(STRING011, 30), 2)
STRING018 = Right(Left(STRING011, 56), 25)
STRING019 = Right(Left(STRING011, 82), 25)
STRING020 = Right(Left(STRING011, 95), 12)
STRING021 = Right(Left(STRING011, 151), 55)
STRING022 = Right(Left(STRING011, 164), 12)
STRING023 = Right(Left(STRING011, 191), 26)
STRING024 = Right(Left(STRING011, 217), 25)
STRING025 = Right(Left(STRING011, 243), 25)
STRING026 = Right(Left(STRING012, 21), 20)
STRING027 = Right(Left(STRING012, 47), 20)
STRING028 = Right(Left(STRING012, 79), 30)
STRING029 = Right(Left(STRING012, 106), 25)
STRING030 = Right(Left(STRING012, 173), 65)
STRING031 = Right(Left(STRING012, 245), 70)
STRING032 = Right(Left(STRING013, 81), 80)
STRING033 = Right(STRING013, 132)
Return
End
:LABEL023
STRING004 = Mixed(STRING014)
STRING034 = "E"
PrintLn "Ok, here's the info for@X0D ", STRING004, "@X0C..."
Newline
PrintLn "@X0AReal Name@X0F:@X0E ", Left(STRING004, 31), "@X0ASex@X0F:@X0E ", STRING016, " @X0AAge@X0F:@X0E ", STRING017
PrintLn "@X0AMarital Status@X0F:@X0E ", Left(STRING018, 26), "@X0ALast Date on@X0F:@X0E ", U_LDate()
PrintLn "@X0AAliases@X0F:@X0E ", Left(STRING019, 33), "@X0ALast Time on@X0F:@X0E ", U_LTime()
PrintLn "@X0ACity@X0F/@X0AState@X0F:@X0E ", U_City
PrintLn "@X0AVoice Phone@X0E#@X0F:@X0E ", STRING020
PrintLn "@X0APhysical Description@X0F: ", STRING021
PrintLn "@X0AComp. Phone @X0E#@X0F: ", Left(STRING022, 20), "@X0ABBS Name@X0F:@X0E ", STRING023
PrintLn "@X0AFavorite Movie@X0F:@X0E", Left(STRING024, 20), "@X0AFavorite TV Show@X0F:@X0E", STRING025
PrintLn "@X0AFavorite Music@X0F:@X0E", Left(STRING026, 20), "@X0AInstrument Played@X0F:@X0E", STRING027
PrintLn "@X0AFavorite Foods@X0F:@X0E", STRING028
PrintLn "@X0AFavorite Sport@X0F:@X0E", STRING029
PrintLn "@X0AOther Hobbies@X0F/@X0AInterests@X0F:@X0E ", STRING030
PrintLn "@X0AGeneral Info@X0F:@X0E ", STRING031
PrintLn "@X0E", STRING032
PrintLn "@X0ASummary@X0F:@X0E ", Left(STRING033, 130)
InputStr "(@X0EE@X0F)dit Current Profile, (@X0EQ@X0F)uit, User Profile Command", STRING034, 15, 1, "EQ", 2 + 4 + 8 + 128 + 32
If (STRING034 == "E") Then
Goto LABEL002
Else
Goto LABEL024
End
Endif
:LABEL024
STRING011 = STRING006 + ";" + STRING016 + ";" + STRING017 + ";" + Left(STRING018, 25) + ";" + Left(STRING019, 25) + ";" + Left(STRING020, 12) + ";" + Left(STRING021, 55) + ";" + Left(STRING022, 12) + ";" + Left(STRING023, 26) + ";" + Left(STRING024, 25) + ";" + Left(STRING025, 25) + ";"
STRING012 = ";" + Left(STRING026, 25) + ";" + Left(STRING027, 21) + ";" + Left(STRING028, 31) + ";" + Left(STRING029, 26) + ";" + Left(STRING030, 66) + ";" + Left(STRING031, 70) + ";"
STRING013 = ";" + Left(STRING032, 122) + ";" + Left(STRING033, 132) + ";"
If (STRING002 == "False") Then
Goto LABEL026
End
Else
Goto LABEL027
Endif
:LABEL025
End
:LABEL026
PrintLn "Adding your Info to our Database now."
FAppend 1, PPEPath() + "\INDEX-" + STRING005, 2, 0
FPutLn 1, STRING011
FPutLn 1, STRING012
FPutLn 1, STRING013
FClose 1
FAppend 2, PPEPath() + "\LIST.DAT", 2, 0
FPutLn 2, Mixed(U_Name())
FClose 2
End
:LABEL027
PrintLn "Updating your info!"
FOpen 1, PPEPath() + "\INDEX-" + STRING005, 2, 0
:LABEL028
FGet 1, STRING003
FGet 1, STRING010
FGet 1, STRING010
If (Upper(Left(STRING003, 25)) == STRING007) Then
FPutLn 1, STRING011
FPutLn 1, STRING012
FPut 1, STRING013
FClose 1
End
Else
Goto LABEL028
Endif
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 9 End
; 1 Cls
; 121 Goto
; 69 Let
; 36 PrintLn
; 65 If
; 18 DispFile
; 2 FOpen
; 2 FAppend
; 5 FClose
; 6 FGet
; 1 FPut
; 9 FPutLn
; 1 GetUser
; 17 InputStr
; 1 Gosub
; 1 Return
; 3 PromptStr
; 1 Newline
; 1 Tokenize
; 1 Frewind
;
;
; ■ Functions used :
;
; 1 +
; 1 -
; 175 +
; 1 -
; 47 ==
; 29 !
; 3 Len(
; 3 Upper()
; 46 Left()
; 19 Right()
; 2 Chr()
; 1 Time()
; 4 U_Name()
; 1 U_LDate()
; 1 U_LTime()
; 1 String()
; 1 Mask_Alpha()
; 3 Mask_Num()
; 16 Mask_Ascii()
; 40 PPEPath()
; 1 GetToken()
; 18 Exist()
; 1 U_RecNum()
; 2 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 7 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------