home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / TJTF10.ZIP / TOPFILES.WCX (.txt) < prev   
Encoding:
Wildcat! WCX  |  1994-12-30  |  25.3 KB  |  562 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  25863 bytes  08/22/124  11:36:42pm
  3. '! Code Segment Size  :24205 bytes
  4. '! Data Segment Size  :7339 bytes
  5. '! String Segment Size:1658 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim l4467 As Long
  9.       Dim l4471 As Long
  10.       Dim fr4509 As FileRecord
  11.       Dim s6651 As String
  12.       Dim s6659 As String
  13.       Dim s6663 As String
  14.       Dim s6764(0 To 20) As String*25
  15.       Dim i7289(0 To 20) As Integer
  16.       Dim l7331 As Long
  17.  
  18.       Dim l65512_ As Long
  19.       Dim l65516_ As Long
  20.       Dim l65520_ As Long
  21.       Dim l65524_ As Long
  22.       Dim l65528_ As Long
  23.       Dim l65532_ As Long
  24.  
  25.       Cls 
  26.       StatusClear 0
  27.       Locate 1, 5
  28.       Color 15, 0
  29.       Print "Running TOPFiles v1.00......please wait"
  30.       MorePrompt(0)
  31.       s6663 = ProgPath + "topfiles.cfg"
  32.       If Exists(s6663) Then
  33.         Open s6663 For Input As 1
  34.         Input #1, s6651
  35.         Input #1, s6659
  36.         Close 1
  37.       Else
  38.   145   Print
  39.         Print "Can't Find " + ProgPath + "TOPFiles.CFG"
  40.         End 
  41.       End If
  42.   169 l4467 = 1
  43.   176 Do While GetNextFile(fr4509, 1213417543)
  44.         Color 7, 0
  45.         l4471 = fr4509.Downloads
  46.         If l4471 < i7289(20) Then
  47.         Else
  48.   258     If l4471 = 0 Then
  49.           Else
  50.   278       If l4471 >= i7289(20) And l4471 < i7289(19) Then
  51.               i7289(20) = l4471
  52.               s6764(20) = fr4509.Name
  53.             Else
  54.   426         If l4471 >= i7289(19) And l4471 < i7289(18) Then
  55.                 i7289(20) = i7289(19)
  56.                 s6764(20) = s6764(19)
  57.                 i7289(19) = l4471
  58.                 s6764(19) = fr4509.Name
  59.               End If
  60.   674         If l4471 >= i7289(18) And l4471 < i7289(17) Then
  61.                 i7289(20) = i7289(19)
  62.                 s6764(20) = s6764(19)
  63.                 i7289(19) = i7289(18)
  64.                 s6764(19) = s6764(18)
  65.                 i7289(18) = l4471
  66.                 s6764(18) = fr4509.Name
  67.               End If
  68.  1028         If l4471 >= i7289(17) And l4471 < i7289(16) Then
  69.                 i7289(20) = i7289(19)
  70.                 s6764(20) = s6764(19)
  71.                 i7289(19) = i7289(18)
  72.                 s6764(19) = s6764(18)
  73.                 i7289(18) = i7289(17)
  74.                 s6764(18) = s6764(17)
  75.                 i7289(17) = l4471
  76.                 s6764(17) = fr4509.Name
  77.               End If
  78.  1488         If l4471 >= i7289(16) And l4471 < i7289(15) Then
  79.                 i7289(20) = i7289(19)
  80.                 s6764(20) = s6764(19)
  81.                 i7289(19) = i7289(18)
  82.                 s6764(19) = s6764(18)
  83.                 i7289(18) = i7289(17)
  84.                 s6764(18) = s6764(17)
  85.                 i7289(17) = i7289(16)
  86.                 s6764(17) = s6764(16)
  87.                 i7289(16) = l4471
  88.                 s6764(16) = fr4509.Name
  89.               End If
  90.  2054         If l4471 >= i7289(15) And l4471 < i7289(14) Then
  91.                 i7289(20) = i7289(19)
  92.                 s6764(20) = s6764(19)
  93.                 i7289(19) = i7289(18)
  94.                 s6764(19) = s6764(18)
  95.                 i7289(18) = i7289(17)
  96.                 s6764(18) = s6764(17)
  97.                 i7289(17) = i7289(16)
  98.                 s6764(17) = s6764(16)
  99.                 i7289(16) = i7289(15)
  100.                 s6764(16) = s6764(15)
  101.                 i7289(15) = l4471
  102.                 s6764(15) = fr4509.Name
  103.               End If
  104.  2726         If l4471 >= i7289(14) And l4471 < i7289(13) Then
  105.                 i7289(20) = i7289(19)
  106.                 s6764(20) = s6764(19)
  107.                 i7289(19) = i7289(18)
  108.                 s6764(19) = s6764(18)
  109.                 i7289(18) = i7289(17)
  110.                 s6764(18) = s6764(17)
  111.                 i7289(17) = i7289(16)
  112.                 s6764(17) = s6764(16)
  113.                 i7289(16) = i7289(15)
  114.                 s6764(16) = s6764(15)
  115.                 i7289(15) = i7289(14)
  116.                 s6764(15) = s6764(14)
  117.                 i7289(14) = l4471
  118.                 s6764(14) = fr4509.Name
  119.               End If
  120.  3504         If l4471 >= i7289(13) And l4471 < i7289(12) Then
  121.                 i7289(20) = i7289(19)
  122.                 s6764(20) = s6764(19)
  123.                 i7289(19) = i7289(18)
  124.                 s6764(19) = s6764(18)
  125.                 i7289(18) = i7289(17)
  126.                 s6764(18) = s6764(17)
  127.                 i7289(17) = i7289(16)
  128.                 s6764(17) = s6764(16)
  129.                 i7289(16) = i7289(15)
  130.                 s6764(16) = s6764(15)
  131.                 i7289(15) = i7289(14)
  132.                 s6764(15) = s6764(14)
  133.                 i7289(14) = i7289(13)
  134.                 s6764(14) = s6764(13)
  135.                 i7289(13) = l4471
  136.                 s6764(13) = fr4509.Name
  137.               End If
  138.  4388         If l4471 >= i7289(12) And l4471 < i7289(11) Then
  139.                 i7289(20) = i7289(19)
  140.                 s6764(20) = s6764(19)
  141.                 i7289(19) = i7289(18)
  142.                 s6764(19) = s6764(18)
  143.                 i7289(18) = i7289(17)
  144.                 s6764(18) = s6764(17)
  145.                 i7289(17) = i7289(16)
  146.                 s6764(17) = s6764(16)
  147.                 i7289(16) = i7289(15)
  148.                 s6764(16) = s6764(15)
  149.                 i7289(15) = i7289(14)
  150.                 s6764(15) = s6764(14)
  151.                 i7289(14) = i7289(13)
  152.                 s6764(14) = s6764(13)
  153.                 i7289(13) = i7289(12)
  154.                 s6764(13) = s6764(12)
  155.                 i7289(12) = l4471
  156.                 s6764(12) = fr4509.Name
  157.               End If
  158.  5378         If l4471 >= i7289(11) And l4471 < i7289(10) Then
  159.                 i7289(20) = i7289(19)
  160.                 s6764(20) = s6764(19)
  161.                 i7289(19) = i7289(18)
  162.                 s6764(19) = s6764(18)
  163.                 i7289(18) = i7289(17)
  164.                 s6764(18) = s6764(17)
  165.                 i7289(17) = i7289(16)
  166.                 s6764(17) = s6764(16)
  167.                 i7289(16) = i7289(15)
  168.                 s6764(16) = s6764(15)
  169.                 i7289(15) = i7289(14)
  170.                 s6764(15) = s6764(14)
  171.                 i7289(14) = i7289(13)
  172.                 s6764(14) = s6764(13)
  173.                 i7289(13) = i7289(12)
  174.                 s6764(13) = s6764(12)
  175.                 i7289(12) = i7289(11)
  176.                 s6764(12) = s6764(11)
  177.                 i7289(11) = l4471
  178.                 s6764(11) = fr4509.Name
  179.               End If
  180.  6474         If l4471 >= i7289(10) And l4471 < i7289(9) Then
  181.                 i7289(20) = i7289(19)
  182.                 s6764(20) = s6764(19)
  183.                 i7289(19) = i7289(18)
  184.                 s6764(19) = s6764(18)
  185.                 i7289(18) = i7289(17)
  186.                 s6764(18) = s6764(17)
  187.                 i7289(17) = i7289(16)
  188.                 s6764(17) = s6764(16)
  189.                 i7289(16) = i7289(15)
  190.                 s6764(16) = s6764(15)
  191.                 i7289(15) = i7289(14)
  192.                 s6764(15) = s6764(14)
  193.                 i7289(14) = i7289(13)
  194.                 s6764(14) = s6764(13)
  195.                 i7289(13) = i7289(12)
  196.                 s6764(13) = s6764(12)
  197.                 i7289(12) = i7289(11)
  198.                 s6764(12) = s6764(11)
  199.                 i7289(11) = i7289(10)
  200.                 s6764(11) = s6764(10)
  201.                 i7289(10) = l4471
  202.                 s6764(10) = fr4509.Name
  203.               End If
  204.  7676         If l4471 >= i7289(9) And l4471 < i7289(8) Then
  205.                 i7289(20) = i7289(19)
  206.                 s6764(20) = s6764(19)
  207.                 i7289(19) = i7289(18)
  208.                 s6764(19) = s6764(18)
  209.                 i7289(18) = i7289(17)
  210.                 s6764(18) = s6764(17)
  211.                 i7289(17) = i7289(16)
  212.                 s6764(17) = s6764(16)
  213.                 i7289(16) = i7289(15)
  214.                 s6764(16) = s6764(15)
  215.                 i7289(15) = i7289(14)
  216.                 s6764(15) = s6764(14)
  217.                 i7289(14) = i7289(13)
  218.                 s6764(14) = s6764(13)
  219.                 i7289(13) = i7289(12)
  220.                 s6764(13) = s6764(12)
  221.                 i7289(12) = i7289(11)
  222.                 s6764(12) = s6764(11)
  223.                 i7289(11) = i7289(10)
  224.                 s6764(11) = s6764(10)
  225.                 i7289(10) = i7289(9)
  226.                 s6764(10) = s6764(9)
  227.                 i7289(9) = l4471
  228.                 s6764(9) = fr4509.Name
  229.               End If
  230.  8984         If l4471 >= i7289(8) And l4471 < i7289(7) Then
  231.                 i7289(20) = i7289(19)
  232.                 s6764(20) = s6764(19)
  233.                 i7289(19) = i7289(18)
  234.                 s6764(19) = s6764(18)
  235.                 i7289(18) = i7289(17)
  236.                 s6764(18) = s6764(17)
  237.                 i7289(17) = i7289(16)
  238.                 s6764(17) = s6764(16)
  239.                 i7289(16) = i7289(15)
  240.                 s6764(16) = s6764(15)
  241.                 i7289(15) = i7289(14)
  242.                 s6764(15) = s6764(14)
  243.                 i7289(14) = i7289(13)
  244.                 s6764(14) = s6764(13)
  245.                 i7289(13) = i7289(12)
  246.                 s6764(13) = s6764(12)
  247.                 i7289(12) = i7289(11)
  248.                 s6764(12) = s6764(11)
  249.                 i7289(11) = i7289(10)
  250.                 s6764(11) = s6764(10)
  251.                 i7289(10) = i7289(9)
  252.                 s6764(10) = s6764(9)
  253.                 i7289(9) = i7289(8)
  254.                 s6764(9) = s6764(8)
  255.                 i7289(8) = l4471
  256.                 s6764(8) = fr4509.Name
  257.               End If
  258. 10398         If l4471 >= i7289(7) And l4471 < i7289(6) Then
  259.                 i7289(20) = i7289(19)
  260.                 s6764(20) = s6764(19)
  261.                 i7289(19) = i7289(18)
  262.                 s6764(19) = s6764(18)
  263.                 i7289(18) = i7289(17)
  264.                 s6764(18) = s6764(17)
  265.                 i7289(17) = i7289(16)
  266.                 s6764(17) = s6764(16)
  267.                 i7289(16) = i7289(15)
  268.                 s6764(16) = s6764(15)
  269.                 i7289(15) = i7289(14)
  270.                 s6764(15) = s6764(14)
  271.                 i7289(14) = i7289(13)
  272.                 s6764(14) = s6764(13)
  273.                 i7289(13) = i7289(12)
  274.                 s6764(13) = s6764(12)
  275.                 i7289(12) = i7289(11)
  276.                 s6764(12) = s6764(11)
  277.                 i7289(11) = i7289(10)
  278.                 s6764(11) = s6764(10)
  279.                 i7289(10) = i7289(9)
  280.                 s6764(10) = s6764(9)
  281.                 i7289(9) = i7289(8)
  282.                 s6764(9) = s6764(8)
  283.                 i7289(8) = i7289(7)
  284.                 s6764(8) = s6764(7)
  285.                 i7289(7) = l4471
  286.                 s6764(7) = fr4509.Name
  287.               End If
  288. 11918         If l4471 >= i7289(6) And l4471 < i7289(5) Then
  289.                 i7289(20) = i7289(19)
  290.                 s6764(20) = s6764(19)
  291.                 i7289(19) = i7289(18)
  292.                 s6764(19) = s6764(18)
  293.                 i7289(18) = i7289(17)
  294.                 s6764(18) = s6764(17)
  295.                 i7289(17) = i7289(16)
  296.                 s6764(17) = s6764(16)
  297.                 i7289(16) = i7289(15)
  298.                 s6764(16) = s6764(15)
  299.                 i7289(15) = i7289(14)
  300.                 s6764(15) = s6764(14)
  301.                 i7289(14) = i7289(13)
  302.                 s6764(14) = s6764(13)
  303.                 i7289(13) = i7289(12)
  304.                 s6764(13) = s6764(12)
  305.                 i7289(12) = i7289(11)
  306.                 s6764(12) = s6764(11)
  307.                 i7289(11) = i7289(10)
  308.                 s6764(11) = s6764(10)
  309.                 i7289(10) = i7289(9)
  310.                 s6764(10) = s6764(9)
  311.                 i7289(9) = i7289(8)
  312.                 s6764(9) = s6764(8)
  313.                 i7289(8) = i7289(7)
  314.                 s6764(8) = s6764(7)
  315.                 i7289(7) = i7289(6)
  316.                 s6764(7) = s6764(6)
  317.                 i7289(6) = l4471
  318.                 s6764(6) = fr4509.Name
  319.               End If
  320. 13544         If l4471 >= i7289(5) And l4471 < i7289(4) Then
  321.                 i7289(20) = i7289(19)
  322.                 s6764(20) = s6764(19)
  323.                 i7289(19) = i7289(18)
  324.                 s6764(19) = s6764(18)
  325.                 i7289(18) = i7289(17)
  326.                 s6764(18) = s6764(17)
  327.                 i7289(17) = i7289(16)
  328.                 s6764(17) = s6764(16)
  329.                 i7289(16) = i7289(15)
  330.                 s6764(16) = s6764(15)
  331.                 i7289(15) = i7289(14)
  332.                 s6764(15) = s6764(14)
  333.                 i7289(14) = i7289(13)
  334.                 s6764(14) = s6764(13)
  335.                 i7289(13) = i7289(12)
  336.                 s6764(13) = s6764(12)
  337.                 i7289(12) = i7289(11)
  338.                 s6764(12) = s6764(11)
  339.                 i7289(11) = i7289(10)
  340.                 s6764(11) = s6764(10)
  341.                 i7289(10) = i7289(9)
  342.                 s6764(10) = s6764(9)
  343.                 i7289(9) = i7289(8)
  344.                 s6764(9) = s6764(8)
  345.                 i7289(8) = i7289(7)
  346.                 s6764(8) = s6764(7)
  347.                 i7289(7) = i7289(6)
  348.                 s6764(7) = s6764(6)
  349.                 i7289(6) = i7289(5)
  350.                 s6764(6) = s6764(5)
  351.                 i7289(5) = l4471
  352.                 s6764(5) = fr4509.Name
  353.               End If
  354. 15276         If l4471 >= i7289(4) And l4471 < i7289(3) Then
  355.                 i7289(20) = i7289(19)
  356.                 s6764(20) = s6764(19)
  357.                 i7289(19) = i7289(18)
  358.                 s6764(19) = s6764(18)
  359.                 i7289(18) = i7289(17)
  360.                 s6764(18) = s6764(17)
  361.                 i7289(17) = i7289(16)
  362.                 s6764(17) = s6764(16)
  363.                 i7289(16) = i7289(15)
  364.                 s6764(16) = s6764(15)
  365.                 i7289(15) = i7289(14)
  366.                 s6764(15) = s6764(14)
  367.                 i7289(14) = i7289(13)
  368.                 s6764(14) = s6764(13)
  369.                 i7289(13) = i7289(12)
  370.                 s6764(13) = s6764(12)
  371.                 i7289(12) = i7289(11)
  372.                 s6764(12) = s6764(11)
  373.                 i7289(11) = i7289(10)
  374.                 s6764(11) = s6764(10)
  375.                 i7289(10) = i7289(9)
  376.                 s6764(10) = s6764(9)
  377.                 i7289(9) = i7289(8)
  378.                 s6764(9) = s6764(8)
  379.                 i7289(8) = i7289(7)
  380.                 s6764(8) = s6764(7)
  381.                 i7289(7) = i7289(6)
  382.                 s6764(7) = s6764(6)
  383.                 i7289(6) = i7289(5)
  384.                 s6764(6) = s6764(5)
  385.                 i7289(5) = i7289(4)
  386.                 s6764(5) = s6764(4)
  387.                 i7289(4) = l4471
  388.                 s6764(4) = fr4509.Name
  389.               End If
  390. 17114         If l4471 >= i7289(3) And l4471 < i7289(2) Then
  391.                 i7289(20) = i7289(19)
  392.                 s6764(20) = s6764(19)
  393.                 i7289(19) = i7289(18)
  394.                 s6764(19) = s6764(18)
  395.                 i7289(18) = i7289(17)
  396.                 s6764(18) = s6764(17)
  397.                 i7289(17) = i7289(16)
  398.                 s6764(17) = s6764(16)
  399.                 i7289(16) = i7289(15)
  400.                 s6764(16) = s6764(15)
  401.                 i7289(15) = i7289(14)
  402.                 s6764(15) = s6764(14)
  403.                 i7289(14) = i7289(13)
  404.                 s6764(14) = s6764(13)
  405.                 i7289(13) = i7289(12)
  406.                 s6764(13) = s6764(12)
  407.                 i7289(12) = i7289(11)
  408.                 s6764(12) = s6764(11)
  409.                 i7289(11) = i7289(10)
  410.                 s6764(11) = s6764(10)
  411.                 i7289(10) = i7289(9)
  412.                 s6764(10) = s6764(9)
  413.                 i7289(9) = i7289(8)
  414.                 s6764(9) = s6764(8)
  415.                 i7289(8) = i7289(7)
  416.                 s6764(8) = s6764(7)
  417.                 i7289(7) = i7289(6)
  418.                 s6764(7) = s6764(6)
  419.                 i7289(6) = i7289(5)
  420.                 s6764(6) = s6764(5)
  421.                 i7289(5) = i7289(4)
  422.                 s6764(5) = s6764(4)
  423.                 i7289(4) = i7289(3)
  424.                 s6764(4) = s6764(3)
  425.                 i7289(3) = l4471
  426.                 s6764(3) = fr4509.Name
  427.               End If
  428. 19058         If l4471 >= i7289(2) And l4471 < i7289(1) Then
  429.                 i7289(20) = i7289(19)
  430.                 s6764(20) = s6764(19)
  431.                 i7289(19) = i7289(18)
  432.                 s6764(19) = s6764(18)
  433.                 i7289(18) = i7289(17)
  434.                 s6764(18) = s6764(17)
  435.                 i7289(17) = i7289(16)
  436.                 s6764(17) = s6764(16)
  437.                 i7289(16) = i7289(15)
  438.                 s6764(16) = s6764(15)
  439.                 i7289(15) = i7289(14)
  440.                 s6764(15) = s6764(14)
  441.                 i7289(14) = i7289(13)
  442.                 s6764(14) = s6764(13)
  443.                 i7289(13) = i7289(12)
  444.                 s6764(13) = s6764(12)
  445.                 i7289(12) = i7289(11)
  446.                 s6764(12) = s6764(11)
  447.                 i7289(11) = i7289(10)
  448.                 s6764(11) = s6764(10)
  449.                 i7289(10) = i7289(9)
  450.                 s6764(10) = s6764(9)
  451.                 i7289(9) = i7289(8)
  452.                 s6764(9) = s6764(8)
  453.                 i7289(8) = i7289(7)
  454.                 s6764(8) = s6764(7)
  455.                 i7289(7) = i7289(6)
  456.                 s6764(7) = s6764(6)
  457.                 i7289(6) = i7289(5)
  458.                 s6764(6) = s6764(5)
  459.                 i7289(5) = i7289(4)
  460.                 s6764(5) = s6764(4)
  461.                 i7289(4) = i7289(3)
  462.                 s6764(4) = s6764(3)
  463.                 i7289(3) = i7289(2)
  464.                 s6764(3) = s6764(2)
  465.                 i7289(2) = l4471
  466.                 s6764(2) = fr4509.Name
  467.               End If
  468. 21108         If l4471 >= i7289(1) Then
  469.                 i7289(20) = i7289(19)
  470.                 s6764(20) = s6764(19)
  471.                 i7289(19) = i7289(18)
  472.                 s6764(19) = s6764(18)
  473.                 i7289(18) = i7289(17)
  474.                 s6764(18) = s6764(17)
  475.                 i7289(17) = i7289(16)
  476.                 s6764(17) = s6764(16)
  477.                 i7289(16) = i7289(15)
  478.                 s6764(16) = s6764(15)
  479.                 i7289(15) = i7289(14)
  480.                 s6764(15) = s6764(14)
  481.                 i7289(14) = i7289(13)
  482.                 s6764(14) = s6764(13)
  483.                 i7289(13) = i7289(12)
  484.                 s6764(13) = s6764(12)
  485.                 i7289(12) = i7289(11)
  486.                 s6764(12) = s6764(11)
  487.                 i7289(11) = i7289(10)
  488.                 s6764(11) = s6764(10)
  489.                 i7289(10) = i7289(9)
  490.                 s6764(10) = s6764(9)
  491.                 i7289(9) = i7289(8)
  492.                 s6764(9) = s6764(8)
  493.                 i7289(8) = i7289(7)
  494.                 s6764(8) = s6764(7)
  495.                 i7289(7) = i7289(6)
  496.                 s6764(7) = s6764(6)
  497.                 i7289(6) = i7289(5)
  498.                 s6764(6) = s6764(5)
  499.                 i7289(5) = i7289(4)
  500.                 s6764(5) = s6764(4)
  501.                 i7289(4) = i7289(3)
  502.                 s6764(4) = s6764(3)
  503.                 i7289(3) = i7289(2)
  504.                 s6764(3) = s6764(2)
  505.                 i7289(2) = i7289(1)
  506.                 s6764(2) = s6764(1)
  507.                 i7289(1) = l4471
  508.                 s6764(1) = fr4509.Name
  509.               End If
  510. 23229         Locate 2, 1
  511.               Print "@07@ @4F@                FILENAME               NUMBER OF DOWNLOADS                    "
  512.               Locate 3, 1
  513.               Print "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  514. 23282         For l7331 = 1 To 20 Step 1
  515.                 Locate 3 + l7331, 1
  516.                 Print "@07@                                                                              "
  517.               Next
  518. 23378
  519. 23399         For l7331 = 1 To 20 Step 1
  520.                 Locate 3 + l7331, 1
  521.                 Print "@0F@               "; Pad(s6764(l7331), 28); "@0E@     "; Pad(Str(i7289(l7331)), 10); "@06@     "
  522.               Next
  523.             End If
  524.           End If
  525.         End If
  526. 23585 Loop
  527. 23591 Color 7, 0
  528.       Open s6651 For Output As 1
  529.       Print #1, "@CLS@@0E@@07@@0F@ @BBS@@0E@"
  530.       Print #1, "@0E@ Top 20 Downloaded Files  "
  531.       Print #1, "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  532.       Print #1, "@07@ @4F@                FILENAME                  TIMES DOWNLOADED                    "
  533.       Print #1, "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  534.       Close 1
  535.       Open s6659 For Output As 2
  536.       Print #2, "@NOPAUSE@"
  537.       Print #2, "!|1K|*|w04042D1101|1BH80F0200LS050E000B080900000E050000H8|Y00000100"
  538.       Print #2, "!|1U060900000000<>@BBS@<>"
  539.       Print #2, "!|1U068O00000000<>Top 20 Downloaded Files<>|c0B|W00|=00000001"
  540.       Print #2, "!|P05000W008G0K8G0K0W0K0W|P05GY0WGY8GHI8GHI0WHI0W|S0109|F0D3B0B|FHA3S0B|#|#|#"
  541.       Print #2, "@CLS@@0E@@07@@0F@ @BBS@@0E@"
  542.       Print #2, "@0E@ Top 20 Message Posters "
  543.       Print #2, "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  544.       Print #2, "@07@ @4F@                FILENAME                  TIMES DOWNLOADED                    "
  545.       Print #2, "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  546.       Close 2
  547.       Open s6651 For Append As 1
  548.       Open s6659 For Append As 2
  549. 23854 For l7331 = 1 To 20 Step 1
  550.         Print #1, "@0F@               "; Pad(s6764(l7331), 28); "@0E@     "; Pad(Str(i7289(l7331)), 10); "@06@     "
  551.         Print #2, "@0F@               "; Pad(s6764(l7331), 28); "@0E@     "; Pad(Str(i7289(l7331)), 10); "@06@     "
  552.       Next
  553. 24127 Print #1, "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  554.       Print #1, "@02@ TopFiles (WCX v1.00) Written by T&J Software "
  555.       Print #2, "@07@ @4F@──────────────────────────────────────────────────────────────────────────────"
  556.       Print #2, "@02@ TopFiles (WCX v1.00) Written by T&J Software "
  557.       Close 1
  558.       Close 2
  559.       Color 7, 0
  560.       End 
  561.       End 
  562.