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