home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TDA-DISC.ZIP
/
DISCLAIM.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-01-02
|
2KB
|
174 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
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String TSTRING007(3)
;------------------------------------------------------------------------------
Print "@POFF@"
TSTRING007(1) = "@X08"
TSTRING007(2) = "@X07"
TSTRING007(3) = "@X0F"
Cls
DispFile PPEPath() + "DISCLAIM.ANS", 1
FOpen 1, PPEPath() + "DISCLAIM.CFG", 0, 1
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
AnsiPos STRING001, STRING002
INTEGER003 = Len(STRING003)
:LABEL001
STRING004 = Inkey()
If (STRING004 <> "") Goto LABEL002
Goto LABEL001
:LABEL002
If (STRING004 == Chr(13)) Goto LABEL003
If (STRING004 == Chr(8)) Goto LABEL004
If (Len(STRING004) > 1) Goto LABEL001
If (Len(STRING005) == INTEGER003) Goto LABEL001
AnsiPos STRING001, STRING002
Print STRING004
STRING001 = STRING001 + 1
STRING005 = STRING005 + STRING004
Goto LABEL001
:LABEL003
If (Upper(STRING005) == Upper(STRING003)) Goto LABEL007
If (Upper(STRING005) == "TDA") Gosub LABEL005
INTEGER001 = INTEGER001 + 1
If (INTEGER001 == 3) Goto LABEL006
STRING001 = STRING001 - Len(STRING005)
STRING005 = ""
STRING006 = ""
AnsiPos STRING001, STRING002
INTEGER002 = 0
While (((1 < 0) && (INTEGER002 >= Len(STRING003) - 1)) || ((1 >= 0) && (INTEGER002 <= Len(STRING003) - 1))) Do
Print " "
INTEGER002 = INTEGER002 + 1
EndWhile
AnsiPos STRING001, STRING002
Goto LABEL001
:LABEL004
If (Len(STRING005) == 0) Goto LABEL001
STRING001 = STRING001 - 1
AnsiPos STRING001, STRING002
Print " "
STRING005 = Mid(STRING005, 1, Len(STRING005) - 1)
AnsiPos STRING001, STRING002
Goto LABEL001
:LABEL005
INTEGER001 = INTEGER001 - 1
For INTEGER002 = 1 To 3
AnsiPos 17, 24
Print TSTRING007(INTEGER002)
Print "-/ The Dark Ages - The Ever Growing PC Force \-"
Delay 4
Next
For INTEGER002 = 3 To 1 Step -1
AnsiPos 17, 24
Print TSTRING007(INTEGER002)
Print "-/ The Dark Ages - The Ever Growing PC Force \-"
Delay 4
Next
AnsiPos 17, 24
Print "@X0F"
Print " "
Return
:LABEL006
AnsiPos 80, 23
PrintLn "@X0F Di@X07sco@X08nn@X07ect@X0Fing@X07..."
Hangup
:LABEL007
Print "@PON@"
AnsiPos 80, 23
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 18 Goto
; 20 Let
; 11 Print
; 1 PrintLn
; 12 If
; 1 DispFile
; 1 FOpen
; 3 FGet
; 1 Hangup
; 1 Gosub
; 1 Return
; 2 Delay
; 11 AnsiPos
;
;
; ■ Functions used :
;
; 3 -
; 8 +
; 6 -
; 7 ==
; 1 <>
; 3 <
; 3 <=
; 1 >
; 6 >=
; 3 !
; 6 &&
; 3 ||
; 8 Len(
; 3 Upper()
; 1 Mid()
; 2 Chr()
; 1 Inkey()
; 2 PPEPath()
;
;------------------------------------------------------------------------------
;
; 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
;
; 2 For/Next
; 1 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------