home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TDI-JCOM.ZIP
/
TDI-JCOM.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-04-15
|
4KB
|
243 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
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING001
String STRING002
String STRING003
String STRING004
;------------------------------------------------------------------------------
STRING002 = "TDI-CONF\"
DispFile PPEPath() + "TDI-MNU", 4 + 1 + 2
INTEGER006 = 3
INTEGER008 = 2
INTEGER002 = 0
:LABEL001
If (INTEGER002 > 0) Then
For INTEGER004 = 1 To 15
AnsiPos 2, INTEGER008 + INTEGER004
Print " "
Next
Endif
INTEGER007 = 0
INTEGER008 = 2
INTEGER006 = 3
INTEGER002 = 0
INTEGER003 = 0
INTEGER001 = 1
While (Exist(PPEPath() + STRING002 + "TDI-GRP.LST")) Do
INTEGER002 = INTEGER002 + 1
AnsiPos 2, INTEGER008 + INTEGER002
If (ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER002) <> "") Print "@X1B" + Upper(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER002))
If (ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER002) == "") INTEGER002 = INTEGER002 - 1
If (ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER002 + 1) == "") Break
EndWhile
While (Exist(PPEPath() + STRING002 + "CONF")) Do
INTEGER003 = INTEGER003 + 1
AnsiPos 2, INTEGER008 + INTEGER002 + INTEGER003
If (ReadLine(PPEPath() + STRING002 + "CONF", INTEGER003) == "") Break
If (ReadLine(PPEPath() + STRING002 + "CONF", INTEGER003) <> "") Print "@X1B" + Lower(ReadLine(PPEPath() + STRING002 + "CONF", INTEGER003 * 2))
If (ReadLine(PPEPath() + STRING002 + "CONF", INTEGER003) <> "") STRING001 = ReadLine(PPEPath() + STRING002 + "CONF", INTEGER003 * 2 - 1)
EndWhile
:LABEL002
If (INTEGER002 + INTEGER003 + 1 < 15) Then
For INTEGER004 = INTEGER002 + INTEGER003 + 1 To 15
AnsiPos 2, INTEGER008 + INTEGER004
Print " "
Next
Endif
INTEGER007 = 1
AnsiPos 2, INTEGER008 + 1
Print "@X30 "
AnsiPos 2, INTEGER008 + 1
Print "@X30" + Upper(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", 1))
AnsiPos 1, 21
Print "@X07Join > "
Gosub LABEL007
:LABEL003
Gosub LABEL010
If (STRING003 == Chr(13)) Goto LABEL008
If (STRING003 == "UP") Goto LABEL005
If (STRING003 == "DOWN") Goto LABEL006
If (STRING003 == Chr(27)) Goto LABEL004
If (!((((STRING003 == Chr(13)) || (STRING003 == "UP")) || (STRING003 == "DOWN")) || (STRING003 == Chr(27)))) Goto LABEL003
Goto LABEL002
End
:LABEL004
AnsiPos 1, 21
Print "@X07Join > "
End
:LABEL005
If (INTEGER007 > 1) Then
INTEGER007 = INTEGER007 - 1
AnsiPos 2, INTEGER008 + INTEGER007 + 1
Print "@X1B "
AnsiPos 2, INTEGER008 + INTEGER007 + 1
If (INTEGER007 <= INTEGER002) Print "@X1B" + Upper(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER007 + 1))
If ((INTEGER001 <= INTEGER003) && (INTEGER007 >= INTEGER002)) INTEGER001 = INTEGER001 - 1
If ((INTEGER001 <= INTEGER003) && (INTEGER007 >= INTEGER002)) Print "@X1B" + Lower(ReadLine(PPEPath() + STRING002 + "CONF", (INTEGER001 + 1) * 2))
AnsiPos 2, INTEGER008 + INTEGER007
Print "@X30 "
AnsiPos 2, INTEGER008 + INTEGER007
If (INTEGER007 <= INTEGER002) Then
Print "@X30" + Upper(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER007))
INTEGER005 = GetX()
INTEGER006 = GetY()
Endif
If ((INTEGER007 <= INTEGER002 + INTEGER003) && (INTEGER007 > INTEGER002)) Then
Print "@X30" + Lower(ReadLine(PPEPath() + STRING002 + "CONF", INTEGER001 * 2))
INTEGER005 = GetX()
INTEGER006 = GetY()
Endif
Endif
If (INTEGER007 < INTEGER002 + 2) INTEGER001 = 1
Gosub LABEL007
Goto LABEL003
:LABEL006
If (INTEGER007 < INTEGER002 + INTEGER003 / 2) Then
INTEGER007 = INTEGER007 + 1
AnsiPos 2, INTEGER008 + INTEGER007 - 1
Print "@X1B "
AnsiPos 2, INTEGER008 + INTEGER007 - 1
If (INTEGER007 <= INTEGER002 + 1) Print "@X1B" + Upper(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER007 - 1))
If ((INTEGER001 <= INTEGER003) && (INTEGER007 - 1 > INTEGER002)) INTEGER001 = INTEGER001 + 1
If ((INTEGER001 <= INTEGER003) && (INTEGER007 - 1 > INTEGER002)) Print "@X1B" + Lower(ReadLine(PPEPath() + STRING002 + "CONF", (INTEGER001 - 1) * 2))
AnsiPos 2, INTEGER008 + INTEGER007
Print "@X30 "
AnsiPos 2, INTEGER008 + INTEGER007
If (INTEGER007 <= INTEGER002) Then
Print "@X30" + Upper(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", INTEGER007))
INTEGER005 = GetX()
INTEGER006 = GetY()
Endif
If ((INTEGER007 <= INTEGER002 + INTEGER003) && (INTEGER007 > INTEGER002)) Then
Print "@X30" + Lower(ReadLine(PPEPath() + STRING002 + "CONF", INTEGER001 * 2))
INTEGER005 = GetX()
INTEGER006 = GetY()
Endif
Endif
Gosub LABEL007
Goto LABEL003
:LABEL007
AnsiPos 3, 19
Print "@X1B "
AnsiPos 3, 19
If (INTEGER006 <= INTEGER002 + INTEGER008) Print "@X1B SUBDIR "
If (Left(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", S2I(INTEGER006, 10) - INTEGER008), 2) == "..") Then
AnsiPos 3, 19
Print "@X1B "
AnsiPos 3, 19
Print "@X1B UP-DIR "
Else
AnsiPos 3, 19
Print "@X1B "
AnsiPos 3, 19
If (INTEGER006 <= INTEGER002 + INTEGER008) Print "@X1B SUBDIR "
Endif
If (INTEGER006 > INTEGER002 + INTEGER008) Print "@X1B CONFERENCE # " + ReadLine(PPEPath() + STRING002 + "CONF", INTEGER001 * 2 - 1) + " "
Return
:LABEL008
AnsiPos 14, 21
If (INTEGER006 > INTEGER002 + INTEGER008) KbdStuff "JOIN " + ReadLine(PPEPath() + STRING002 + "CONF", INTEGER001 * 2 - 1) + Chr(13)
If (INTEGER006 <= INTEGER002 + INTEGER008) Goto LABEL009
End
:LABEL009
If (Left(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", S2I(INTEGER006, 10) - INTEGER008), 2) <> "..") Then
STRING002 = STRING002 + I2S(S2I(INTEGER006, 10) - INTEGER008, 10) + "\"
STRING004 = S2I(INTEGER006, 10)
Endif
If (Left(ReadLine(PPEPath() + STRING002 + "TDI-GRP.LST", S2I(INTEGER006, 10) - INTEGER008), 2) == "..") STRING002 = Left(STRING002, Len(STRING002) - Len(STRING004) + 1)
Goto LABEL001
:LABEL010
STRING003 = Inkey()
If (STRING003 == "") Goto LABEL010
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 32 Goto
; 36 Let
; 27 Print
; 39 If
; 1 DispFile
; 4 Gosub
; 2 Return
; 1 KbdStuff
; 23 AnsiPos
;
;
; ■ Functions used :
;
; 8 *
; 1 /
; 111 +
; 17 -
; 14 ==
; 4 <>
; 5 <
; 15 <=
; 8 >
; 6 >=
; 15 !
; 10 &&
; 5 ||
; 2 Len(
; 5 Lower()
; 6 Upper()
; 4 Left()
; 5 Chr()
; 1 Inkey()
; 26 PPEPath()
; 23 ReadLine()
; 2 Exist()
; 1 I2S()
; 5 S2I()
; 4 GetX()
; 4 GetY()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 2 While/EndWhile
; 10 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------