home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / LIST211.ZIP / LISTUTIL.WCX (.txt) < prev   
Wildcat! WCX  |  1994-12-22  |  6KB  |  398 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  6316 bytes  12/30/122  04:12:10pm
  3. '! Code Segment Size  :3526 bytes
  4. '! Data Segment Size  :4623 bytes
  5. '! String Segment Size:2790 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type26
  9.         s0 As String*70
  10.         s70 As String*8
  11.       End Type
  12.  
  13.       Dim s4463 As String*70
  14.       Dim t26_4533 As Type26
  15.       Dim s4611 As String
  16.       Dim s4615 As String
  17.       Dim i4619 As Integer
  18.       Dim i4621 As Integer
  19.  
  20.       Dim s65528_ As String
  21.       Dim s65532_ As String
  22.  
  23.       Cls 
  24.       Print "Listutil v2.05 (12/22/94) - by Pete Nelson"
  25.       Print "Terminal One BBS (510) 673-9217"
  26.       Print "Author: pete@terminal-one.com"
  27.       Print
  28.       WaitEnter 
  29.       Do
  30.         Do
  31.           Do
  32.             Do
  33.               Do
  34.                 Do
  35.                   Do
  36.                     Do
  37.                       Do
  38.                         Do
  39.                           Do
  40.                             Do
  41.                               Do
  42.                                 Do
  43.                                   Do
  44.                                     Do
  45.                                       Do
  46.                                         Do
  47.    75                                     Reset 
  48.                                           Cls 
  49.                                           Print
  50.                                           Print "  @0B@Listutil v2.05 @0E@- @0F@Sysop Utilites Option"
  51.                                           Print
  52.                                           Print "  @09@[@0F@C@09@] @0E@- @0A@Create a new Mailing List"
  53.                                           If Exists("listserv.dat") Then
  54.                                             Print "  @09@[@0F@R@09@] @0E@- @0A@Remove a Mailing List"
  55.                                             Print "  @09@[@0F@V@09@] @0E@- @0A@View your Mailing Lists"
  56.                                             Print "  @09@[@0F@L@09@] @0E@- @0A@List Subscribers for a Mailing List"
  57.                                             Print "  @09@[@0F@D@09@] @0E@- @0A@Drop a Subscriber from a Mailing List"
  58.                                             Print "  @09@[@0F@A@09@] @0E@- @0A@Add a Subscriber to a Mailing List"
  59.                                           End If
  60.   162                                     Print "  @09@[@0F@P@09@] @0E@- @0A@Change the high message pointer in LISTSERV.PTR"
  61.                                           Print "  @09@[@0F@Q@09@] @0E@- @0A@Quit"
  62.                                           Print
  63.                                           Print "  @0B@Choice@07@:@0F@ ";
  64.                                           s4611 = ""
  65.                                           Do
  66.   200                                       s4611 = UCase(InKey(1213417543))
  67.                                           Loop Until s4611 > ""
  68.                                           Print "@0D@"; s4611
  69.                                           s65532_ = s4611
  70.                                           If s65532_ = "C" Then
  71.                                             GoTo 493
  72.                                             GoTo 493
  73.                                           End If
  74.   284                                     If s65532_ = "R" Then
  75.                                             GoTo 776
  76.                                             GoTo 493
  77.                                           End If
  78.   313                                     If s65532_ = "V" Then
  79.                                             GoTo 1131
  80.                                             GoTo 493
  81.                                           End If
  82.   342                                     If s65532_ = "A" Then
  83.                                             GoTo 1300
  84.                                             GoTo 493
  85.                                           End If
  86.   371                                     If s65532_ = "D" Then
  87.                                             GoTo 1983
  88.                                             GoTo 493
  89.                                           End If
  90.   400                                     If s65532_ = "L" Then
  91.                                             GoTo 2991
  92.                                             GoTo 493
  93.                                           End If
  94.   429                                     If s65532_ = "P" Then
  95.                                             GoTo 2756
  96.                                             GoTo 493
  97.                                           End If
  98.   458                                     If s65532_ = "Q" Then
  99.                                             GoTo 3499
  100.                                             GoTo 493
  101.                                           End If
  102.   487                                   Loop
  103.   493                                   Cls 
  104.                                         Print "@0A@Enter the mailing list address of your new list, minus the domain name."
  105.                                         Print "@0A@Example: WILDCAT-L, NEW-LIST, etc  (or press ENTER to abort)"
  106.                                         t26_4533.s0 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  107.                                         If (t26_4533.s0 = "") = 0 Then GoTo 568
  108.                                       Loop
  109.   568                                 Print
  110.                                       Print "@0A@Enter the name of the datafile you will use.  A filename such as"
  111.                                       Print "@0A@ALIENS-L would use the ALIENS-L.DAT, ALIENS-L.ADD, ALIENS-L.DRP, etc,"
  112.                                       Print "@0A@for the mailing list operations."
  113.                                       t26_4533.s70 = InputMask("Filename: ", "XXXXXXXX", "", 1213417543)
  114.                                       If (t26_4533.s70 = "") = 0 Then GoTo 659
  115.                                     Loop
  116.   659                               t26_4533.s0 = UCase(t26_4533.s0)
  117.                                     t26_4533.s70 = UCase(t26_4533.s70)
  118.                                     Reset 
  119.                                     Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
  120.                                     Put 1, LOF(1) + 1, t26_4533 '! 78 bytes
  121.                                     Close 1
  122.                                     Print
  123.                                     Print "@0A@Saving @0F@"; t26_4533.s0; "@0A@ ..."
  124.                                   Loop
  125.   776                             Cls 
  126.                                   Print "Enter the name of the mailing list you wish to remove:"
  127.                                   s4615 = ""
  128.                                   s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  129.                                   If (s4615 = "") = 0 Then GoTo 847
  130.                                 Loop
  131.   847                           s4615 = UCase(s4615)
  132.                                 Reset 
  133.                                 Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
  134.                                 i4621 = 1
  135.                                 Do
  136.   888                             Get 1, i4621, t26_4533 '! 78 bytes
  137.                                   i4619 = 0
  138.                                   i4619 = InStr(t26_4533.s0, s4615)
  139.                                   If i4619 > 0 Then
  140.                                     Print
  141.                                     Print "@0A@Remove list@0F@ "; t26_4533.s0; "@0A@ ? ";
  142.                                     s4611 = ""
  143.                                     Do
  144.   976                                 s4611 = UCase(InKey(1213417543))
  145.                                     Loop Until s4611 > ""
  146.                                     If s4611 = "Y" Then
  147.                                       t26_4533.s0 = " "
  148.                                       t26_4533.s70 = " "
  149.                                       Put 1, i4621, t26_4533 '! 78 bytes
  150.                                       Close 1
  151.                                       Print
  152.                                       Print "@0C@Mailing list removed..."
  153.                                       Print
  154.                                       WaitEnter 
  155.                                       GoTo 75
  156.                                     End If
  157.                                   End If
  158.  1093                             i4621 = i4621 + 1
  159.                                 Loop Until i4621 > LOF(1)
  160.                               Loop
  161.  1131                         Cls 
  162.                               Reset 
  163.                               Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
  164.                               i4621 = 1
  165.                               Do
  166.  1164                           Get 1, i4621, t26_4533 '! 78 bytes
  167.                                 If t26_4533.s0 <> " " Then
  168.                                   Delay 0.001
  169.                                   Print "@0F@"; t26_4533.s0; " @0A@using data files of @0E@"; t26_4533.s70
  170.                                   If DisplayStopped Then
  171.                                     GoTo 75
  172.                                   End If
  173.                                 End If
  174.  1257                           i4621 = i4621 + 1
  175.                               Loop Until i4621 > LOF(1)
  176.                               Print
  177.                               WaitEnter 
  178.                             Loop
  179.  1300                       Cls 
  180.                             Print "Which mailing list to you want to add to?"
  181.                             s4615 = ""
  182.                             s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  183.                             If (s4615 = "") = 0 Then GoTo 1371
  184.                           Loop
  185.  1371                     s4615 = UCase(s4615)
  186.                           Reset 
  187.                           Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
  188.                           i4621 = 1
  189.                           Do
  190.  1412                       Get 1, i4621, t26_4533 '! 78 bytes
  191.  1427                       Do While t26_4533.s0 = " "
  192.                               i4621 = i4621 + 1
  193.                               If i4621 > LOF(1) Then
  194.                                 GoTo 75
  195.                               End If
  196.  1484                         Get 1, i4621, t26_4533 '! 78 bytes
  197.                             Loop
  198.  1505                       i4619 = 0
  199.                             i4619 = InStr(t26_4533.s0, s4615)
  200.                             If i4619 > 0 Then
  201.                               Print
  202.                               Print "@0A@Add to @0F@"; t26_4533.s0; " @0A@? @0D@";
  203.                               s4611 = ""
  204.                               Do
  205.  1578                           s4611 = UCase(InKey(1213417543))
  206.                               Loop Until s4611 > ""
  207.                               If s4611 = "Y" Then
  208.                                 Cls 
  209.                                 Print "Enter name/e-mail address to add to the mailing list:"
  210.                                 s4463 = ""
  211.                                 s4463 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  212.                                 s4463 = UCase(s4463)
  213.                                 If s4463 = "" Then
  214.                                   Cls 
  215.                                   GoTo 75
  216.                                 End If
  217.  1722                           Cls 
  218.                                 Print "@0F@"; s4463
  219.                                 s4611 = ""
  220.                                 Print
  221.                                 Print "@0E@Is this correct ? ";
  222.                                 Do
  223.  1762                             s4611 = UCase(InKey(1213417543))
  224.                                 Loop Until s4611 > ""
  225.                                 Print "@0D@"; s4611
  226.                                 s65528_ = s4611
  227.                                 If s65528_ = "Y" Then
  228.                                   Reset 
  229.                                   Open t26_4533.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  230.                                   Put 2, LOF(2) + 1, s4463 '! 70 bytes
  231.                                   Close 2
  232.                                   Print
  233.                                   Print "@0F@"; s4463; " @0A@has been added."
  234.                                   Print
  235.                                   WaitEnter 
  236.                                   Cls 
  237.                                   GoTo 75
  238.                                 Else
  239.  1939                             GoTo 75
  240.                                 End If
  241.                               End If
  242.                             End If
  243.  1945                       i4621 = i4621 + 1
  244.                           Loop Until i4621 > LOF(1)
  245.                         Loop
  246.  1983                   Cls 
  247.                         Print "Drop subscriber from which mailing list?"
  248.                         s4615 = ""
  249.                         s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  250.                         If (s4615 = "") = 0 Then GoTo 2054
  251.                       Loop
  252.  2054                 s4615 = UCase(s4615)
  253.                       Reset 
  254.                       Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
  255.                       i4621 = 1
  256.                       Do
  257.  2095                   Get 1, i4621, t26_4533 '! 78 bytes
  258.  2110                   Do While t26_4533.s0 = " "
  259.                           i4621 = i4621 + 1
  260.                           If i4621 > LOF(1) Then
  261.                             GoTo 75
  262.                           End If
  263.  2167                     Get 1, i4621, t26_4533 '! 78 bytes
  264.                         Loop
  265.  2188                   i4619 = 0
  266.                         i4619 = InStr(t26_4533.s0, s4615)
  267.                         If i4619 > 0 Then
  268.                           Print
  269.                           Print "@0A@Drop from @0F@"; t26_4533.s0; "@0A@ ? ";
  270.                           s4611 = ""
  271.                           Do
  272.  2261                       s4611 = UCase(InKey(1213417543))
  273.                           Loop Until s4611 > ""
  274.                           If s4611 = "Y" Then
  275.                             GoTo 2354
  276.                           End If
  277.                         End If
  278.  2316                   i4621 = i4621 + 1
  279.                       Loop Until i4621 > LOF(1)
  280.                     Loop
  281.  2354               Close 1
  282.                     Cls 
  283.                     Print
  284.                     Print "Who do you want to drop from "; t26_4533.s0; " ? "
  285.                     s4615 = ""
  286.                     s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  287.                     If (s4615 = "") = 0 Then GoTo 2447
  288.                   Loop
  289.  2447             s4615 = UCase(s4615)
  290.                   Reset 
  291.                   Open t26_4533.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  292.                   i4621 = 1
  293.                   Do
  294.  2500               Get 1, i4621, s4463 '! 70 bytes
  295.                     i4619 = 0
  296.                     i4619 = InStr(s4463, s4615)
  297.                     If i4619 > 0 Then
  298.                       Print
  299.                       Print "@0A@Remove@0F@ "; s4463; "@0A@ ? ";
  300.                       s4611 = ""
  301.                       Do
  302.  2588                   s4611 = UCase(InKey(1213417543))
  303.                       Loop Until s4611 > ""
  304.                       If s4611 = "Y" Then
  305.                         s4615 = s4463
  306.                         s4463 = " "
  307.                         Put 1, i4621, s4463 '! 70 bytes
  308.                         Print
  309.                         Print
  310.                         Print "@0F@"; s4615; "@0C@ has been removed from @0F@"; t26_4533.s0
  311.                         Print
  312.                         WaitEnter 
  313.                         GoTo 75
  314.                       End If
  315.                     End If
  316.  2718               i4621 = i4621 + 1
  317.                   Loop Until i4621 > LOF(1)
  318.                 Loop
  319.  2756           Cls 
  320.                 Print "This will let you change the high message pointer in LISTSERV.PTR.  Be"
  321.                 Print "careful when running this, as changing the high message pointer may cause"
  322.                 Print "Listserv to send out previously sent messages!"
  323.                 Print
  324.                 s4615 = ""
  325.                 s4615 = InputMask("Enter new high message, [ENTER] to abort: ", "XXXXXX", "", 1213417543)
  326.                 If (s4615 = "") = 0 Then GoTo 2847
  327.               Loop
  328.  2847         Print
  329.               Print "@0C@Are you sure you want to reset the high message pointer to "; s4615; " ? ";
  330.               s4611 = ""
  331.               Do
  332.  2880           s4611 = UCase(InKey(1213417543))
  333.               Loop Until s4611 > ""
  334.               If s4611 = "Y" Then
  335.                 Open "listserv.ptr" For Output As 5
  336.                 Print #5, s4615
  337.                 Close 5
  338.                 Print
  339.                 Print "High message pointer reset to @0F@"; s4615
  340.                 Print
  341.                 WaitEnter 
  342.               End If
  343.  2985       Loop
  344.  2991       Cls 
  345.             Print "@0A@List which mailing list?"
  346.             s4615 = ""
  347.             s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  348.             If (s4615 = "") = 0 Then GoTo 3062
  349.           Loop
  350.  3062     s4615 = UCase(s4615)
  351.           Reset 
  352.           Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
  353.           i4621 = 1
  354.           Do
  355.  3103       Get 1, i4621, t26_4533 '! 78 bytes
  356.             i4619 = 0
  357.             i4619 = InStr(t26_4533.s0, s4615)
  358.             If i4619 > 0 Then
  359.               Print
  360.               Print "@0A@List subscribers for @0F@"; t26_4533.s0; " @0A@? @0D@";
  361.               s4611 = ""
  362.               Do
  363.  3191           s4611 = UCase(InKey(1213417543))
  364.               Loop Until s4611 > ""
  365.               If s4611 = "Y" Then
  366.                 Print s4611
  367.                 GoTo 3317
  368.               End If
  369.  3254         If s4611 = "N" Then
  370.                 Print s4611
  371.               End If
  372.             End If
  373.  3279       i4621 = i4621 + 1
  374.           Loop Until i4621 > LOF(1)
  375.         Loop
  376.  3317   Cls 
  377.         Close 1
  378.         Reset 
  379.         Open t26_4533.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
  380.         i4621 = 1
  381.         Do
  382.  3367     Get 1, i4621, s4463 '! 70 bytes
  383.           If s4463 <> " " Then
  384.             Delay 0.001
  385.             Print "@0D@"; t26_4533.s0; "   @0F@"; s4463
  386.             If DisplayStopped Then
  387.               GoTo 75
  388.             End If
  389.           End If
  390.  3456     i4621 = i4621 + 1
  391.         Loop Until i4621 > LOF(1)
  392.         Print
  393.         WaitEnter 
  394.       Loop
  395.  3499 Reset 
  396.       Print
  397.       Print
  398.