home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
F
/
FTA-BBS.ZIP
/
BBS_LIST.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-09-16
|
16KB
|
996 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
;------------------------------------------------------------------------------
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
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
;------------------------------------------------------------------------------
STRING001 = PPEPath() + "BBS_LIST.CFG"
STRING002 = ReadLine(STRING001, 1)
STRING003 = ReadLine(STRING001, 2)
STRING004 = ReadLine(STRING001, 3)
STRING005 = ReadLine(STRING001, 4)
STRING006 = ReadLine(STRING001, 5)
If (Exist(PPEPath() + "BBS_LIST.LST")) Goto LABEL001
FCreate 1, PPEPath() + "BBS_LIST.LST", 2, 0
FPutLn 1, STRING002, "┌───", STRING003, "─────", STRING004, "───────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──┐"
FPutLn 1, STRING002, "│ BBS Information │"
FPutLn 1, STRING002, "└───", STRING003, "─────", STRING004, "───────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──┘"
FClose 1
:LABEL001
:LABEL002
Cls
Print "@POFF@"
AnsiPos 5, 3
PrintLn STRING002, "┌──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───┐"
AnsiPos 5, 4
PrintLn STRING002, "│ Dan", STRING003, "te's ", STRING004, "PRO ", STRING003, "BBS L", STRING002, "ist │"
AnsiPos 5, 5
PrintLn STRING002, "│──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───│"
AnsiPos 5, 6
PrintLn "│ │"
AnsiPos 5, 7
PrintLn STRING002, "│ │"
AnsiPos 5, 8
PrintLn STRING002, "│ View The BBS List │"
AnsiPos 5, 9
PrintLn STRING002, "│ Add A Board to the BBS List │"
AnsiPos 5, 10
PrintLn STRING002, "│ Quit Back to BBS │"
AnsiPos 5, 11
PrintLn STRING002, "│ Logoff The Board │"
AnsiPos 5, 12
PrintLn STRING002, "│ View Program Information │"
AnsiPos 5, 13
PrintLn STRING002, "│ │"
AnsiPos 5, 14
PrintLn STRING002, "│ │"
AnsiPos 5, 15
PrintLn STRING002, "│ │"
AnsiPos 5, 16
PrintLn STRING002, "│ │"
AnsiPos 5, 17
PrintLn STRING002, "└──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───┘"
:LABEL003
AnsiPos 32, 8
Print STRING006, "VIEW THE BBS LIST"
AnsiPos 27, 9
Print STRING002, "Add A Board to the BBS list"
AnsiPos 28, 12
Print STRING002, "View Program Information"
:LABEL004
STRING007 = Inkey()
If (STRING007 == "A") Goto LABEL015
If (STRING007 == "a") Goto LABEL015
If (STRING007 == "UP") Goto LABEL015
If (STRING007 == "Z") Goto LABEL006
If (STRING007 == "z") Goto LABEL006
If (STRING007 == "DOWN") Goto LABEL006
If (STRING007 == Chr(32)) Goto LABEL006
If (STRING007 == Chr(13)) Goto LABEL005
If (STRING007 == Chr(27)) Goto LABEL018
Goto LABEL004
:LABEL005
Cls
Print "@PON@"
DispFile PPEPath() + "BBS_LIST.LST", 1
Wait
Goto LABEL002
:LABEL006
AnsiPos 32, 8
Print STRING002, "View the BBS List"
AnsiPos 27, 9
Print STRING006, "ADD A BOARD TO THE BBS LIST", STRING002
AnsiPos 32, 10
Print STRING002, "Quit Back to BBS"
:LABEL007
STRING007 = Inkey()
If (STRING007 == "A") Goto LABEL003
If (STRING007 == "a") Goto LABEL003
If (STRING007 == "UP") Goto LABEL003
If (STRING007 == "Z") Goto LABEL009
If (STRING007 == "z") Goto LABEL009
If (STRING007 == "DOWN") Goto LABEL009
If (STRING007 == Chr(32)) Goto LABEL009
If (STRING007 == Chr(13)) Goto LABEL008
If (STRING007 == Chr(27)) Goto LABEL018
Goto LABEL007
:LABEL008
Cls
Print "@POFF@"
AnsiPos 5, 1
PrintLn STRING002, "┌──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──┐"
AnsiPos 5, 2
PrintLn "│ Add", STRING003, "ing Yo", STRING004, "ur BBS to the BBS list. Just answer a few ", STRING003, "questi", STRING002, "ons. │"
AnsiPos 5, 3
PrintLn "│──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──│"
AnsiPos 5, 4
PrintLn "│ BB", STRING003, "S In", STRING004, "form", STRING003, "ati", STRING002, "on │"
AnsiPos 5, 5
PrintLn "│──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──│"
AnsiPos 5, 6
PrintLn "│ │"
AnsiPos 5, 7
PrintLn "│ │"
AnsiPos 5, 8
PrintLn "│ │"
AnsiPos 5, 9
PrintLn "│ │"
AnsiPos 5, 10
PrintLn "│ │"
AnsiPos 5, 11
PrintLn "│──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──│"
AnsiPos 5, 12
PrintLn "│ You", STRING003, "r Add", STRING004, "itional C", STRING003, "omme", STRING002, "nts │"
AnsiPos 5, 13
PrintLn "│──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──│"
AnsiPos 5, 14
PrintLn STRING002, "│ │"
AnsiPos 5, 15
PrintLn STRING002, "│ │"
AnsiPos 5, 16
PrintLn STRING002, "│ │"
AnsiPos 5, 17
PrintLn STRING002, "└──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────────", STRING003, "─────", STRING002, "──┘"
AnsiPos 7, 6
Print "B"
Delay 1
Print "B"
Delay 1
Print "S"
Delay 1
Print " "
Delay 1
Print "N"
Delay 1
Print "a"
Delay 1
Print "m"
Delay 1
Print "e"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Delay 1
Print STRING005, "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print STRING004, ")"
AnsiPos 17, 6
InputStr "@X00_", STRING008, "col_1", 22, Mask_Ascii(), ""
AnsiPos 42, 6
Delay 1
Print STRING002, "S"
Delay 1
Print "y"
Delay 1
Print "s"
Delay 1
Print "o"
Delay 1
Print "p"
Delay 1
Print "s"
Delay 1
Print " "
Delay 1
Print "N"
Delay 1
Print "a"
Delay 1
Print "m"
Delay 1
Print "e"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Print STRING005, "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print STRING004, ")"
AnsiPos 55, 6
InputStr "@X00_", STRING009, "col_1", 18, Mask_Ascii(), ""
AnsiPos 7, 7
Delay 1
Print STRING002, "P"
Delay 1
Print "h"
Delay 1
Print "o"
Delay 1
Print "n"
Delay 1
Print "e"
Delay 1
Print " "
Delay 1
Print "#"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Print STRING005, "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print STRING004, "-"
Print STRING005, "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print STRING004, "-"
Print STRING005, "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print STRING004, ")"
AnsiPos 16, 7
InputStr "@X00_", STRING010, "col_1", 12, Mask_Ascii(), ""
AnsiPos 35, 7
Delay 1
Print STRING002, "N"
Delay 1
Print "o"
Delay 1
Print "d"
Delay 1
Print "e"
Delay 1
Print "s"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Print STRING005, "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print STRING004, ")"
AnsiPos 42, 7
InputStr "@X00_", STRING011, "col_1", 3, Mask_Ascii(), ""
AnsiPos 54, 7
Delay 1
Print STRING002, "M"
Delay 1
Print "e"
Delay 1
Print "g"
Delay 1
Print "s"
Delay 1
Print " "
Delay 1
Print "o"
Delay 1
Print "n"
Delay 1
Print "-"
Delay 1
Print "l"
Delay 1
Print "i"
Delay 1
Print "n"
Delay 1
Print "e"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Print STRING005, "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print STRING004, ")"
AnsiPos 68, 7
InputStr "@X00_", STRING012, "col_1", 6, Mask_Ascii(), ""
AnsiPos 7, 8
Delay 1
Print STRING002, "A"
Delay 1
Print "f"
Delay 1
Print "i"
Delay 1
Print "l"
Delay 1
Print "l"
Delay 1
Print "s"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print "·"
Delay 1
Print STRING005, "·"
Print STRING004, ")"
AnsiPos 15, 8
InputStr "@X00_", STRING013, "col_1", 59, Mask_Ascii(), ""
AnsiPos 7, 9
Print STRING002, "N"
Delay 1
Print "U"
Delay 1
Print "P"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Delay 1
Print STRING005, "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print STRING004, ")"
AnsiPos 12, 9
InputStr "@X00_", STRING014, "col_1", 16, Mask_Ascii(), ""
AnsiPos 33, 9
Delay 1
Print STRING002, "S"
Delay 1
Print "t"
Delay 1
Print "a"
Delay 1
Print "t"
Delay 1
Print "e"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Delay 1
Print STRING005, "·"
Delay 1
Print "·"
Delay 1
Print STRING004, ")"
Delay 1
AnsiPos 40, 9
InputStr "@X00_", STRING015, "col_1", 2, Mask_Ascii(), ""
AnsiPos 46, 9
Delay 1
Print STRING002, "C"
Delay 1
Print "i"
Delay 1
Print "t"
Delay 1
Print "y"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Delay 1
Print STRING005, "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print "·"
Print "·"
Delay 1
Print STRING004, ")"
AnsiPos 52, 9
InputStr "@X00_", STRING016, "col_1", 20, Mask_Ascii(), ""
AnsiPos 7, 14
Delay 1
Print STRING002, "C"
Delay 1
Print "o"
Delay 1
Print "m"
Delay 1
Print "m"
Delay 1
Print "e"
Delay 1
Print "n"
Delay 1
Print "t"
Delay 1
Print "s"
Delay 1
Print ":"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING004, ")"
AnsiPos 18, 14
InputStr "@X00_", STRING017, "col_1", 56, Mask_Ascii(), ""
AnsiPos 7, 15
Delay 1
Print STRING002, "C"
Delay 1
Print "o"
Delay 1
Print "m"
Delay 1
Print "m"
Delay 1
Print "e"
Delay 1
Print "n"
Delay 1
Print "t"
Delay 1
Print "s"
Delay 1
Print ":"
Delay 1
Print " "
Delay 1
Print STRING004, "("
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING005, "·"
Delay 1
Print "·"
Print STRING005, "·"
Delay 1
Print STRING005, "·"
Print STRING004, ")"
AnsiPos 18, 15
InputStr "@X00_", STRING018, "col_1", 56, Mask_Ascii(), ""
Newlines 3
InputStr STRING002 + "Do yo" + STRING003 + "u wish to s" + STRING004 + "ave this entry (Y/N)", STRING019, "col_3", 1, "YyNn", ""
If ((STRING019 == "n") || (STRING019 == "N")) Goto LABEL002
FAppend 1, PPEPath() + "BBS_LIST.LST", 2, 0
FPut 1, "Boar", STRING003, "d Name: ", STRING004, +STRING008 + STRING005, " - "
FPutLn 1, STRING002, "Syso", STRING003, "p Name: ", STRING004 + STRING009
FPut 1, STRING002, "Phone N", STRING003, "umber: ", STRING004, +STRING010 + STRING005, " ─ "
FPut 1, STRING002, "Nod", STRING003, "es :", STRING004 + STRING011 + STRING005, " ─ "
FPutLn 1, STRING002, "Megs O", STRING003, "n-Line: " + STRING004 + STRING012
FPut 1, STRING002 + "Ci" + STRING003 + "ty: " + STRING004 + STRING016 + STRING005 + " ─ "
FPut 1, STRING002 + "Sta" + STRING003 + "te: " + STRING004 + STRING015 + STRING005 + " ─ "
FPutLn 1, STRING002 + "N" + STRING003 + "UP: " + STRING004 + STRING014 + STRING005 + " ─ "
FPutLn 1, STRING002 + "Af" + STRING003 + "fils: " + STRING004 + STRING013
FPutLn 1, STRING002 + "Comm" + STRING003 + "ent Line 1: " + STRING004 + STRING017
FPutLn 1, STRING002 + "Comm" + STRING003 + "ent Line 2: " + STRING004 + STRING018
FPutLn 1, STRING002, "───", STRING003, "─────", STRING004, "─────────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───"
FClose 1
Goto LABEL002
:LABEL009
AnsiPos 32, 10
Print STRING006, "QUIT BACK TO BBS"
AnsiPos 27, 9
Print STRING002, "Add A Board to the BBS list"
AnsiPos 32, 11
Print STRING002, "Logoff the Board"
:LABEL010
STRING007 = Inkey()
If (STRING007 == "A") Goto LABEL006
If (STRING007 == "a") Goto LABEL006
If (STRING007 == "UP") Goto LABEL006
If (STRING007 == "Z") Goto LABEL012
If (STRING007 == "z") Goto LABEL012
If (STRING007 == "DOWN") Goto LABEL012
If (STRING007 == Chr(32)) Goto LABEL012
If (STRING007 == Chr(13)) Goto LABEL011
If (STRING007 == Chr(27)) Goto LABEL018
Goto LABEL010
:LABEL011
Cls
AnsiPos 1, 1
PrintLn "Thanx for us", STRING003, "ing this fi", STRING004, "ne PPE by Dante"
PrintLn STRING002, "Look f", STRING003, "or more PPE'", STRING004, "s coming soon!"
End
:LABEL012
AnsiPos 32, 10
Print STRING002, "Quit back to BBS"
AnsiPos 28, 12
Print STRING002, "View Program Information"
AnsiPos 32, 11
Print STRING006, "Logoff the Board"
:LABEL013
STRING007 = Inkey()
If (STRING007 == "A") Goto LABEL009
If (STRING007 == "a") Goto LABEL009
If (STRING007 == "UP") Goto LABEL009
If (STRING007 == "Z") Goto LABEL015
If (STRING007 == "z") Goto LABEL015
If (STRING007 == "DOWN") Goto LABEL015
If (STRING007 == Chr(32)) Goto LABEL015
If (STRING007 == Chr(13)) Goto LABEL014
If (STRING007 == Chr(27)) Goto LABEL018
Goto LABEL013
:LABEL014
Cls
AnsiPos 1, 1
PrintLn STRING002, "Thanx fo", STRING003, "r calling", STRING004, " the board. Call back soon"
PrintLn STRING002, "Logging o", STRING003, "ff through Dante", STRING004, "'s PRO BBS Lister"
Log "Logged off through Dante's PRO BBS Lister", 1
Bye
:LABEL015
AnsiPos 32, 8
Print STRING002, "View the BBS List"
AnsiPos 28, 12
Print STRING006, "VIEW PROGRAM INFORMATION"
AnsiPos 32, 11
Print STRING002, "Logoff the Board"
:LABEL016
STRING007 = Inkey()
If (STRING007 == "A") Goto LABEL012
If (STRING007 == "a") Goto LABEL012
If (STRING007 == "UP") Goto LABEL012
If (STRING007 == "Z") Goto LABEL003
If (STRING007 == "z") Goto LABEL003
If (STRING007 == "DOWN") Goto LABEL003
If (STRING007 == Chr(32)) Goto LABEL003
If (STRING007 == Chr(13)) Goto LABEL017
If (STRING007 == Chr(27)) Goto LABEL018
Goto LABEL016
:LABEL017
Cls
PrintLn STRING002, " ┌──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───┐ "
PrintLn " │ Dant", STRING003, "e's PRO ", STRING004, "BBS Lister Program In", STRING003, "format", STRING002, "ion │ "
PrintLn " │──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───│ "
PrintLn " │ This PPE was compiled in PPL 3.0 by CDC │ "
PrintLn " │ The PPE is FREEWARE no money should be charged │ "
PrintLn " │ for it's use. I wrote this PPE Because I │ "
PrintLn " │ am attached to lightbar's and couldn't find │ "
PrintLn STRING002, " │ a good Light Bar BBS Lister. │ "
PrintLn STRING002, " │ │ "
PrintLn STRING002, " │ @X0DD@X05a@X08nte [iTA|Fta] │ "
PrintLn STRING002, " │ │ "
PrintLn STRING002, " │ │ "
PrintLn " │ │ "
PrintLn STRING002, " │ │ "
PrintLn " └──", STRING003, "─────", STRING004, "────────────────────────────────────────────────────", STRING003, "──────", STRING002, "───┘ "
Wait
Goto LABEL002
:LABEL018
Cls
AnsiPos 1, 1
PrintLn "Thanx for us", STRING003, "ing this fi", STRING004, "ne PPE by Dante"
PrintLn STRING002, "Look f", STRING003, "or more PPE'", STRING004, "s coming soon!"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 7 Cls
; 2 Wait
; 56 Goto
; 11 Let
; 400 Print
; 53 PrintLn
; 47 If
; 1 DispFile
; 1 FCreate
; 1 FAppend
; 2 FClose
; 5 FPut
; 10 FPutLn
; 1 Log
; 12 InputStr
; 242 Delay
; 1 Newlines
; 1 Bye
; 72 AnsiPos
;
;
; ■ Functions used :
;
; 2 +
; 53 +
; 47 ==
; 1 ||
; 15 Chr()
; 5 Inkey()
; 11 Mask_Ascii()
; 5 PPEPath()
; 5 ReadLine()
; 1 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------
(.txt)
(.txt)