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
Wrap
Wildcat! WCX
|
1994-12-22
|
6KB
|
398 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 6316 bytes 12/30/122 04:12:10pm
'! Code Segment Size :3526 bytes
'! Data Segment Size :4623 bytes
'! String Segment Size:2790 bytes
'! Compiled with WCC version 4.01
Type Type26
s0 As String*70
s70 As String*8
End Type
Dim s4463 As String*70
Dim t26_4533 As Type26
Dim s4611 As String
Dim s4615 As String
Dim i4619 As Integer
Dim i4621 As Integer
Dim s65528_ As String
Dim s65532_ As String
Cls
Print "Listutil v2.05 (12/22/94) - by Pete Nelson"
Print "Terminal One BBS (510) 673-9217"
Print "Author: pete@terminal-one.com"
Print
WaitEnter
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
75 Reset
Cls
Print
Print " @0B@Listutil v2.05 @0E@- @0F@Sysop Utilites Option"
Print
Print " @09@[@0F@C@09@] @0E@- @0A@Create a new Mailing List"
If Exists("listserv.dat") Then
Print " @09@[@0F@R@09@] @0E@- @0A@Remove a Mailing List"
Print " @09@[@0F@V@09@] @0E@- @0A@View your Mailing Lists"
Print " @09@[@0F@L@09@] @0E@- @0A@List Subscribers for a Mailing List"
Print " @09@[@0F@D@09@] @0E@- @0A@Drop a Subscriber from a Mailing List"
Print " @09@[@0F@A@09@] @0E@- @0A@Add a Subscriber to a Mailing List"
End If
162 Print " @09@[@0F@P@09@] @0E@- @0A@Change the high message pointer in LISTSERV.PTR"
Print " @09@[@0F@Q@09@] @0E@- @0A@Quit"
Print
Print " @0B@Choice@07@:@0F@ ";
s4611 = ""
Do
200 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
Print "@0D@"; s4611
s65532_ = s4611
If s65532_ = "C" Then
GoTo 493
GoTo 493
End If
284 If s65532_ = "R" Then
GoTo 776
GoTo 493
End If
313 If s65532_ = "V" Then
GoTo 1131
GoTo 493
End If
342 If s65532_ = "A" Then
GoTo 1300
GoTo 493
End If
371 If s65532_ = "D" Then
GoTo 1983
GoTo 493
End If
400 If s65532_ = "L" Then
GoTo 2991
GoTo 493
End If
429 If s65532_ = "P" Then
GoTo 2756
GoTo 493
End If
458 If s65532_ = "Q" Then
GoTo 3499
GoTo 493
End If
487 Loop
493 Cls
Print "@0A@Enter the mailing list address of your new list, minus the domain name."
Print "@0A@Example: WILDCAT-L, NEW-LIST, etc (or press ENTER to abort)"
t26_4533.s0 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If (t26_4533.s0 = "") = 0 Then GoTo 568
Loop
568 Print
Print "@0A@Enter the name of the datafile you will use. A filename such as"
Print "@0A@ALIENS-L would use the ALIENS-L.DAT, ALIENS-L.ADD, ALIENS-L.DRP, etc,"
Print "@0A@for the mailing list operations."
t26_4533.s70 = InputMask("Filename: ", "XXXXXXXX", "", 1213417543)
If (t26_4533.s70 = "") = 0 Then GoTo 659
Loop
659 t26_4533.s0 = UCase(t26_4533.s0)
t26_4533.s70 = UCase(t26_4533.s70)
Reset
Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
Put 1, LOF(1) + 1, t26_4533 '! 78 bytes
Close 1
Print
Print "@0A@Saving @0F@"; t26_4533.s0; "@0A@ ..."
Loop
776 Cls
Print "Enter the name of the mailing list you wish to remove:"
s4615 = ""
s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If (s4615 = "") = 0 Then GoTo 847
Loop
847 s4615 = UCase(s4615)
Reset
Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
888 Get 1, i4621, t26_4533 '! 78 bytes
i4619 = 0
i4619 = InStr(t26_4533.s0, s4615)
If i4619 > 0 Then
Print
Print "@0A@Remove list@0F@ "; t26_4533.s0; "@0A@ ? ";
s4611 = ""
Do
976 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
If s4611 = "Y" Then
t26_4533.s0 = " "
t26_4533.s70 = " "
Put 1, i4621, t26_4533 '! 78 bytes
Close 1
Print
Print "@0C@Mailing list removed..."
Print
WaitEnter
GoTo 75
End If
End If
1093 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Loop
1131 Cls
Reset
Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
1164 Get 1, i4621, t26_4533 '! 78 bytes
If t26_4533.s0 <> " " Then
Delay 0.001
Print "@0F@"; t26_4533.s0; " @0A@using data files of @0E@"; t26_4533.s70
If DisplayStopped Then
GoTo 75
End If
End If
1257 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Print
WaitEnter
Loop
1300 Cls
Print "Which mailing list to you want to add to?"
s4615 = ""
s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If (s4615 = "") = 0 Then GoTo 1371
Loop
1371 s4615 = UCase(s4615)
Reset
Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
1412 Get 1, i4621, t26_4533 '! 78 bytes
1427 Do While t26_4533.s0 = " "
i4621 = i4621 + 1
If i4621 > LOF(1) Then
GoTo 75
End If
1484 Get 1, i4621, t26_4533 '! 78 bytes
Loop
1505 i4619 = 0
i4619 = InStr(t26_4533.s0, s4615)
If i4619 > 0 Then
Print
Print "@0A@Add to @0F@"; t26_4533.s0; " @0A@? @0D@";
s4611 = ""
Do
1578 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
If s4611 = "Y" Then
Cls
Print "Enter name/e-mail address to add to the mailing list:"
s4463 = ""
s4463 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
s4463 = UCase(s4463)
If s4463 = "" Then
Cls
GoTo 75
End If
1722 Cls
Print "@0F@"; s4463
s4611 = ""
Print
Print "@0E@Is this correct ? ";
Do
1762 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
Print "@0D@"; s4611
s65528_ = s4611
If s65528_ = "Y" Then
Reset
Open t26_4533.s70 + ".dat" For Random As 2 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
Put 2, LOF(2) + 1, s4463 '! 70 bytes
Close 2
Print
Print "@0F@"; s4463; " @0A@has been added."
Print
WaitEnter
Cls
GoTo 75
Else
1939 GoTo 75
End If
End If
End If
1945 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Loop
1983 Cls
Print "Drop subscriber from which mailing list?"
s4615 = ""
s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If (s4615 = "") = 0 Then GoTo 2054
Loop
2054 s4615 = UCase(s4615)
Reset
Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
2095 Get 1, i4621, t26_4533 '! 78 bytes
2110 Do While t26_4533.s0 = " "
i4621 = i4621 + 1
If i4621 > LOF(1) Then
GoTo 75
End If
2167 Get 1, i4621, t26_4533 '! 78 bytes
Loop
2188 i4619 = 0
i4619 = InStr(t26_4533.s0, s4615)
If i4619 > 0 Then
Print
Print "@0A@Drop from @0F@"; t26_4533.s0; "@0A@ ? ";
s4611 = ""
Do
2261 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
If s4611 = "Y" Then
GoTo 2354
End If
End If
2316 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Loop
2354 Close 1
Cls
Print
Print "Who do you want to drop from "; t26_4533.s0; " ? "
s4615 = ""
s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If (s4615 = "") = 0 Then GoTo 2447
Loop
2447 s4615 = UCase(s4615)
Reset
Open t26_4533.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
2500 Get 1, i4621, s4463 '! 70 bytes
i4619 = 0
i4619 = InStr(s4463, s4615)
If i4619 > 0 Then
Print
Print "@0A@Remove@0F@ "; s4463; "@0A@ ? ";
s4611 = ""
Do
2588 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
If s4611 = "Y" Then
s4615 = s4463
s4463 = " "
Put 1, i4621, s4463 '! 70 bytes
Print
Print
Print "@0F@"; s4615; "@0C@ has been removed from @0F@"; t26_4533.s0
Print
WaitEnter
GoTo 75
End If
End If
2718 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Loop
2756 Cls
Print "This will let you change the high message pointer in LISTSERV.PTR. Be"
Print "careful when running this, as changing the high message pointer may cause"
Print "Listserv to send out previously sent messages!"
Print
s4615 = ""
s4615 = InputMask("Enter new high message, [ENTER] to abort: ", "XXXXXX", "", 1213417543)
If (s4615 = "") = 0 Then GoTo 2847
Loop
2847 Print
Print "@0C@Are you sure you want to reset the high message pointer to "; s4615; " ? ";
s4611 = ""
Do
2880 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
If s4611 = "Y" Then
Open "listserv.ptr" For Output As 5
Print #5, s4615
Close 5
Print
Print "High message pointer reset to @0F@"; s4615
Print
WaitEnter
End If
2985 Loop
2991 Cls
Print "@0A@List which mailing list?"
s4615 = ""
s4615 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If (s4615 = "") = 0 Then GoTo 3062
Loop
3062 s4615 = UCase(s4615)
Reset
Open "listserv.dat" For Random As 1 Len = 78 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
3103 Get 1, i4621, t26_4533 '! 78 bytes
i4619 = 0
i4619 = InStr(t26_4533.s0, s4615)
If i4619 > 0 Then
Print
Print "@0A@List subscribers for @0F@"; t26_4533.s0; " @0A@? @0D@";
s4611 = ""
Do
3191 s4611 = UCase(InKey(1213417543))
Loop Until s4611 > ""
If s4611 = "Y" Then
Print s4611
GoTo 3317
End If
3254 If s4611 = "N" Then
Print s4611
End If
End If
3279 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Loop
3317 Cls
Close 1
Reset
Open t26_4533.s70 + ".dat" For Random As 1 Len = 70 '! This value should probably be replaced with a "SizeOf" expression
i4621 = 1
Do
3367 Get 1, i4621, s4463 '! 70 bytes
If s4463 <> " " Then
Delay 0.001
Print "@0D@"; t26_4533.s0; " @0F@"; s4463
If DisplayStopped Then
GoTo 75
End If
End If
3456 i4621 = i4621 + 1
Loop Until i4621 > LOF(1)
Print
WaitEnter
Loop
3499 Reset
Print
Print