home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
EDSBK115.ZIP
/
PPE.ZIP
/
EUTMOD1.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-02-09
|
23KB
|
1,007 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
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
Byte BYTE001
Byte BYTE002
;------------------------------------------------------------------------------
If (TokCount() <> 1) Then
PrintLn
PrintLn "@X0CEUTMOD1 FATAL ERROR: INVALID COMMAND SEQUENCE"
PrintLn
PrintLn "@X0AEUTMOD1 may only be ran from within EDSUTIL.PPE!!!"
Delay 18
Else
GetToken STRING003
Gosub LABEL001
Goto LABEL012
:LABEL001
If (Exist(STRING003)) Goto LABEL002
PrintLn
PrintLn "@X0CCreating " + STRING003 + "..."
BOOLEAN003 = 0
FCreate 1, STRING003, 2, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING003 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
FWrite 1, " EDSBack v1.15 Binary Prompts File" + Chr(13) + Chr(10) + Chr(32) + Chr(26) + Chr(0), 39
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0FInitializing...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BSearching bad number database...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CThat number has already been verified!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0ASorry, the number entered is not part of this BBS's calling area...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X09Please leave your SysOp a comment...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X09NO LONGER IN USE", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X09Thank you! You are now being upgraded...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack Sharing error on file ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0C@OPTEXT@ file is currently inaccessible! SysOp notified...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "not entered in TRASH.BIN!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0A", 4
FWrite 1, "@X0AEnter your full name", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CNames do not match! @OPTEXT@ try/tries remaining!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BVerification has @X0CFAILED!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CPasswords do not match! @OPTEXT@ try/tries remaining!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0F", 4
FWrite 1, " @X0F(R)eturn to BBS, (G)oodbye, (C)ontinue, (E)DSInfo, (H)elp", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0A", 4
FWrite 1, "@X0AIs your number an International number", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0F", 4
FWrite 1, "@X0FCountry Code", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0F", 4
FWrite 1, "@X0FCity Code", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0F", 4
FWrite 1, "@X0FNumber", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0C", 4
FWrite 1, "@X0C@OPTEXT@ Is this correct", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BYour security level will be upgraded to @OPTEXT@...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0C@USER@@X0B found in EDSBack trash file...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "User found in EDSBACK trash file...", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack verification failed... No verification match!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0F", 4
FWrite 1, "@X0FEnter selection", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "@X0A", 4
FWrite 1, "@X0AArea code", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack halting verification for security...", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0FSorry, the number you have entered cannot be called back at this time...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BYou have been verified and upgraded...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0ANow dropping carrier... Please call back...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0AReturning to @BOARDNAME@...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CPlease enter a real number next time!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0FFlagging file (@X09@OPTEXT@@X0F) for download...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CSorry, time not adjust because of upcoming event...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, " found in EDSBAD.NUM!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack started callback at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack ERROR during initialization at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack redialed at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack connected at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack could not adjust time because of event...", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack flagged file", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack logged user off at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack ERROR during callback at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack verification failed... No name match!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack verification failed... No password match!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, " # not found in Allowed # database", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BSearching allowed number calling file...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "# not called because of timetables...", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack Dialing String = ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, " has already been called back!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack verification failed... No city match!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CVerification strings do not match! @OPTEXT@ try/tries remaining!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CCities do not match! @OPTEXT@ try/tries remaining!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CYour SysOp has disabled this function... @DELAY:9@", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0FUser's Name : @X09@OPTEXT@", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0FDate : @X09@OPTEXT@", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0FTime : @X09@OPTEXT@", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0AEDSBack is currently @X8CLOCKED@X0A from any use... @DELAY:9@", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack currently locked...", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "Entered EDSBack at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0CYour callback number must contain at least @OPTEXT@ digits!", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "User entered callback # that was too short!", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack original dial at ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BYour phone number was correctly detected via CALLER-ID...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "Users phone # found in CID string (User upgraded)", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "NO LONGER IN USE", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BExecuting external program...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 4, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "EDSBack loaded file ", 75
FWrite 1, 0, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BSearching for numbers that have already been used...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
FWrite 1, 1, 1
FWrite 1, 1, 1
FWrite 1, "N/A", 4
FWrite 1, "@X0BSorting information...", 75
FWrite 1, 1, 1
FWrite 1, Space(15), 15
INTEGER001 = 6829
Goto LABEL003
:LABEL002
PrintLn
PrintLn "@X0AReading " + STRING003 + "..."
BOOLEAN003 = 0
FOpen 1, STRING003, 2, 2
If (Ferr(1)) Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
If (BOOLEAN003) Then
PrintLn
PrintLn "@X0CSorry, the @X0F" + STRING003 + " @X0Cfile is currently inaccessible..."
FClose 1
Return
Endif
INTEGER001 = FileInf(STRING003, 4)
:LABEL003
BOOLEAN004 = 0
INTEGER002 = (INTEGER001 - 39) / 97
INTEGER003 = 1
BOOLEAN005 = 1
OpText "@optext@"
While (!BOOLEAN004 && !Ferr(1)) Do
If (BOOLEAN005) Then
FSeek 1, 39 + 97 * INTEGER003 - 97, 0
FRead 1, BYTE001, 1
FRead 1, BOOLEAN002, 1
FRead 1, STRING001, 4
FRead 1, STRING002, 75
FRead 1, BOOLEAN001, 1
Endif
PrintLn
PrintLn
PrintLn "@X0APrompt #@X0F" + String(INTEGER003) + "@X0A of@X0F " + String(INTEGER002)
PrintLn
Print " @X0F(@X09T@X0F)@X0Bype : @X0C"
Select Case (BYTE001)
Case 1
PrintLn "Display Prompt"
Case 2
PrintLn "PPE File"
Case 3
PrintLn "Display File"
Case 4
PrintLn "Logging Prompt (NO @ CODES ALLOWED!)"
End Select
Print " @X0F(@X09U@X0F)@X0Btilize prompt : @X0C"
If (BOOLEAN002) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
PrintLn " @X0BParentheses @X0F(@X09C@X0F)@X0Bolor : @X0C" + Lower(STRING001)
PrintLn " @X0F(@X09P@X0F)@X0Brompt @X0C(See line below)"
PrintLn
BYTE002 = Len(STRING002)
BYTE002 = 80 - BYTE002
BYTE002 = BYTE002 / 2
PrintLn Space(BYTE002) + STRING002
BYTE002 = 0
PrintLn
Print " @X0F(@X09L@X0F)@X0Binefeed before prompt : @X0C"
If (BOOLEAN001) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
PrintLn
PrintLn " @X0F(@X09+@X0F)@X0B Advance 1 prompt @X0F(@X09-@X0F)@X0B Retard 1 prompt"
PrintLn " @X0F(@X09J@X0F)@X0Bump to prompt @X0F(@X09S@X0F)@X0Bearch for text"
PrintLn " @X0F(@X09V@X0F)@X0Biew default prompt @X0F(@X09R@X0F)@X0Beset to default"
PrintLn " @X0F(@X09Q@X0F)@X0Buit to main"
PrintLn
InputStr "(H)elp, Enter command", STRING004, 15, 1, "+-JjSsVvRrQqLlPpCcUuTtHh", 2 + 4
Newline
STRING004 = Upper(STRING004)
If (STRING004 == "Q") Then
BOOLEAN005 = 0
BOOLEAN004 = 1
Continue
Endif
If (STRING004 == "H") Then
Print "@PON@"
DispFile PPEPath() + "EDSP", 1 + 4
Print "@POFF@"
Cls
BOOLEAN005 = 0
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "S") Then
Gosub LABEL010
If (BOOLEAN006) Then
PrintLn
PrintLn "Your search criteria has been found..."
Delay 5
Endif
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "V") Then
PrintLn
PrintLn Space(23) + "@X0F(Default Prompt Shown Below)"
PrintLn
STRING005 = ""
Gosub LABEL009
BYTE002 = 80 - Len(STRING005)
BYTE002 = BYTE002 / 2
PrintLn Space(BYTE002) + STRING005
Newline
Wait
BOOLEAN005 = 0
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "R") Then
PrintLn
STRING005 = NoChar()
InputYN "Are you sure", STRING005, 12
STRING005 = Upper(STRING005)
If (STRING005 == Upper(YesChar())) Then
STRING005 = ""
Gosub LABEL009
STRING002 = STRING005
FSeek 1, 39 + INTEGER003 * 97 - 91, 0
FWrite 1, STRING002, 75
Endif
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "+") Then
If (INTEGER003 >= INTEGER002) Then
INTEGER003 = 1
Goto LABEL004
Endif
Inc INTEGER003
:LABEL004
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "-") Then
If (INTEGER003 <= 1) Then
INTEGER003 = INTEGER002
Goto LABEL005
Endif
Dec INTEGER003
:LABEL005
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "J") Then
INTEGER003 = INTEGER002
InputInt "Prompt # to jump to", INTEGER003, 10
Newline
If (INTEGER003 > INTEGER002) Then
INTEGER003 = INTEGER002
Goto LABEL006
Endif
If (INTEGER003 < 1) Then
INTEGER003 = 1
Endif
:LABEL006
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "L") Then
If (BOOLEAN001) Then
BOOLEAN001 = 0
Goto LABEL007
Endif
BOOLEAN001 = 1
:LABEL007
FSeek 1, 39 + INTEGER003 * 97 - 16, 0
FWrite 1, BOOLEAN001, 1
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "U") Then
If (BOOLEAN002) Then
BOOLEAN002 = 0
Goto LABEL008
Endif
BOOLEAN002 = 1
:LABEL008
FSeek 1, 39 + INTEGER003 * 97 - 96, 0
FWrite 1, BOOLEAN002, 1
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "T") Then
STRING005 = I2S(BYTE001, 10)
PrintLn "@X0C(1 = Prompt, 2 = PPE, 3 = Disp File, 4 = Log)"
InputStr "New prompt type", STRING005, 15, 1, "1234", 2 + 4
Newline
BYTE001 = S2I(STRING005, 10)
If (BYTE001 == 4) Then
PrintLn "@X0ASince this is now a logging prompt, all @x codes have been stripped out..."
STRING002 = StripAtx(STRING002)
FSeek 1, 39 + INTEGER003 * 97 - 91, 0
FWrite 1, STRING002, 75
Endif
FSeek 1, 39 + INTEGER003 * 97 - 97, 0
FWrite 1, BYTE001, 1
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "P") Then
PrintLn Space(27) + "@X0FInput new prompt below..."
InputText "", STRING002, 15, 75
Newline
FSeek 1, 39 + INTEGER003 * 97 - 91, 0
FWrite 1, STRING002, 75
BOOLEAN005 = 1
BOOLEAN004 = 0
Continue
Endif
If (STRING004 == "C") Then
InputText "New prompt parentheses color", STRING001, 10, 4
Newline
FSeek 1, 39 + INTEGER003 * 97 - 95, 0
FWrite 1, STRING001, 4
BOOLEAN005 = 1
BOOLEAN004 = 0
Endif
EndWhile
FClose 1
PrintLn
Return
:LABEL009
STRING005 = ""
Select Case (INTEGER003)
Case 1
STRING005 = "@X0FInitializing..."
Case 2
STRING005 = "@X0BSearching bad number database..."
Case 3
STRING005 = "@X0CThat number has already been verified!"
Case 4
STRING005 = "@X0ASorry, the number entered is not part of this BBS's calling area..."
Case 5
STRING005 = "@X09Please leave your SysOp a comment..."
Case 6
STRING005 = "@X09NO LONGER IN USE"
Case 7
STRING005 = "@X09Thank you! You are now being upgraded..."
Case 8
STRING005 = "EDSBack Sharing error on file "
Case 9
STRING005 = "@X0C@OPTEXT@ file is currently inaccessible! SysOp notified..."
Case 10
STRING005 = "not entered in TRASH.BIN!"
Case 11
STRING005 = "@X0AEnter your full name"
Case 12
STRING005 = "@X0CNames do not match! @OPTEXT@ try/tries remaining!"
Case 13
STRING005 = "@X0BVerification has @X0CFAILED!"
Case 14
STRING005 = "@X0CPasswords do not match! @OPTEXT@ try/tries remaining!"
Case 15
STRING005 = " @X0F(R)eturn to BBS, (G)oodbye, (C)ontinue, (E)DSInfo, (H)elp"
Case 16
STRING005 = "@X0AIs your number an International number"
Case 17
STRING005 = "@X0FCountry Code"
Case 18
STRING005 = "@X0FCity Code"
Case 19
STRING005 = "@X0FNumber"
Case 20
STRING005 = "@X0C@OPTEXT@ Is this correct"
Case 21
STRING005 = "@X0BYour security level will be upgraded to @OPTEXT@..."
Case 22
STRING005 = "@X0C@USER@@X0B found in EDSBack trash file..."
Case 23
STRING005 = "User found in EDSBACK trash file..."
Case 24
STRING005 = "EDSBack verification failed... No verification match!"
Case 25
STRING005 = "@X0FEnter selection"
Case 26
STRING005 = "@X0AArea code"
Case 27
STRING005 = "EDSBack halting verification for security..."
Case 28
STRING005 = "@X0FSorry, the number you have entered cannot be called back at this time..."
Case 29
STRING005 = "@X0BYou have been verified and upgraded..."
Case 30
STRING005 = "@X0ANow dropping carrier... Please call back..."
Case 31
STRING005 = "@X0AReturning to @BOARDNAME@..."
Case 32
STRING005 = "@X0CPlease enter a real number next time!"
Case 33
STRING005 = "@X0FFlagging file (@X09@OPTEXT@@X0F) for download..."
Case 34
STRING005 = "@X0CSorry, time not adjust because of upcoming event..."
Case 35
STRING005 = " found in EDSBAD.NUM!"
Case 36
STRING005 = "EDSBack started callback at "
Case 37
STRING005 = "EDSBack ERROR during initialization at "
Case 38
STRING005 = "EDSBack redialed at "
Case 39
STRING005 = "EDSBack connected at "
Case 40
STRING005 = "EDSBack could not adjust time because of event..."
Case 41
STRING005 = "EDSBack flagged file"
Case 42
STRING005 = "EDSBack logged user off at "
Case 43
STRING005 = "EDSBack ERROR during callback at "
Case 44
STRING005 = "EDSBack verification failed... No name match!"
Case 45
STRING005 = "EDSBack verification failed... No password match!"
Case 46
STRING005 = " # not found in Allowed # database"
Case 47
STRING005 = "@X0BSearching allowed number calling file..."
Case 48
STRING005 = "# not called because of timetables..."
Case 49
STRING005 = "EDSBack Dialing String = "
Case 50
STRING005 = " has already been called back!"
Case 51
STRING005 = "EDSBack verification failed... No city match!"
Case 52
STRING005 = "@X0CVerification strings do not match! @OPTEXT@ try/tries remaining!"
Case 53
STRING005 = "@X0CCities do not match! @OPTEXT@ try/tries remaining!"
Case 54
STRING005 = "@X0CYour SysOp has disabled this function... @DELAY:9@"
Case 55
STRING005 = "@X0FUser's Name : @X09@OPTEXT@"
Case 56
STRING005 = "@X0FDate : @X09@OPTEXT@"
Case 57
STRING005 = "@X0FTime : @X09@OPTEXT@"
Case 58
STRING005 = "@X0AEDSBack is currently @X8CLOCKED@X0A from any use... @DELAY:9@"
Case 59
STRING005 = "EDSBack currently locked..."
Case 60
STRING005 = "Entered EDSBack at "
Case 61
STRING005 = "@X0CYour callback number must contain at least @OPTEXT@ digits!"
Case 62
STRING005 = "User entered callback # that was too short!"
Case 63
STRING005 = "EDSBack original dial at "
Case 64
STRING005 = "@X0BYour phone number was correctly detected via CALLER-ID..."
Case 65
STRING005 = "Users phone # found in CID string (User upgraded)"
Case 66
STRING005 = "@X09NO LONGER IN USE"
Case 67
STRING005 = "@X0BExecuting external program..."
Case 68
STRING005 = "EDSBack loaded file "
Case 69
STRING005 = "@X0BSearching for numbers that have already been used..."
Case 70
STRING005 = "@X0BSorting information..."
End Select
Return
:LABEL010
PrintLn
PrintLn "@X0AEnter search criteria below. (BOYER-MOORE format)"
InputStr "", STRING007, 10, 75, Mask_Ascii(), 2 + 4
PrintLn
STRING007 = Trim(STRING007, " ")
If (STRING007 == "") Then
PrintLn "@X0CSearch aborted... Returning to prompt editing facility..."
BOOLEAN006 = 0
Return
Endif
PrintLn "@X0BInitializing search..."
SearchInit STRING007, 0
PrintLn
Print "@X0FSearching prompt #@X09" + String(INTEGER003) + " @X0Fof @X09" + String(INTEGER002)
INTEGER004 = INTEGER003
INTEGER005 = INTEGER003
BOOLEAN006 = 0
FSeek 1, 39 + INTEGER003 * 97 - 97, 0
While (!BOOLEAN006 && (INTEGER003 <= INTEGER002)) Do
FSeek 1, 6, 1
FRead 1, STRING006, 75
FSeek 1, 16, 1
Backup Len(String(INTEGER005) + " of " + String(INTEGER002))
Print "@X09" + String(INTEGER003) + " @X0Fof @X09" + String(INTEGER002)
SearchFind STRING006, BOOLEAN006
If (BOOLEAN006) Then
SearchStop
Return
Continue
Endif
INTEGER005 = INTEGER003
Inc INTEGER003
EndWhile
If (BOOLEAN006) Goto LABEL011
INTEGER003 = INTEGER004
PrintLn
PrintLn "@X0ESorry, your search criteria was not found..."
:LABEL011
SearchStop
Return
Endif
:LABEL012
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 1 Wait
; 209 Goto
; 140 Let
; 7 Print
; 54 PrintLn
; 110 If
; 1 DispFile
; 1 FCreate
; 1 FOpen
; 3 FClose
; 3 InputStr
; 1 InputYN
; 1 InputInt
; 4 Gosub
; 7 Return
; 2 Delay
; 2 Inc
; 1 Dec
; 6 Newline
; 1 GetToken
; 2 InputText
; 1 OpText
; 1 Backup
; 11 FSeek
; 6 FRead
; 428 FWrite
; 1 SearchInit
; 1 SearchFind
; 2 SearchStop
;
;
; ■ Functions used :
;
; 9 *
; 3 /
; 43 +
; 12 -
; 90 ==
; 1 <>
; 1 <
; 2 <=
; 1 >
; 1 >=
; 113 !
; 2 &&
; 3 Len(
; 1 Lower()
; 3 Upper()
; 74 Space()
; 3 Ferr()
; 5 Chr()
; 1 Trim()
; 1 NoChar()
; 1 YesChar()
; 1 StripAtx()
; 8 String()
; 1 Mask_Ascii()
; 1 PPEPath()
; 1 Exist()
; 1 I2S()
; 1 S2I()
; 1 FileInf()
; 1 TokCount()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 2 While/EndWhile
; 32 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------