home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / jagbye.zip / JAGBYE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-03-17  |  62KB  |  931 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  62219 bytes  01/29/123  11:01:10pm
  3. '! Code Segment Size  :18733 bytes
  4. '! Data Segment Size  :4560 bytes
  5. '! String Segment Size:43486 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.         Filler244(1 To 20) As Byte
  16.         w264 As Word
  17.       End Type
  18.  
  19.       Declare Function Func14704(l65534 As Long, l65532 As Long, l65530 As Long) As Integer
  20.       Declare Sub Sub15195(s65534 As String, s65532 As String, s65530 As String)
  21.       Declare Sub Sub15310
  22.       Declare Sub Sub15401
  23.       Declare Sub Sub15490
  24.       Declare Function Func15588 As Integer
  25.       Declare Sub Sub16051
  26.       Declare Sub Sub16221
  27.       Declare Sub Sub16849
  28.       Declare Sub Sub17477
  29.       Declare Sub Sub18105
  30.  
  31.       Dim s4463 As String
  32.       Dim l4467 As Long
  33.       Dim i4471 As Integer
  34.       Dim s4473 As String
  35.       Dim s4477 As String
  36.       Dim s4481 As String*1
  37.       Dim i4486 As Integer
  38.       Dim s4488 As String
  39.       Dim s4492 As String
  40.       Dim s4496 As String
  41.       Dim s4500 As String
  42.       Dim i4504 As Integer
  43.       Dim i4506 As Integer
  44.       Dim s4508 As String
  45.       Dim dt4512 As DateTime
  46.       Dim i4520 As Integer
  47.       Dim s4522 As String*25
  48.       Dim s4547 As String*2
  49.       Dim i4549 As Integer
  50.       Dim s4551 As String
  51.       Dim i4555 As Integer
  52.       Dim i4557 As Integer
  53.       Dim s4559 As String*1
  54.  
  55.       Dim l65496_ As Long
  56.       Dim i65500_ As Integer
  57.       Dim l65502_ As Long
  58.       Dim i65506_ As Integer
  59.       Dim l65508_ As Long
  60.       Dim i65512_ As Integer
  61.       Dim l65514_ As Long
  62.       Dim i65518_ As Integer
  63.       Dim l65520_ As Long '! Temporary
  64.       Dim l65524_ As Long '! Temporary
  65.       Dim s65528_ As String
  66.       Dim l65532_ As Long
  67.  
  68.       CarrierCheck(-1)
  69.       i4471 = 0
  70.       l4467 = 0
  71.       s4473 = ProgPath + "JAGBYE.KEY"
  72.       If Exists(s4473) Then
  73.         Open s4473 For Input As 1
  74.         Input #1, s4463
  75.         Close 1
  76.         s4463 = Trim(s4463)
  77.         l4467 = Abs(Val(s4463))
  78.       Else
  79.   149   l4467 = 0
  80.       End If
  81.   155
  82.       If Func14704(l4467, (69117), (67)) Then
  83.         i4471 = -1
  84.       Else
  85.   217   i4471 = 0
  86.       End If
  87.   223 CurrentDateTime dt4512
  88.       i4506 = Conference.Number
  89.       Func15588
  90.       If i4471 = 0 Then
  91.         StatusOpen 1
  92.         StatusWrite "            UNREGISTERED JAGBYE (c)1996 Chris Jagger Creative Services", 1213417543, 1213417543, 1213417543
  93.       End If
  94.   293 l65532_ = dt4512.T.Number Div 60
  95.       If l65532_ >= 0 And l65532_ <= 719 Then
  96.         i4520 = 3
  97.       Else
  98.   350   If l65532_ >= 720 And l65532_ <= 1079 Then
  99.           i4520 = 1
  100.         Else
  101.   391     If l65532_ >= 1080 And l65532_ <= 1440 Then
  102.             i4520 = 2
  103.             GoTo 432
  104.           End If
  105.         End If
  106.       End If
  107.       Do
  108.         Do
  109.           Do
  110.             Do
  111.               Do
  112.   432           MorePrompt(0)
  113.                 If i4520 = 1 Then
  114.                   Cls 
  115.                   Locate 1, 1
  116.                   Print "@NOPAUSE@@07@         "
  117.                   Print "@07@     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  118.                   Print "   @0E@  @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  119.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  120.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  121.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  122.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  123.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  124.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  125.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  126.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  127.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  128.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  129.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  130.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  131.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  132.                   Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  133.                   Print "   @0E@  @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒@07@"
  134.                   Print "@07@     @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒@07@"
  135.                   Print "@07@     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@0E@"
  136.                   Delay 0.04
  137.                   Print Chr(27) + "[3;5H@78@▄▄▄▄▄▄▄@0E@"
  138.                   Print Chr(27) + "[3;70H@78@▄▄▄▄▄▄▄@0E@"
  139.                   Print Chr(27) + "[4;6H@08@█@07@█@0F@█@07@█@08@█@01@▒▒@0E@"
  140.                   Print Chr(27) + "[5;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  141.                   Print Chr(27) + "[6;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  142.                   Print Chr(27) + "[7;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  143.                   Print Chr(27) + "[8;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  144.                   Print Chr(27) + "[9;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  145.                   Print Chr(27) + "[10;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  146.                   Print Chr(27) + "[11;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  147.                   Print Chr(27) + "[12;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  148.                   Print Chr(27) + "[13;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  149.                   Print Chr(27) + "[14;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  150.                   Print Chr(27) + "[15;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  151.                   Print Chr(27) + "[16;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  152.                   Print Chr(27) + "[17;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  153.                   Print Chr(27) + "[4;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  154.                   Print Chr(27) + "[5;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  155.                   Print Chr(27) + "[6;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  156.                   Print Chr(27) + "[7;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  157.                   Print Chr(27) + "[8;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  158.                   Print Chr(27) + "[9;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  159.                   Print Chr(27) + "[10;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  160.                   Print Chr(27) + "[11;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  161.                   Print Chr(27) + "[12;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  162.                   Print Chr(27) + "[13;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  163.                   Print Chr(27) + "[14;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  164.                   Print Chr(27) + "[15;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  165.                   Print Chr(27) + "[16;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  166.                   Print Chr(27) + "[17;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  167.                   Print Chr(27) + "[18;5H@78@▀▀▀▀▀▀▀@01@▒▒@0E@"
  168.                   Print Chr(27) + "[18;70H@78@▀▀▀▀▀▀▀@0E@"
  169.                   Delay 0.01
  170.                   Print Chr(27) + "[1;5H@7F@««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»«««»»««»@0E@"
  171.                   Delay 0.01
  172.                   Print Chr(27) + "[2;4H@7F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0E@"
  173.                   Print Chr(27) + "[19;5H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  174.                   Print Chr(27) + "[20;4H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  175.                   Delay 0.01
  176.                   Print Chr(27) + "[21;3H@2A@`'`'`'`'`''``'`'`'`'`'```'`'`'`'````'`'`'`'``````'''``'''```''```'`'`'''`'`'@07@"
  177.                 Else
  178.  1013             If i4520 = 2 Then
  179.                     Cls 
  180.                     Locate 1, 1
  181.                     Print "@NOPAUSE@         "
  182.                     Print "     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  183.                     Print "   @0E@  @08@▒@10@                                                                    @08@▒"
  184.                     Print "    @0E@ @08@▒@10@                                                                    @08@▒"
  185.                     Print "    @0E@ @08@▒@13@            @17@·                                   ·                   @08@▒"
  186.                     Print "    @0E@ @08@▒@13@                                                                    @08@▒"
  187.                     Print "    @0E@ @08@▒@13@                                                @17@·                   @08@▒"
  188.                     Print "    @0E@ @08@▒@13@            @17@·                                               @10@│       @08@▒"
  189.                     Print "    @0E@ @08@▒@10@                                     @17@·        ·            @10@╟@04@|@10@╢      @08@▒"
  190.                     Print "    @0E@ @08@▒@17@            ·                               @0F@ @07@·@0E@·@07@· @0E@·· @1E@    @18@.  @0F@ @0E@· @1E@      @08@▒"
  191.                     Print "    @0E@ @08@▒@98@                           @17@·               @0F@  @0E@::@07@::::  @17@     @0F@ @07@■■■ @17@   . @08@▒"
  192.                     Print "    @0E@ @08@▒@17@       ·                        @14@░░░░░░░░░░@0E@ ■  ■@07@  ■@08@ @07@ @0E@■ @17@   @0F@ @0E@..... @1E@    @08@▒"
  193.                     Print "    @0E@ @08@▒@18@.               @1F@.        @14@░░░░░░░░@1C@░░░░░░░░@0F@  @07@==@0E@===@07@=@0E@=@07@===  @17@  @0F@ @07@:.:@0E@:@07@: @17@    @08@▒"
  194.                     Print "    @0E@ @08@▒@18@          @0F@ @07@::. @17@   @14@░░░░░░░░@1C@░░░░░░░@58@░░░░░░░░@0F@  @0E@==@07@===@0E@=====  @14@░░@0F@ @0E@::.@07@:: @17@    @08@▒"
  195.                     Print "    @0E@ @08@▒@0E@===  @1E@   @0F@ @07@:@0E@::@07@:@0E@: @14@░░░░@1C@░@0F@      @58@░░░░░░░@5C@░░░░░░░░@0F@  @07@==@0E@==@07@======  @1C@░░@0F@ @07@:::.@0E@: @14@░   @08@▒"
  196.                     Print "    @0E@ @08@▒@0F@ @07@= = @17@  @14@░@0F@ @07@:@0E@::@07@:@0E@:@07@ @1C@░░░░@58@░@0F@ @0E@==== @5C@░░░░░░░▒▒▒▒▒▒▒▒@0F@  @07@==@0E@==@07@======  @58@░░@0F@ @07@.:@0E@::@07@: @14@░░░░@08@▒"
  197.                     Print "    @0E@ @08@▒@07@=@0E@=== @14@░░░@0F@ @07@:@0E@::@07@.@0E@: @58@░░░░░@0F@ @07@::@0E@:::@5C@▒▒▒▒▒@0F@ @07@. @5C@▓▓▓▓▓▓▓@0F@  @07@==@0E@====@07@====  @5C@░░@0F@ @07@::@0E@::: @1C@░░░░@08@▒"
  198.                     Print "   @0E@  @08@▒@07@==== @1C@░░░@0F@ @07@::::::@0E@:@07@ @5C@░░░@0F@ @07@:::: @5C@▓▓▓▓@0F@  @0E@:. : @5C@███@0F@   @0E@==@07@========  @5C@▒▒@0F@ @07@.@0E@:@07@::@0E@: @58@░░░░@08@▒@07@"
  199.                     Print "     @08@▒@07@==== @58@░░░@0F@ @07@:@0E@::@07@:::@0E@: @5C@▒@0F@ @07@..@0E@::::@07@:.@5C@██@0F@   @07@:@0E@:..  @0C@▀    @07@==@0E@==@07@==@0E@===@07@=  @5C@▓▓@0F@ @0E@::·@07@···@0E@··· @08@▒@07@"
  200.                     Print "     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@0E@"
  201.                     Delay 0.04
  202.                     Print Chr(27) + "[3;5H@78@▄▄▄▄▄▄▄@0E@"
  203.                     Print Chr(27) + "[3;70H@78@▄▄▄▄▄▄▄@0E@"
  204.                     Print Chr(27) + "[4;6H@08@█@07@█@0F@█@07@█@08@█@01@▒▒@0E@"
  205.                     Print Chr(27) + "[5;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  206.                     Print Chr(27) + "[6;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  207.                     Print Chr(27) + "[7;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  208.                     Print Chr(27) + "[8;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  209.                     Print Chr(27) + "[9;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  210.                     Print Chr(27) + "[10;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  211.                     Print Chr(27) + "[11;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  212.                     Print Chr(27) + "[12;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  213.                     Print Chr(27) + "[13;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  214.                     Print Chr(27) + "[14;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  215.                     Print Chr(27) + "[15;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  216.                     Print Chr(27) + "[16;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  217.                     Print Chr(27) + "[17;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  218.                     Print Chr(27) + "[4;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  219.                     Print Chr(27) + "[5;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  220.                     Print Chr(27) + "[6;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  221.                     Print Chr(27) + "[7;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  222.                     Print Chr(27) + "[8;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  223.                     Print Chr(27) + "[9;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  224.                     Print Chr(27) + "[10;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  225.                     Print Chr(27) + "[11;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  226.                     Print Chr(27) + "[12;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  227.                     Print Chr(27) + "[13;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  228.                     Print Chr(27) + "[14;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  229.                     Print Chr(27) + "[15;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  230.                     Print Chr(27) + "[16;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  231.                     Print Chr(27) + "[17;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  232.                     Print Chr(27) + "[18;5H@78@▀▀▀▀▀▀▀@01@▒▒@0E@"
  233.                     Print Chr(27) + "[18;70H@78@▀▀▀▀▀▀▀@0E@"
  234.                     Delay 0.01
  235.                     Print Chr(27) + "[1;5H@7F@««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»«««»»««»@0E@"
  236.                     Delay 0.01
  237.                     Print Chr(27) + "[2;4H@7F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0E@"
  238.                     Print Chr(27) + "[19;5H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  239.                     Print Chr(27) + "[20;4H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  240.                     Delay 0.01
  241.                     Print Chr(27) + "[21;3H@19@`'`'`'`'`''``'`'`'`'`'```'`'`'`'````'`'`'`'``````'''``'''```''```'`'`'''`'`'@07@"
  242.                   Else
  243.  1589               If i4520 = 3 Then
  244.                       Cls 
  245.                       Locate 1, 1
  246.                       Print "@NOPAUSE@         "
  247.                       Print "     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  248.                       Print "   @0E@  @08@▒@30@▒▒░░@38@░░░░            @3C@░░░░░░░░░░░░░░░░░░░░░░░             @38@░░░░@30@░░░░░░▒▒@08@▒"
  249.                       Print "    @0E@ @08@▒@30@░@38@░░         @3C@░░░░░░░░░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░░░░░░░░░░              @38@░░░░@30@░@08@▒"
  250.                       Print "    @0E@ @08@▒@30@       @3C@░░░░░░░░░▒▒▒▒▒▒▒▒▒▒▒@3E@█@3C@▒▒▒▓▓▒▒▒▓▓@0E@█@3C@▓▒▒▒▒▒▒▒░░░░░░░░            @38@░@08@▒"
  251.                       Print "    @0E@ @08@▒@3C@     ░░░░░░▒▒▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓@3E@█@3C@▓▓▓▓▓▓▓▓@4E@▐▌@3C@▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒░░░░░░        @08@▒"
  252.                       Print "    @0E@ @08@▒@3C@  ░░░░░░▒▒▒▒▒▓▓▓▓▓@3E@▄@3C@▓▓▓▓▓▓██@4E@░@4C@█@4E@█░@4C@███@4E@░░█░@3C@█▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒▒▒░░░░░░░░  @08@▒"
  253.                       Print "    @0E@ @08@▒@3C@░░░░░░▒▒▒▒▒▓▓▓▓▓▓▓▓@4E@▀▄@3C@▓█@4E@░@4C@██@4E@▄▄@7E@▀▒▀▀▀▀▀▀▀▒▀@4E@▄@4C@██@4E@▒░@3C@██▓@4E@▄▀▀@3C@▓▓▓▓▓▓▒▒▒▒▒▒▒▒░░░░@08@▒"
  254.                       Print "    @0E@ @08@▒@3C@░░░░▒▒▒▒▒▓▓▓▓▓▓▓▓▓██@4E@░▀▀▄@7E@▀▀▒▒▄▄▄@0E@█████@7E@▄▄▄▒▀▀@4E@▄▄▄▀▀@3C@██▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒░░@08@▒"
  255.                       Print "    @0E@ @08@▒@3C@░▒▒▒▒▒▓▓▓▓▓▓▓▓▓▓████@4E@░▒█@7E@▒▒▄@0E@███████████████@7E@▄▓▒@0E@█░@3C@████▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒░@08@▒"
  256.                       Print "    @0E@ @08@▒@3C@▒▒▒▒▒▓▓▓▓▓▓▓▓█████@4E@░▒▄@7E@▀▒▒@0E@███████████████████@7E@▒▀@4E@▄▒░@3C@██▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒░@08@▒"
  257.                       Print "    @0E@ @08@▒@3C@▒▒▒▒▒▓▓▓▓▓▓@3E@▀▀▀▀@4E@▀▀▀▀▀@7E@▄▒▒▐@0E@███████████████████@7E@▌▒█@4E@▄▄▄▄▄▄@3E@▄▄▄@37@▄@3C@▓▓▓▓▓▓▒▒▒▒▒▒@08@▒"
  258.                       Print "    @0E@ @08@▒@32@▄▄▄▄▄▄@2A@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@72@▄▄@32@▄▄@3C@▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒░@08@▒"
  259.                       Print "    @0E@ @08@▒@2A@████████████████████████████████████████████████████▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@08@▒"
  260.                       Print "    @0E@ @08@▒@0A@████████████████████████████████████████████████████████████████████@08@▒"
  261.                       Print "    @0E@ @08@▒@0A@████████████████████████████████████████████████████████████████████@08@▒"
  262.                       Print "    @0E@ @08@▒@0A@████████████████████████████████████████████████████████████████████@08@▒"
  263.                       Print "   @0E@  @08@▒@0A@████████████████████████████████████████████████████████████████████@08@▒@07@"
  264.                       Print "     @08@▒@0A@████████████████████████████████████████████████████████████████████@08@▒@07@"
  265.                       Print "     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@0E@"
  266.                       Delay 0.04
  267.                       Print Chr(27) + "[3;5H@78@▄▄▄▄▄▄▄@0E@"
  268.                       Print Chr(27) + "[3;70H@78@▄▄▄▄▄▄▄@0E@"
  269.                       Print Chr(27) + "[4;6H@08@█@07@█@0F@█@07@█@08@█@01@▒▒@0E@"
  270.                       Print Chr(27) + "[5;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  271.                       Print Chr(27) + "[6;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  272.                       Print Chr(27) + "[7;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  273.                       Print Chr(27) + "[8;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  274.                       Print Chr(27) + "[9;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  275.                       Print Chr(27) + "[10;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  276.                       Print Chr(27) + "[11;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  277.                       Print Chr(27) + "[12;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  278.                       Print Chr(27) + "[13;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  279.                       Print Chr(27) + "[14;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  280.                       Print Chr(27) + "[15;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  281.                       Print Chr(27) + "[16;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  282.                       Print Chr(27) + "[17;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  283.                       Print Chr(27) + "[4;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  284.                       Print Chr(27) + "[5;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  285.                       Print Chr(27) + "[6;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  286.                       Print Chr(27) + "[7;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  287.                       Print Chr(27) + "[8;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  288.                       Print Chr(27) + "[9;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  289.                       Print Chr(27) + "[10;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  290.                       Print Chr(27) + "[11;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  291.                       Print Chr(27) + "[12;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  292.                       Print Chr(27) + "[13;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  293.                       Print Chr(27) + "[14;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  294.                       Print Chr(27) + "[15;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  295.                       Print Chr(27) + "[16;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  296.                       Print Chr(27) + "[17;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  297.                       Print Chr(27) + "[18;5H@78@▀▀▀▀▀▀▀@01@▒▒@0E@"
  298.                       Print Chr(27) + "[18;70H@78@▀▀▀▀▀▀▀@0E@"
  299.                       Delay 0.01
  300.                       Print Chr(27) + "[1;5H@7F@««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»«««»»««»@0E@"
  301.                       Delay 0.01
  302.                       Print Chr(27) + "[2;4H@7F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0E@"
  303.                       Print Chr(27) + "[19;5H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  304.                       Print Chr(27) + "[20;4H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  305.                       Delay 0.01
  306.                       Print Chr(27) + "[21;3H@2A@`'`'`'`'`''``'`'`'`'`'```'`'`'`'````'`'`'`'``````'''``'''```''```'`'`'''`'`'@07@"
  307.                     Else
  308.  2165                 Cls 
  309.                       Locate 1, 1
  310.                       Print "@NOPAUSE@@07@         "
  311.                       Print "@07@     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  312.                       Print "   @0E@  @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  313.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  314.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  315.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  316.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  317.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  318.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  319.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  320.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  321.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  322.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  323.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  324.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  325.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  326.                       Print "    @0E@ @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒"
  327.                       Print "   @0E@  @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒@07@"
  328.                       Print "@07@     @08@▒@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@08@▒@07@"
  329.                       Print "@07@     @08@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@0E@"
  330.                       Delay 0.04
  331.                       Print Chr(27) + "[3;5H@78@▄▄▄▄▄▄▄@0E@"
  332.                       Print Chr(27) + "[3;70H@78@▄▄▄▄▄▄▄@0E@"
  333.                       Print Chr(27) + "[4;6H@08@█@07@█@0F@█@07@█@08@█@01@▒▒@0E@"
  334.                       Print Chr(27) + "[5;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  335.                       Print Chr(27) + "[6;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  336.                       Print Chr(27) + "[7;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  337.                       Print Chr(27) + "[8;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  338.                       Print Chr(27) + "[9;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  339.                       Print Chr(27) + "[10;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  340.                       Print Chr(27) + "[11;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  341.                       Print Chr(27) + "[12;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  342.                       Print Chr(27) + "[13;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  343.                       Print Chr(27) + "[14;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  344.                       Print Chr(27) + "[15;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  345.                       Print Chr(27) + "[16;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  346.                       Print Chr(27) + "[17;6H@08@█@07@█@0F@█@07@█@08@█@01@▒@0E@"
  347.                       Print Chr(27) + "[4;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  348.                       Print Chr(27) + "[5;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  349.                       Print Chr(27) + "[6;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  350.                       Print Chr(27) + "[7;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  351.                       Print Chr(27) + "[8;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  352.                       Print Chr(27) + "[9;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  353.                       Print Chr(27) + "[10;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  354.                       Print Chr(27) + "[11;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  355.                       Print Chr(27) + "[12;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  356.                       Print Chr(27) + "[13;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  357.                       Print Chr(27) + "[14;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  358.                       Print Chr(27) + "[15;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  359.                       Print Chr(27) + "[16;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  360.                       Print Chr(27) + "[17;71H@08@█@07@█@0F@█@07@█@08@█@0E@"
  361.                       Print Chr(27) + "[18;5H@78@▀▀▀▀▀▀▀@01@▒▒@0E@"
  362.                       Print Chr(27) + "[18;70H@78@▀▀▀▀▀▀▀@0E@"
  363.                       Delay 0.01
  364.                       Print Chr(27) + "[1;5H@7F@««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»««»»«««»»««»@0E@"
  365.                       Delay 0.01
  366.                       Print Chr(27) + "[2;4H@7F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0E@"
  367.                       Print Chr(27) + "[19;5H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  368.                       Print Chr(27) + "[20;4H@7F@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0E@"
  369.                       Delay 0.01
  370.                       Print Chr(27) + "[21;3H@2A@`'`'`'`'`''``'`'`'`'`'```'`'`'`'````'`'`'`'``````'''``'''```''```'`'`'''`'`'@07@"
  371.                     End If
  372.                   End If
  373.                 End If
  374.  2720           If (s4559 = "Y") = 0 Then GoTo 3511
  375.                 i4486 = GetMarkedFiles
  376.                 If i4486 = 0 Then
  377.                   GoTo 3511
  378.                 End If
  379.  2767           If i4520 = 1 Then
  380.                   Delay 0.04
  381.                   Locate 6, 14
  382.                   Print "@NOPAUSE@@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  383.                   Locate 7, 14
  384.                   Print "@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@0D@░▒▓@5E@  Marked Files!!  @0D@▓▒░@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  385.                   Locate 8, 14
  386.                   Print "@09@▒▒@0F@┌──────────────@08@────────────────────────@0F@──────────┐@09@▒▒"
  387.                   Locate 9, 14
  388.                   Print "@09@▒▒@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@01@▒▒@09@"
  389.                   Locate 10, 14
  390.                   Print "@09@▒▒@0F@│@0E@  @0F@ @0E@ @01@ @0E@  You have files @0F@marked@0E@ for download!     @08@ │@01@▒▒@09@"
  391.                   Locate 11, 14
  392.                   Print "@09@▒▒@0F@│@0E@ @0F@ @0E@ @01@ @0E@ Do you want to download them now (@0F@y@0E@/@0F@N@0E@)?   @08@ │@01@▒▒@09@"
  393.                   Locate 12, 14
  394.                   Print "@09@▒▒@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@01@▒▒@09@"
  395.                   Locate 13, 14
  396.                   Print "@09@▒▒@0F@│@0E@ @04@░░░░░░░░▒▒▒▒▒▒▒▓▓▓▓▓▓▓@0E@     @04@▓▓▓▓▓▓▓▒▒▒▒▒▒░░░░░░@08@ │@01@▒▒@09@"
  397.                   Locate 14, 14
  398.                   Print "@09@▒▒@0F@└@08@────────────────────────────────────────────────┘@01@▒▒@09@"
  399.                   Locate 15, 14
  400.                   Print "@09@▒▒▒▒@01@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  401.                 Else
  402.  2956             If i4520 = 2 Then
  403.                     Delay 0.04
  404.                     Locate 7, 16
  405.                     Print "@NOPAUSE@@13@              @0D@░▒▓@5E@  Marked Files!!  @0D@▓▒░@13@ @17@·            @0F@"
  406.                     Locate 8, 16
  407.                     Print "@0F@┌──────────────@08@────────────────────────@0F@──────────┐@17@ @10@│@0F@"
  408.                     Locate 9, 16
  409.                     Print "@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@10@╟@04@|@0F@"
  410.                     Locate 10, 16
  411.                     Print "@0F@│@0E@  @0F@ @0E@ @01@ @0E@  You have files @0F@marked@0E@ for download!     @08@ │@0F@ @0E@·@0F@"
  412.                     Locate 11, 16
  413.                     Print "@0F@│@0E@ @0F@ @0E@ @01@ @0E@ Do you want to download them now (@0F@y@0E@/@0F@N@0E@)?   @08@ │■■@0F@"
  414.                     Locate 12, 16
  415.                     Print "@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │..@0F@"
  416.                     Locate 13, 16
  417.                     Print "@0F@│@0E@ @04@░░░░░░░░▒▒▒▒▒▒▒▓▓▓▓▓▓▓@0E@     @04@▓▓▓▓▓▓▓▒▒▒▒▒▒░░░░░░@08@ │.:@0F@"
  418.                     Locate 14, 16
  419.                     Print "@0F@└@08@────────────────────────────────────────────────┘:.@07@"
  420.                     Locate 15, 16
  421.                     Print "@07@:@0E@:@08@:::@0E@ @18@░░░░░@0F@      @18@░░░░░░░░░░░░░░░@0F@ @08@ ==========@07@  @18@░░@0F@ @07@:@08@::@07@"
  422.                   Else
  423.  3129               If i4520 = 3 Then
  424.                       Delay 0.04
  425.                       Locate 7, 16
  426.                       Print "@NOPAUSE@@3C@▒▒▒▒▓▓▓▓▓@3E@▄@3C@▓▓▓▓@0D@░▒▓@5E@  Marked Files!!  @0D@▓▒░@3C@▒▒▒▒▒▒▒▒▒▒▒░░░@0F@"
  427.                       Locate 8, 16
  428.                       Print "@0F@┌──────────────@08@────────────────────────@0F@──────────┐@3C@▒▒@0F@"
  429.                       Locate 9, 16
  430.                       Print "@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@30@▒▒@0F@"
  431.                       Locate 10, 16
  432.                       Print "@0F@│@0E@  @0F@ @0E@ @01@ @0E@  You have files @0F@marked@0E@ for download!     @08@ │@30@▓▓@0F@"
  433.                       Locate 11, 16
  434.                       Print "@0F@│@0E@ @0F@ @0E@ @01@ @0E@ Do you want to download them now (@0F@y@0E@/@0F@N@0E@)?   @08@ │@30@▓▓@0F@"
  435.                       Locate 12, 16
  436.                       Print "@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@30@▓▓@0F@"
  437.                       Locate 13, 16
  438.                       Print "@0F@│@0E@ @04@░░░░░░░░▒▒▒▒▒▒▒▓▓▓▓▓▓▓@0E@     @04@▓▓▓▓▓▓▓▒▒▒▒▒▒░░░░░░@08@ │@30@▓▓@0F@"
  439.                       Locate 14, 16
  440.                       Print "@0F@└@08@────────────────────────────────────────────────┘@02@▄▄@0A@"
  441.                       Locate 15, 16
  442.                       Print "@0A@██@02@██████████████████████████████████████████████████@07@"
  443.                     Else
  444.  3302                 Delay 0.04
  445.                       Locate 6, 14
  446.                       Print "@NOPAUSE@@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  447.                       Locate 7, 14
  448.                       Print "@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@0D@░▒▓@5E@  Marked Files!!  @0D@▓▒░@09@▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  449.                       Locate 8, 14
  450.                       Print "@09@▒▒@0F@┌──────────────@08@────────────────────────@0F@──────────┐@09@▒▒"
  451.                       Locate 9, 14
  452.                       Print "@09@▒▒@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@01@▒▒@09@"
  453.                       Locate 10, 14
  454.                       Print "@09@▒▒@0F@│@0E@  @0F@ @0E@ @01@ @0E@  You have files @0F@marked@0E@ for download!     @08@ │@01@▒▒@09@"
  455.                       Locate 11, 14
  456.                       Print "@09@▒▒@0F@│@0E@ @0F@ @0E@ @01@ @0E@ Do you want to download them now (@0F@y@0E@/@0F@N@0E@)?   @08@ │@01@▒▒@09@"
  457.                       Locate 12, 14
  458.                       Print "@09@▒▒@0F@│@0E@  @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @08@ │@01@▒▒@09@"
  459.                       Locate 13, 14
  460.                       Print "@09@▒▒@0F@│@0E@ @04@░░░░░░░░▒▒▒▒▒▒▒▓▓▓▓▓▓▓@0E@     @04@▓▓▓▓▓▓▓▒▒▒▒▒▒░░░░░░@08@ │@01@▒▒@09@"
  461.                       Locate 14, 14
  462.                       Print "@09@▒▒@0F@└@08@────────────────────────────────────────────────┘@01@▒▒@09@"
  463.                       Locate 15, 14
  464.                       Print "@09@▒▒▒▒@01@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  465.                     End If
  466.                   End If
  467.                 End If
  468.  3470           Locate 13, 41
  469.                 If (InputYesNo("@0E@", 0)) = 0 Then GoTo 3511
  470.                 Download "", 1213417543
  471.               Loop
  472.  3511         If i4520 = 1 Then
  473.                 Delay 0.05
  474.                 Locate 5, 16
  475.                 Print "@NOPAUSE@@0F@┌──────────────────────────────────────────────────┐@09@▒▒@0F@"
  476.                 Locate 6, 16
  477.                 Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@01@▒▒@0F@"
  478.                 Locate 7, 16
  479.                 Print "@0F@│@0E@  @0F@  @0E@        [@0F@P@0E@] age                             @0F@ @08@ │@01@▒▒@0F@"
  480.                 Locate 8, 16
  481.                 Print "@0F@│@0E@ @0F@  @0E@ @01@ @0E@       [@0F@C@0E@] omment to                       @0F@ @08@ │@01@▒▒@0F@"
  482.                 Locate 9, 16
  483.                 Print "@0F@│@0E@  @0F@ @0E@         [@0F@T@0E@] ime Bank                        @0F@ @0E@ @08@│@01@▒▒@0F@"
  484.                 Locate 10, 16
  485.                 Print "@0F@│@0E@  @0F@ @0E@         [@0F@R@0E@] eturn to @0F@                  @0E@ @0F@  @0E@  @0F@ @0E@ @08@│@01@▒▒@0F@"
  486.                 Locate 7, 37
  487.                 Print "@0E@"; MakeWild.SysopName
  488.                 Locate 8, 43
  489.                 Print "@0E@"; MakeWild.SysopName
  490.                 Locate 10, 42
  491.                 Print "@0E@"; s4522
  492.                 Locate 11, 16
  493.                 Print "@0F@│@0E@  @0F@ @0E@         [@0F@L@0E@] ogoff Immediately               @0F@ @0E@ @08@│@01@▒▒@0F@"
  494.                 Locate 12, 16
  495.                 Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@01@▒▒@0F@"
  496.                 Locate 13, 16
  497.                 Print "@0F@└@08@──────────────────────────────────────────────────┘@01@▒▒@09@"
  498.                 Locate 14, 16
  499.                 Print "@09@▒▒@01@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  500.                 Locate 15, 17
  501.                 Print "@NOPAUSE@@7F@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@78@▄@09@▒▒@7F@"
  502.                 Locate 16, 17
  503.                 Print "@7F@█    @08@█@0E@                                     @08@█@71@ @7F@  @70@ @18@█@01@▒▒@7F@"
  504.                 Locate 17, 17
  505.                 Print "@7F@▀@78@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@18@█@01@▒▒@09@"
  506.                 Locate 18, 17
  507.                 Print "@09@▒▒@01@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  508.                 Delay 0.01
  509.                 Locate 4, 26
  510.                 Print "@06@░▒▓@6E@                         @06@▓▒░@05@"
  511.                 Locate 5, 27
  512.                 Print "@08@───────────────────────────────"
  513.                 If i4471 = -1 Then
  514.  3918             For i4555 = 1 To i4557 Step 1
  515.                     s4551 = Left(s4522, i4555)
  516.                     Locate 4, i4549
  517.                     Print "@NOPAUSE@@6E@"; s4551
  518.                     UpdateScreen 
  519.                     Delay 0.01
  520.                   Next
  521.  4045           Else
  522.  4051             Locate 4, 32
  523.                   Print "@NOPAUSE@@6F@-=≡ @6E@UNREGISTERED @6F@≡=-"
  524.                 End If
  525.  4067         Else
  526.  4073           If i4520 = 2 Then
  527.                   Delay 0.07
  528.                   Locate 5, 16
  529.                   Print "@NOPAUSE@@0F@┌──────────────────────────────────────────────────┐@17@ @0F@"
  530.                   Locate 6, 16
  531.                   Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@13@ @0F@"
  532.                   Locate 7, 16
  533.                   Print "@0F@│@0E@  @0F@  @0E@        [@0F@P@0E@] age                             @0F@ @08@ │@17@ @0F@"
  534.                   Locate 8, 16
  535.                   Print "@0F@│@0E@ @0F@  @0E@ @01@ @0E@       [@0F@C@0E@] omment to                       @0F@ @08@ │@10@ @0F@"
  536.                   Locate 9, 16
  537.                   Print "@0F@│@0E@  @0F@ @0E@         [@0F@T@0E@] ime Bank                        @0F@ @0E@ @08@│@10@╢@0F@"
  538.                   Locate 10, 16
  539.                   Print "@0F@│@0E@  @0F@ @0E@         [@0F@R@0E@] eturn to @0F@                  @0E@ @0F@  @0E@  @0F@ @0E@ @08@│@0F@"
  540.                   Locate 7, 37
  541.                   Print "@0E@"; MakeWild.SysopName
  542.                   Locate 8, 43
  543.                   Print "@0E@"; MakeWild.SysopName
  544.                   Locate 10, 42
  545.                   Print "@0E@"; s4522
  546.                   Locate 11, 16
  547.                   Print "@0F@│@0E@  @0F@ @0E@         [@0F@L@0E@] ogoff Immediately               @0F@ @0E@ @08@│■@0F@"
  548.                   Locate 12, 16
  549.                   Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │.@0F@"
  550.                   Locate 13, 16
  551.                   Print "@0F@└@08@──────────────────────────────────────────────────┘:@18@"
  552.                   Locate 14, 16
  553.                   Print "@18@ @0F@ @07@:@08@:.@07@ @17@   @18@░░░░░░░░░░░░░░░░░░░░░░░@0F@  @08@========== @0E@ @14@░░@08@ ::@0E@.@07@:@7F@"
  554.                   Locate 15, 17
  555.                   Print "@NOPAUSE@@7F@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@78@▄@07@::@7F@"
  556.                   Locate 16, 17
  557.                   Print "@7F@█    @08@█@0E@                                     @08@█@71@ @7F@  @70@ @18@█@08@::@7F@"
  558.                   Locate 17, 17
  559.                   Print "@7F@▀@78@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@18@█@08@::@07@"
  560.                   Locate 18, 17
  561.                   Print "@07@::@08@::::@07@ @18@░░░@0F@ @08@::::@07@ @18@▓▓▓▓@0F@  @08@:. :@0E@ @18@▓▓▓@0F@   @08@==========@07@  @18@▒▒@0F@ @08@.::"
  562.                   Delay 0.01
  563.                   Locate 4, 26
  564.                   Print "@05@░▒▓@5E@                         @05@▓▒░@05@"
  565.                   Locate 5, 27
  566.                   Print "@08@───────────────────────────────"
  567.                   If i4471 = -1 Then
  568.  4480               For i4555 = 1 To i4557 Step 1
  569.                       s4551 = Left(s4522, i4555)
  570.                       Locate 4, i4549
  571.                       Print "@NOPAUSE@@5E@"; s4551
  572.                       UpdateScreen 
  573.                       Delay 0.01
  574.                     Next
  575.  4607             Else
  576.  4613               Locate 4, 32
  577.                     Print "@NOPAUSE@@5F@-=≡ @5E@UNREGISTERED @5F@≡=-"
  578.                   End If
  579.  4629           Else
  580.  4635             If i4520 = 3 Then
  581.                     Delay 0.07
  582.                     Locate 5, 16
  583.                     Print "@NOPAUSE@@0F@┌──────────────────────────────────────────────────┐@3C@  @0F@"
  584.                     Locate 6, 16
  585.                     Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@3C@  @0F@"
  586.                     Locate 7, 16
  587.                     Print "@0F@│@0E@  @0F@  @0E@        [@0F@P@0E@] age                             @0F@ @08@ │@30@░░@0F@"
  588.                     Locate 8, 16
  589.                     Print "@0F@│@0E@ @0F@  @0E@ @01@ @0E@       [@0F@C@0E@] omment to                       @0F@ @08@ │@30@▒▒@0F@"
  590.                     Locate 9, 16
  591.                     Print "@0F@│@0E@  @0F@ @0E@         [@0F@T@0E@] ime Bank                        @0F@ @0E@ @08@│@30@▒▒@0F@"
  592.                     Locate 10, 16
  593.                     Print "@0F@│@0E@  @0F@ @0E@         [@0F@R@0E@] eturn to @0F@                  @0E@ @0F@  @0E@  @0F@ @0E@ @08@│@30@▒▒@0F@"
  594.                     Locate 7, 37
  595.                     Print "@0E@"; MakeWild.SysopName
  596.                     Locate 8, 43
  597.                     Print "@0E@"; MakeWild.SysopName
  598.                     Locate 10, 42
  599.                     Print "@0E@"; s4522
  600.                     Locate 11, 16
  601.                     Print "@0F@│@0E@  @0F@ @0E@         [@0F@L@0E@] ogoff Immediately               @0F@ @0E@ @08@│@30@▓▒@0F@"
  602.                     Locate 12, 16
  603.                     Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@30@▓▒@0F@"
  604.                     Locate 13, 16
  605.                     Print "@0F@└@08@──────────────────────────────────────────────────┘@30@▒▒@2A@"
  606.                     Locate 14, 16
  607.                     Print "@2A@██@02@█████████████████████████████████████████▄▄▄▄▄▄▄▄▄▄▄@7F@"
  608.                     Locate 15, 17
  609.                     Print "@NOPAUSE@@7F@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@78@▄@0A@██@7F@"
  610.                     Locate 16, 17
  611.                     Print "@7F@█    @08@█@0E@                                     @08@█@71@ @7F@  @70@ @18@█@02@██@7F@"
  612.                     Locate 17, 17
  613.                     Print "@7F@▀@78@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@18@█@02@██@0A@"
  614.                     Locate 18, 17
  615.                     Print "@0A@██@02@█████████████████████████████████████████████████@07@"
  616.                     Delay 0.01
  617.                     Locate 4, 26
  618.                     Print "@04@░▒▓@4E@                         @04@▓▒░@08@"
  619.                     Locate 5, 27
  620.                     Print "@08@───────────────────────────────"
  621.                     If i4471 = -1 Then
  622.  5042                 For i4555 = 1 To i4557 Step 1
  623.                         s4551 = Left(s4522, i4555)
  624.                         Locate 4, i4549
  625.                         Print "@NOPAUSE@@4E@"; s4551
  626.                         UpdateScreen 
  627.                         Delay 0.01
  628.                       Next
  629.  5169               Else
  630.  5175                 Locate 4, 32
  631.                       Print "@NOPAUSE@@4F@-=≡ @4E@UNREGISTERED @4F@≡=-"
  632.                     End If
  633.  5191             Else
  634.  5197               Delay 0.05
  635.                     Locate 5, 16
  636.                     Print "@NOPAUSE@@0F@┌──────────────────────────────────────────────────┐@09@▒▒@0F@"
  637.                     Locate 6, 16
  638.                     Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@01@▒▒@0F@"
  639.                     Locate 7, 16
  640.                     Print "@0F@│@0E@  @0F@  @0E@        [@0F@P@0E@] age                             @0F@ @08@ │@01@▒▒@0F@"
  641.                     Locate 8, 16
  642.                     Print "@0F@│@0E@ @0F@  @0E@ @01@ @0E@       [@0F@C@0E@] omment to                       @0F@ @08@ │@01@▒▒@0F@"
  643.                     Locate 9, 16
  644.                     Print "@0F@│@0E@  @0F@ @0E@         [@0F@T@0E@] ime Bank                        @0F@ @0E@ @08@│@01@▒▒@0F@"
  645.                     Locate 10, 16
  646.                     Print "@0F@│@0E@  @0F@ @0E@         [@0F@R@0E@] eturn to @0F@                  @0E@ @0F@  @0E@  @0F@ @0E@ @08@│@01@▒▒@0F@"
  647.                     Locate 7, 37
  648.                     Print "@0E@"; MakeWild.SysopName
  649.                     Locate 8, 43
  650.                     Print "@0E@"; MakeWild.SysopName
  651.                     Locate 10, 42
  652.                     Print "@0E@"; s4522
  653.                     Locate 11, 16
  654.                     Print "@0F@│@0E@  @0F@ @0E@         [@0F@L@0E@] ogoff Immediately               @0F@ @0E@ @08@│@01@▒▒@0F@"
  655.                     Locate 12, 16
  656.                     Print "@0F@│@0E@  @0F@ @01@──────@09@────@03@───────@0B@────@0F@────@0B@────@03@─────@09@────@01@──────@0E@ @0F@ @08@ │@01@▒▒@0F@"
  657.                     Locate 13, 16
  658.                     Print "@0F@└@08@──────────────────────────────────────────────────┘@01@▒▒@09@"
  659.                     Locate 14, 16
  660.                     Print "@09@▒▒@01@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  661.                     Locate 15, 17
  662.                     Print "@NOPAUSE@@7F@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@78@▄@09@▒▒@7F@"
  663.                     Locate 16, 17
  664.                     Print "@7F@█    @08@█@0E@                                     @08@█@71@ @7F@  @70@ @18@█@01@▒▒@7F@"
  665.                     Locate 17, 17
  666.                     Print "@7F@▀@78@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@18@█@01@▒▒@09@"
  667.                     Locate 18, 17
  668.                     Print "@09@▒▒@01@▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒@07@"
  669.                     Delay 0.01
  670.                     Locate 4, 26
  671.                     Print "@06@░▒▓@6E@                         @06@▓▒░@05@"
  672.                     Locate 5, 27
  673.                     Print "@08@───────────────────────────────"
  674.                     If i4471 = -1 Then
  675.  5589                 For i4555 = 1 To i4557 Step 1
  676.                         s4551 = Left(s4522, i4555)
  677.                         Locate 4, i4549
  678.                         Print "@NOPAUSE@@6E@"; s4551
  679.                         UpdateScreen 
  680.                         Delay 0.01
  681.                       Next
  682.  5716               Else
  683.  5722                 Locate 4, 32
  684.                       Print "@NOPAUSE@@6F@-=≡ @6E@UNREGISTERED @6F@≡=-"
  685.                     End If
  686.                   End If
  687.                 End If
  688.               End If
  689.               Do
  690.  5738           Sub16051
  691.                 s4477 = UCase(s4481)
  692.               Loop Until s4477 > ""
  693.               s65528_ = s4477
  694.               If (s65528_ = "P") = 0 Then GoTo 5872
  695.               If Exists(s4492) Then
  696.                 Cls 
  697.                 Run s4492, ""
  698.               Else
  699.  5833           Delay 0.09
  700.                 Print "@0E@"
  701.                 Locate 22, 1
  702.                 PageSysop 
  703.               End If
  704.  5860       Loop
  705.             GoTo 14650
  706.  5872       If (s65528_ = "C") = 0 Then GoTo 6006
  707.             If i4471 = 0 Then
  708.               Sub15490
  709.             End If
  710.  5909       If Exists(s4488) Then
  711.               Join i4504
  712.               Cls 
  713.               Run s4488, ""
  714.               Join i4506
  715.             Else
  716.  5959         Print "@0E@"
  717.               Locate 22, 1
  718.               Join i4504
  719.               Comment 
  720.               Join i4506
  721.             End If
  722.  5994     Loop
  723.           GoTo 14650
  724.  6006     If (s65528_ = "T") = 0 Then GoTo 6101
  725.           If Exists(s4496) Then
  726.             Cls 
  727.             Run s4496, ""
  728.           Else
  729.  6057       Delay 0.09
  730.             Locate 16, 23
  731.             Print "@NOPAUSE@@0E@     This option is @0F@NOT @0E@available!   @0E@"
  732.             Delay 1
  733.           End If
  734.  6089   Loop
  735.         GoTo 14650
  736.  6101   If s65528_ = "R" Then
  737.           Delay 0.25
  738.           Sub16221
  739.           Delay 1
  740.           End 
  741.         Else
  742.  6147     If s65528_ = "L" Then
  743.             Delay 0.25
  744.             If i4520 = 1 Then
  745.               Sub16849
  746.               Delay 0.52
  747.             Else
  748.  6207         If i4520 = 2 Then
  749.                 Sub17477
  750.                 Delay 0.59
  751.               Else
  752.  6242           If i4520 = 3 Then
  753.                   Sub18105
  754.                   Delay 0.64
  755.                 Else
  756.  6277             Sub16849
  757.                   Delay 0.52
  758.                 End If
  759.               End If
  760.             End If
  761.  6291       If i4471 = 0 Then
  762.               Cls 
  763.               Locate 3, 1
  764.               Print "@NOPAUSE@@07@             @08@┌───────────────────────────────────────────────────@0F@┐@07@"
  765.               Print "@07@             @08@│@0F@  @0C@                                              @0F@   │@07@"
  766.               Print "@07@             @08@└@0F@───────────────────────────────────────────────────┘@07@"
  767.               Delay 0.29
  768.               Locate 4, 20
  769.               Print "@0C@P"
  770.               Delay 0.24
  771.               Locate 4, 23
  772.               Print "@0C@l"
  773.               Delay 0.24
  774.               Locate 4, 26
  775.               Print "@0C@e"
  776.               Delay 0.24
  777.               Locate 4, 29
  778.               Print "@0C@a"
  779.               Delay 0.24
  780.               Locate 4, 32
  781.               Print "@0C@s"
  782.               Delay 0.24
  783.               Locate 4, 35
  784.               Print "@0C@e"
  785.               Delay 0.24
  786.               Locate 4, 41
  787.               Print "@0C@R"
  788.               Delay 0.24
  789.               Locate 4, 44
  790.               Print "@0C@E"
  791.               Delay 0.24
  792.               Locate 4, 47
  793.               Print "@0C@G"
  794.               Delay 0.24
  795.               Locate 4, 50
  796.               Print "@0C@I"
  797.               Delay 0.24
  798.               Locate 4, 53
  799.               Print "@0C@S"
  800.               Delay 0.24
  801.               Locate 4, 56
  802.               Print "@0C@T"
  803.               Delay 0.24
  804.               Locate 4, 59
  805.               Print "@0C@E"
  806.               Delay 0.24
  807.               Locate 4, 62
  808.               Print "@0C@R"
  809.               Delay 0.15
  810.               Locate 4, 41
  811.               Print "@0F@R"
  812.               Delay 0.03
  813.               Locate 4, 62
  814.               Print "@0F@R"
  815.               Delay 0.03
  816.               Locate 4, 44
  817.               Print "@0F@E"
  818.               Delay 0.03
  819.               Locate 4, 59
  820.               Print "@0F@E"
  821.               Delay 0.03
  822.               Locate 4, 47
  823.               Print "@0F@G"
  824.               Delay 0.03
  825.               Locate 4, 56
  826.               Print "@0F@T"
  827.               Delay 0.03
  828.               Locate 4, 50
  829.               Print "@0F@I"
  830.               Delay 0.03
  831.               Locate 4, 53
  832.               Print "@0F@S"
  833.               Delay 0
  834.               Locate 4, 41
  835.               Print "@06@R"
  836.               Delay 0.03
  837.               Locate 4, 62
  838.               Print "@06@R"
  839.               Delay 0.03
  840.               Locate 4, 44
  841.               Print "@06@E"
  842.               Delay 0.03
  843.               Locate 4, 59
  844.               Print "@06@E"
  845.               Delay 0.03
  846.               Locate 4, 47
  847.               Print "@06@G"
  848.               Delay 0.03
  849.               Locate 4, 56
  850.               Print "@06@T"
  851.               Delay 0.03
  852.               Locate 4, 50
  853.               Print "@06@I"
  854.               Delay 0.03
  855.               Locate 4, 53
  856.               Print "@06@S"
  857.               Delay 0.03
  858.               Locate 4, 41
  859.               Print "@06@R"
  860.               Delay 0.03
  861.               Locate 4, 62
  862.               Print "@06@R"
  863.               Delay 0.03
  864.               Locate 4, 44
  865.               Print "@06@E"
  866.               Delay 0.03
  867.               Locate 4, 59
  868.               Print "@06@E"
  869.               Delay 0.03
  870.               Locate 4, 47
  871.               Print "@06@G"
  872.               Delay 0.03
  873.               Locate 4, 56
  874.               Print "@06@T"
  875.               Locate 4, 50
  876.               Print "@06@I"
  877.               Locate 4, 53
  878.               Print "@06@S"
  879.               Locate 4, 41
  880.               Print "@0E@R"
  881.               Delay 0.03
  882.               Locate 4, 62
  883.               Print "@0E@R"
  884.               Delay 0.03
  885.               Locate 4, 44
  886.               Print "@0E@E"
  887.               Delay 0.03
  888.               Locate 4, 59
  889.               Print "@0E@E"
  890.               Delay 0.03
  891.               Locate 4, 47
  892.               Print "@0E@G"
  893.               Delay 0.03
  894.               Locate 4, 56
  895.               Print "@0E@T"
  896.               Delay 0.03
  897.               Locate 4, 50
  898.               Print "@0E@I"
  899.               Delay 0.03
  900.               Locate 4, 53
  901.               Print "@0E@S"
  902.               Delay 0.03
  903.               Locate 4, 41
  904.               Print "@0E@R"
  905.               Delay 0.03
  906.               Locate 4, 62
  907.               Print "@0E@R"
  908.               Delay 0.03
  909.               Locate 4, 44
  910.               Print "@0E@E"
  911.               Delay 0.03
  912.               Locate 4, 59
  913.               Print "@0E@E"
  914.               Delay 0.03
  915.               Locate 4, 47
  916.               Print "@0E@G"
  917.               Delay 0.03
  918.               Locate 4, 56
  919.               Print "@0E@T"
  920.               Locate 4, 50
  921.               Print "@0E@I"
  922.               Locate 4, 53
  923.               Print "@0E@S"
  924.               Locate 4, 41
  925.               Print "@05@R"
  926.               Delay 0.03
  927.               Locate 4, 62
  928.               Print "@05@R"
  929.               Delay 0.03
  930.               Locate 4, 44
  931.