home *** CD-ROM | disk | FTP | other *** search
Wildcat! WCX | 1995-02-16 | 7.2 KB | 424 lines |
- '! Decompiled with wccNosy version 4.20f (freeware)
- '! Input File: in.wcx 7379 bytes 11/18/124 09:38:50am
- '! Code Segment Size :3567 bytes
- '! Data Segment Size :4702 bytes
- '! String Segment Size:3812 bytes
- '! Compiled with WCC version 4.01
-
- Declare Sub Sub443
- Declare Sub Sub482
- Declare Sub Sub1672
- Declare Sub Sub2277
- Declare Sub Sub2605
- Declare Sub Sub2933
- Declare Sub Sub3261
- Declare Sub Sub3301
- Declare Sub Sub3341
- Declare Sub Sub3381
- Declare Sub Sub3533
-
- Dim s4463 As String*1
- Dim s4464 As String*1
- Dim s4465 As String*1
- Dim s4466 As String*10
- Dim s4476 As String*10
- Dim s4486 As String*10
- Dim s4496 As String*25
- Dim s4521 As String*25
- Dim s4546 As String*25
- Dim s4571 As String*60
- Dim s4631 As String*3
- Dim s4634 As String
- Dim s4638 As String
- Dim s4642 As String
- Dim b4646 As Byte
- Dim s4647 As String*25
- Dim s4672 As String*30
-
- s4647 = "UNREGISTERED"
- s4672 = "UNREGISTERED"
- CarrierCheck(-1)
- s4638 = ProgPath + "SITELIST.CFG"
- Open s4638 For Input As 1
- Input #1, s4466
- Input #1, s4476
- Input #1, s4486
- Input #1, s4496
- Input #1, s4521
- Input #1, s4546
- Input #1, s4631
- Reset
- If User.SecLevel = UCase(s4466) Then
- Sub3533
- End
- End If
- 202 If User.SecLevel = UCase(s4476) Then
- Sub3533
- End
- End If
- 236 If User.SecLevel = UCase(s4486) Then
- Sub3533
- End
- End If
- 270 If User.Name = UCase(s4496) Then
- Sub3533
- End
- End If
- 304 If User.Name = UCase(s4521) Then
- Sub3533
- End
- End If
- 338 If User.Name = UCase(s4546) Then
- Sub3533
- End
- End If
- 372 ActivityLog "-=≡:> Site Lister Entered <:≡=-"
- If UCase(s4631) = "¥Σå┼╒" Then
- Sub1672
- Else
- 414 Sub482
- End If
- 420 Sub443
- End
-
- '! Called 1 time
- Sub Sub443
- Cls
- Locate 12, 8
- Print "@0E@This Program is @8C@UNREGISTERED@0E@. Please ask your SysOp to Register!"
- Delay 3
- End Sub
-
- '! Called 1 time
- Sub Sub482
- Dim l65512 As Long
- Dim b65516 As Byte
- Dim l65517 As Long
- Dim b65521 As Byte
- Dim l65522 As Long
- Dim b65526 As Byte
- Dim l65527 As Long
- Dim b65531 As Byte
- Dim s65532 As String
-
- Do
- 491 Cls
- Print "@0E@"
- Print "@0E@ @0B@▐@1B@ ┌────────────────────────────────────────────────────────────────@10@┐@1B@ @08@▌@0B@"
- Print "@0E@ @0B@▐@1B@ │@1E@ INTERNET SITE LIST 2.0 @1B@ @1E@ @10@│@1B@ @08@▌@0B@"
- Print "@0F@▄▄▄▄▄@0B@▐@1B@ │@1E@ @10@│@1B@ @08@▌@07@▄▄@0F@▄▄@0B@"
- Print "@0E@▄▄▄▄▄@0B@▐@1B@ │@1E@ @10@│@1B@ @08@▌@06@▄▄@0E@▄▄@0B@"
- Print "@0D@▄▄▄▄▄@0B@▐@1B@ └@10@────────────────────────────────────────────────────────────────┘@1B@ @08@▌@05@▄▄@0D@▄▄@0B@"
- Locate 5, 17
- Print "@1F@SysOp@17@: @1F@"; s4647
- Locate 5, 43
- Print "BBS@17@: @1F@"; s4672
- Locate 7, 1
- Print "@0C@▄▄▄▄▄▄▄▄@04@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0C@▄▄@0B@"
- Print "@0A@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@▐@1B@ ┌─────────────────────────────────────@10@┐@19@ @08@▌@02@▄▄@0A@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@"
- Print "@09@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@▐@1B@ │ [@1E@F@10@]@1F@TP Site @1F@(File Transfer Protocol)@1B@ @10@│@19@ @08@▌@01@▄▄@09@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@"
- Print "@0F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@▐@1B@ │ [@1E@W@10@]@1F@WW Site @1F@(World Wide Web)@1B@ @1F@ @1B@ @10@│@19@ @08@▌@07@▄▄@0F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@"
- Print "@0E@ @0B@ ▐@1B@ │ [@1E@T@10@]@1F@elNet Site @1F@(Remote Connection)@1B@ @10@│@19@ @08@▌@0B@"
- Print "@0E@ @0B@ ▐@1B@ │ [@1E@D@10@]@1F@ownload a Site Listing@1B@ @10@│@19@ @08@▌@0B@"
- Print "@0E@ @0B@ ▐@1B@ │ [@1E@Q@10@]@1F@uit and exit back to the BBS @1B@ @10@│@19@ @08@▌@0B@"
- Print "@0E@ @0B@ ▐@1B@ └@10@─────────────────────────────────────┘@19@ @08@▌@0B@"
- Print "@0E@"
- Print "@0A@ Site List Command >> ";
- Sub3381
- s65532 = UCase(s4463)
- If s65532 = "D" Then
- 750 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 836 Locate 10, 5
- Print "@0E@Would you like to download the [@0F@F@0E@]TP, [@0F@W@0E@]WW, or [@0F@T@0E@]elNet site listing ? ";
- Input s4464
- If UCase(s4464) = "F" Then
- s4634 = ProgPath + "FTP.TXT"
- SendFile(s4634, 1213417543)
- End If
- 909 If UCase(s4464) = "W" Then
- s4634 = ProgPath + "WWW.TXT"
- SendFile(s4634, 1213417543)
- End If
- 958 If UCase(s4464) = "T" Then
- s4634 = ProgPath + "TELNET.TXT"
- SendFile(s4634, 1213417543)
- End If
- 1007 Else
- 1013 If s65532 = "F" Then
- 1051 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 1137 Locate 10, 9
- Print "@0E@Would you like to [@0F@A@0E@]dd a FTP site, or [@0F@L@0E@]ist all FTP sites ? ";
- Input s4464
- If UCase(s4464) = "A" Then
- Sub2277
- End If
- 1189 If UCase(s4464) = "L" Then
- Sub3261
- End If
- 1217 Else
- 1223 If s65532 = "W" Then
- 1261 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 1347 Locate 10, 9
- Print "@0E@Would you like to [@0F@A@0E@]dd a WWW site, or [@0F@L@0E@]ist all WWW sites ? ";
- Input s4464
- If UCase(s4464) = "A" Then
- Sub2605
- End If
- 1399 If UCase(s4464) = "L" Then
- Sub3301
- End If
- 1427 Else
- 1433 If s65532 = "T" Then
- 1471 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 1557 Locate 10, 7
- Print "@0E@Would you like to [@0F@A@0E@]dd a TelNet site, or [@0F@L@0E@]ist all TelNet sites ? ";
- Input s4464
- If UCase(s4464) = "A" Then
- Sub2933
- End If
- 1609 If UCase(s4464) = "L" Then
- Sub3341
- End If
- 1637 GoTo 1643
- End If
- End If
- End If
- End If
- 1643 Loop Until UCase(s4463) = "Q"
- End Sub
-
- '! Called 1 time
- Sub Sub1672
- Dim s65532 As String
-
- Do
- 1681 s4642 = ProgPath + "SITELIST.MNU"
- DisplayTextFile(s4642)
- Print "@0F@ Site List Command >> ";
- Input s4463
- s65532 = UCase(s4463)
- If s65532 = "D" Then
- Cls
- Locate 11, 5
- Print "@0E@Would you like to download the [@0F@F@0E@]TP, [@0F@W@0E@]WW, or [@0F@T@0E@]elNet site listing ? ";
- Input s4464
- If UCase(s4464) = "F" Then
- s4634 = ProgPath + "FTP.TXT"
- SendFile(s4634, 1213417543)
- End If
- 1826 If UCase(s4464) = "W" Then
- s4634 = ProgPath + "WWW.TXT"
- SendFile(s4634, 1213417543)
- End If
- 1875 If UCase(s4464) = "T" Then
- s4634 = ProgPath + "TELNET.TXT"
- SendFile(s4634, 1213417543)
- End If
- 1924 Else
- 1930 If s65532 = "F" Then
- Cls
- Locate 11, 9
- Print "@0E@Would you like to [@0F@A@0E@]dd a FTP site, or [@0F@L@0E@]ist all FTP sites ? ";
- Input s4464
- If UCase(s4464) = "A" Then
- Sub2277
- End If
- 2002 If UCase(s4464) = "L" Then
- Sub3261
- End If
- 2030 Else
- 2036 If s65532 = "W" Then
- Cls
- Locate 11, 9
- Print "@0E@Would you like to [@0F@A@0E@]dd a WWW site, or [@0F@L@0E@]ist all WWW sites ? ";
- Input s4464
- If UCase(s4464) = "A" Then
- Sub2605
- End If
- 2108 If UCase(s4464) = "L" Then
- Sub3301
- End If
- 2136 Else
- 2142 If s65532 = "T" Then
- Cls
- Locate 11, 7
- Print "@0E@Would you like to [@0F@A@0E@]dd a TelNet site, or [@0F@L@0E@]ist all TelNet sites ? ";
- Input s4464
- If UCase(s4464) = "A" Then
- Sub2933
- End If
- 2214 If UCase(s4464) = "L" Then
- Sub3341
- End If
- 2242 GoTo 2248
- End If
- End If
- End If
- End If
- 2248 Loop Until UCase(s4463) = "Q"
- End Sub
-
- '! Called 2 times
- Sub Sub2277
- Dim l65531 As Long
- Dim b65535 As Byte
-
- Do
- 2286
- 2307 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 2393 Locate 10, 9
- Print "@0E@Enter the complete address and description of a FTP site to add."
- Print "@0E@"
- s4571 = InputMask("@0F@FTP Site@07@: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
- Print
- Print "@0E@Did you enter this FTP site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
- Input s4465
- If UCase(s4465) = "Q" Then
- GoTo 2602
- End If
- 2494 Loop Until UCase(s4465) = "Y"
- s4634 = ProgPath + "FTP.TXT"
- Open s4634 For Append As 1
- Print #1, " " + s4571
- Close 1
- Print
- Print "@0E@FTP Site Added!"
- ActivityLog "FTP Site Added: " + s4571
- WaitEnter
- 2602
- End Sub
-
- '! Called 2 times
- Sub Sub2605
- Dim l65531 As Long
- Dim b65535 As Byte
-
- Do
- 2614
- 2635 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 2721 Locate 10, 9
- Print "@0E@Enter the complete address and description of a WWW site to add."
- Print "@0E@"
- s4571 = InputMask("@0F@WWW Site@07@: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
- Print
- Print "@0E@Did you enter this WWW site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
- Input s4465
- If UCase(s4465) = "Q" Then
- GoTo 2930
- End If
- 2822 Loop Until UCase(s4465) = "Y"
- s4634 = ProgPath + "WWW.TXT"
- Open s4634 For Append As 1
- Print #1, " " + s4571
- Close 1
- Print
- Print "@0E@WWW Site Added!"
- ActivityLog "WWW Site Added: " + s4571
- WaitEnter
- 2930
- End Sub
-
- '! Called 2 times
- Sub Sub2933
- Dim l65531 As Long
- Dim b65535 As Byte
-
- Do
- 2942
- 2963 For b4646 = 8 To 16 Step 1
- Locate b4646, 1
- ClrEOL
- Next
- 3049 Locate 10, 9
- Print "@0E@Enter the complete address and description of a TelNet site to add."
- Print "@0E@"
- s4571 = InputMask("@0F@TelNet Site@07@: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
- Print
- Print "@0E@Did you enter this TelNet site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
- Input s4465
- If UCase(s4465) = "Q" Then
- GoTo 3258
- End If
- 3150 Loop Until UCase(s4465) = "Y"
- s4634 = ProgPath + "TELNET.TXT"
- Open s4634 For Append As 1
- Print #1, " " + s4571
- Close 1
- Print
- Print "@0E@TelNet Site Added!"
- ActivityLog "TelNet Site Added: " + s4571
- WaitEnter
- 3258
- End Sub
-
- '! Called 2 times
- Sub Sub3261
- Cls
- s4634 = ProgPath + "FTP.TXT"
- DisplayTextFile(s4634)
- WaitEnter
- End Sub
-
- '! Called 2 times
- Sub Sub3301
- Cls
- s4634 = ProgPath + "WWW.TXT"
- DisplayTextFile(s4634)
- WaitEnter
- End Sub
-
- '! Called 2 times
- Sub Sub3341
- Cls
- s4634 = ProgPath + "TELNET.TXT"
- DisplayTextFile(s4634)
- WaitEnter
- End Sub
-
- '! Called 1 time
- Sub Sub3381
- Dim i65534 As Integer
-
- i65534 = 1
- Do
- 3397 s4463 = InKey(1213417543)
- If InStr("FWTDQ", UCase(s4463)) Then
- GoTo 3530
- End If
- 3440 Locate 16, 50
- Print Tab(50); "@0F@"; Mid("─\|/", i65534, 1);
- i65534 = i65534 + 1
- If i65534 > 4 Then
- i65534 = 1
- End If
- 3516 Delay 0.1
- Loop
- 3530
- End Sub
-
- '! Called 6 times
- Sub Sub3533
- ActivityLog "-=≡:> Site List Access Denied <:≡=-"
- Print
- Print "@0E@Sorry, but you do not have access to this door!"
- WaitEnter
- End Sub
-