home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / BBANK11B.ZIP / BBANK605.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-19  |  27KB  |  927 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     String   STRING002
  40.     String   STRING003
  41.     String   STRING004
  42.     String   STRING005
  43.     String   TSTRING006(7)
  44.     String   STRING007
  45.     String   STRING008
  46.     String   STRING009
  47.     String   TSTRING010(4)
  48.     String   STRING011
  49.     String   TSTRING012(2)
  50.     String   STRING013
  51.     String   STRING014
  52.     String   STRING015
  53.     String   STRING016
  54.     String   STRING017
  55.     String   STRING018
  56.     String   STRING019
  57.     String   TSTRING020(25)
  58.     String   STRING021
  59.     String   STRING022
  60.     String   STRING023
  61.     String   TSTRING024(80)
  62.     String   STRING025
  63.     String   STRING026
  64.  
  65. ;------------------------------------------------------------------------------
  66.  
  67.     If (Date() > ToDate("04/01/94")) Goto LABEL049
  68.     FOpen 1, PPEPath() + "BMAIN.CFG", 0, 0
  69.     :LABEL001
  70.     If (Ferr(1)) Goto LABEL002
  71.     FGet 1, STRING005
  72.     If (Len(STRING005)) Then
  73.         INTEGER005 = INTEGER005 + 1
  74.         TSTRING006(INTEGER005) = Trim(STRING005, Chr(32))
  75.     Endif
  76.     Goto LABEL001
  77.     :LABEL002
  78.     FClose 1
  79.     GetUser
  80.     INTEGER006 = U_Sec
  81.     INTEGER004 = TSTRING006(1)
  82.     STRING004 = TSTRING006(2)
  83.     INTEGER001 = TSTRING006(3)
  84.     INTEGER003 = TSTRING006(4)
  85.     INTEGER002 = TSTRING006(5)
  86.     STRING003 = TSTRING006(6)
  87.     STRING002 = TSTRING006(7)
  88.     If (STRING002 == "Y") Log "GOOD.BYE INITIATED", 0
  89.     GetUser
  90.     STRING007 = LangExt()
  91.     STRING008 = STRING004
  92.     If (STRING007 == STRING008) Then
  93.         Bye
  94.     Endif
  95.     :LABEL003
  96.     If (Psa(6) == 1) Then
  97.         Goto LABEL004
  98.     Endif
  99.     PrintLn "@CLS@"
  100.     Newlines 7
  101.     PrintLn "                  Sorry This Program Will Not Run Because"
  102.     PrintLn "                      The Notes PSA Is NOT Installed     "
  103.     Delay 70
  104.     Goto LABEL050
  105.     :LABEL004
  106.     GetUser
  107.     If (Left(U_Notes(INTEGER004), 6) <> "BOYD'S") Then
  108.         TSTRING010(1) = "BOYD'S"
  109.         TSTRING010(2) = "BANK"
  110.         TSTRING010(3) = 0
  111.         TSTRING010(4) = "02-01-93"
  112.     Else
  113.         Tokenize U_Notes(3)
  114.         STRING011 = 1
  115.         GetToken TSTRING010(STRING011)
  116.         While (TSTRING010(STRING011) <> "") Do
  117.             STRING011 = STRING011 + 1
  118.             GetToken TSTRING010(STRING011)
  119.         EndWhile
  120.     Endif
  121.     :LABEL005
  122.     STRING009 = ""
  123.     Gosub LABEL039
  124.     InputStr "(@X0C@TIMELEFT@ @X0Emin(s) left) (ENTER quits) Your Choice ", STRING009, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
  125.     If (STRING009 == "L") Goto LABEL014
  126.     If (STRING009 == "B") Goto LABEL022
  127.     If (STRING009 == "C") Goto LABEL015
  128.     If (STRING009 == "W") Goto LABEL019
  129.     If (STRING009 == "G") Goto LABEL006
  130.     If (STRING009 == "R") Goto LABEL000
  131.     PrintLn "@CLS@"
  132.     KbdStuff "N" + Chr(13) + "MENU" + Chr(13)
  133.     End
  134.     :LABEL006
  135.     GetUser
  136.     If (INTEGER002 > INTEGER006) Then
  137.         If (STRING002 == "Y") Log "GOODBYE PPE - INSUFFICIENT SECURITY TO GAMBLE", 0
  138.     Else
  139.         If (EvtTimeAdj() == "1") Goto LABEL008
  140.         :LABEL007
  141.         INTEGER012 = (ToTime(STRING018) - ToTime(Time())) / 60
  142.         If (INTEGER012 < 0) Then
  143.             INTEGER012 = INTEGER012 * -1
  144.         Endif
  145.         If (EvtTimeAdj() == "1") Goto LABEL008
  146.         If (MinLeft() + 35 > INTEGER012) Goto LABEL008
  147.         Gosub LABEL041
  148.         INTEGER013 = ""
  149.         InputStr "    @X0F(@TIMELEFT@ minutes left) (ENTER quits) Your Choice ", INTEGER013, 14, 1, Mask_Num(), 2 + 4 + 128 + 32
  150.         If (INTEGER013 == "1") Goto LABEL009
  151.         If (INTEGER013 == "2") Goto LABEL010
  152.         If (INTEGER013 == "3") Goto LABEL011
  153.         If (INTEGER013 == "0") Goto LABEL003
  154.         Goto LABEL003
  155.         :LABEL008
  156.         PrintLn "@CLS@"
  157.         Newlines 9
  158.         PrintLn "        DUE TO THE UPCOMING SYSTEM EVENT.... THE CASINO IS CLOSED! "
  159.         Delay 70
  160.         Goto LABEL003
  161.         :LABEL009
  162.         If (MinLeft() < 5) Goto LABEL013
  163.         PrintLn "@CLS@"
  164.         Newlines 9
  165.         PrintLn "                               Checking Your Ticket...."
  166.         Delay 60
  167.         INTEGER014 = Random(100)
  168.         If (INTEGER014 <= 20) Then
  169.             Gosub LABEL042
  170.             Delay 60
  171.             AdjTime 10
  172.             If (STRING002 == "Y") Log "GOODBYE PPE - WON 10 MINUTES IN LOTTO", 0
  173.             Goto LABEL007
  174.         Else
  175.             Gosub LABEL043
  176.             Delay 60
  177.             AdjTime -5
  178.             If (STRING002 == "Y") Log "GOODBYE PPE - LOST 5 MINUTES IN LOTTO", 0
  179.             Goto LABEL007
  180.         Endif
  181.         :LABEL010
  182.         If (MinLeft() < 10) Goto LABEL013
  183.         INTEGER015 = Random(30)
  184.         If (INTEGER015 <= 9) Then
  185.             Delay 60
  186.             Gosub LABEL044
  187.             AdjTime 20
  188.             If (STRING002 == "Y") Log "GOODBYE PPE - WON 20 MINUTES IN SHELL GAME", 0
  189.             Goto LABEL007
  190.         Else
  191.             Gosub LABEL045
  192.             Delay 60
  193.             AdjTime -10
  194.             If (STRING002 == "Y") Log "GOODBYE PPE - LOST 10 MINUTES IN SHELL GAME", 0
  195.             Goto LABEL007
  196.         Endif
  197.         :LABEL011
  198.         STRING016 = TSTRING010(4)
  199.         STRING017 = Date()
  200.         If (STRING016 == STRING017) Goto LABEL012
  201.         PrintLn "@CLS@"
  202.         Newlines 9
  203.         PrintLn "   You nervously place the gun to your head..........."
  204.         Delay 50
  205.         PrintLn "   A bead of sweat rolls down your cheek as you think......"
  206.         Delay 50
  207.         PrintLn "           SHOULD I HAVE AGREED TO THIS ?"
  208.         Delay 50
  209.         PrintLn "      Squeezing your eyes shut, you fire .........."
  210.         Delay 90
  211.         INTEGER011 = Random(5)
  212.         If (INTEGER011 <= 3) Then
  213.             Gosub LABEL046
  214.             Delay 70
  215.             PrintLn "             Adding 30 Minutes to your time !!! "
  216.             AdjTime 30
  217.             If (STRING002 == "Y") Log "GOODBYE PPE - WON 30 MINUTES IN ROULETTE", 0
  218.             TSTRING010(4) = Date()
  219.             U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
  220.             PutUser
  221.             GetUser
  222.         Else
  223.             TSTRING010(4) = Date()
  224.             U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
  225.             PutUser
  226.             GetUser
  227.             Gosub LABEL047
  228.             Delay 90
  229.             Gosub LABEL048
  230.             Delay 90
  231.             If (STRING002 == "Y") Log "GOODBYE PPE - DIED IN RUSSIAN ROULETTE", 0
  232.             AdjTime -MinLeft() - 1
  233.             Bye
  234.         Endif
  235.         Goto LABEL003
  236.         Goto LABEL007
  237.         :LABEL012
  238.         PrintLn "ALREADY PLAYED TODAY.... I GUESS YOU LIVED"
  239.         If (STRING002 == "Y") Log "GOODBYE PPE - TRIED TO PLAY ROULETTE AGAIN", 0
  240.         Delay 70
  241.         Goto LABEL003
  242.         :LABEL013
  243.         PrintLn "@CLS@"
  244.         PrintLn "       YOU DON'T HAVE ENOUGH TIME LEFT FOR THAT OPTION !!!!"
  245.         PrintLn "@PAUSE@"
  246.         Goto LABEL007
  247.         :LABEL014
  248.         If (STRING002 == "Y") Log "GOODBYE PPE - USER CHOSE LOG OFF", 0
  249.         Bye
  250.         :LABEL015
  251.         If (STRING002 == "Y") Log "GOODBYE PPE - SYSOP COMMENT INITIATED", 0
  252.         If (Exist(PPEPath() + "BSYSOPS.MEN")) DispFile PPEPath() + "BSYSOPS.MEN", 4 + 2 + 1
  253.         FOpen 1, PPEPath() + "BSYSOPS.CFG", 0, 0
  254.         If (Ferr(1)) Goto LABEL018
  255.         :LABEL016
  256.         If (Ferr(1)) Goto LABEL017
  257.         FGet 1, STRING019
  258.         If (Len(STRING019)) Then
  259.             INTEGER016 = INTEGER016 + 1
  260.             TSTRING020(INTEGER016) = Trim(STRING019, Chr(32))
  261.         Endif
  262.         Goto LABEL016
  263.         :LABEL017
  264.         FClose 1
  265.         InputStr "Type the Number of Your Choice and Press Enter ! (Just Enter to Quit) :", INTEGER017, 14, 1, Mask_Num(), 2 + 4 + 8 + 128 + 32
  266.         If (INTEGER017 > INTEGER016) Goto LABEL003
  267.         If (INTEGER017 == "") Goto LABEL003
  268.         If (INTEGER017 == 0) Goto LABEL003
  269.         KbdStuff "N" + Chr(13) + Chr(13) + "E" + Chr(13) + Upper(TSTRING020(INTEGER017)) + Chr(13) + "SYSOP COMMENT" + Chr(13) + "R" + Chr(13) + "N" + Chr(13)
  270.         End
  271.         :LABEL018
  272.         PrintLn "@CLS@"
  273.         PrintLn 
  274.         PrintLn 
  275.         PrintLn 
  276.         PrintLn "       BSYSOPS.CFG NOT FOUND OR ERROR IN FORMAT !!! NOTIFY SYSOP !!"
  277.         PrintLn 
  278.         PrintLn "@PAUSE@"
  279.         Goto LABEL003
  280.         :LABEL019
  281.         GetUser
  282.         If (INTEGER003 > INTEGER006) Then
  283.             If (STRING002 == "Y") Log "GOODBYE PPE - INSUFFICIENT SECURITY FOR NOTE", 0
  284.         Else
  285.             If (STRING002 == "Y") Log "GOODBYE PPE - NEXT CALLER NOTE INITIATED", 0
  286.             Gosub LABEL040
  287.             STRING021 = ""
  288.             InputStr "      (ENTER quits) ,  Your Choice :", STRING021, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
  289.             If (STRING021 == "R") Goto LABEL020
  290.             If (STRING021 == "W") Goto LABEL021
  291.             If (STRING021 == "Q") Goto LABEL003
  292.             If (STRING021 == "") Goto LABEL003
  293.             Goto LABEL003
  294.             :LABEL020
  295.             If (STRING002 == "Y") Log "GOODBYE PPE - USER READ NOTE ON WALL", 0
  296.             If (STRING003 == "Y") Then
  297.                 If (Exist(PPEPath() + "BNOTE" + String(PcbNode()))) DispFile PPEPath() + "BNOTE" + String(PcbNode()) , 4 + 2 + 1
  298.             Else
  299.                 If (Exist(PPEPath() + "BNOTE")) DispFile PPEPath() + "BNOTE", 4 + 2 + 1
  300.             Endif
  301.             PrintLn "@PAUSE@"
  302.             Goto LABEL019
  303.             :LABEL021
  304.             If (STRING002 == "Y") Log "GOODBYE PPE - USER WROTE NOTE ON WALL", 0
  305.             If (STRING003 == "Y") Then
  306.                 STRING025 = "BNOTE" + String(PcbNode())
  307.             Else
  308.                 STRING025 = "BNOTE"
  309.             Endif
  310.             FCreate 1, PPEPath() + STRING025, 2, 3
  311.             PrintLn "You can enter up to 15 lines. Press the ENTER key on a blank line when done !"
  312.             STRING022 = "Y"
  313.             While (STRING022 == "Y") Do
  314.                 INTEGER018 = INTEGER018 + 1
  315.                 STRING023 = ""
  316.                 InputStr "", STRING023, 14, 75, Mask_Ascii(), 2 + 4 + 128 + 512
  317.                 TSTRING024(INTEGER018) = STRING023
  318.                 If (STRING023 == "") Then
  319.                     STRING022 = "N"
  320.                 Endif
  321.             EndWhile
  322.             For INTEGER020 = 1 To INTEGER018
  323.                 INTEGER019 = INTEGER019 + 1
  324.                 FPutLn 1, TSTRING024(INTEGER019)
  325.             Next
  326.             FClose 1
  327.             Goto LABEL019
  328.             :LABEL022
  329.             GetUser
  330.             If (INTEGER001 > INTEGER006) Then
  331.                 If (STRING002 == "Y") Log "GOODBYE PPE - INSUFFICIENT SECURITY FOR BANK", 0
  332.             Else
  333.                 If (STRING002 == "Y") Log "GOODBYE PPE - TIME BANK INITIATED", 0
  334.                 If (Psa(6) == 1) Then
  335.                     Goto LABEL023
  336.                 Endif
  337.                 SPrintLn 
  338.                 SPrintLn "      This part of the program will not run because the "
  339.                 SPrintLn "      NOTES PSA is not installed.@PAUSE@"
  340.                 Return
  341.                 :LABEL023
  342.                 STRING013 = ""
  343.                 FOpen 1, PPEPath() + "BBANK.CFG", 0, 0
  344.                 While (!Ferr(1) && (CurSec() <> STRING014)) Do
  345.                     FGet 1, STRING014
  346.                     Tokenize STRING014
  347.                     INTEGER008 = 1
  348.                     GetToken TSTRING012(INTEGER008)
  349.                     While (TSTRING012(INTEGER008) <> "") Do
  350.                         INTEGER008 = INTEGER008 + 1
  351.                         GetToken TSTRING012(INTEGER008)
  352.                     EndWhile
  353.                 EndWhile
  354.                 FClose 1
  355.                 If (TSTRING012(1) == CurSec()) Goto LABEL024
  356.                 PrintLn "PLEASE NOTIFY SYSOP!! YOUR SECURITY LEVEL WAS NOT FOUND"
  357.                 PrintLn "         IN THE BBANK.CFG FILE !!!      @PAUSE@        "
  358.                 Return
  359.                 :LABEL024
  360.                 INTEGER009 = TSTRING012(2)
  361.                 STRING015 = TSTRING010(3)
  362.                 U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
  363.                 PutUser
  364.                 GetUser
  365.                 :LABEL025
  366.                 If (STRING015 >= INTEGER009) Then
  367.                     If (EvtTimeAdj() == "1") Then
  368.                         Goto LABEL029
  369.                     ElseIf (STRING015 >= INTEGER009) Then
  370.                         Goto LABEL030
  371.                     ElseIf (EvtTimeAdj() == "1") Then
  372.                     Else
  373.                     Endif
  374.                     Goto LABEL031
  375.                     :LABEL026
  376.                     STRING013 = ""
  377.                     Print "                      Bank Balance : "
  378.                     Print STRING015
  379.                     InputStr "(@X0C@TIMELEFT@ @X0Emin(s) left) (ENTER quits) Your Choice?", STRING013, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
  380.                     If (STRING013 == "D") Goto LABEL028
  381.                     If (STRING013 == "W") Goto LABEL027
  382.                     If (STRING013 == "Q") Goto LABEL005
  383.                     If (STRING013 == "") Goto LABEL005
  384.                     Goto LABEL025
  385.                     :LABEL027
  386.                     INTEGER010 = 0
  387.                     If (EvtTimeAdj() == "1") Then
  388.                         Goto LABEL036
  389.                     Endif
  390.                     Print "(@X0C@TIMELEFT@ @X0Emin(s) left)         Bank Balance:"
  391.                     Print STRING015
  392.                     Print " "
  393.                     InputStr "       ENTER THE AMOUNT TO WITHDRAW :", INTEGER010, 14, 3, Mask_Num(), 2 + 4 + 8 + 128 + 32
  394.                     If (STRING015 == 0) Then
  395.                         Goto LABEL035
  396.                     Endif
  397.                     If (INTEGER010 > STRING015) Then
  398.                         Goto LABEL034
  399.                     Endif
  400.                     If (INTEGER010 + MinLeft() > INTEGER012 - 1) Then
  401.                         Goto LABEL037
  402.                     Endif
  403.                     AdjTime INTEGER010
  404.                     If (STRING002 == "Y") Log "GOODBYE PPE - BANK - WITHDREW " + String(INTEGER010) , 0
  405.                     TSTRING010(3) = TSTRING010(3) - INTEGER010
  406.                     U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
  407.                     PutUser
  408.                     Goto LABEL023
  409.                     :LABEL028
  410.                     INTEGER007 = 0
  411.                     Print "(@X0C@TIMELEFT@ @X0Emin(s) left)          Bank Balance:"
  412.                     Print STRING015
  413.                     InputStr "ENTER THE AMOUNT TO DEPOSIT :", INTEGER007, 14, 3, Mask_Num(), 2 + 4 + 8 + 128 + 32
  414.                     If (STRING015 >= INTEGER009) Goto LABEL038
  415.                     If (INTEGER007 + STRING015 > INTEGER009) Goto LABEL032
  416.                     If (INTEGER007 > MinLeft()) Goto LABEL033
  417.                     AdjTime -INTEGER007
  418.                     If (STRING002 == "Y") Log "GOODBYE PPE - BANK - DEPOSITED " + String(INTEGER007) , 0
  419.                     TSTRING010(3) = TSTRING010(3) + INTEGER007
  420.                     U_Notes(3) = TSTRING010(1) + " " + TSTRING010(2) + " " + TSTRING010(3) + " " + TSTRING010(4)
  421.                     PutUser
  422.                     Goto LABEL023
  423.                     :LABEL029
  424.                     PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae  @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
  425.                     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ·· ·  ··· ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ··  ··  ▄▄▄▄▄▄▄▄▄▄▄ ·"
  426.                     PrintLn " @X0F ▄▄▄▄▄▄▄▄▄  · ··    ··    ···  · ▄▄▄▄▄▄▄▄▄  ··    ···   ··     ▄▄▄▄▄▄▄▄▄"
  427.                     PrintLn "@X0F   █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
  428.                     PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  429.                     PrintLn "@X0F   █▓█▓█▓█     @X0D╔════════════╗@X0F@X0F     @X0F █▓█▓█▓█    @X0D╔═════════════╗@X0F   @X0F █▓█▓█▓█"
  430.                     PrintLn "@X0F   █▓█▓█▓█     @X0D║  @X0EDeposits@X0F  @X0D║@X0F     @X0F █▓█▓█▓█    @X0D║ @X0EWithdrawals@X0F @X0D║@X0F   @X0F █▓█▓█▓█"
  431.                     PrintLn "@X0F   █▓█▓█▓█     @X0D╚════════════╝@X0F     @X0F █▓█▓█▓█    @X0D╚═════════════╝@X0F   @X0F █▓█▓█▓█"
  432.                     PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  433.                     PrintLn "@X0F   █▓█▓█▓█     @X0C*** CLOSED ***@X0F     @X0F █▓█▓█▓█    @X0C*** CLOSED ***    @X0F █▓█▓█▓█"
  434.                     PrintLn "@X0F   █▓█▓█▓█    @X0B You already have   @X0F █▓█▓█▓█    @X0BUntil after the   @X0F █▓█▓█▓█"
  435.                     PrintLn "@X0F   █▓█▓█▓█    @X0Bthe maximum amount  @X0F █▓█▓█▓█    @X0Bthe upcoming      @X0F █▓█▓█▓█"
  436.                     PrintLn "@X0F   █▓█▓█▓█    @X0Bof time stored in   @X0F █▓█▓█▓█    @X0BSystem Event at   @X0F █▓█▓█▓█"
  437.                     PrintLn "@X0F   █▓█▓█▓█    @X0Bthe bank !!!        @X0F █▓█▓█▓█       @X0C @EVENT@         @X0F █▓█▓█▓█"
  438.                     PrintLn "@X0F   █▓█▓█▓█    @X0B                @X0F     █▓█▓█▓█       @X0C              @X0F  █▓█▓█▓█"
  439.                     PrintLn "@X0F  ▄███████▄                       @X0F▄███████▄                     ▄███████▄"
  440.                     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄                   @X0F  ▄▄▄▄▄▄▄▄▄▄▄                   ▄▄▄▄▄▄▄▄▄▄▄"
  441.                     PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  442.                     PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
  443.                     PrintLn "            @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  444.                     Goto LABEL026
  445.                     :LABEL030
  446.                     PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae  @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
  447.                     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ·· ·  ··· ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ··  ··  ▄▄▄▄▄▄▄▄▄▄▄ ·"
  448.                     PrintLn " @X0F ▄▄▄▄▄▄▄▄▄  · ··    ··    ···  · ▄▄▄▄▄▄▄▄▄  ··    ···   ··     ▄▄▄▄▄▄▄▄▄"
  449.                     PrintLn "@X0F   █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
  450.                     PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  451.                     PrintLn "@X0F   █▓█▓█▓█     @X0D╔════════════╗@X0F@X0F     @X0F █▓█▓█▓█    @X0D╔═════════════╗@X0F   @X0F █▓█▓█▓█"
  452.                     PrintLn "@X0F   █▓█▓█▓█     @X0D║  @X0EDeposits@X0F  @X0D║@X0F     @X0F █▓█▓█▓█    @X0D║ @X0EWithdrawals@X0F @X0D║@X0F   @X0F █▓█▓█▓█"
  453.                     PrintLn "@X0F   █▓█▓█▓█     @X0D╚════════════╝@X0F     @X0F █▓█▓█▓█    @X0D╚═════════════╝@X0F   @X0F █▓█▓█▓█"
  454.                     PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  455.                     PrintLn "@X0F   █▓█▓█▓█     @X0C*** CLOSED ***@X0F     @X0F █▓█▓█▓█    @X0CW@X0E)@X0Bithdraw Time@X0F    @X0F █▓█▓█▓█"
  456.                     PrintLn "@X0F   █▓█▓█▓█    @X0B You already have   @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  457.                     PrintLn "@X0F   █▓█▓█▓█    @X0Bthe maximum amount  @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  458.                     PrintLn "@X0F   █▓█▓█▓█    @X0Bof time stored in   @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  459.                     PrintLn "@X0F   █▓█▓█▓█    @X0Bthe bank !!!        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  460.                     PrintLn "@X0F   █▓█▓█▓█                    @X0F     █▓█▓█▓█                      @X0F █▓█▓█▓█"
  461.                     PrintLn "@X0F  ▄███████▄                       @X0F▄███████▄                     ▄███████▄"
  462.                     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄                   @X0F  ▄▄▄▄▄▄▄▄▄▄▄                   ▄▄▄▄▄▄▄▄▄▄▄"
  463.                     PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  464.                     PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
  465.                     PrintLn "@X0F            ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  466.                     Goto LABEL026
  467.                 Endif
  468.                 PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae  @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
  469.                 PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ·· ·  ··· ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ··  ··  ▄▄▄▄▄▄▄▄▄▄▄ ·"
  470.                 PrintLn "@X0F  ▄▄▄▄▄▄▄▄▄  · ··    ··    ···  · ▄▄▄▄▄▄▄▄▄  ··    ···   ··     ▄▄▄▄▄▄▄▄▄"
  471.                 PrintLn "@X0F   █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
  472.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  473.                 PrintLn "@X0F   █▓█▓█▓█     @X0D╔════════════╗@X0F@X0F     @X0F █▓█▓█▓█    @X0D╔═════════════╗@X0F   @X0F █▓█▓█▓█"
  474.                 PrintLn "@X0F   █▓█▓█▓█     @X0D║  @X0EDeposits@X0F  @X0D║@X0F     @X0F █▓█▓█▓█    @X0D║ @X0EWithdrawals@X0F @X0D║@X0F   @X0F █▓█▓█▓█"
  475.                 PrintLn "@X0F   █▓█▓█▓█     @X0D╚════════════╝@X0F     @X0F █▓█▓█▓█    @X0D╚═════════════╝@X0F   @X0F █▓█▓█▓█"
  476.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  477.                 PrintLn "@X0F   █▓█▓█▓█     @X0CD@X0E)@X0Beposit Time@X0F      @X0F █▓█▓█▓█   @X0C *** CLOSED ***    @X0F █▓█▓█▓█"
  478.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  479.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█    @X0BUntil after the@X0F   @X0F █▓█▓█▓█"
  480.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█    @X0BSystem Event at@X0F   @X0F █▓█▓█▓█"
  481.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█        @X0C@EVENT@     @X0F    @X0F █▓█▓█▓█"
  482.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  483.                 PrintLn "@X0F  ▄███████▄                       @X0F▄███████▄                     ▄███████▄"
  484.                 PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄                   @X0F  ▄▄▄▄▄▄▄▄▄▄▄                   ▄▄▄▄▄▄▄▄▄▄▄"
  485.                 PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  486.                 PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
  487.                 PrintLn "@X0F            ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  488.                 Goto LABEL026
  489.                 :LABEL031
  490.                 PrintLn "@X0F░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒@X0C< @X0DT@X0Ei@X09m@X0Ae  @X0BB@X0Ca@X0Dn@X0Ek @X0C>@X0F@X0F▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓░▒▓"
  491.                 PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ·· ·  ··· ▄▄▄▄▄▄▄▄▄▄▄ ··   ··   ··  ··  ▄▄▄▄▄▄▄▄▄▄▄ ·"
  492.                 PrintLn "@X0F  ▄▄▄▄▄▄▄▄▄  · ··    ··    ···  · ▄▄▄▄▄▄▄▄▄  ··    ···   ··     ▄▄▄▄▄▄▄▄▄"
  493.                 PrintLn "@X0F   █▓█▓█▓█ ······················· █▓█▓█▓█ ····················· █▓█▓█▓█"
  494.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  495.                 PrintLn "@X0F   █▓█▓█▓█     @X0D╔════════════╗@X0F@X0F     @X0F █▓█▓█▓█    @X0D╔═════════════╗@X0F   @X0F █▓█▓█▓█"
  496.                 PrintLn "@X0F   █▓█▓█▓█     @X0D║  @X0EDeposits@X0F  @X0D║@X0F     @X0F █▓█▓█▓█    @X0D║ @X0EWithdrawals@X0F @X0D║@X0F   @X0F █▓█▓█▓█"
  497.                 PrintLn "@X0F   █▓█▓█▓█     @X0D╚════════════╝@X0F     @X0F █▓█▓█▓█    @X0D╚═════════════╝@X0F   @X0F █▓█▓█▓█"
  498.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  499.                 PrintLn "@X0F   █▓█▓█▓█     @X0CD@X0E)@X0Beposit Time@X0F      @X0F █▓█▓█▓█    @X0CW@X0E)@X0Bithdraw Time@X0F    @X0F █▓█▓█▓█"
  500.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  501.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  502.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  503.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  504.                 PrintLn "@X0F   █▓█▓█▓█                        @X0F █▓█▓█▓█                      @X0F █▓█▓█▓█"
  505.                 PrintLn "@X0F  ▄███████▄                       @X0F▄███████▄                     ▄███████▄"
  506.                 PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄                   @X0F  ▄▄▄▄▄▄▄▄▄▄▄                   ▄▄▄▄▄▄▄▄▄▄▄"
  507.                 PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  508.                 PrintLn "@X0F▓▓▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▓▓▓▓▓▓▓▓▓▓▓▓▓"
  509.                 PrintLn "@X0F            ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  510.                 Goto LABEL026
  511.                 :LABEL032
  512.                 PrintLn "@CLS@"
  513.                 PrintLn 
  514.                 PrintLn 
  515.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  516.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  517.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  518.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  519.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  520.                 PrintLn "@X07        @X1C║        YOU CAN NOT DEPOSIT MORE THAN YOUR ACCOUNT ALLOWS     @X1C║@X07"
  521.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  522.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  523.                 PrintLn 
  524.                 Print "@X07                     @X1C  You can deposit up to : "
  525.                 Print INTEGER009 - STRING015
  526.                 PrintLn "@X1C minutes more.@X07 "
  527.                 PrintLn 
  528.                 PrintLn 
  529.                 If (STRING002 == "Y") Log "GOODBYE PPE - TRIED TO DEPOSIT TOO MUCH", 0
  530.                 PrintLn "@PAUSE@"
  531.                 Goto LABEL025
  532.                 :LABEL033
  533.                 PrintLn "@CLS@"
  534.                 PrintLn 
  535.                 PrintLn 
  536.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  537.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  538.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  539.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  540.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  541.                 PrintLn "@X07        @X1C║        YOU CAN NOT DEPOSIT MORE TIME THAN YOU HAVE LEFT      @X1C║@X07"
  542.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  543.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  544.                 PrintLn 
  545.                 PrintLn 
  546.                 PrintLn "@PAUSE@"
  547.                 Goto LABEL025
  548.                 :LABEL034
  549.                 PrintLn "@CLS@"
  550.                 PrintLn 
  551.                 PrintLn 
  552.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  553.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  554.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  555.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  556.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  557.                 PrintLn "@X07        @X1C║   YOU CAN NOT WITHDRAW MORE TIME THAN YOU HAVE IN THE BANK   @X1C║@X07"
  558.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  559.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  560.                 PrintLn 
  561.                 PrintLn 
  562.                 PrintLn "@PAUSE@"
  563.                 Goto LABEL025
  564.                 :LABEL035
  565.                 PrintLn "@CLS@"
  566.                 PrintLn 
  567.                 PrintLn 
  568.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  569.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  570.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  571.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  572.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  573.                 PrintLn "@X07        @X1C║  YOU CAN NOT WITHDRAW ANY TIME BECAUSE YOU HAVE NONE SAVED   @X1C║@X07"
  574.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  575.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  576.                 PrintLn 
  577.                 PrintLn 
  578.                 PrintLn "@PAUSE@"
  579.                 Goto LABEL025
  580.                 :LABEL036
  581.                 PrintLn "@CLS@"
  582.                 PrintLn 
  583.                 PrintLn 
  584.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  585.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  586.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  587.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  588.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  589.                 PrintLn "@X07        @X1C║  YOU CAN NOT WITHDRAW UNTIL AFTER THE UPCOMING SYSTEM EVENT  @X1C║@X07"
  590.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  591.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  592.                 PrintLn 
  593.                 PrintLn 
  594.                 PrintLn "@PAUSE@"
  595.                 Goto LABEL025
  596.                 :LABEL037
  597.                 PrintLn "@CLS@"
  598.                 PrintLn ToTime(STRING018)
  599.                 PrintLn 
  600.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  601.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  602.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  603.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  604.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  605.                 PrintLn "@X07        @X1C║         YOU CAN NOT WITHDRAW MORE THAN ", INTEGER012 - 1 - MinLeft(), "     MINUTES DUE@POS:72@@X1C║@X07"
  606.                 PrintLn "@X07        @X1C║                TO THE UPCOMING SYSTEM EVENT !                @X1C║@X07"
  607.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  608.                 PrintLn 
  609.                 PrintLn 
  610.                 PrintLn "@PAUSE@"
  611.                 Goto LABEL025
  612.                 :LABEL038
  613.                 PrintLn "@CLS@"
  614.                 PrintLn 
  615.                 PrintLn 
  616.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  617.                 PrintLn "@X07        @X1C║                       @X1B┌──────────────┐@X1C                       @X1C║@X07"
  618.                 PrintLn "@X07        @X1C║                       @X1B│ @X1ESORRY !!!!!!@X1B │@X1C                       @X1C║@X07"
  619.                 PrintLn "@X07        @X1C║                       @X1B└──────────────┘@X1C                       @X1C║@X07"
  620.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  621.                 PrintLn "@X07        @X1C║  YOU CAN NOT DEPOSIT BECAUSE YOUR ACCOUNT IS ALREADY FILLED  @X1C║@X07"
  622.                 PrintLn "@X07        @X1C║                                                              @X1C║@X07"
  623.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  624.                 PrintLn 
  625.                 PrintLn 
  626.                 PrintLn "@PAUSE@"
  627.                 Goto LABEL025
  628.                 :LABEL039
  629.                 PrintLn "@CLS@"
  630.                 PrintLn "NEXT EVENT : @EVENT@"
  631.                 STRING018 = ScrText(14, 2, 5, 0)
  632.                 INTEGER012 = (ToTime(STRING018) - ToTime(Time())) / 60
  633.                 If (INTEGER012 < 0) Then
  634.                     INTEGER012 = INTEGER012 * -1
  635.                 Endif
  636.                 PrintLn 
  637.                 PrintLn 
  638.                 PrintLn "            @X07 @X09╒════════════════════════════════════════════════════╗@X07"
  639.                 PrintLn "            @X07 @X09│ @X71╔══╦══════════════════════════════════════════╦══╗@X01 @X09║@X07"
  640.                 PrintLn "            @X07 @X09│ @X71║  ╚═╗   In Case You @X7EF@X76o@X74r@X72g@X75o@X7Et@X71 Something ....  ╔═╝  ║@X01 @X09║@X07"
  641.                 PrintLn "            @X07 @X09│ @X71║    ╠══════════════════════════════════════╣    ║@X01 @X09║@X07"
  642.                 PrintLn "            @X07 @X09│ @X71║  ╔═╣ @X7F(@X74B@X7F) @X71.... @X74Bank Your Remaining Time !  @X71╠═╗ @X71 ║@X01 @X09║@X07"
  643.                 PrintLn "            @X07 @X09│ @X71╠══╝ ║ @X7F(@X76W@X7F) @X71.... @X76Write-Read Note on the Wall @X71║ ╚══╣@X01 @X09║@X07"
  644.                 PrintLn "            @X07 @X09│ @X71║    ║ @X7F(@X71C@X7F) @X71.... Comment to Sysop(s) !       ║   @X71 ║@X01 @X09║@X07"
  645.                 PrintLn "            @X07 @X09│ @X71║    ║ @X7F(@X72R@X7F) @X71.... @X72Return to the BBS !         @X71║   @X71 ║@X01 @X09║@X07"
  646.                 PrintLn "            @X07 @X09│ @X71╠══╗ ║ @X7F(@X75G@X7F) @X71.... @X75Gamble For Time !           @X71║ ╔══╣@X01 @X09║@X07"
  647.                 PrintLn "            @X09 │ @X71║  ╚═╣ @X7F(@X7EL@X7F) @X71.... @X7ELog Off !! See You Later !! @X71╠═╝  ║@X09 @X09║@X07"
  648.                 PrintLn "             @X09│ @X71║    ╠══════════════════════════════════════╣    ║@X07 @X09║@X07"
  649.                 PrintLn "            @X07 @X09│ @X71║  ╔═╝ @X7F @X70Pick A Letter and Press Enter Key ! @X71╚═╗ @X71 ║@X01 @X09║@X07"
  650.                 PrintLn "            @X07 @X09│ @X71╚══╩══════════════════════════════════════════╩══╝@X01 @X09║@X07"
  651.                 PrintLn "            @X07 @X09└────────────────────────────────────────────────────@X09╜@X07"
  652.                 PrintLn 
  653.                 PrintLn 
  654.                 PrintLn 
  655.                 Return
  656.                 :LABEL040
  657.                 PrintLn "@CLS@"
  658.                 PrintLn 
  659.                 PrintLn 
  660.                 PrintLn 
  661.                 PrintLn "@X07        @X1C╔══════════════════════════════════════════════════════════════╗@X07"
  662.                 PrintLn "@X07        @X1C║                                                              ║@X07"
  663.                 PrintLn "@X07        @X1C║     (@X1BW@X1C)@X1Arite a new Note, Comment, Joke, etc on the wall for@X1C   ║@X07"
  664.                 PrintLn "@X07        @X1C║        @X1Aeveryone to See.                      @X1C                ║@X07"
  665.                 PrintLn "@X07        @X1C║                                                              ║@X07"
  666.                 PrintLn "@X07        @X1C║     @X1E(@X1FR@X1E)@X1Dead the Writing on the Wall ! <g>@X1C                     ║@X07"
  667.                 PrintLn "@X07        @X1C║                                                              ║@X07"
  668.                 PrintLn "@X07        @X1C╚══════════════════════════════════════════════════════════════╝@X07"
  669.                 PrintLn 
  670.                 PrintLn 
  671.                 PrintLn 
  672.                 PrintLn 
  673.                 Return
  674.                 :LABEL041
  675.                 PrintLn "@CLS@"
  676.                 PrintLn "                  @X21╔════════════════════════════════════╗@X07"
  677.                 PrintLn "                  @X21║   (@X241@X21)@X2F ... LOTTERY   Bet 5 for 10@X21   ║@X07"
  678.                 PrintLn "                  @X21╚════════════════════════════════════╝@X07"
  679.                 PrintLn 
  680.                 PrintLn "            @X1C╔════════════════════════════════════════════════╗@X07"
  681.                 PrintLn "            @X1C║                                                ║@X07"
  682.                 PrintLn "            @X1C║     (@X1B2@X1C) @X1E... Shell Game   Gamble 10 for 20@X1C      ║@X07"
  683.                 PrintLn "            @X1C║                                                ║@X07"
  684.                 PrintLn "            @X1C╚════════════════════════════════════════════════╝@X07"
  685.                 PrintLn 
  686.                 PrintLn "     @X4F╔══════════════════════════════════════════════════════════════╗@X07"
  687.                 PrintLn "     @X4F║                                                              ║@X07"
  688.                 PrintLn "     @X4F║   (@X4E3@X4F) ... Russian Roulette    Risk Everything for 30@X4F !!!     ║@X07"
  689.                 PrintLn "     @X4F║           with 2 bullets !!                                  ║@X07"
  690.                 PrintLn "     @X4F║    @X4BCan Only Be Played Once A Day ! If you lose, well.. @X4F      ║@X07"
  691.                 PrintLn "     @X4F║                                   @X4F    heh..heh..heh...       ║@X07"
  692.                 PrintLn "     @X4F╚══════════════════════════════════════════════════════════════╝@X07"
  693.                 PrintLn 
  694.                 PrintLn 
  695.                 Return
  696.                 :LABEL042
  697.                 PrintLn "@CLS@"
  698.                 Newlines 9
  699.                 PrintLn "                  WINNER !!!!!!!!!"
  700.                 PrintLn 
  701.                 PrintLn "  ADJUSTING YOUR TIME......ADDING 10 MINUTES !!!"
  702.                 Return
  703.                 :LABEL043
  704.                 PrintLn "@CLS@"
  705.                 Newlines 9
  706.                 PrintLn "                Y O U   L O S T !!!!!!!!!!"
  707.                 PrintLn 
  708.                 PrintLn "  ADJUSTING YOUR TIME .......... SUBTRACTED 5 MINUTES !!"
  709.                 Return
  710.                 :LABEL044
  711.                 PrintLn "@CLS@"
  712.                 Newlines 9
  713.                 PrintLn "                    WINNER !!!!!!!!!!!"
  714.                 PrintLn 
  715.                 PrintLn " ADJUSTING YOUR TIME ..... ADDING 20 MINUTES !!!!!"
  716.                 Return
  717.                 :LABEL045
  718.                 PrintLn "@CLS@"
  719.                 Newlines 9
  720.                 PrintLn "                     Y O U    L O S T  !!!!!!!!!!!!"
  721.                 PrintLn 
  722.                 PrintLn " ADJUSTING YOUR TIME ....... SUBTRACTING 10 MINUTES !!!!!"
  723.                 Return
  724.                 :LABEL046
  725.                 PrintLn "@CLS@@X0E                                                                               @X07"
  726.                 PrintLn "@X0E                                                                               @X07"
  727.                 PrintLn "@X0E                                                                               @X07"
  728.                 PrintLn "@X0E                                                                               @X07"
  729.                 PrintLn "@X0E                                                                               @X07"
  730.                 PrintLn "@X0E                                                                      ▄        @X07"
  731.                 PrintLn "@X0E     ▄█████▄     ██▄         ████     ▄█████▄     ██▄     ██         ███       @X07"
  732.                 PrintLn "@X0E    ▐██▀   ██     ██          ██     ▐██▀   ██     ██    ██          ███       @X07"
  733.                 PrintLn "@X0E    ███           ██          ██     ███           ██  ▄██           ███       @X07"
  734.                 PrintLn "@X0E    ███           ██          ██     ███           ██▄██▀            ███       @X07"
  735.                 PrintLn "@X0E    ███           ██          ██     ███           ██▀▀██            ███       @X07"
  736.                 PrintLn "@X0E    ███           ██          ██     ███           ██   ██▄          ███       @X07"
  737.                 PrintLn "@X0E    ▐██▄   ██     ██     ▄▄   ██     ▐██▄   ██     ██    ▀█▄          ▀        @X07"
  738.                 PrintLn "@X0E@X0E     ▀█████▀     ▄███████▀   ████     ▀█████▀     ▄██     ██         ███       @X07"
  739.                 PrintLn "@X0E                                                                               @X07"
  740.                 PrintLn "@X0E                                                                               @X07"
  741.                 PrintLn "@X0E                                                                               @X07 "
  742.                 PrintLn "@X0E                                                                               @X07"
  743.                 PrintLn "@X0E                                                                               @X07"
  744.                 PrintLn "@X07                      @X0BTime to change underwear ?? <grin>@X07             @X07"
  745.                 Return
  746.                 :LABEL047
  747.                 PrintLn "@CLS@"
  748.                 PrintLn "@X0E                                                                               @X07"
  749.                 PrintLn "@X0E                                                                               @X07"
  750.                 PrintLn "@X0E                                                                               @X07"
  751.                 PrintLn "@X0E                                                                               @X07"
  752.                 PrintLn "@X0E                                                                             @X07"
  753.                 PrintLn "@X0E           ▀████████▄         ▄██████▄      ▀██▄          ▄██▀        ███       @X07"
  754.                 PrintLn "@X0E            ██     ██        ▐██▀  ▀██▌      ▐██          ██          ███       @X07"
  755.                 PrintLn "@X0E            ██    ▄██        ███    ██▌      ▐██   ▄██▄   ██          ███       @X07"
  756.                 PrintLn "@X0E            ███████▀         ███    ██▌      ▐██  ▄█▀▀█▄  ██          ███       @X07"
  757.                 PrintLn "@X0E            ██               ███    ██▌      ▐██  ██  ██  ██          ███       @X07"
  758.                 PrintLn "@X0E            ██               ███    ██▌      ▐██ ▄██  ██▄ ██          ███       @X07"
  759.                 PrintLn "@X0E            ██               ▐██▄  ▄██▌      ▐██▄██    ██▄██           ▀        @X07"
  760.                 PrintLn "@X0E@X0E           ▄██▄               ▀██████▀       ▄██▀▀       ▀██          ███"
  761.                 PrintLn "@X0E                                                                               @X07"
  762.                 PrintLn "@X0E                                                                               @X07"
  763.                 PrintLn "@X0E                                                                               @X07"
  764.                 PrintLn "@X0E                                                                               @X07"
  765.                 PrintLn "@X0E                                                                               @X07"
  766.                 PrintLn "@X07                      @X0BDo You Think It Missed  ? <grin>@X07             @X07"
  767.                 Return
  768.                 :LABEL048
  769.                 PrintLn "@CLS@"
  770.                 PrintLn "@X04            ▒▓ ▓                  ▒@X07"
  771.                 PrintLn "@X04                                     ▓@X07"
  772.                 PrintLn "@X04                ▓                    ▒ ▒▒ ▓▓@X07"
  773.                 PrintLn "@X04                 ▓           ▓         ■ █            ▓@X07"
  774.                 PrintLn "@X04                            ▒  ▓        █     ▒      ▒    ▒@X07"
  775.                 PrintLn "@X04        ▓  ▓      ▒▒ ▀▄        ██      █  █▒ ▒     ▒        ▒@X07"
  776.                 PrintLn "@X04                   ▒▒  ▀█    ▒▒▒▀██  ▒█ ▓█▌▄▄▄▀▀▀▀           ▒@X07"
  777.                 PrintLn "@X04                        ████ ▀▄▌ ████ ██ █▒▄▀         ▒▓      ▒@X07"
  778.                 PrintLn "@X04             ▓        ▒▒▒ ████████████████  ▄█  ▓▒ ░▒░▄▄        ▒▒@X07"
  779.                 PrintLn "@X04          ▒          ▀██████████████████████████████▀▀  ■■■@X07"
  780.                 PrintLn "@X04                      ▒▒ ██████▀     ▀██████▀▀▀░    ▄@X07"
  781.                 PrintLn "@X04             ▄▄▄▄▄█████████████■       ████████████   ▀@X07"
  782.                 PrintLn "@X04        ▒▒ ▒      ▌▀▄▀▄▌▄▄▄▄▄███▄    ▄█▓██ ██████████  ▓▒@X07"
  783.                 PrintLn "@X04                    ███████▀█████████████████           ▀▄@X07"
  784.                 PrintLn "@X04                 ▓ ▀       ▄██▒███████████  ▓██▀ ▀▄▌      ▒▒▒@X07"
  785.                 PrintLn "@X04      ▒                   ██  ▄███ ▀█  ██ ▀▄  ■█    ▀▄▌▀@X07"
  786.                 PrintLn "@X04                 ▒      █▀   █  █▌ █ █  █    ▀▄▀█▄▀▄▀@X07"
  787.                 PrintLn "@X04                 ░▒    █       █   █   ▄▌■   ■    ▀▄▌·  ▒▒@X07"
  788.                 PrintLn "@X04                   ▒       ▓▒██▒      █ ■░  ▀▄    ▀▄@X07"
  789.                 PrintLn "@X04                                                                     @X07"
  790.                 Return
  791.             Endif
  792.         Endif
  793.     Endif
  794.     PrintLn "@CLS@"
  795.     Newlines 9
  796.     PrintLn "            SORRY , YOU HAVE AN INSUFFICIENT SECURITY LEVEL !"
  797.     Newlines 3
  798.     PrintLn "@PAUSE@"
  799.     Goto LABEL005
  800.     :LABEL049
  801.     PrintLn "@CLS@"
  802.     Newlines 4
  803.     PrintLn "            This BETA version has EXPIRED !!!!!!"
  804.     PrintLn 
  805.     PrintLn "   Check Salt Air BBS or my board for a newer version!!"
  806.     PrintLn "  My BBS is :        PAWLEYS BBS"
  807.     PrintLn "                    (803) 237-4547"
  808.     PrintLn "         1.9 GIG HARD DRIVE , CDROM , 14.4 MODEM"
  809.     PrintLn "                 N O   R A T I O S   !!!!!"
  810.     PrintLn 
  811.     PrintLn "@PAUSE@"
  812.     :LABEL050
  813.     PrintLn "@CLS@"
  814.     Newlines 9
  815.     PrintLn "            (R)eturn to Board    (H)angup"
  816.     InputStr "       (ENTER returns to bbs) Your Choice ", STRING026, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 128 + 32
  817.     Select Case (STRING026)
  818.         Case "R"
  819.             End
  820.             KbdStuff "N" + Chr(13) + Chr(13)
  821.         Case "H"
  822.             Bye
  823.     End Select
  824.     End
  825.  
  826. ;------------------------------------------------------------------------------
  827. ;
  828. ; Usage report (before postprocessing)
  829. ;
  830. ; ■ Statements used :
  831. ;
  832. ;    4       End
  833. ;    126     Goto 
  834. ;    60      Let 
  835. ;    9       Print 
  836. ;    358     PrintLn 
  837. ;    90      If 
  838. ;    3       DispFile 
  839. ;    1       FCreate 
  840. ;    3       FOpen 
  841. ;    4       FClose 
  842. ;    3       FGet 
  843. ;    1       FPutLn 
  844. ;    9       GetUser
  845. ;    5       PutUser
  846. ;    8       AdjTime 
  847. ;    20      Log 
  848. ;    9       InputStr 
  849. ;    10      Gosub 
  850. ;    12      Return
  851. ;    15      Delay 
  852. ;    12      Newlines 
  853. ;    2       Tokenize 
  854. ;    4       GetToken 
  855. ;    3       KbdStuff 
  856. ;    4       Bye
  857. ;    3       SPrintLn 
  858. ;
  859. ;
  860. ; ■ Functions used :
  861. ;
  862. ;    6       -
  863. ;    2       *
  864. ;    2       /
  865. ;    113     +
  866. ;    8       -
  867. ;    57      ==
  868. ;    4       <>
  869. ;    5       <
  870. ;    4       <=
  871. ;    10      >
  872. ;    5       >=
  873. ;    35      !
  874. ;    3       &&
  875. ;    1       ||
  876. ;    2       Len(
  877. ;    1       Upper()
  878. ;    1       Left()
  879. ;    4       Ferr()
  880. ;    13      Chr()
  881. ;    2       Trim()
  882. ;    3       Random()
  883. ;    4       Date()
  884. ;    2       Time()
  885. ;    5       String()
  886. ;    4       Mask_Alpha()
  887. ;    4       Mask_Num()
  888. ;    1       Mask_Ascii()
  889. ;    10      PPEPath()
  890. ;    3       PcbNode()
  891. ;    2       CurSec()
  892. ;    7       MinLeft()
  893. ;    3       Exist()
  894. ;    1       LangExt()
  895. ;    2       Psa()
  896. ;    1       ScrText()
  897. ;    1       ToDate()
  898. ;    5       ToTime()
  899. ;    5       EvtTimeAdj()
  900. ;
  901. ;------------------------------------------------------------------------------
  902. ;
  903. ; Analysis flags : WA
  904. ;
  905. ; W - Write user ■ 5
  906. ;     Program writes a user record. Although this may be normal for a
  907. ;     User Editor, it may also be a way to modify an account level.
  908. ;     ■ Search for : PUTUSER
  909. ;
  910. ; A - Adjust online time remaining ■ 5
  911. ;     Program modify the amount of online time remaining, this may
  912. ;     be a way to bypass time limits
  913. ;     ■ Search for : ADJTIME
  914. ;
  915. ;------------------------------------------------------------------------------
  916. ;
  917. ; Postprocessing report
  918. ;
  919. ;    1       For/Next
  920. ;    4       While/EndWhile
  921. ;    25      If/Then or If/Then/Else
  922. ;    1       Select Case
  923. ;
  924. ;------------------------------------------------------------------------------
  925. ;                 AEGiS Corp - Break the routines, code against the machines!
  926. ;------------------------------------------------------------------------------
  927.