home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTMSG11.ZIP
/
MORE196.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-05-31
|
7KB
|
191 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
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
String TSTRING001(45)
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
;------------------------------------------------------------------------------
STRING002 = ScrText(1, 2, 5, 0)
INTEGER003 = GetY() + 1
STRING003 = PPEPath() + "tht-msg.ppe"
If ((((STRING002 == " To:") || (STRING002 == "From:")) || (STRING002 == " To:")) || (STRING002 == "Subj:")) Then
DispStr "!" + STRING003
Endif
DefColor
FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
FGet 1, STRING004
FGet 1, STRING006
FGet 1, STRING005
FGet 1, INTEGER004
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FClose 1
TSTRING001(0) = STRING006 + "∞ " + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞"
TSTRING001(2) = STRING005 + " Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞@X08"
TSTRING001(3) = STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08"
TSTRING001(4) = STRING005 + "ress (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "P@X08"
TSTRING001(5) = STRING005 + "ess (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Pr@X08"
TSTRING001(6) = STRING005 + "ss (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Pre@X08"
TSTRING001(7) = STRING005 + "s (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Pres@X08"
TSTRING001(8) = STRING005 + " (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press@X08"
TSTRING001(9) = STRING005 + "(Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press @X08"
TSTRING001(10) = STRING005 + "Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (@X08"
TSTRING001(11) = STRING005 + ") or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y@X08"
TSTRING001(12) = STRING005 + " or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y)@X08"
TSTRING001(13) = STRING005 + "or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) @X08"
TSTRING001(14) = STRING005 + "r (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) o@X08"
TSTRING001(15) = STRING005 + " (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or@X08"
TSTRING001(16) = STRING005 + "(N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or @X08"
TSTRING001(17) = STRING005 + "N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (@X08"
TSTRING001(18) = STRING005 + ") or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N@X08"
TSTRING001(19) = STRING005 + " or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N)@X08"
TSTRING001(20) = STRING005 + "or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) @X08"
TSTRING001(21) = STRING005 + "r ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) o@X08"
TSTRING001(22) = STRING005 + " ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or@X08"
TSTRING001(23) = STRING005 + "ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or @X08"
TSTRING001(24) = STRING005 + "NTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or E@X08"
TSTRING001(25) = STRING005 + "TER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or EN@X08"
TSTRING001(26) = STRING005 + "ER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENT@X08"
TSTRING001(27) = STRING005 + "R to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTE@X08"
TSTRING001(28) = STRING005 + " to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER@X08"
TSTRING001(29) = STRING005 + "to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER @X08"
TSTRING001(30) = STRING005 + "o Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER t@X08"
TSTRING001(31) = STRING005 + " Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to@X08"
TSTRING001(32) = STRING005 + "Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to @X08"
TSTRING001(33) = STRING005 + "ontinue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to C@X08"
TSTRING001(34) = STRING005 + "ntinue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Co@X08"
TSTRING001(35) = STRING005 + "tinue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Con@X08"
TSTRING001(36) = STRING005 + "inue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Cont@X08"
TSTRING001(37) = STRING005 + "nue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Conti@X08"
TSTRING001(38) = STRING005 + "ue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Contin@X08"
TSTRING001(39) = STRING005 + "e@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continu@X08"
TSTRING001(40) = STRING005 + "" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08"
TSTRING001(41) = STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08"
TSTRING001(42) = STRING006 + " ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞@X08"
TSTRING001(43) = STRING006 + "∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞@X08"
INTEGER002 = GetX()
If (AnsiOn()) Goto LABEL001
For INTEGER001 = 1 To 10000000
Print "3H Press Enter to Continue "
If (STRING007 <> "") Goto LABEL002
Next
:LABEL001
AnsiPos 1, INTEGER003
Print STRING008 + STRING004 + STRING009 + " " + STRING010
STRING008 = StripAtx(STRING008)
INTEGER005 = Len(STRING008)
AnsiPos INTEGER002 + INTEGER005 - 5, INTEGER003
Print TSTRING001(0)
For INTEGER001 = 1 To 1000000
STRING007 = Inkey()
For STRING011 = 2 To 43
If (STRING007 <> "") Then
Goto LABEL002
Endif
Delay INTEGER004
AnsiPos INTEGER002 + INTEGER005 - 5, INTEGER003
Print TSTRING001(STRING011)
STRING007 = Inkey()
If (STRING007 <> "") Then
Goto LABEL002
Endif
Next
Next
:LABEL002
KbdStuff STRING007
AnsiPos INTEGER002, INTEGER003
ClrEol
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 ClrEol
; 14 Goto
; 57 Let
; 4 Print
; 8 If
; 1 FOpen
; 1 FClose
; 7 FGet
; 1 DefColor
; 1 Delay
; 1 KbdStuff
; 1 DispStr
; 4 AnsiPos
;
;
; ■ Functions used :
;
; 223 +
; 2 -
; 4 ==
; 3 <>
; 3 <
; 3 <=
; 6 >=
; 7 !
; 6 &&
; 6 ||
; 1 Len(
; 1 StripAtx()
; 2 Inkey()
; 2 PPEPath()
; 1 AnsiOn()
; 1 GetX()
; 1 GetY()
; 1 PPEName()
; 1 ScrText()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 3 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------