home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
GTOCBN10.ZIP
/
GTOCBN1.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-12-08
|
6KB
|
307 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 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
Time TIME001
;------------------------------------------------------------------------------
STRING001 = ""
:LABEL001
Newline
Print "@X0ENode CHAT: (G)roup, (U)navailable, (H)elp, (Enter)=none? "
InputStr "_", STRING001, 7, 50, Mask_Ascii(), 4096 + 64
Tokenize STRING001
Select Case (Upper(STRING001))
Case "G"
:LABEL002
Newline
PrintLn "@X0BEnter channel number (1-255), (L)ist channels or (Q)uit chat? (@X071 @X0B)"
Newline
PrintLn "@X0FJoining Channel #1."
Newline
Goto LABEL004
Case "A"
Newline
PrintLn "@X0AAvailable for CHAT"
End
Case "U"
Newline
PrintLn "@X0AUnavailable for CHAT"
End
Case "H"
If (Exist(PPEPath() + "HELP1.ANS")) DispFile PPEPath() + "HELP1.ANS", 4 + 2 + 1
Goto LABEL001
Case "?"
If (Exist(PPEPath() + "HELP1.ANS")) DispFile PPEPath() + "HELP1.ANS", 4 + 2 + 1
Goto LABEL001
End Select
Newline
PrintLn "@X08C@X07B@X0FN@X07.@X08P@X07P@X0FE @X08v@X071.@X0Fo @X08Wr@X07it@X0Ften @X08b@X07y @X08V@X07o@X0Fc @X08[@X07G@X0FT@X07o@X08]"
End
:LABEL003
PrintLn ""
PrintLn "@X0F @X08(@X07#@X08) St@X07at@X0Fus @X08U@X07se@X0Fr"
PrintLn "@X0F @X04─@X0C─@X04─ ────@X0C────@X07──@X0F─@X07──@X0C────@X04──── ─────@X0C─────@X07───@X0F───@X07───@X0C─────@X04─────"
PrintLn "@X04 @X0F1 Available for CHAT @USER@ (@CITY@)"
PrintLn "@X0F 2 No Caller this Node"
PrintLn "@X0F 3 Transferring a File @LASTCALLERSYSTEM@"
PrintLn "@X0F @X04─@X0C─@X04─ ────@X0C────@X07──@X0F─@X07──@X0C────@X04──── ─────@X0C─────@X07───@X0F───@X07───@X0C─────@X04─────"
STRING002 = ""
Newline
Newline
:LABEL004
Print "@X0A(@X0C@TIMELEFT@ @X0Amin. left) (H)elp, Chat Command? "
InputStr "_", STRING002, 7, 50, Mask_Ascii(), 4096 + 64
Tokenize STRING002
Select Case (Upper(STRING002))
Case "WHO"
Goto LABEL003
Case "SHOW"
Goto LABEL003
Case "CALL"
Goto LABEL008
Case "X"
PrintLn "@X0FExpert Mode now on @FIRST@ . . ."
Newline
Goto LABEL004
Case "CHANNEL"
Goto LABEL002
Case "TOPIC"
PrintLn "@X0BTopic is unchangeable!"
Newline
Goto LABEL004
Case "PRIVATE"
PrintLn "@X0BChannel 1 cannot be made private."
Newline
Goto LABEL004
Case "MENU"
If (Exist(PPEPath() + "MENU.PCB")) DispFile PPEPath() + "MENU.PCB", 4 + 2 + 1
Goto LABEL004
Case "Q"
Newline
PrintLn "@X0FNode CHAT ended at @SYSTIME@"
Newline
PrintLn "@X08C@X07B@X0FN@X07.@X08P@X07P@X0FE @X08v@X071.@X0Fo @X08Wr@X07it@X0Ften @X08b@X07y @X08V@X07o@X0Fc @X08[@X07G@X0FT@X07o@X08]"
End
Case "SILENT"
PrintLn "@X0BSilent Mode is now on."
Newline
Goto LABEL004
Case "QUIT"
Newline
PrintLn "@X0FNode CHAT ended at @SYSTIME@"
Newline
PrintLn "@X08C@X07B@X0FN@X07.@X08P@X07P@X0FE @X08v@X071.@X0Fo @X08Wr@X07it@X0Ften @X08b@X07y @X08V@X07o@X0Fc @X08[@X07G@X0FT@X07o@X08]"
End
Case "BYE"
Hangup
Case "G"
STRING006 = ""
Newline
Print "@X07Proceed with Logoff? "
TIME001 = Time() + 10
While ((STRING006 == "") && (Time() < TIME001)) Do
STRING006 = Inkey()
EndWhile
If (Upper(STRING006) == "Y") Then
Hangup
Goto LABEL005
Endif
:LABEL005
Newline
Newline
Goto LABEL004
Case "ECHO"
PrintLn "@X0BChat Echo enabled."
Newline
Goto LABEL004
Case "NOECHO"
PrintLn "@X0BChat Echo disabled. Use the ECHO command to re-enable it."
Newline
Goto LABEL004
Case "MONITOR"
PrintLn "@X0BMonitor of public channels enabled."
Newline
Goto LABEL004
Case "PUBLIC"
PrintLn "@X0BThis channel is now public."
Newline
Goto LABEL004
Case "IGNORE"
Goto LABEL006
Case "H"
If (Exist(PPEPath() + "HELP2.ANS")) DispFile PPEPath() + "HELP2.ANS", 4 + 2 + 1
Goto LABEL004
Case "?"
If (Exist(PPEPath() + "HELP2.ANS")) DispFile PPEPath() + "HELP2.ANS", 4 + 2 + 1
Goto LABEL004
Case "SEND"
Goto LABEL007
End Select
Goto LABEL004
End
:LABEL006
STRING004 = ""
Newline
Print "@X0AEnter node (#) to ignore, (C)ancel or (W)ho? "
InputStr "_", STRING004, 7, 50, Mask_Ascii(), 4096 + 64
Tokenize STRING004
Select Case (Upper(STRING004))
Case "C"
Goto LABEL004
Case "W"
PrintLn ""
PrintLn "@X0F @X08(@X07#@X08) St@X07at@X0Fus @X08U@X07se@X0Fr"
PrintLn "@X0F @X04─@X0C─@X04─ ────@X0C────@X07──@X0F─@X07──@X0C────@X04──── ─────@X0C─────@X07───@X0F───@X07───@X0C─────@X04─────"
PrintLn "@X04 @X0F1 Available for CHAT @USER@ (@CITY@)"
PrintLn "@X0F 2 No Caller this Node"
PrintLn "@X0F 3 Transferring a File @LASTCALLERSYSTEM@"
PrintLn "@X0F @X04─@X0C─@X04─ ────@X0C────@X07──@X0F─@X07──@X0C────@X04──── ─────@X0C─────@X07───@X0F───@X07───@X0C─────@X04─────"
Goto LABEL006
Case "1"
PrintLn "@X0BSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL006
Case "2"
PrintLn "@X0BSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL006
Case "3"
PrintLn "@X0BSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL006
End Select
Goto LABEL004
End
:LABEL007
STRING005 = ""
Newline
Print "@X0ASend send message to Node (#), (C)ancel or (S)how users? "
InputStr "_", STRING005, 7, 50, Mask_Ascii(), 4096 + 64
Tokenize STRING005
Select Case (Upper(STRING005))
Case "C"
Goto LABEL004
Case "S"
Newline
PrintLn "Channel 1: Open Discussion"
PrintLn "=========================="
PrintLn "(1) @FIRST@ * "
Goto LABEL007
Case "1"
PrintLn "@X0BSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL007
Case "2"
PrintLn "@X0BSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL007
Case "3"
PrintLn "@X0BSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL007
End Select
Goto LABEL004
End
:LABEL008
PrintLn ""
PrintLn "@X0F @X08(@X07#@X08) St@X07at@X0Fus @X08U@X07se@X0Fr"
PrintLn "@X0F @X04─@X0C─@X04─ ────@X0C────@X07──@X0F─@X07──@X0C────@X04──── ─────@X0C─────@X07───@X0F───@X07───@X0C─────@X04─────"
PrintLn "@X04 @X0F1 Available for CHAT @USER@ (@CITY@)"
PrintLn "@X0F 2 No Caller this Node"
PrintLn "@X0F 3 Transferring a File @LASTCALLERSYSTEM@"
PrintLn "@X0F @X04─@X0C─@X04─ ────@X0C────@X07──@X0F─@X07──@X0C────@X04──── ─────@X0C─────@X07───@X0F───@X07───@X0C─────@X04─────"
:LABEL009
STRING003 = ""
Newline
Print "@X0AEnter the number of the node to CALL into chat? "
InputStr "_", STRING003, 7, 50, Mask_Ascii(), 4096 + 64
Tokenize STRING003
Select Case (Upper(STRING003))
Case "1"
PrintLn "@X0FSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL009
Case "2"
PrintLn "@X0FSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL009
Case "3"
PrintLn "@X0FSorry, @FIRST@, Node requested is not available for CHAT."
Goto LABEL009
Case "Q"
Newline
PrintLn "@X0FNode CHAT ended at @SYSTIME@"
End
End Select
Goto LABEL004
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 10 End
; 117 Goto
; 8 Let
; 6 Print
; 51 PrintLn
; 47 If
; 5 DispFile
; 2 Hangup
; 5 InputStr
; 29 Newline
; 5 Tokenize
;
;
; ■ Functions used :
;
; 26 +
; 42 ==
; 1 <
; 42 !
; 1 &&
; 41 Upper()
; 2 Time()
; 1 Inkey()
; 5 Mask_Ascii()
; 10 PPEPath()
; 5 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : B
;
; B - Brute hangup ■ 1
; Program hangup without notification. This may be a good way to
; disconnect a user, but if used randomly, may be very nasty
; ■ Search for : HANGUP, DTROFF
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 1 If/Then or If/Then/Else
; 5 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------