home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
POB_SC2.ZIP
/
POBNLS01.ZIP
/
POBNLS.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-01-06
|
4KB
|
261 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
;------------------------------------------------------------------------------
Real REAL001
Real REAL002
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
BigStr BIGSTR001
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) PROCEDURE001 = "DUMMY"
EndProc
:LABEL001
STRING010 = PPEPath() + PPEName() + ".CFG"
STRING011 = ReadLine(STRING010, 1)
STRING012 = ReadLine(STRING010, 1) + "SYSOP.NDX"
STRING013 = ReadLine(STRING010, 1) + "BBS.NDX"
DOpen 1, STRING011 + "NODELIST.DBF", 0
If (Exist(STRING012)) Goto LABEL002
Cls
Newline
Newline
PrintLn "@X0FPlease wait .... creating SYSOP.NDX file!"
PrintLn " @X8FWAIT!"
PrintLn "@X0F"
DnCreate 1, String(STRING011) + "SYSOP.NDX", "Sysop_name"
:LABEL002
If (Exist(STRING013)) Goto LABEL003
Cls
Newline
Newline
PrintLn "Please wait .... creating BBS.NDX file!"
PrintLn " @X8FWAIT!"
PrintLn "@X0F"
DnCreate 1, String(STRING011) + "BBS.NDX", "Bbs_name"
:LABEL003
Cls
DispFile PPEPath() + "INPUT", 1 + 2 + 4
AnsiPos 66, 13
InputStr "", REAL001, 10, 2, Mask_Num(), 4
If (REAL001 == 1) Goto LABEL004
If (REAL001 == 2) Goto LABEL005
Goto LABEL011
:LABEL004
AnsiPos 39, 17
InputStr "@X0F", BIGSTR001, 14, 40, Mask_Ascii(), 4
DnOpen 1, STRING011 + "SYSOP.NDX"
Goto LABEL006
:LABEL005
AnsiPos 39, 19
InputStr "@X0F", BIGSTR001, 14, 40, Mask_Ascii(), 4
DnOpen 1, STRING011 + "BBS.NDX"
:LABEL006
DTop 1
STRING008 = 1
DSeek 1, BIGSTR001
Cls
DispFile PPEPath() + PPEName(), 2 + 1 + 4
AnsiPos 45, 1
Print "@X08POBNLS [PPE3] v.0.01ß POB(@X0Ac@X08)1995"
:LABEL007
Print ReadLine(STRING010, 2)
AnsiPos 63, 3
Print DRecCount(1)
AnsiPos 30, 3
Print " "
AnsiPos 30, 3
Print DRecNo(1)
DGet 1, "Zone", STRING001
DGet 1, "NET", STRING002
DGet 1, "Node", STRING003
DGet 1, "Location", STRING006
DGet 1, "Bbs_phone", STRING009
DGet 1, "Bbs_name", STRING004
DGet 1, "Sysop_name", STRING005
DGet 1, "Maxbaud", STRING014
AnsiPos 35, 7
Print STRING001 + ":" + STRING002 + "/" + STRING003
AnsiPos 35, 9
Print STRING004
AnsiPos 35, 11
Print STRING005
AnsiPos 35, 13
Print STRING006
AnsiPos 35, 15
Print STRING009
AnsiPos 65, 15
Print STRING014
AnsiPos 1, 22
While (STRING007 <> Chr(27)) Do
STRING007 = Inkey()
Select Case (STRING007)
Case "HOME"
Goto LABEL008
Case "END"
Goto LABEL009
End Select
If (STRING007 == "$") Then
REAL002 = 10000
Goto LABEL010
Continue
Endif
If (STRING007 == "%") Then
REAL002 = -10000
Goto LABEL010
Continue
Endif
If (STRING007 == "*") Then
REAL002 = 1000
Goto LABEL010
Continue
Endif
If (STRING007 == "/") Then
REAL002 = -1000
Goto LABEL010
Continue
Endif
If (STRING007 == "+") Then
REAL002 = 100
Goto LABEL010
Continue
Endif
If (STRING007 == "-") Then
REAL002 = -100
Goto LABEL010
Continue
Endif
If (STRING007 == "RIGHT") Then
REAL002 = 10
Goto LABEL010
Continue
Endif
If (STRING007 == "LEFT") Then
REAL002 = -10
Goto LABEL010
Continue
Endif
If (STRING007 == "DOWN") Then
REAL002 = 1
Goto LABEL010
Continue
Endif
If (STRING007 == "UP") Then
REAL002 = -1
Goto LABEL010
Endif
EndWhile
Goto LABEL011
:LABEL008
STRING008 = 1
DGo 1, STRING008
Goto LABEL007
:LABEL009
DGo 1, DRecCount(1)
Goto LABEL007
:LABEL010
STRING008 = DRecNo(1) + REAL002
If (STRING008 < 0) Goto LABEL008
If (STRING008 > DRecCount(1)) Goto LABEL009
DGo 1, STRING008
Goto LABEL007
:LABEL011
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 4 Cls
; 49 Goto
; 19 Let
; 11 Print
; 6 PrintLn
; 20 If
; 2 DispFile
; 3 InputStr
; 4 Newline
; 14 AnsiPos
; 1 EndProc
; 1 DOpen
; 2 DnCreate
; 2 DnOpen
; 1 DTop
; 3 DGo
; 1 DSeek
; 8 DGet
;
;
; ■ Functions used :
;
; 5 -
; 20 +
; 15 ==
; 1 <>
; 1 <
; 1 >
; 13 !
; 1 Chr()
; 1 Inkey()
; 2 String()
; 1 Mask_Num()
; 2 Mask_Ascii()
; 3 PPEPath()
; 4 ReadLine()
; 2 Exist()
; 2 PPEName()
; 3 DRecCount()
; 2 DRecNo()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 1 While/EndWhile
; 10 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------