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