home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
WAITV30.ZIP
/
WAIT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-01-06
|
7KB
|
335 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
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING001
String STRING002
String TSTRING003(3)
String TSTRING004(3)
String TSTRING005(3)
String STRING006
String TSTRING007(3)
String TSTRING008(7)
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
;------------------------------------------------------------------------------
INTEGER008 = 1
INTEGER006 = 1
FOpen 1, PPEPath() + "WAIT.CFG", 0, 0
FDefIn 1
FDGet TSTRING008(INTEGER006)
:LABEL001
If (Ferr(1)) Goto LABEL002
Inc INTEGER006
FDGet TSTRING008(INTEGER006)
Goto LABEL001
:LABEL002
FClose 1
STRING009 = Mid(TSTRING008(1), 1, 2)
STRING010 = Mid(TSTRING008(1), 3, 2)
STRING011 = Mid(TSTRING008(1), 5, 2)
STRING012 = Mid(TSTRING008(1), 7, 2)
STRING013 = Mid(TSTRING008(1), 9, 2)
If (Len(TSTRING008(1)) < 10) INTEGER008 = 2
If (Len(TSTRING008(1)) > 10) TSTRING008(1) = Left(TSTRING008(1), 10)
For INTEGER004 = 2 To 7
TSTRING008(INTEGER004) = Left(TSTRING008(INTEGER004), 4)
Next
If (TSTRING008(1) == "1111111111") INTEGER008 = 2
If (TSTRING008(1) == "1212121212") INTEGER008 = 2
If (TSTRING008(1) == "1010101010") INTEGER008 = 2
If (TSTRING008(1) == "0101010101") INTEGER008 = 2
If (STRING009 > "66") INTEGER008 = 2
If (STRING009 == "00") INTEGER008 = 2
If (STRING010 > "26") INTEGER008 = 2
If (STRING010 == "00") INTEGER008 = 2
If (STRING011 > "26") INTEGER008 = 2
If (STRING011 == "00") INTEGER008 = 2
If (STRING012 > "12") INTEGER008 = 2
If (STRING012 == "00") INTEGER008 = 2
If (TSTRING008(2) == " ") TSTRING008(2) = "@X09"
If (TSTRING008(3) == " ") TSTRING008(3) = "@X09"
If (TSTRING008(4) == " ") TSTRING008(4) = "@X0E"
If (TSTRING008(5) == " ") TSTRING008(5) = "@X0E"
If (TSTRING008(6) == " ") TSTRING008(6) = "@X0F"
If (TSTRING008(7) == " ") TSTRING008(7) = "@X0C"
Delete PPEPath() + "WAIT.CFG"
FOpen 2, PPEPath() + "WAIT.CFG", 1, 1
If (INTEGER008 == 2) Then
FPutLn 2, "0000000001 ∞ Your Personalized Registration Code (0000000001 Default)"
FPutLn 2, TSTRING008(2) + " ∞ Color Choice For First Whirl"
FPutLn 2, TSTRING008(3) + " ∞ Color Choice For Second Whirl"
FPutLn 2, TSTRING008(4) + " ∞ Color Choice For 'Enter'"
FPutLn 2, TSTRING008(5) + " ∞ Color Choice For Main Prompt"
FPutLn 2, TSTRING008(6) + " ∞ Color Choice For Brackets ( [] )"
FPutLn 2, TSTRING008(7) + " ∞ Color Choice For «-"
FPutLn 2, " ╔══════════════════════════════════════════════════════════════════════╗"
FPutLn 2, " ║ WAIT v3.0 Unregistered Evaluation Copy! For Support call: ║"
FPutLn 2, " ║ The Realm of Delirium BBS at (806) 935-4760 ║"
FPut 2, " ╚══════════════════════════════════════════════════════════════════════╝"
Endif
If (INTEGER008 == 1) Then
FPutLn 2, TSTRING008(1) + " ∞ Your Personalized Registration Code (0000000001 Default)"
FPutLn 2, TSTRING008(2) + " ∞ Color Choice For First Whirl"
FPutLn 2, TSTRING008(3) + " ∞ Color Choice For Second Whirl"
FPutLn 2, TSTRING008(4) + " ∞ Color Choice For 'Enter'"
FPutLn 2, TSTRING008(5) + " ∞ Color Choice For Main Prompt"
FPutLn 2, TSTRING008(6) + " ∞ Color Choice For Brackets ( [] )"
FPutLn 2, TSTRING008(7) + " ∞ Color Choice For «-"
FPutLn 2, " ╔══════════════════════════════════════════════════════════════════════╗"
FPutLn 2, " ║ WAIT v3.0 Thanks for Registering! For Support call: ║"
FPutLn 2, " ║ The Realm of Delirium BBS at (806) 935-4760 ║"
FPutLn 2, " ╚══════════════════════════════════════════════════════════════════════╝"
Endif
FClose 2
STRING006 = LangExt()
If (Exist(PPEPath() + "WAITTXT" + LangExt()) == 0) Goto LABEL010
FOpen 3, PPEPath() + "WAITTXT" + LangExt(), 0, 0
INTEGER006 = 1
FGet 3, TSTRING007(INTEGER006)
:LABEL003
If (Ferr(3)) Goto LABEL004
Inc INTEGER006
FGet 3, TSTRING007(INTEGER006)
Goto LABEL003
:LABEL004
FClose 3
:LABEL005
BOOLEAN001 = 0
TSTRING003(0) = "-"
TSTRING003(1) = "\"
TSTRING003(2) = "|"
TSTRING003(3) = "φ"
TSTRING004(0) = "φ"
TSTRING004(1) = "|"
TSTRING004(2) = "\"
TSTRING004(3) = "-"
TSTRING005(1) = TSTRING008(2) + " " + TSTRING008(5) + TSTRING007(1) + TSTRING008(6) + " ["
TSTRING005(2) = TSTRING008(4) + TSTRING007(2) + TSTRING008(5) + TSTRING008(6) + "]" + TSTRING008(5) + " " + TSTRING007(3) + " " + TSTRING008(3) + ""
TSTRING005(3) = TSTRING005(1) + TSTRING005(2)
STRING002 = Chr(13)
If (INTEGER008 == 2) TSTRING005(3) = "@X0E " + TSTRING007(1) + " [@X0C" + TSTRING007(2) + "@X0E] " + TSTRING007(3) + " @X09"
INTEGER005 = GetY()
If (INTEGER008 == 1) Goto LABEL008
:LABEL006
If (BOOLEAN001) Goto LABEL007
AnsiPos 1, INTEGER005
Delay 1
Print "" + TSTRING003(INTEGER001 % 4) + TSTRING005(3) + TSTRING004(INTEGER001 % 4)
Inc INTEGER001
INTEGER004 = GetX()
INTEGER007 = INTEGER004 + 2
Inc INTEGER001
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
BOOLEAN001 = 1
For INTEGER003 = INTEGER007 To 0 Step -1
Print "@X0C"
AnsiPos INTEGER003, INTEGER005
Print Chr(174) + "-@X07 "
If (INTEGER003 == 13) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X01D"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 12) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X02E"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 11) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X03R"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 10) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X04E"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 9) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X05T"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 8) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X06S"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 7) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X07I"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 6) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X09G"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 5) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X0AE"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 4) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X0BR"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 3) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X0CN"
AnsiPos INTEGER003, INTEGER005
Continue
Endif
If (INTEGER003 == 2) Then
AnsiPos INTEGER003 + 2, INTEGER005
Print "@X0DU"
AnsiPos INTEGER003, INTEGER005
Endif
Next
AnsiPos 1, INTEGER005
Print " "
KbdStuff STRING002
Endif
Goto LABEL006
:LABEL007
Goto LABEL011
:LABEL008
If (BOOLEAN001) Goto LABEL009
AnsiPos 1, INTEGER005
Delay 1
Print TSTRING008(2) + TSTRING003(INTEGER001 % 4) + TSTRING005(3) + TSTRING004(INTEGER001 % 4)
INTEGER004 = GetX()
INTEGER007 = INTEGER004 + 2
Inc INTEGER001
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
BOOLEAN001 = 1
For INTEGER002 = INTEGER007 To 0 Step -1
Print TSTRING008(7)
AnsiPos INTEGER002, INTEGER005
Print Chr(174) + "-@X07 "
Next
AnsiPos 1, INTEGER005
Print " "
KbdStuff STRING002
Else
Goto LABEL008
:LABEL009
Goto LABEL011
:LABEL010
TSTRING007(1) = "Press"
TSTRING007(2) = "Enter"
TSTRING007(3) = "to Continue"
Goto LABEL005
Endif
:LABEL011
AnsiPos 1, INTEGER005
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 47 Goto
; 62 Let
; 20 Print
; 46 If
; 3 FOpen
; 3 FClose
; 2 FGet
; 1 FPut
; 21 FPutLn
; 1 Delete
; 2 Delay
; 5 Inc
; 2 KbdStuff
; 31 AnsiPos
; 1 FDefIn
; 2 FDGet
;
;
; ■ Functions used :
;
; 6 -
; 4 %
; 67 +
; 33 ==
; 4 <
; 3 <=
; 5 >
; 6 >=
; 23 !
; 6 &&
; 3 ||
; 2 Len(
; 2 Upper()
; 5 Mid()
; 2 Left()
; 2 Ferr()
; 5 Chr()
; 2 Inkey()
; 5 PPEPath()
; 1 Exist()
; 3 LangExt()
; 2 GetX()
; 1 GetY()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 3 For/Next
; 0 While/EndWhile
; 16 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------