home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
BR40U.ZIP
/
BR40U.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-01-05
|
4KB
|
188 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
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
;------------------------------------------------------------------------------
Cls
GetUser
GetUser
RdUNet PcbNode()
WrUNet PcbNode(), UN_Stat(), UN_Name(), "Running BR [PPE] v 4.0", "", ""
:LABEL001
STRING003 = ""
STRING001 = ""
STRING002 = ""
Cls
If (U_Expert == 1) Goto LABEL002
If (Exist(PPEPath() + "MENU")) DispFile PPEPath() + "MENU", 4 + 2 + 1
Goto LABEL002
Newline
:LABEL002
If (U_Expert == 0) Goto LABEL003
PrintLn "@X0EYou are in expert mode. Therefore, you will not see the menu."
Newline
:LABEL003
InputStr "@X0EWhat is your BR [PPE] menu command", STRING001, 14, 1, "QW?HGVS", 2 + 4 + 8
Newline
If (STRING001 == "") Goto LABEL007
If (STRING001 == "Q") Goto LABEL007
If (STRING001 == "W") Goto LABEL009
If (STRING001 == "H") Goto LABEL010
If (STRING001 == "S") Goto LABEL004
If (STRING001 == "G") Goto LABEL007
If (STRING001 == "?") Goto LABEL010
:LABEL004
InputStr "@X0EWhat node do you wish to send a message to", STRING003, 14, 3, "1234567890", 2 + 4 + 8
Newline
If (STRING003 == String(PcbNode())) Goto LABEL006
If (STRING003 > MaxNode()) Goto LABEL005
If (STRING003 == 0) Goto LABEL011
InputStr "Enter your message 52 Chars Max", STRING002, 14, 52, "ß■ ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=_+\|,./<>?;':[]{}`~!@#$%^&*()" + Chr(34), 2 + 4 + 8
Newline
If (STRING002 == "") Goto LABEL007
Newline
Broadcast STRING003, STRING003, "A message from node #" + String(PcbNode()) + " ->" + STRING002
PrintLn "@X0EFive second un-registered delay... please hold"
Delay 18 * 5
FAppend 1, PPEPath() + "BR.LOG", 1, 3
FPutLn 1, "Name: " + String(U_Name())
FPutLn 1, "From Node: " + String(PcbNode())
FPutLn 1, "To Node: " + STRING003
FPutLn 1, "Date Sent: " + String(Date())
FPutLn 1, "Time Sent: " + String(Time())
FPutLn 1, "Message Sent: " + STRING002
FPutLn 1, "--------------------------------------------------------------------------------"
FPutLn 1, "Why not register BR[PPE]. It's only $15. No More 5 Second Delay!"
FPutLn 1, "--------------------------------------------------------------------------------"
FClose 1
Newlines 3
Log STRING002, 0
Log "BR [PPE] From Node " + String(PcbNode()), 0
STRING001 = ""
Goto LABEL001
:LABEL005
Newline
PrintLn "@X8CThis BBS is not setup to handle more than " + String(MaxNode()) + " Nodes"
Delay 45
Cls
STRING001 = ""
Goto LABEL001
:LABEL006
Newline
PrintLn "@X0EWhy would you send a message to yourself???????????@X0F"
Log "This person try to send a message to him/her self", 0
STRING001 = ""
Cls
Goto LABEL001
:LABEL007
Newline
PrintLn "@X38┌───────────────────────────────────────────────────┐@X0F"
PrintLn "@X38│ Kris Steinwender * The BBS Express * 609-461-6254 @X3B│@X0F"
PrintLn "@X3B└───────────────────────────────────────────────────┘@X0F"
If (STRING001 == "G") Goto LABEL008
End
:LABEL008
Newline
PrintLn "@X0AThanks for calling @FIRST@@X0F"
Bye
:LABEL009
Cls
PrintLn "@X8CNote: @X0E If you are using this program,"
PrintLn "@X0E odds are you're available for chat"
PrintLn "@WHO@"
Wait
STRING001 = ""
Goto LABEL001
:LABEL010
PrintLn "@X0EOnly available in the registered version."
Log "It's a good time to register BR[PPE]. Only $15!", 1
Delay 18 * 2
Goto LABEL001
:LABEL011
PrintLn "@X0EYou can not enter a message to node 0"
Delay 45
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 5 Cls
; 1 Wait
; 23 Goto
; 7 Let
; 13 PrintLn
; 15 If
; 1 DispFile
; 1 FAppend
; 1 FClose
; 9 FPutLn
; 2 GetUser
; 4 Log
; 3 InputStr
; 4 Delay
; 10 Newline
; 1 Newlines
; 1 Bye
; 1 Broadcast
; 1 RdUNet
; 1 WrUNet
;
;
; ■ Functions used :
;
; 2 *
; 24 +
; 13 ==
; 1 >
; 1 Chr()
; 1 Date()
; 1 Time()
; 1 U_Name()
; 8 String()
; 3 PPEPath()
; 6 PcbNode()
; 1 UN_Stat()
; 1 UN_Name()
; 1 Exist()
; 2 MaxNode()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; 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!
;------------------------------------------------------------------------------