home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
CYBRFY24.ZIP
/
FORWC410.ZIP
/
CBCONFIG.WCX
(
.txt
)
next >
Wrap
Wildcat! WCX
|
1995-06-09
|
42KB
|
1,294 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 41644 bytes 12/30/122 05:09:38pm
'! Code Segment Size :13823 bytes
'! Data Segment Size :5476 bytes
'! String Segment Size:27821 bytes
'! Compiled with WCC version 4.10
Dim s4463 As String
Dim s4467 As String
Dim s4471 As String
Dim s4475 As String
Dim s4481 As String
Dim s4485 As String
Dim s4489 As String
Dim s4493 As String
Dim i4497 As Integer
Dim i4499 As Integer
Dim s4501 As String
Dim s4505 As String
Dim s4509 As String
Dim s4513 As String
Dim s4517 As String
Dim s4521 As String
Dim s4525 As String
Dim s4529 As String
Dim s4533 As String
Dim s4537 As String
Dim s4541 As String
Dim s4545 As String
Dim s4549 As String
Dim s4553 As String
Dim s4557 As String
Dim i4561 As Integer
Dim i4563 As Integer
Dim s4565 As String
Dim s4569 As String
Dim s4573 As String
Dim s4577 As String
Dim s4581 As String
Dim s4585 As String
Dim s4589 As String
Dim i4593 As Integer
Dim i4595 As Integer
Dim s4597 As String
Dim s4601 As String
Dim s4605 As String
Dim s4609 As String
Dim s4613 As String
Dim s4617 As String
Dim s4621 As String
Dim s4625 As String
Dim s4629 As String
Dim s4633 As String
Dim s4637 As String
Dim ur4641 As UserRecord
Dim s5291 As String
Dim s5295 As String
Dim s5299 As String*1
Dim s5304 As String
Dim s5308 As String
Dim s5312 As String
Dim s5316 As String
Dim s5320 As String
Dim s5324 As String
Dim s5330 As String
Dim s5342 As String
Dim s5346 As String*1
Dim s5347 As String*1
Dim s5348 As String*1
Dim s5349 As String*79
Dim s5428 As String
Dim s5432 As String
Dim s5436 As String
Dim s5440 As String
Dim s5444 As String*1
Dim s5445 As String*1
Dim s5446 As String
Dim i5450 As Integer
Dim i5452 As Integer
Dim i5454 As Integer
Dim i5456 As Integer
Dim i5458 As Integer
Dim i5460 As Integer
Dim i5462 As Integer
Dim i5464 As Integer
Dim i5466 As Integer
Dim i5468 As Integer
Dim i5470 As Integer
Dim i5472 As Integer
Dim i5474 As Integer
s4463 = MakeWild.BBSName
s4467 = MakeWild.SysopName
GoSub 906
s4471 = ProgPath + "CYBERFY.CFG"
Open "CBVPATH.DAT" For Output As 1
Print #1, ProgPath
Close 1
If Not Exists(s4471) Then
GoTo 4174
End If
142 If Exists("CBVPATH.DAT") Then
Else
Do
162 Cls
Print ""
Print "@0E@Please enter the path to all CYBERFIER files: @0F@";
Input s4481
If Trim(s4481) = "" Then
Else
215 If Right(s4481, 1) = "\" Then
GoTo 264
Else
249 s4481 = s4481 + "\"
End If
End If
264 s4489 = Trim(s4481) + "CYBERFY.WCX"
If (Not Exists(s4489)) = 0 Then GoTo 386
Print "@BELL@@0C@Unable to locate program files in @0F@"; s4481; "@0C@,"
Print "Please re-enter the path."
Print ""
WaitEnter
Loop
Open "CBVPATH.DAT" For Output As 1
Print #1, s4481
Close 1
GoTo 386
End If
386 Open "CBVPATH.DAT" For Input As 1
Input #1, s4481
Close 1
If Trim(s4481) = "" Then
Else
444 If Right(s4481, 1) <> "\" Then
s4481 = s4481 + "\"
Open "CBVPATH.DAT" For Output As 1
Print #1, s4481
Close 1
End If
End If
515 s4475 = s4481 + "CYBERFY.LOG"
s4485 = s4481 + "CBVSTATS.DAT"
s4493 = s4481 + "CBVMODEM.CFG"
s4471 = s4481 + "CYBERFY.CFG"
If Exists(s4493) Then
Open s4493 For Input As 9
Input #9, i4497
Input #9, i4499
Input #9, s4501
Input #9, s4505
Close 9
Del s4493
Del s4471
End If
656 If Not Exists(s4471) Then
GoSub 12904
Else
683 Open s4471 For Input As 1
Input #1, s4513
Input #1, s4517
Input #1, s4521
Input #1, s4525
Input #1, s4529
Input #1, s4533
Input #1, s4537
Input #1, s4541
Input #1, s4545
Input #1, s4549
Input #1, s4553
Input #1, s4557
Input #1, i4561
Input #1, i4563
Input #1, s4565
Input #1, s4569
Input #1, s4573
Input #1, s4577
Input #1, s4581
Input #1, s4585
Input #1, s4589
Input #1, i4497
Input #1, i4499
Input #1, s4501
Input #1, s4505
Input #1, i4593
Close 1
GoSub 906
GoTo 2040
906 If Not Exists("VERIFIER.KEY") Then
i4595 = 0
Else
934 Open "VERIFIER.KEY" For Input As 5
Input #5, s4597
s4601 = Right(s4597, 2)
GoSub 1291
s4605 = s4601
Input #5, s4597
s4601 = Right(s4597, 2)
GoSub 1291
s4609 = s4601
Input #5, s4597
s4601 = Right(s4597, 2)
GoSub 1291
s4613 = s4601
Input #5, s4597
s4601 = Right(s4597, 2)
GoSub 1291
s4617 = s4601
Close 5
s4467 = UCase(MakeWild.SysopName)
s4625 = Right(s4467, 2)
s4621 = Right(s4625, 1)
s4625 = Left(s4625, 1)
s4633 = Left(s4467, 2)
s4629 = Left(s4633, 1)
s4633 = Right(s4633, 1)
If s4629 <> s4605 Then
Else
1212 If s4633 <> s4609 Then
Else
1234 If s4625 <> s4613 Then
Else
1256 If s4621 <> s4617 Then
Else
1278 i4595 = 1
GoTo 2039
1291 If s4601 = "36" Then
s4601 = "A"
Return
End If
1318 If s4601 = "35" Then
s4601 = "B"
Return
End If
1345 If s4601 = "34" Then
s4601 = "C"
Return
End If
1372 If s4601 = "33" Then
s4601 = "D"
Return
End If
1399 If s4601 = "32" Then
s4601 = "E"
Return
End If
1426 If s4601 = "31" Then
s4601 = "F"
Return
End If
1453 If s4601 = "30" Then
s4601 = "G"
Return
End If
1480 If s4601 = "29" Then
s4601 = "H"
Return
End If
1507 If s4601 = "28" Then
s4601 = "I"
Return
End If
1534 If s4601 = "27" Then
s4601 = "J"
Return
End If
1561 If s4601 = "26" Then
s4601 = "K"
Return
End If
1588 If s4601 = "25" Then
s4601 = "L"
Return
End If
1615 If s4601 = "24" Then
s4601 = "M"
Return
End If
1642 If s4601 = "23" Then
s4601 = "N"
Return
End If
1669 If s4601 = "22" Then
s4601 = "O"
Return
End If
1696 If s4601 = "21" Then
s4601 = "P"
Return
End If
1723 If s4601 = "20" Then
s4601 = "Q"
Return
End If
1750 If s4601 = "19" Then
s4601 = "R"
Return
End If
1777 If s4601 = "18" Then
s4601 = "S"
Return
End If
1804 If s4601 = "17" Then
s4601 = "T"
Return
End If
1831 If s4601 = "16" Then
s4601 = "U"
Return
End If
1858 If s4601 = "15" Then
s4601 = "V"
Return
End If
1885 If s4601 = "14" Then
s4601 = "W"
Return
End If
1912 If s4601 = "13" Then
s4601 = "X"
Return
End If
1939 If s4601 = "12" Then
s4601 = "Y"
Return
End If
1966 If s4601 = "11" Then
s4601 = "Z"
Return
End If
End If
End If
End If
End If
1993 Del "VERIFIER.KEY"
i4595 = 0
Beep
Beep
Print ""
Print " @0C@INVALID REGISTRATION KEY!!!@0E@";
Delay 3
End If
2039 Return
End If
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
2040 If RIPDetected Then
DisplayFile("POSTRIP")
End If
2058 If Not Exists(s4471) Then
GoTo 4174
End If
2079 If (DisplayStopped) = 0 Then GoTo 2094
Loop
2094 Print "@CLS@@NOPAUSE@@NOSTOP@"
Print "@07@ @01@░▒▓@1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @12@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @2F@ CYBERFIER! @02@ @1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @2E@ SysOps Utilities @02@ @1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @12@▀@02@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@┌───────────────────────────────────────@19@┐ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@C@10@]@1F@ @1A@Configure Cyberfier! @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@D@10@]@1F@ @1A@raw ansi screens w/WCDRAW (local)@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@E@10@]@1F@ @1A@Enter your registration code@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@H@10@]@1F@ @1A@Help with SysOps utilities@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@K@10@]@1F@ @1A@Kill Cyberfier activity log @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@P@10@]@1F@ @1A@Purge unverified users @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@R@10@]@1A@ Reset statistics @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@S@10@]@1F@ @1A@Statistics of Cyberfier! usage @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@T@10@]@1F@ @1A@Todays new users @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@U@10@]@1F@ @1A@User Database @1E@ @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@V@10@]@1F@ @1A@View Cyberfier! activity log@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@Q@10@]@1A@ Quit SysOps Utilities @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@└@19@───────────────────────────────────────┘ @01@▓▒░@07@"
If i4595 <> 1 Then
Locate 7, 1
Print "@07@ @01@░▒▓@1F@ @9C@ @1F@ @9C@ Unregistered@1F@ @01@▓▒░@07@"
End If
2314 Print ""
Locate 23, 1
Print " @0A@Enter your selection now or @0E@[@0F@Q@0E@]@0A@ to quit @0E@[ ]@0F@"
Locate 23, 60
Do
2346 s4637 = UCase(InKey(1213417543))
Loop Until s4637 > ""
Print s4637
Delay 0.5
If (UCase(s4637) = "R") = 0 Then GoTo 2455
Print ""
If InputYesNo(" @BELL@@0C@Are you sure you want to reset the statistics? @0E@", 1213417543) Then
Del s4485
End If
2449 Loop
2455 If UCase(s4637) = "P" Then
Cls
Print "@BELL@@0E@This operation may require that all nodes be down except the local node."
If InputYesNo("Do you wish to continue? ", 1213417543) Then
GoTo 2524
Else
2518 GoTo 3788
End If
2524 GetUser(ur4641, "")
Do
2536 If ur4641.SecLevel = s4513 Or ur4641.SecLevel = s4517 Then
Else
2582 If ur4641.SecLevel = s4545 Or ur4641.SecLevel = s4549 Then
Else
2628 GoTo 3763
End If
End If
Do
Do
Do
2634 s5291 = FormatDate(ur4641.LastCall.D, "MM/DD/YY")
Print "@CLS@@NOPAUSE@@NOSTOP@@0E@Cyberfier! Purging of unverified users: "
Print ""
Print "@0E@ Users Name: @0F@"; ur4641.Name
Print "@0E@ User ID Number: @0F@"; ur4641.UserId
Print "@0E@ Security Level: @0F@"; ur4641.SecLevel
Print "@0E@ voice number: @0F@"; ur4641.PhoneNumber
Print "@0E@ data number: @0F@"; ur4641.DataNumber
Print "@0E@ Fax number: @0F@"; ur4641.FAXNumber
Print "@0E@ City, State: @0F@"; ur4641.City; " "; ur4641.State
Print "@0E@Total number of calls: @0F@"; ur4641.TimesOn
Print "@0E@ Time of last call: @0F@"; s5291
Print ""
Do
2884 Locate 13, 1
Print "@0B@Choice- @0E@[" + Chr(20) + "1C@0F@C@0E@]hange security level" + Chr(20) + ", " + Chr(20) + "1D[@0F@D@0E@]elete user" + Chr(20) + ", "
s5295 = UCase(InputMask(" [" + Chr(20) + "1Q@0F@Q@0E@] to quit" + Chr(20) + ", or [" + Chr(20) + "1 @0F@ENTER@0E@" + Chr(20) + "] for next record. ", "X", "", 1213417543))
If s5295 = "Q" Then
GoTo 3788
End If
2953 If s5295 = "C" Then
GoSub 3155
GoTo 3763
End If
2982 If s5295 = "D" Then
GoSub 3040
GoTo 3763
End If
3011 If s5295 = "" Then
GoTo 3763
End If
3034 Loop
3040 Print ""
Print " @0E@Are you sure you want to delete @0F@";
Print ur4641.Name;
If InputYesNo(" ?@0E@ ", 1213417543) Then
If DeleteUser(ur4641.UserId) Then
Print ""
Print "@0E@Users record successfully deleted."
Else
3133 Print ""
Print "@0C@@BELL@Unable to delete users record."
End If
3151 WaitEnter
End If
3154 Return
3155 s5304 = s4521
s5308 = s4525
s5312 = s4529
s5316 = s4533
s5320 = s4537
s5324 = s4541
Print ""
Print ""
Print "@0E@[@0F@1@0E@] "; s5304;
Print String(10 - Len(s5304), " ");
Print "@0E@[@0F@2@0E@] "; s5308;
Print String(10 - Len(s5308), " ");
Print "@0E@[@0F@3@0E@] "; s5312
Print "@0E@[@0F@4@0E@] "; s5316;
Print String(10 - Len(s5316), " ");
Print "@0E@[@0F@5@0E@] "; s5320;
Print String(10 - Len(s5320), " ");
Print "@0E@[@0F@6@0E@] "; s5324
Print ""
Print "@0E@Give what security level to @0F@"; ur4641.Name;
s5299 = UCase(InputMask("@0E@? ", "X", "", 1213417543))
If (s5299 = " ") = 0 Then GoTo 3490
Loop
3490 If (s5299 < "1" Or s5299 > "9") = 0 Then GoTo 3530
Loop
3530 If s5299 = "1" Then
s5330 = s5304
End If
3557 If s5299 = "2" Then
s5330 = s5308
End If
3584 If s5299 = "3" Then
s5330 = s5312
End If
3611 If s5299 = "4" Then
s5330 = s5316
End If
3638 If s5299 = "5" Then
s5330 = s5320
End If
3665 If s5299 = "6" Then
s5330 = s5324
End If
3692 If s5330 = s4513 Then
Else
3714 If s5330 = s4517 Then
GoTo 3736
End If
End If
3736 ur4641.SecLevel = s5330
UpdateUser(ur4641)
Loop
3763 Loop Until Not GetNextUser(ur4641, 1213417543)
GoTo 3788
End If
3788 If (UCase(s4637) = "S") = 0 Then GoTo 3820
GoSub 12992
Loop
3820 If (UCase(s4637) = "H") = 0 Then GoTo 3852
GoSub 11414
Loop
3852 If (UCase(s4637) = "T") = 0 Then GoTo 3889
DisplayTextFile(s4577)
WaitEnter
Loop
3889 If (UCase(s4637) = "M") = 0 Then GoTo 3921
GoSub 10160
Loop
3921 If (UCase(s4637) = "D") = 0 Then GoTo 4003
If (Not Local) = 0 Then GoTo 3984
Print ""
Print "@0C@You can only run this program from the local console, sorry"
Delay 4
Loop
3984 Shell "WCDRAW.EXE", "%HOMEPATH%"
Loop
4003 If (UCase(s4637) = "K") = 0 Then GoTo 4154
s4509 = InputMask("@0E@Delete activity log for which node? ", "XXX", "", 1213417543)
s4475 = s4481 + "CYBERLOG." + s4509
If Not Exists(s4475) Then
Print "@0E@"
Print "Unable to locate log file!"
WaitEnter
GoTo 4154
End If
4113 Print ""
If InputYesNo(" @0C@Are you sure you want to delete the cyberfier log? @0E@", 1213417543) Then
Del s4475
End If
4148 Loop
4154 If (UCase(s4637) = "C") = 0 Then GoTo 9615
Do
Do
Do
Do
Do
4174 Do While DisplayStopped
Loop
4189 Print "@CLS@@NOPAUSE@@NOSTOP@"
GoSub 13464
Locate 5, 1
Print "@07@ @01@░▒▓@1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @12@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @2F@ CYBERFIER! Configuration menu @02@ @1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @12@▀@02@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@┌───────────────────────────────────────@19@┐ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@1@10@]@1F@ @1E@Primary security level@1F@ @1E@settings@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@2@10@]@1F@ @1E@Secondary security level settings@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@3@10@]@1F@ @1E@Modem settings @1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@│@19@ [@1F@4@10@]@1F@ @1E@General settings@1F@ @19@│ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @10@└@19@───────────────────────────────────────┘ @01@▓▒░@07@"
Print "@07@ @01@░▒▓@1F@ @01@▓▒░@07@"
Locate 18, 2
Print "@0E@ Edit which settings? [@0F@1-4@0E@], or @0E@[@0F@Q@0E@] to Save/Quit: [ ]";
Locate 18, 65
Do
4342 s5342 = UCase(InKey(1213417543))
Loop Until s5342 > ""
Print s5342;
If s5342 = "Q" Then
GoTo 9249
End If
4405 Cls
If (s5342 = "1") = 0 Then GoTo 4437
GoSub 6906
Loop
4437 If (s5342 = "2") = 0 Then GoTo 4466
GoSub 7942
Loop
4466 If (s5342 = "3") = 0 Then GoTo 4495
GoSub 10160
Loop
4495 If (s5342 = "4") = 0 Then GoTo 6900
GoSub 4524
Loop
4524 Do While DisplayStopped
Loop
4539 Print "@CLS@@NOPAUSE@@NOSTOP@"
Print "@07@ @19@╔════════════════════════════════════════════════════════════════╗@07@"
Print "@07@ @19@║ @1E@Cyberfier! General Options@19@ ║@07@"
Print "@07@ @19@╠════════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║@1E@ [@1F@1@1E@]@19@ @1A@Write messages to users that pass verification:@19@ ║@07@"
Print "@07@ @19@║@1E@ [@1F@2@1E@]@1A@ Write messages to sysop if user fails verification:@19@ ║@07@"
Print "@07@ @19@╠════════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║@1E@ [@1F@3@1E@]@1A@ Long-distance call handling: @19@║@07@"
Print "@07@ @19@║@1E@ [@1F@4@1E@]@1A@ Local call handling: @19@║@07@"
Print "@07@ @19@║@1E@ [@1F@5@1E@]@1A@ Local Area Code: @19@║@07@"
Print "@07@ @19@╠════════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║ @1E@[@1F@6@1E@]@1A@ This variable reserved for future assignment @19@║@07@"
Print "@07@ @19@║ @01@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@19@ ║@07@"
Print "@07@ @19@║ @01@█ @0E@[@0F@ @0E@]@01@ █@19@ ║@07@"
Print "@07@ @19@║ @01@█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@19@ ║@07@"
Print "@07@ @19@╠════════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║@1E@ [@1F@7@1E@]@1A@ Path and filename for todays new users display file: @19@║@07@"
Print "@07@ @19@║ @01@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@19@ ║@07@"
Print "@07@ @19@║ @01@█ @0E@[@0F@ @0E@]@01@ █@19@ ║@07@"
Print "@07@ @19@║ @01@█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@19@ ║@07@"
Print "@07@ @19@╚════════════════════════════════════════════════════════════════╝@07@"
Locate 5, 67
Print "@1F@"; s4565
Locate 6, 67
Print "@1F@"; s4569
Locate 8, 46
Print "@1F@"; s4585
Locate 9, 46
Print "@1F@"; s4589
Locate 10, 46
Print "@1F@"; s4581
Locate 14, 17
Print "@0F@"; s4573
Locate 19, 17
Print "@0F@"; s4577
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
Do
4882 Locate 23, 1
Print "@0F@ "
Locate 23, 1
Print "@07@ @0E@Change which setting [@0F@1-7@0E@], [@0F@H@0E@] for help, or [@0F@Q@0E@] to quit: [ ]@0F@"
Locate 23, 69
Do
4921 s5346 = UCase(InKey(1213417543))
Loop Until s5346 > ""
Print s5346;
If (s5346 = "7") = 0 Then GoTo 5043
Locate 19, 17
Print "@0F@ "
Locate 19, 17
Input s4577
Locate 19, 17
Print "@0F@"; s4577
Loop
5043 If (s5346 = "6") = 0 Then GoTo 5255
Do
5062 Locate 14, 17
Print "@0F@ "
Locate 14, 17
Input s4573
If (UCase(Right(s4573, 3)) = "LST") = 0 Then GoTo 5146
Locate 14, 17
Print "@0C@@BELL@File name is not required!";
Delay 3
Loop
5146 If (Len(s4573) < 2) = 0 Then GoTo 5178
s4573 = ""
Loop
5178 If Right(s4573, 1) = "\" Then
GoTo 5227
Else
5212 s4573 = s4573 + "\"
End If
5227 Locate 14, 17
Print "@0F@"; s4573
Loop
5255 If (s5346 = "5") = 0 Then GoTo 5354
Do
5274 Locate 10, 46
Print "@1F@ "
Locate 10, 46
Input s4581
If (Len(s4581) <> 3) = 0 Then GoTo 5326
Loop
5326 Locate 10, 46
Print "@1F@"; s4581
Loop
5354 If (s5346 = "2") = 0 Then GoTo 5484
Locate 6, 67
Print "@1F@ "
If s4569 = "" Then
s4569 = "NO"
End If
5415 If s4569 = "YES" Then
s4569 = "NO"
Else
5447 s4569 = "YES"
End If
5456 Locate 6, 67
Print "@1F@"; s4569
Loop
5484 If (s5346 = "1") = 0 Then GoTo 5620
Locate 5, 67
Print "@1F@ "
If (s4565 = "") = 0 Then GoTo 5551
s4565 = "NO"
Loop
5551 If s4565 = "YES" Then
s4565 = "NO"
Else
5583 s4565 = "YES"
End If
5592 Locate 5, 67
Print "@1F@"; s4565
Loop
5620 If (s5346 = "3") = 0 Then GoTo 5928
If s4585 = "" Then
s4585 = "HANGUP"
End If
5665 If (s4585 = "HANGUP") = 0 Then GoTo 5735
s4585 = "COMMENT"
Locate 8, 46
Print "@1F@ ";
Locate 8, 46
Print "@1F@"; s4585
Loop
5735 If (s4585 = "COMMENT") = 0 Then GoTo 5805
s4585 = "AUTO"
Locate 8, 46
Print "@1F@ ";
Locate 8, 46
Print "@1F@"; s4585
Loop
5805 If (s4585 = "AUTO") = 0 Then GoTo 5875
s4585 = "HANGUP"
Locate 8, 46
Print "@1F@ ";
Locate 8, 46
Print "@1F@"; s4585
Loop
5875 s4585 = "AUTO"
Locate 8, 46
Print "@1F@ ";
Locate 8, 46
Print "@1F@"; s4585
Loop
5928 If (s5346 = "4") = 0 Then GoTo 6210
If (s4589 = "") = 0 Then GoTo 6017
s4589 = "HANGUP"
Locate 9, 46
Print "@1F@ ";
Locate 9, 46
Print "@1F@"; s4589
Loop
6017 If (s4589 = "HANGUP") = 0 Then GoTo 6087
s4589 = "CONTINUE"
Locate 9, 46
Print "@1F@ ";
Locate 9, 46
Print "@1F@"; s4589
Loop
6087 If (s4589 = "CONTINUE") = 0 Then GoTo 6157
s4589 = "HANGUP"
Locate 9, 46
Print "@1F@ ";
Locate 9, 46
Print "@1F@"; s4589
Loop
6157 s4589 = "CONTINUE"
Locate 9, 46
Print "@1F@ ";
Locate 9, 46
Print "@1F@"; s4589
Loop
6210 If s5346 = "H" Then
Print "@CLS@"
Print ""
Print " @0F@WRITE MESSAGES TO USERS THAT PASS VERIFICATION:@07@ This option is for"
Print " the registered version only. Upon successful verification,"
Print " Cyberfier will automatically write a message to new users."
Print " The message will be private, and placed in Conference 0."
Print " The contents of the message may be edited to suit your own"
Print " needs. The message text is in an file called VERIFIED.IMP,"
Print " and should be located in your \WILDCAT\MSG directory."
Print ""
Print " @0F@WRITE MESSAGES TO SYSOP IF USERS FAIL VERIFICATION:@07@ If a user fails"
Print " the duplicate user check, or is unable to be verified at the"
Print " number that they have entered, a brief message will be written"
Print " to you, explaining the problem encountered. This feature is"
Print " not completely neccesary since you will get more accurate details"
Print " by viewing the Cyberfier log from the configuration program.@0F@"
Print ""
Print "@PAUSE@"
Print "@CLS@"
Print ""
Print "@07@ @0F@LONG DISTANCE HANDLING: @07@You are given 3 options on how to handle long-"
Print " distance callers;"
Print ""
Print " (1) Hang up after verification."
Print " This will call the user back at the number that"
Print " they have entered, but will hang up once they have"
Print " been verified."
Print ""
Print " (2) Comment to Sysop."
Print " This will force the long-distance caller to leave"
Print " a message to the SysOp, but will not change thier"
Print " security level."
Print ""
Print " (3) Auto-Verifiy."
Print " This option will grant long-distance callers instant"
Print " access to the system at the level you indicate in the"
Print " security level settings configuration.@0F@"
Print ""
Print "@PAUSE@"
Print "@CLS@"
Print ""
Print "@07@ @0F@LOCAL CALL HANDLING: @07@You are given 2 options on handling local"
Print " callers. These choices are for those with special phone services."
Print ""
Print " (1) Continue after verification."
Print " This option will call the user back, and allow them"
Print " to continue using the system until they choose to"
Print " log off your system normally."
Print ""
Print " (2) Hang up after verification."
Print " This option will disconnect the call after the user"
Print " has passed verification."
Print ""
Print " @0F@LOCAL AREA CODE: @07@Enter your area code here. Cyberfier will assume"
Print " that any numbers that match this area code are local, and those"
Print " that don't are long-distance. (Note that you should also be"
Print " using a file called PREFIX.LST to list all local area prefixes).@0F@"
Print ""
Print "@PAUSE@"
Print "@CLS@"
Print ""
Print " @0F@PATH AND FILENAME FOR TODAYS NEW USERS DISPLAY FILE: @07@Cyberfier will"
Print " automatically generate a list of the days new users. You may"
Print " wish to make this a HELLOx.BBS file, or a bulletin. If you"
Print " choose not to display this file to your callers, i suggest that"
Print " you enter a path and filename elsewhere, so that YOU can still"
Print " view this file from the configuration programs main menu.@4E@"
Print ""
Print "@4E@ END OF HELP @07@"
Print ""
WaitEnter
GoTo 4524
End If
6868 If s5346 = "Q" Then
GoTo 6899
End If
6893 Loop
6899 Return
6900 Loop
6906 Cls
Locate 5, 1
Print "@07@ @19@╔═══════════════════════════════════════════════════════════════╗@07@"
Print "@07@ @19@║ @1E@Cyberfier! @9F@Primary@1E@ Security@1F@ @1E@Level settings @19@║@07@"
Print "@07@ @19@╠═══════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║ @1E@[@1F@1@1E@]@1A@ Security level needed to run Cyberfier: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@2@1E@]@1A@ Security level given after verification: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@3@1E@]@1A@ Security level given if caller skips/fails: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@4@1E@]@1A@ Security level for duplicate users: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@5@1E@]@1A@ Security level for long distance callers: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@6@1E@]@1A@ Run a check for duplicate users: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@7@1E@]@1A@ Amount of time to give callers that pass: @19@║@07@"
Print "@07@ @19@╚═══════════════════════════════════════════════════════════════╝@0E@"
Locate 8, 58
Print "@1F@"; s4513
Locate 9, 58
Print "@1F@"; s4521
Locate 10, 58
Print "@1F@"; s4529
Locate 11, 58
Print "@1F@"; s4545
Locate 12, 58
Print "@1F@"; s4537
Locate 13, 58
Print "@1F@"; s4553
Locate 14, 58
Print "@1F@"; i4561
Do
Do
Do
Do
Do
Do
Do
Do
7170 Locate 17, 1
Print "@0E@ Change which setting [@0F@1-7@0E@], [@0F@H@0E@] for help, or [@0F@Q@0E@] to quit [ ]@0F@";
Locate 17, 67
Do
7193 s5347 = UCase(InKey(1213417543))
Loop Until s5347 > ""
Print s5347;
If (s5347 = "1") = 0 Then GoTo 7326
Locate 8, 58
Print "@1F@ "
Locate 8, 58
Input s4513
s4513 = UCase(s4513)
Locate 8, 58
Print "@1F@"; s4513
Loop
7326 If (s5347 = "2") = 0 Then GoTo 7413
Locate 9, 58
Print "@1F@ "
Locate 9, 58
Input s4521
s4521 = UCase(s4521)
Locate 9, 58
Print "@1F@"; s4521
Loop
7413 If (s5347 = "3") = 0 Then GoTo 7500
Locate 10, 58
Print "@1F@ "
Locate 10, 58
Input s4529
s4529 = UCase(s4529)
Locate 10, 58
Print "@1F@"; s4529
Loop
7500 If (s5347 = "4") = 0 Then GoTo 7587
Locate 11, 58
Print "@1F@ "
Locate 11, 58
Input s4545
s4545 = UCase(s4545)
Locate 11, 58
Print "@1F@"; s4545
Loop
7587 If (s5347 = "5") = 0 Then GoTo 7674
Locate 12, 58
Print "@1F@ "
Locate 12, 58
Input s4537
s4537 = UCase(s4537)
Locate 12, 58
Print "@1F@"; s4537
Loop
7674 If (s5347 = "6") = 0 Then GoTo 7802
Locate 18, 9
If s4553 = "" Then
s4553 = "NO"
End If
7726 If s4553 = "NO" Then
s4553 = "YES"
Else
7758 s4553 = "NO"
End If
7767 Locate 13, 58
Print "@1F@"; s4553; "@1F@ "
Loop
7802 If (s5347 = "7") = 0 Then GoTo 7880
Locate 14, 58
Print "@1F@ "
Locate 14, 58
Input i4561
Locate 14, 58
Print "@1F@"; i4561
Loop
7880 If s5347 = "H" Then
GoSub 8971
GoTo 6906
End If
7911 If s5347 = "Q" Then
GoTo 9248
End If
7936 Loop
7942 Cls
Locate 5, 1
Print "@07@ @19@╔═══════════════════════════════════════════════════════════════╗@07@"
Print "@07@ @19@║ @1E@Cyberfier! @9F@Secondary@1E@ Security@1F@ @1E@Level settings @19@║@07@"
Print "@07@ @19@╠═══════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║ @1E@[@1F@1@1E@]@1A@ Security level needed to run Cyberfier: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@2@1E@]@1A@ Security level given after verification: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@3@1E@]@1A@ Security level given if caller skips/fails: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@4@1E@]@1A@ Security level for duplicate users: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@5@1E@]@1A@ Security level for long distance callers: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@6@1E@]@1A@ Run a check for duplicate users: @19@║@07@"
Print "@07@ @19@║ @1E@[@1F@7@1E@]@1A@ Amount of time to give callers that pass: @19@║@07@"
Print "@07@ @19@╚═══════════════════════════════════════════════════════════════╝@0E@"
Locate 8, 58
Print "@1F@"; s4517
Locate 9, 58
Print "@1F@"; s4525
Locate 10, 58
Print "@1F@"; s4533
Locate 11, 58
Print "@1F@"; s4549
Locate 12, 58
Print "@1F@"; s4541
Locate 13, 58
Print "@1F@"; s4557
Locate 14, 58
Print "@1F@"; i4563
Do
Do
Do
Do
Do
Do
Do
Do
8206 Locate 17, 1
Print "@0E@ Change which setting [@0F@1-7@0E@], [@0F@H@0E@] for help, or [@0F@Q@0E@] to quit [ ]@0F@";
Locate 17, 67
Do
8229 s5348 = UCase(InKey(1213417543))
Loop Until s5348 > ""
Print s5348;
If (s5348 = "1") = 0 Then GoTo 8362
Locate 8, 58
Print "@1F@ "
Locate 8, 58
Input s4517
s4517 = UCase(s4517)
Locate 8, 58
Print "@1F@"; s4517
Loop
8362 If (s5348 = "2") = 0 Then GoTo 8449
Locate 9, 58
Print "@1F@ "
Locate 9, 58
Input s4525
s4525 = UCase(s4525)
Locate 9, 58
Print "@1F@"; s4525
Loop
8449 If (s5348 = "3") = 0 Then GoTo 8536
Locate 10, 58
Print "@1F@ "
Locate 10, 58
Input s4533
s4533 = UCase(s4533)
Locate 10, 58
Print "@1F@"; s4533
Loop
8536 If (s5348 = "4") = 0 Then GoTo 8623
Locate 11, 58
Print "@1F@ "
Locate 11, 58
Input s4549
s4549 = UCase(s4549)
Locate 11, 58
Print "@1F@"; s4549
Loop
8623 If (s5348 = "5") = 0 Then GoTo 8710
Locate 12, 58
Print "@1F@ "
Locate 12, 58
Input s4541
s4541 = UCase(s4541)
Locate 12, 58
Print "@1F@"; s4541
Loop
8710 If (s5348 = "6") = 0 Then GoTo 8831
If s4557 = "" Then
s4557 = "NO"
End If
8755 If s4557 = "NO" Then
s4557 = "YES"
Else
8787 s4557 = "NO"
End If
8796 Locate 13, 58
Print "@1F@"; s4557; "@1F@ "
Loop
8831 If (s5348 = "7") = 0 Then GoTo 8909
Locate 14, 58
Print "@1F@ "
Locate 14, 58
Input i4563
Locate 14, 58
Print "@1F@"; i4563
Loop
8909 If s5348 = "H" Then
GoSub 8971
GoTo 7942
End If
8940 If s5348 = "Q" Then
GoTo 9248
End If
8965 Loop
8971 Cls
Print ""
Print "@0F@ Security level needed to run Cyberfier: @07@This should be the"
Print "@07@ security level that a new user is given after filling out"
Print "@07@ your new user questionnaire"
Print ""
Print "@0F@ Security level given after verification: @07@This is the security"
Print "@07@ level that will be given to a caller if they pass verification"
Print ""
Print "@0F@ Security level given if caller skips/fails: @07@This is the security"
Print "@07@ level given to a caller that could not be reached during verification,"
Print "@07@ or has chosen to skip Cyberfier."
Print ""
Print "@0F@ Security level given to duplicate users: @07@If a duplicate user"
Print "@07@ user is spotted, callers will be given this security level. this"
Print "@07@ field may be left blank if you choose not check for duplicate users."
Print "@07@"
Print "@0F@ Security level for long distance callers: @07@This is the security"
Print "@07@ level given to long-distance callers if you choose to auto-upgrade."
Print ""
Print "@PAUSE@"
Print "@0F@ Run a check for duplicate users: @07@This will allow cyberfier to "
Print "@07@ check all users at the security level specified in field #1 for "
Print "@07@ matching phone numbers of pre-existing users, provided that you"
Print ""
Print "@0F@ Amount of time to give callers that pass: @07@As a courtesy, you may"
Print "@07@ give new users time-compensation for using Cyberfier. This time"
Print "@07@ will ONLY be given to callers that have been verified."
Print ""
Print "@4F@ End of Help @0E@"
Print ""
WaitEnter
Return
9248 Return
9249 Locate 18, 1
Print " "
Locate 18, 26
If InputYesNo("@0E@Save these setting now? ", 1213417543) Then
Open "CBVGOSEC.DAT" For Output As 1
Print #1, UCase(s4513)
Print #1, UCase(s4517)
Close 1
Open s4471 For Output As 1
Print #1, s4513
Print #1, s4517
Print #1, s4521
Print #1, s4525
Print #1, s4529
Print #1, s4533
Print #1, s4537
Print #1, s4541
Print #1, s4545
Print #1, s4549
Print #1, s4553
Print #1, s4557
Print #1, i4561
Print #1, i4563
Print #1, s4565
Print #1, s4569
Print #1, s4573
Print #1, s4577
Print #1, s4581
Print #1, s4585
Print #1, s4589
Print #1, i4497
Print #1, i4499
Print #1, s4501
Print #1, s4505
Print #1, i4593
Close 1
GoTo 9615
End If
9609 Loop
9615 If (UCase(s4637) = "V") = 0 Then GoTo 9808
Cls
s4509 = InputMask("@0E@View activity log for which node? ", "XXX", "", 1213417543)
s4475 = s4481 + "CYBERLOG." + s4509
If Not Exists(s4475) Then
Print "@0E@"
Print "Unable to locate log file!"
WaitEnter
GoTo 9808
End If
9728 Print "@0E@Single line entries depict caller dropped carrier prior to callback"
Print ""
Print "@PAUSE@"
ReadBackOpen(s4475)
Do
9763 s5349 = ReadBackNext
Print s5349
Loop Until ReadBackTOF Or DisplayStopped
ReadBackClose
WaitEnter
Loop
9808 If UCase(s4637) = "U" Then
SysopUsers
If RIPDetected Then
DisplayFile("POSTRIP")
End If
End If
9849 If UCase(s4637) = "E" And i4595 <> 1 Then
If Exists("VERIFIER.KEY") Then
Del "VERIFIER.KEY"
End If
9902 GoSub 13464
Locate 8, 24
Print "@0F@ Registration of Cyberfier"
Locate 10, 20
Print "@0B@Enter the first code@0F@: ";
Input s5428
Locate 11, 19
Print "@0B@Enter the second code@0F@: ";
Input s5432
Locate 12, 20
Print "@0B@Enter the third code@0F@: ";
Input s5436
Locate 13, 19
Print "@0B@Enter the fourth code@0F@: ";
Input s5440
Open "VERIFIER.KEY" For Output As 5
Print #5, s5428
Print #5, s5432
Print #5, s5436
Print #5, s5440
Close 5
GoSub 906
If i4595 = 1 Then
GoSub 13464
Locate 12, 20
Print "@0B@ Thank you for registering Cyberfier!!"
Print ""
WaitEnter
End If
End If
10128 If UCase(s4637) = "Q" Then
GoTo 13490
End If
10154 Loop
Do
Do
10160 Cls
Locate 7, 1
Print "@NOPAUSE@@07@ @19@╔════════════════════════════════════════════════════════════════════╗@07@"
Print "@07@ @19@║ @1E@Cyberfier! Modem Configuration @19@║@07@"
Print "@07@ @19@╠════════════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║@1E@ [@1F@1@1E@]@19@ @1A@Seconds to wait for modem buffer to empty before dialing:@19@ ║@07@"
Print "@07@ @19@║@1E@ [@1F@2@1E@]@1A@ Seconds to wait for a carrier after dialing:@19@ ║@07@"
Print "@07@ @19@║@1E@ [@1F@3@1E@]@1A@ Command to send to the modem to dial (Pulse/Tone): @19@║@07@"
Print "@07@ @19@║@1E@ [@1F@4@1E@]@1A@ Number of callback attempts to make before aborting: @19@║@07@"
Print "@07@ @19@╠════════════════════════════════════════════════════════════════════╣@07@"
Print "@07@ @19@║@1E@ [@1F@5@1E@]@1A@ Additional commands sent to the modem (if any) before dialing @19@║@07@"
Print "@07@ @19@║ @01@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@19@ ║@07@"
Print "@07@ @19@║ @01@█ @0E@[@0F@ @0E@]@01@ █@19@ ║@07@"
Print "@07@ @19@║ @01@█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@19@ ║@07@"
Print "@07@ @19@╚════════════════════════════════════════════════════════════════════╝@07@"
Locate 10, 70
Print "@1F@"; i4497
Locate 11, 70
Print "@1F@"; i4499
Locate 12, 70
Print "@1F@"; s4501
Locate 13, 70
Print "@1F@"; i4593
Locate 17, 15
Print "@0F@"; s4505
Do
Do
Do
Do
Do
10400 Locate 21, 1
Print "@0F@ "
Locate 21, 1
Print "@07@ @0E@Change which setting [@0F@1-5@0E@], [@0F@H@0E@] for help, or [@0F@Q@0E@] to quit: [ ]";
Locate 21, 69
Do
10439 s5444 = UCase(InKey(1213417543))
Loop Until s5444 > ""
Print s5444
If (s5444 = "5") = 0 Then GoTo 10561
Locate 17, 15
Print "@0F@ "
Locate 17, 15
Input s4505
Locate 17, 15
Print "@0F@"; s4505
Loop
10561 If (s5444 = "4") = 0 Then GoTo 1