home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
BBANK11B.ZIP
/
BBANK.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-02-19
|
27KB
|
926 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
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
String STRING002
String STRING003
String STRING004
String STRING005
String TSTRING006(7)
String STRING007
String STRING008
String STRING009
String TSTRING010(4)
String STRING011
String TSTRING012(2)
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String TSTRING020(25)
String STRING021
String STRING022
String STRING023
String TSTRING024(80)
String STRING025
String STRING026
;------------------------------------------------------------------------------
If (Date() > ToDate("04/01/94")) Goto LABEL049
FOpen 1, PPEPath() + "BMAIN.CFG", 0, 0
If (Ferr(1)) Goto LABEL050
:LABEL001
If (Ferr(1)) Goto LABEL002
FGet 1, STRING005
If (Len(STRING005)) Then
INTEGER005 = INTEGER005 + 1
TSTRING006(INTEGER005) = Trim(STRING005, Chr(32))
Endif
Goto LABEL001
:LABEL002
FClose 1
GetUser
INTEGER006 = U_Sec
INTEGER004 = TSTRING006(1)
STRING004 = TSTRING006(2)
INTEGER001 = TSTRING006(3)
INTEGER003 = TSTRING006(4)
INTEGER002 = TSTRING006(5)
STRING003 = TSTRING006(6)
STRING002 = TSTRING006(7)
If (STRING002 == "Y") Log "GOOD.BYE INITIATED", 0
GetUser
STRING007 = LangExt()
STRING008 = STRING004
If (STRING007 == STRING008) Then
Bye
Endif
:LABEL003
If (Psa(6) == 1) Then
Goto LABEL004
Endif
PrintLn "@CLS@"
Newlines 7
PrintLn " Sorry This Program Will Not Run Because"
PrintLn " The Notes PSA Is NOT Installed "
Delay 70
Goto LABEL050
End
:LABEL004
GetUser
If (Left(U_Notes(INTEGER004), 6) <> "BOYD'S") Then
TSTRING010(1) = "BOYD'S"
TSTRING010(2) = "BANK"
TSTRING010(3) = 0
TSTRING010(4) = "02-01-93"
Else
Tokenize U_Notes(3)
STRING011 = 1
GetToken TSTRING010(STRING011)
While (TSTRING010(STRING011) <> "") Do
STRING011 = STRING011 + 1
GetToken TSTRING010(STRING011)
EndWhile
Endif
:LABEL005
STRING009 = ""
Gosub LABEL039
InputStr "(@X0C@TIMELEFT@ @X0Emin(s) left) (ENTER quits) Your Choice ", STRING009, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
If (STRING009 == "L") Goto LABEL014
If (STRING009 == "B") Goto LABEL022
If (STRING009 == "C") Goto LABEL015
If (STRING009 == "W") Goto LABEL019
If (STRING009 == "G") Goto LABEL006
If (STRING009 == "R") End
Bye
:LABEL006
GetUser
If (INTEGER002 > INTEGER006) Then
If (STRING002 == "Y") Log "GOODBYE PPE - INSUFFICIENT SECURITY TO GAMBLE", 0
Else
If (EvtTimeAdj() == "1") Goto LABEL008
:LABEL007
INTEGER012 = (ToTime(STRING018) - ToTime(Time())) / 60
If (INTEGER012 < 0) Then
INTEGER012 = INTEGER012 * -1
Endif
If (EvtTimeAdj() == "1") Goto LABEL008
If (MinLeft() + 35 > INTEGER012) Goto LABEL008
Gosub LABEL041
INTEGER013 = ""
InputStr " @X0F(@TIMELEFT@ minutes left) (ENTER quits) Your Choice ", INTEGER013, 14, 1, Mask_Num(), 2 + 4 + 128 + 32
If (INTEGER013 == "1") Goto LABEL009
If (INTEGER013 == "2") Goto LABEL010
If (INTEGER013 == "3") Goto LABEL011
If (INTEGER013 == "0") Goto LABEL003
Goto LABEL003
:LABEL008
PrintLn "@CLS@"
Newlines 9
PrintLn " DUE TO THE UPCOMING SYSTEM EVENT.... THE CASINO IS CLOSED! "
Delay 70
Goto LABEL003
:LABEL009
If (MinLeft() < 5) Goto LABEL013
PrintLn "@CLS@"
Newlines 9
PrintLn " Checking Your Ticket...."
Delay 60
INTEGER014 = Random(100)
If (INTEGER014 <= 20) Then
Gosub LABEL042
Delay 60
AdjTime 10
If (STRING002 == "Y") Log "GOODBYE PPE - WON 10 MINUTES IN LOTTO", 0
Goto LABEL007
Else
Gosub LABEL043
Delay 60
AdjTime -5
If (STRING002 == "Y") Log "GOODBYE PPE - LOST 5 MINUTES IN LOTTO", 0
Goto LABEL007
Endif
:LABEL010
If (MinLeft() < 10) Goto LABEL013
INTEGER015 = Random(30)
If (INTEGER015 <= 9) Then
Delay 60
Gosub LABEL044
AdjTime 20
If (STRING002 == "Y") Log "GOODBYE PPE - WON 20 MINUTES IN SHELL GAME", 0
Goto LABEL007
Else
Gosub LABEL045
Delay 60
AdjTime -10
If (STRING002 == "Y") Log "GOODBYE PPE - LOST 10 MINUTES IN SHELL GAME", 0
Goto LABEL007
Endif
:LABEL011
STRING016 = TSTRING010(4)
STRING017 = Date()
If (STRING016 == STRING017) Goto LABEL012
PrintLn "@CLS@"
Newlines 9
PrintLn " You nervously place the gun to your head..........."
Delay 50
PrintLn " A bead of sweat rolls down your cheek as you think......"
Delay 50
PrintLn " SHOULD I HAVE AGREED TO THIS ?"
Delay 50
PrintLn " Squeezing your eyes shut, you fire .........."
Delay 90
INTEGER011 = Random(5)
If (INTEGER011 <= 3) Then
Gosub LABEL046
Delay 70
PrintLn " Adding 30 Minutes to your time !!! "
AdjTime 30
If (STRING002 == "Y") Log "GOODBYE PPE - WON 30 MINUTES IN ROULETTE", 0
TSTRING010(4) = Date()
U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
PutUser
GetUser
Else
TSTRING010(4) = Date()
U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
PutUser
GetUser
Gosub LABEL047
Delay 90
Gosub LABEL048
Delay 90
If (STRING002 == "Y") Log "GOODBYE PPE - DIED IN RUSSIAN ROULETTE", 0
AdjTime -MinLeft() - 1
Bye
Endif
Goto LABEL003
Goto LABEL007
:LABEL012
PrintLn "ALREADY PLAYED TODAY.... I GUESS YOU LIVED"
If (STRING002 == "Y") Log "GOODBYE PPE - TRIED TO PLAY ROULETTE AGAIN", 0
Delay 70
Goto LABEL003
:LABEL013
PrintLn "@CLS@"
PrintLn " YOU DON'T HAVE ENOUGH TIME LEFT FOR THAT OPTION !!!!"
PrintLn "@PAUSE@"
Goto LABEL007
:LABEL014
If (STRING002 == "Y") Log "GOODBYE PPE - USER CHOSE LOG OFF", 0
Bye
:LABEL015
If (STRING002 == "Y") Log "GOODBYE PPE - SYSOP COMMENT INITIATED", 0
If (Exist(PPEPath() + "BSYSOPS.MEN")) DispFile PPEPath() + "BSYSOPS.MEN", 4 + 2 + 1
FOpen 1, PPEPath() + "BSYSOPS.CFG", 0, 0
If (Ferr(1)) Goto LABEL018
:LABEL016
If (Ferr(1)) Goto LABEL017
FGet 1, STRING019
If (Len(STRING019)) Then
INTEGER016 = INTEGER016 + 1
TSTRING020(INTEGER016) = Trim(STRING019, Chr(32))
Endif
Goto LABEL016
:LABEL017
FClose 1
InputStr "Type the Number of Your Choice and Press Enter ! (Just Enter to Quit) :", INTEGER017, 14, 1, Mask_Num(), 2 + 4 + 8 + 128 + 32
If (INTEGER017 > INTEGER016) Goto LABEL003
If (INTEGER017 == "") Goto LABEL003
If (INTEGER017 == 0) Goto LABEL003
KbdStuff "E" + Chr(13) + Upper(TSTRING020(INTEGER017)) + Chr(13) + "SYSOP COMMENT" + Chr(13) + "R" + Chr(13) + "N" + Chr(13)
End
:LABEL018
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn
PrintLn " BSYSOPS.CFG NOT FOUND OR ERROR IN FORMAT !!! NOTIFY SYSOP !!"
PrintLn
PrintLn "@PAUSE@"
Goto LABEL003
:LABEL019
GetUser
If (INTEGER003 > INTEGER006) Then
If (STRING002 == "Y") Log "GOODBYE PPE - INSUFFICIENT SECURITY FOR NOTE", 0
Else
If (STRING002 == "Y") Log "GOODBYE PPE - NEXT CALLER NOTE INITIATED", 0
Gosub LABEL040
STRING021 = ""
InputStr " (ENTER quits) , Your Choice :", STRING021, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
If (STRING021 == "R") Goto LABEL020
If (STRING021 == "W") Goto LABEL021
If (STRING021 == "Q") Goto LABEL003
If (STRING021 == "") Goto LABEL003
Goto LABEL003
:LABEL020
If (STRING002 == "Y") Log "GOODBYE PPE - USER READ NOTE ON WALL", 0
If (STRING003 == "Y") Then
If (Exist(PPEPath() + "BNOTE" + String(PcbNode()))) DispFile PPEPath() + "BNOTE" + String(PcbNode()) , 4 + 2 + 1
Else
If (Exist(PPEPath() + "BNOTE")) DispFile PPEPath() + "BNOTE", 4 + 2 + 1
Endif
PrintLn "@PAUSE@"
Goto LABEL019
:LABEL021
If (STRING002 == "Y") Log "GOODBYE PPE - USER WROTE NOTE ON WALL", 0
If (STRING003 == "Y") Then
STRING025 = "BNOTE" + String(PcbNode())
Else
STRING025 = "BNOTE"
Endif
FCreate 1, PPEPath() + STRING025, 2, 3
PrintLn "You can enter up to 15 lines. Press the ENTER key on a blank line when done !"
STRING022 = "Y"
While (STRING022 == "Y") Do
INTEGER018 = INTEGER018 + 1
STRING023 = ""
InputStr "", STRING023, 14, 75, Mask_Ascii(), 2 + 4 + 128 + 512
TSTRING024(INTEGER018) = STRING023
If (STRING023 == "") Then
STRING022 = "N"
Endif
EndWhile
For INTEGER020 = 1 To INTEGER018
INTEGER019 = INTEGER019 + 1
FPutLn 1, TSTRING024(INTEGER019)
Next
FClose 1
Goto LABEL019
:LABEL022
GetUser
If (INTEGER001 > INTEGER006) Then
If (STRING002 == "Y") Log "GOODBYE PPE - INSUFFICIENT SECURITY FOR BANK", 0
Else
If (STRING002 == "Y") Log "GOODBYE PPE - TIME BANK INITIATED", 0
If (Psa(6) == 1) Then
Goto LABEL023
Endif
SPrintLn
SPrintLn " This part of the program will not run because the "
SPrintLn " NOTES PSA is not installed.@PAUSE@"
Return
:LABEL023
STRING013 = ""
FOpen 1, PPEPath() + "BBANK.CFG", 0, 0
While (!Ferr(1) && (CurSec() <> STRING014)) Do
FGet 1, STRING014
Tokenize STRING014
INTEGER008 = 1
GetToken TSTRING012(INTEGER008)
While (TSTRING012(INTEGER008) <> "") Do
INTEGER008 = INTEGER008 + 1
GetToken TSTRING012(INTEGER008)
EndWhile
EndWhile
FClose 1
If (TSTRING012(1) == CurSec()) Goto LABEL024
PrintLn "PLEASE NOTIFY SYSOP!! YOUR SECURITY LEVEL WAS NOT FOUND"
PrintLn " IN THE BBANK.CFG FILE !!! @PAUSE@ "
Return
:LABEL024
INTEGER009 = TSTRING012(2)
STRING015 = TSTRING010(3)
U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
PutUser
GetUser
:LABEL025
If (STRING015 >= INTEGER009) Then
If (EvtTimeAdj() == "1") Then
Goto LABEL029
ElseIf (STRING015 >= INTEGER009) Then
Goto LABEL030
ElseIf (EvtTimeAdj() == "1") Then
Else
Endif
Goto LABEL031
:LABEL026
STRING013 = ""
Print " Bank Balance : "
Print STRING015
InputStr "(@X0C@TIMELEFT@ @X0Emin(s) left) (ENTER quits) Your Choice?", STRING013, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
If (STRING013 == "D") Goto LABEL028
If (STRING013 == "W") Goto LABEL027
If (STRING013 == "Q") Goto LABEL005
If (STRING013 == "") Goto LABEL005
Goto LABEL025
:LABEL027
INTEGER010 = 0
If (EvtTimeAdj() == "1") Then
Goto LABEL036
Endif
Print "(@X0C@TIMELEFT@ @X0Emin(s) left) Bank Balance:"
Print STRING015
Print " "
InputStr " ENTER THE AMOUNT TO WITHDRAW :", INTEGER010, 14, 3, Mask_Num(), 2 + 4 + 8 + 128 + 32
If (STRING015 == 0) Then
Goto LABEL035
Endif
If (INTEGER010 > STRING015) Then
Goto LABEL034
Endif
If (INTEGER010 + MinLeft() > INTEGER012 - 1) Then
Goto LABEL037
Endif
AdjTime INTEGER010
If (STRING002 == "Y") Log "GOODBYE PPE - BANK - WITHDREW " + String(INTEGER010) , 0
TSTRING010(3) = TSTRING010(3) - INTEGER010
U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
PutUser
Goto LABEL023
:LABEL028
INTEGER007 = 0
Print "(@X0C@TIMELEFT@ @X0Emin(s) left) Bank Balance:"
Print STRING015
InputStr "ENTER THE AMOUNT TO DEPOSIT :", INTEGER007, 14, 3, Mask_Num(), 2 + 4 + 8 + 128 + 32
If (STRING015 >= INTEGER009) Goto LABEL038
If (INTEGER007 + STRING015 > INTEGER009) Goto LABEL032
If (INTEGER007 > MinLeft()) Goto LABEL033
AdjTime -INTEGER007
If (STRING002 == "Y") Log "GOODBYE PPE - BANK - DEPOSITED " + String(INTEGER007) , 0
TSTRING010(3) = TSTRING010(3) + INTEGER007
U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
PutUser
Goto LABEL023
:LABEL029
PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· · ··· ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· ·· ▄▄▄▄▄▄▄▄▄▄▄ ·"
PrintLn " @X0F ▄▄▄▄▄▄▄▄▄ · ·· ·· ··· · ▄▄▄▄▄▄▄▄▄ ·· ··· ·· ▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╔════════════╗@X0F@X0F @X0F █▓█▓█▓█ @X0D╔═════════════╗@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D║ @X0EDeposits@X0F @X0D║@X0F @X0F █▓█▓█▓█ @X0D║ @X0EWithdrawals@X0F @X0D║@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╚════════════╝@X0F @X0F █▓█▓█▓█ @X0D╚═════════════╝@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0C*** CLOSED ***@X0F @X0F █▓█▓█▓█ @X0C*** CLOSED *** @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0B You already have @X0F █▓█▓█▓█ @X0BUntil after the @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0Bthe maximum amount @X0F █▓█▓█▓█ @X0Bthe upcoming @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0Bof time stored in @X0F █▓█▓█▓█ @X0BSystem Event at @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0Bthe bank !!! @X0F █▓█▓█▓█ @X0C @EVENT@ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0B @X0F █▓█▓█▓█ @X0C @X0F █▓█▓█▓█"
PrintLn "@X0F ▄███████▄ @X0F▄███████▄ ▄███████▄"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ @X0F ▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn " @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
Goto LABEL026
:LABEL030
PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· · ··· ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· ·· ▄▄▄▄▄▄▄▄▄▄▄ ·"
PrintLn " @X0F ▄▄▄▄▄▄▄▄▄ · ·· ·· ··· · ▄▄▄▄▄▄▄▄▄ ·· ··· ·· ▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╔════════════╗@X0F@X0F @X0F █▓█▓█▓█ @X0D╔═════════════╗@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D║ @X0EDeposits@X0F @X0D║@X0F @X0F █▓█▓█▓█ @X0D║ @X0EWithdrawals@X0F @X0D║@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╚════════════╝@X0F @X0F █▓█▓█▓█ @X0D╚═════════════╝@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0C*** CLOSED ***@X0F @X0F █▓█▓█▓█ @X0CW@X0E)@X0Bithdraw Time@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0B You already have @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0Bthe maximum amount @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0Bof time stored in @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0Bthe bank !!! @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F ▄███████▄ @X0F▄███████▄ ▄███████▄"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ @X0F ▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
Goto LABEL026
Endif
PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· · ··· ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· ·· ▄▄▄▄▄▄▄▄▄▄▄ ·"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄ · ·· ·· ··· · ▄▄▄▄▄▄▄▄▄ ·· ··· ·· ▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╔════════════╗@X0F@X0F @X0F █▓█▓█▓█ @X0D╔═════════════╗@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D║ @X0EDeposits@X0F @X0D║@X0F @X0F █▓█▓█▓█ @X0D║ @X0EWithdrawals@X0F @X0D║@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╚════════════╝@X0F @X0F █▓█▓█▓█ @X0D╚═════════════╝@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0CD@X0E)@X0Beposit Time@X0F @X0F █▓█▓█▓█ @X0C *** CLOSED *** @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0BUntil after the@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0BSystem Event at@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0C@EVENT@ @X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F ▄███████▄ @X0F▄███████▄ ▄███████▄"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ @X0F ▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
Goto LABEL026
:LABEL031
PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· · ··· ▄▄▄▄▄▄▄▄▄▄▄ ·· ·· ·· ·· ▄▄▄▄▄▄▄▄▄▄▄ ·"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄ · ·· ·· ··· · ▄▄▄▄▄▄▄▄▄ ·· ··· ·· ▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╔════════════╗@X0F@X0F @X0F █▓█▓█▓█ @X0D╔═════════════╗@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D║ @X0EDeposits@X0F @X0D║@X0F @X0F █▓█▓█▓█ @X0D║ @X0EWithdrawals@X0F @X0D║@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0D╚════════════╝@X0F @X0F █▓█▓█▓█ @X0D╚═════════════╝@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0CD@X0E)@X0Beposit Time@X0F @X0F █▓█▓█▓█ @X0CW@X0E)@X0Bithdraw Time@X0F @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F █▓█▓█▓█ @X0F █▓█▓█▓█ @X0F █▓█▓█▓█"
PrintLn "@X0F ▄███████▄ @X0F▄███████▄ ▄███████▄"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ @X0F ▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
Goto LABEL026
:LABEL032
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT DEPOSIT MORE THAN YOUR ACCOUNT ALLOWS @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
Print "@X07 @X1C You can deposit up to : "
Print INTEGER009 - STRING015
PrintLn "@X1C minutes more.@X07 "
PrintLn
PrintLn
If (STRING002 == "Y") Log "GOODBYE PPE - TRIED TO DEPOSIT TOO MUCH", 0
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL033
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT DEPOSIT MORE TIME THAN YOU HAVE LEFT @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL034
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT WITHDRAW MORE TIME THAN YOU HAVE IN THE BANK @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL035
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT WITHDRAW ANY TIME BECAUSE YOU HAVE NONE SAVED @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL036
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT WITHDRAW UNTIL AFTER THE UPCOMING SYSTEM EVENT @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL037
PrintLn "@CLS@"
PrintLn ToTime(STRING018)
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT WITHDRAW MORE THAN ", INTEGER012 - 1 - MinLeft(), " MINUTES DUE@POS:72@@X1C║@X07"
PrintLn "@X07 @X1C║ TO THE UPCOMING SYSTEM EVENT ! @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL038
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ @X1B┌──────────────┐@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B│ @X1ESORRY !!!!!!@X1B │@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1B└──────────────┘@X1C @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C║ YOU CAN NOT DEPOSIT BECAUSE YOUR ACCOUNT IS ALREADY FILLED @X1C║@X07"
PrintLn "@X07 @X1C║ @X1C║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn "@PAUSE@"
Goto LABEL025
:LABEL039
PrintLn "@CLS@"
PrintLn "NEXT EVENT : @EVENT@"
STRING018 = ScrText(14, 2, 5, 0)
INTEGER012 = (ToTime(STRING018) - ToTime(Time())) / 60
If (INTEGER012 < 0) Then
INTEGER012 = INTEGER012 * -1
Endif
PrintLn
PrintLn
PrintLn " @X07 @X09╒════════════════════════════════════════════════════╗@X07"
PrintLn " @X07 @X09│ @X71╔══╦══════════════════════════════════════════╦══╗@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71║ ╚═╗ In Case You @X7EF@X76o@X74r@X72g@X75o@X7Et@X71 Something .... ╔═╝ ║@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71║ ╠══════════════════════════════════════╣ ║@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71║ ╔═╣ @X7F(@X74B@X7F) @X71.... @X74Bank Your Remaining Time ! @X71╠═╗ @X71 ║@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71╠══╝ ║ @X7F(@X76W@X7F) @X71.... @X76Write-Read Note on the Wall @X71║ ╚══╣@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71║ ║ @X7F(@X71C@X7F) @X71.... Comment to Sysop(s) ! ║ @X71 ║@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71║ ║ @X7F(@X72R@X7F) @X71.... @X72Return to the BBS ! @X71║ @X71 ║@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71╠══╗ ║ @X7F(@X75G@X7F) @X71.... @X75Gamble For Time ! @X71║ ╔══╣@X01 @X09║@X07"
PrintLn " @X09 │ @X71║ ╚═╣ @X7F(@X7EL@X7F) @X71.... @X7ELog Off !! See You Later !! @X71╠═╝ ║@X09 @X09║@X07"
PrintLn " @X09│ @X71║ ╠══════════════════════════════════════╣ ║@X07 @X09║@X07"
PrintLn " @X07 @X09│ @X71║ ╔═╝ @X7F @X70Pick A Letter and Press Enter Key ! @X71╚═╗ @X71 ║@X01 @X09║@X07"
PrintLn " @X07 @X09│ @X71╚══╩══════════════════════════════════════════╩══╝@X01 @X09║@X07"
PrintLn " @X07 @X09└────────────────────────────────────────────────────@X09╜@X07"
PrintLn
PrintLn
PrintLn
Return
:LABEL040
PrintLn "@CLS@"
PrintLn
PrintLn
PrintLn
PrintLn "@X07 @X1C╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn "@X07 @X1C║ ║@X07"
PrintLn "@X07 @X1C║ (@X1BW@X1C)@X1Arite a new Note, Comment, Joke, etc on the wall for@X1C ║@X07"
PrintLn "@X07 @X1C║ @X1Aeveryone to See. @X1C ║@X07"
PrintLn "@X07 @X1C║ ║@X07"
PrintLn "@X07 @X1C║ @X1E(@X1FR@X1E)@X1Dead the Writing on the Wall ! <g>@X1C ║@X07"
PrintLn "@X07 @X1C║ ║@X07"
PrintLn "@X07 @X1C╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
PrintLn
PrintLn
Return
:LABEL041
PrintLn "@CLS@"
PrintLn " @X21╔════════════════════════════════════╗@X07"
PrintLn " @X21║ (@X241@X21)@X2F ... LOTTERY Bet 5 for 10@X21 ║@X07"
PrintLn " @X21╚════════════════════════════════════╝@X07"
PrintLn
PrintLn " @X1C╔════════════════════════════════════════════════╗@X07"
PrintLn " @X1C║ ║@X07"
PrintLn " @X1C║ (@X1B2@X1C) @X1E... Shell Game Gamble 10 for 20@X1C ║@X07"
PrintLn " @X1C║ ║@X07"
PrintLn " @X1C╚════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn " @X4F╔══════════════════════════════════════════════════════════════╗@X07"
PrintLn " @X4F║ ║@X07"
PrintLn " @X4F║ (@X4E3@X4F) ... Russian Roulette Risk Everything for 30@X4F !!! ║@X07"
PrintLn " @X4F║ with 2 bullets !! ║@X07"
PrintLn " @X4F║ @X4BCan Only Be Played Once A Day ! If you lose, well.. @X4F ║@X07"
PrintLn " @X4F║ @X4F heh..heh..heh... ║@X07"
PrintLn " @X4F╚══════════════════════════════════════════════════════════════╝@X07"
PrintLn
PrintLn
Return
:LABEL042
PrintLn "@CLS@"
Newlines 9
PrintLn " WINNER !!!!!!!!!"
PrintLn
PrintLn " ADJUSTING YOUR TIME......ADDING 10 MINUTES !!!"
Return
:LABEL043
PrintLn "@CLS@"
Newlines 9
PrintLn " Y O U L O S T !!!!!!!!!!"
PrintLn
PrintLn " ADJUSTING YOUR TIME .......... SUBTRACTED 5 MINUTES !!"
Return
:LABEL044
PrintLn "@CLS@"
Newlines 9
PrintLn " WINNER !!!!!!!!!!!"
PrintLn
PrintLn " ADJUSTING YOUR TIME ..... ADDING 20 MINUTES !!!!!"
Return
:LABEL045
PrintLn "@CLS@"
Newlines 9
PrintLn " Y O U L O S T !!!!!!!!!!!!"
PrintLn
PrintLn " ADJUSTING YOUR TIME ....... SUBTRACTING 10 MINUTES !!!!!"
Return
:LABEL046
PrintLn "@CLS@@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E ▄ @X07"
PrintLn "@X0E ▄█████▄ ██▄ ████ ▄█████▄ ██▄ ██ ███ @X07"
PrintLn "@X0E ▐██▀ ██ ██ ██ ▐██▀ ██ ██ ██ ███ @X07"
PrintLn "@X0E ███ ██ ██ ███ ██ ▄██ ███ @X07"
PrintLn "@X0E ███ ██ ██ ███ ██▄██▀ ███ @X07"
PrintLn "@X0E ███ ██ ██ ███ ██▀▀██ ███ @X07"
PrintLn "@X0E ███ ██ ██ ███ ██ ██▄ ███ @X07"
PrintLn "@X0E ▐██▄ ██ ██ ▄▄ ██ ▐██▄ ██ ██ ▀█▄ ▀ @X07"
PrintLn "@X0E@X0E ▀█████▀ ▄███████▀ ████ ▀█████▀ ▄██ ██ ███ @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07 "
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X07 @X0BTime to change underwear ?? <grin>@X07 @X07"
Return
:LABEL047
PrintLn "@CLS@"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E ▀████████▄ ▄██████▄ ▀██▄ ▄██▀ ███ @X07"
PrintLn "@X0E ██ ██ ▐██▀ ▀██▌ ▐██ ██ ███ @X07"
PrintLn "@X0E ██ ▄██ ███ ██▌ ▐██ ▄██▄ ██ ███ @X07"
PrintLn "@X0E ███████▀ ███ ██▌ ▐██ ▄█▀▀█▄ ██ ███ @X07"
PrintLn "@X0E ██ ███ ██▌ ▐██ ██ ██ ██ ███ @X07"
PrintLn "@X0E ██ ███ ██▌ ▐██ ▄██ ██▄ ██ ███ @X07"
PrintLn "@X0E ██ ▐██▄ ▄██▌ ▐██▄██ ██▄██ ▀ @X07"
PrintLn "@X0E@X0E ▄██▄ ▀██████▀ ▄██▀▀ ▀██ ███"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X0E @X07"
PrintLn "@X07 @X0BDo You Think It Missed ? <grin>@X07 @X07"
Return
:LABEL048
PrintLn "@CLS@"
PrintLn "@X04 ▒▓ ▓ ▒@X07"
PrintLn "@X04 ▓@X07"
PrintLn "@X04 ▓ ▒ ▒▒ ▓▓@X07"
PrintLn "@X04 ▓ ▓ ■ █ ▓@X07"
PrintLn "@X04 ▒ ▓ █ ▒ ▒ ▒@X07"
PrintLn "@X04 ▓ ▓ ▒▒ ▀▄ ██ █ █▒ ▒ ▒ ▒@X07"
PrintLn "@X04 ▒▒ ▀█ ▒▒▒▀██ ▒█ ▓█▌▄▄▄▀▀▀▀ ▒@X07"
PrintLn "@X04 ████ ▀▄▌ ████ ██ █▒▄▀ ▒▓ ▒@X07"
PrintLn "@X04 ▓ ▒▒▒ ████████████████ ▄█ ▓▒ ░▒░▄▄ ▒▒@X07"
PrintLn "@X04 ▒ ▀██████████████████████████████▀▀ ■■■@X07"
PrintLn "@X04 ▒▒ ██████▀ ▀██████▀▀▀░ ▄@X07"
PrintLn "@X04 ▄▄▄▄▄█████████████■ ████████████ ▀@X07"
PrintLn "@X04 ▒▒ ▒ ▌▀▄▀▄▌▄▄▄▄▄███▄ ▄█▓██ ██████████ ▓▒@X07"
PrintLn "@X04 ███████▀█████████████████ ▀▄@X07"
PrintLn "@X04 ▓ ▀ ▄██▒███████████ ▓██▀ ▀▄▌ ▒▒▒@X07"
PrintLn "@X04 ▒ ██ ▄███ ▀█ ██ ▀▄ ■█ ▀▄▌▀@X07"
PrintLn "@X04 ▒ █▀ █ █▌ █ █ █ ▀▄▀█▄▀▄▀@X07"
PrintLn "@X04 ░▒ █ █ █ ▄▌■ ■ ▀▄▌· ▒▒@X07"
PrintLn "@X04 ▒ ▓▒██▒ █ ■░ ▀▄ ▀▄@X07"
PrintLn "@X04 @X07"
Return
Endif
Endif
Endif
PrintLn "@CLS@"
Newlines 9
PrintLn " SORRY , YOU HAVE AN INSUFFICIENT SECURITY LEVEL !"
Newlines 3
PrintLn "@PAUSE@"
Goto LABEL005
:LABEL049
PrintLn "@CLS@"
Newlines 4
PrintLn " This BETA version has EXPIRED !!!!!!"
PrintLn
PrintLn " Check Salt Air BBS or my board for a newer version!!"
PrintLn " My BBS is : PAWLEYS BBS"
PrintLn " (803) 237-4547"
PrintLn " 1.9 GIG HARD DRIVE , CDROM , 14.4 MODEM"
PrintLn " N O R A T I O S !!!!!"
PrintLn
PrintLn "@PAUSE@"
:LABEL050
PrintLn "@CLS@"
Newlines 9
PrintLn " (R)eturn to Board (H)angup"
InputStr " (ENTER returns to bbs) Your Choice ", STRING026, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
Select Case (STRING026)
Case "R"
End
Case "H"
Bye
End Select
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 5 End
; 126 Goto
; 60 Let
; 9 Print
; 357 PrintLn
; 91 If
; 3 DispFile
; 1 FCreate
; 3 FOpen
; 4 FClose
; 3 FGet
; 1 FPutLn
; 9 GetUser
; 5 PutUser
; 8 AdjTime
; 20 Log
; 9 InputStr
; 10 Gosub
; 12 Return
; 15 Delay
; 12 Newlines
; 2 Tokenize
; 4 GetToken
; 1 KbdStuff
; 5 Bye
; 3 SPrintLn
;
;
; ■ Functions used :
;
; 6 -
; 2 *
; 2 /
; 105 +
; 8 -
; 57 ==
; 4 <>
; 5 <
; 4 <=
; 10 >
; 5 >=
; 35 !
; 3 &&
; 1 ||
; 2 Len(
; 1 Upper()
; 1 Left()
; 5 Ferr()
; 7 Chr()
; 2 Trim()
; 3 Random()
; 4 Date()
; 2 Time()
; 5 String()
; 4 Mask_Alpha()
; 4 Mask_Num()
; 1 Mask_Ascii()
; 10 PPEPath()
; 3 PcbNode()
; 2 CurSec()
; 7 MinLeft()
; 3 Exist()
; 1 LangExt()
; 2 Psa()
; 1 ScrText()
; 1 ToDate()
; 5 ToTime()
; 5 EvtTimeAdj()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WA
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 4 While/EndWhile
; 25 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------