home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
AUTOP2_0.ZIP
/
AUTOVIEW.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-10-23
|
2KB
|
184 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
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
;------------------------------------------------------------------------------
STRING001 = PPEPath() + "AUTOM.PLS"
Cls
FOpen 1, STRING001, 2, 0
:LABEL001
If (Ferr(1)) Goto LABEL002
FGet 1, STRING002
Tokenize STRING002
GetToken STRING004
GetToken STRING005
GetToken STRING009
GetToken STRING010
GetToken STRING006
GetToken STRING011
FGet 1, STRING012
Tokenize STRING012
GetToken STRING007
GetToken STRING015
GetToken STRING008
GetToken STRING013
GetToken STRING014
Select Case (STRING015)
Case "YES"
FGet 1, STRING003
FGet 1, STRING016
FGet 1, STRING017
FGet 1, STRING018
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING023
PrintLn "@X0AAutomessage By: @X09" + STRING009 + " " + STRING010 + " @X0AOn: @X09" + STRING011
PrintLn "@X0AQuoted Text By: @X09" + STRING013 + " " + STRING014
PrintLn "@X0A" + STRING003
PrintLn "@X0B-> @X09" + STRING016
PrintLn "@X0B-> @X09" + STRING017
PrintLn STRING018
PrintLn "@X09" + STRING019
PrintLn "@X09" + STRING020
PrintLn "@X09" + STRING021
PrintLn "@X09" + STRING022
PrintLn "@X09" + STRING023
Newline
Goto LABEL003
Case "NO"
FGet 1, STRING003
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING023
PrintLn "@X0AAutomessage By: @X09" + STRING009 + " " + STRING010 + " @X0AOn: @X09" + STRING011
PrintLn "@X0A" + STRING003
PrintLn "@X09" + STRING019
PrintLn "@X09" + STRING020
PrintLn "@X09" + STRING021
PrintLn "@X09" + STRING022
PrintLn "@X09" + STRING023
Newline
Goto LABEL003
End Select
Goto LABEL001
:LABEL002
PrintLn "@X0CError! (" + STRING001 + ")"
FClose 1
Wait
End
:LABEL003
FClose 1
Newline
Print "@X0APress a [@X02ENTER@X0A] to continue ..."
While (STRING024 <> Chr(13)) Do
STRING024 = Inkey()
Print " /"
Delay 2
Backup 2
Print " -"
Delay 2
Backup 2
Print " \"
Delay 2
Backup 2
Print " |"
Delay 2
Backup 2
EndWhile
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 1 Wait
; 9 Goto
; 2 Let
; 5 Print
; 19 PrintLn
; 4 If
; 1 FOpen
; 2 FClose
; 17 FGet
; 4 Delay
; 3 Newline
; 2 Tokenize
; 11 GetToken
; 4 Backup
;
;
; ■ Functions used :
;
; 30 +
; 2 ==
; 1 <>
; 4 !
; 1 Ferr()
; 1 Chr()
; 1 Inkey()
; 1 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 0 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------