home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
S
/
SHELL10A.ZIP
/
SHELL150.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1993-12-18
|
5KB
|
247 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
;------------------------------------------------------------------------------
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
;------------------------------------------------------------------------------
STRING018 = "SHELL.CFG"
STRING019 = " Abort..."
STRING005 = "(C) 1993 "
STRING001 = "J"
STRING002 = "A"
STRING003 = "S"
STRING004 = "H"
STRING006 = "AMMERSEE BBS"
STRING007 = " 1.0a "
STRING014 = "+49-8807-91527 HST 14400"
STRING015 = "+49-8807-93042 ZyX 19200"
STRING016 = "+49-8807-93041 ISDN 64000"
STRING017 = "+49-8807-93043 USR 14400"
STRING021 = "(@X0C@TIMELEFT@ @X0Emin. left@X07) @X0ECommand@X07: (@X0FY@X07)@X0Ees, @X07(@X0FA@X07)@X0Ebort, @X07(@X0FN@X07)@X0Eew program @X0B"
STRING022 = ReadLine(PCBDat(), 2)
STRING023 = ReadLine(PCBDat(), 94)
GetUser
Log "■ Running " + STRING001 + STRING002 + STRING003 + STRING004 + "'s v" + PPEName() + STRING007, 0
GetToken STRING024
If (Exist(PPEPath() + STRING018)) Then
FOpen 1, PPEPath() + STRING018, 0, 0
FGet 1, STRING008
If (STRING008 <> STRING022) Then
Newlines 1
PrintLn " @X0C", STRING018, " Line 1 is wrong - notify Sysop.", STRING019
Stop
Endif
FGet 1, STRING009
If (STRING009 <> STRING023) Then
Newlines 1
PrintLn " @X0C", STRING018, " Line 2 is wrong - notify Sysop. ", STRING019
Stop
Endif
FGet 1, STRING010
If ((((STRING010 == "YES") || (STRING010 == "yes")) || (STRING024 == "YES")) || (STRING024 == "yes")) Then
INTEGER002 = 1
ElseIf ((STRING010 == "NO") || (STRING010 == "no")) Then
INTEGER002 = 0
Else
Newlines 1
PrintLn " @X0C", STRING018, " Line 3 has wrong format - notify Sysop. ", STRING019
Stop
Endif
FGet 1, INTEGER001
If ((INTEGER001 < 1) || (INTEGER001 > 255)) Then
Newlines 1
PrintLn " @X0C", STRING018, " Line 4 has wrong access level format - notify Sysop. ", STRING019
Stop
Endif
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
If (STRING013 <> "FALSE") Then
If (STRING013 <> "TRUE") Then
Newlines 1
PrintLn " @X0C", STRING018, " Line 7 has wrong format - notify Sysop. ", STRING019
Stop
Endif
Endif
FClose 1
Else
Newlines 1
PrintLn " @X0C", STRING018, " is missing in path: ", PPEPath(), " - ", STRING019
Stop
Endif
If (CurSec() < INTEGER001) Then
Newlines 1
PrintLn "@X0E@FIRSTU@@X0B @X0BMenu Selection @X0E(@X0C@OPTEXT@@X0E)@X0B is @X0CNOT @X0BAVAILABLE!@X07"
PrintLn "You Do not Have the proper security Level"
PrintLn "Needed to perform this Menu Selection."
Stop
Endif
:LABEL001
STRING020 = "Y"
STRING025 = STRING013
If (INTEGER002) Then
Cls
Newlines 1
PrintLn " @X03@FIRSTU@, @X0BRun following program now!"
Newlines 1
PrintLn " @X0EFile name: @X0F", Upper(STRING011), " @X03(If not exist then SHELL will be aborted!)"
PrintLn " @X0EArguments: @X07", STRING012
PrintLn " @X0ESHELL : @X0F", Upper(STRING013)
Newlines 1
InputStr STRING021, STRING020, 7, 1, "YAN", 8 + 64 + 2 + 4 + 4096
Select Case (STRING020)
Case "N"
Newlines 1
InputStr " Enter a new file name to shell to: @X0B", STRING011, 14, 12, Mask_Ascii(), 64 + 2 + 4
Newlines 1
PrintLn " @X0EEnter new arguments to pass to @X0B", Upper(STRING011), "@X0F:"
InputStr " Arguments: @X07", STRING012, 7, 63, Mask_Ascii(), 64 + 2 + 4
Newlines 1
PrintLn " @X0EEnter now @X0BTRUE @X0Eif the shell should be made via COMMAND.COM;"
InputStr " FALSE @X0Eif it should be shelled to directly! @X07(@X0FSpace@X07)=@X0EChange @X0B", STRING013, 11, 5, "FALSETRU", 64 + 2 + 4
If (STRING013 <> "TRUE") Then
If (STRING013 <> "FALSE") Then
STRING013 = STRING025
Endif
Endif
Goto LABEL001
Case "A"
Else
End Select
Cls
Newlines 1
PrintLn " @X0CRunning @X0B", STRING011, "@X0C ..."
Delay 30
Log "■ Starting " + STRING001 + STRING002 + STRING003 + STRING004 + "'s v" + PPEName() + STRING007 + " (" + STRING011 + ")", 0
Shell STRING013, INTEGER003, STRING011, STRING012
Cls
If (INTEGER002) Then
Endif
Newlines 2
PrintLn " @X07", PPEName(), " Version ", STRING007, STRING005, STRING001, STRING002, STRING003, STRING004
Newline
PrintLn " Support ", STRING001, STRING002, STRING003, STRING004, " ", STRING006
PrintLn " ", STRING014
PrintLn " ", STRING015
PrintLn " ", STRING016
PrintLn " ", STRING017
Endif
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 3 Cls
; 21 Goto
; 21 Let
; 22 PrintLn
; 15 If
; 1 FOpen
; 1 FClose
; 7 FGet
; 1 GetUser
; 2 Log
; 4 InputStr
; 1 Delay
; 1 Newline
; 15 Newlines
; 1 GetToken
; 1 Shell
; 7 Stop
;
;
; ■ Functions used :
;
; 29 +
; 8 ==
; 6 <>
; 2 <
; 1 >
; 15 !
; 5 ||
; 3 Upper()
; 2 Mask_Ascii()
; 2 PCBDat()
; 3 PPEPath()
; 2 ReadLine()
; 1 CurSec()
; 1 Exist()
; 3 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Sd
;
; S - Shell to DOS ■ 5
; This may be normal if the PPE need to execute an external command,
; but may be actually anything... nasty (formating HD, rebooting,...)
; or usefull (sorting, maintenance,...). Check!
; ■ Search for : SHELL
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 13 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------