ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/BBS/ISL26.ZIP/SITELIST.WCX

Wildcat! WCX | 1995-06-18 | 11KB | 503 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  11106 bytes  12/30/122  04:14:14pm
'! Code Segment Size  :4170 bytes
'! Data Segment Size  :4712 bytes
'! String Segment Size:6936 bytes
'! Compiled with WCC version 4.01

      Declare Sub Sub443
      Declare Sub Sub482
      Declare Sub Sub1940
      Declare Sub Sub2700
      Declare Sub Sub2981
      Declare Sub Sub3262
      Declare Sub Sub3543
      Declare Sub Sub3824
      Declare Sub Sub3864
      Declare Sub Sub3904
      Declare Sub Sub3944
      Declare Sub Sub3984
      Declare Sub Sub4136

      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*70
      Dim s4641 As String*3
      Dim s4644 As String
      Dim s4648 As String
      Dim s4652 As String
      Dim b4656 As Byte
      Dim s4657 As String*25
      Dim s4682 As String*30

      s4657 = "UNREGISTERED"
      s4682 = "UNREGISTERED"
      CarrierCheck(-1)
      s4648 = ProgPath + "SITELIST.CFG"
      Open s4648 For Input As 1
      Input #1, s4466
      Input #1, s4476
      Input #1, s4486
      Input #1, s4496
      Input #1, s4521
      Input #1, s4546
      Input #1, s4641
      Reset
      If User.SecLevel = UCase(s4466) Then
        Sub4136
        End
      End If
  202 If User.SecLevel = UCase(s4476) Then
        Sub4136
        End
      End If
  236 If User.SecLevel = UCase(s4486) Then
        Sub4136
        End
      End If
  270 If User.Name = UCase(s4496) Then
        Sub4136
        End
      End If
  304 If User.Name = UCase(s4521) Then
        Sub4136
        End
      End If
  338 If User.Name = UCase(s4546) Then
        Sub4136
        End
      End If
  372 ActivityLog "-=≡:> Site Lister Entered <:≡=-"
      If UCase(s4641) = "┘Γ╥╤╙" Then
        Sub1940
      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 l65507 As Long
        Dim b65511 As Byte
        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.6                   @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@"; s4657
          Locate 5, 43
          Print "BBS@17@: @1F@"; s4682
          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@U@10@]@1F@seNet Site @1F@(NewsGroup E-Mail)@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 >> ";
          Sub3984
          s65532 = UCase(s4463)
          If s65532 = "D" Then
  759       For b4656 = 8 To 17 Step 1
              Locate b4656, 1
              ClrEOL
            Next
  845       Locate 10, 1
            Print "@0E@Would you like to download the [@0F@F@0E@]TP, [@0F@W@0E@]WW, [@0F@T@0E@]elNet or [@0F@U@0E@]seNet site list ? ";
            Input s4464
            If UCase(s4464) = "F" Then
              s4644 = ProgPath + "FTP.TXT"
              SendFile(s4644, 1213417543)
            End If
  918       If UCase(s4464) = "W" Then
              s4644 = ProgPath + "WWW.TXT"
              SendFile(s4644, 1213417543)
            End If
  967       If UCase(s4464) = "T" Then
              s4644 = ProgPath + "TELNET.TXT"
              SendFile(s4644, 1213417543)
            End If
 1016       If UCase(s4464) = "U" Then
              s4644 = ProgPath + "USENET.TXT"
              SendFile(s4644, 1213417543)
            End If
 1065     Else
 1071       If s65532 = "F" Then
 1109         For b4656 = 8 To 17 Step 1
                Locate b4656, 1
                ClrEOL
              Next
 1195         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
                Sub2700
              End If
 1247         If UCase(s4464) = "L" Then
                Sub3824
              End If
 1275       Else
 1281         If s65532 = "W" Then
 1319           For b4656 = 8 To 17 Step 1
                  Locate b4656, 1
                  ClrEOL
                Next
 1405           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
                  Sub2981
                End If
 1457           If UCase(s4464) = "L" Then
                  Sub3864
                End If
 1485         Else
 1491           If s65532 = "T" Then
 1529             For b4656 = 8 To 17 Step 1
                    Locate b4656, 1
                    ClrEOL
                  Next
 1615             Locate 10, 6
                  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
                    Sub3262
                  End If
 1667             If UCase(s4464) = "L" Then
                    Sub3904
                  End If
 1695           Else
 1701             If s65532 = "U" Then
 1739               For b4656 = 8 To 17 Step 1
                      Locate b4656, 1
                      ClrEOL
                    Next
 1825               Locate 10, 6
                    Print "@0E@Would you like to [@0F@A@0E@]dd a UseNet site, or [@0F@L@0E@]ist all UseNet sites ? ";
                    Input s4464
                    If UCase(s4464) = "A" Then
                      Sub3543
                    End If
 1877               If UCase(s4464) = "L" Then
                      Sub3944
                    End If
 1905               GoTo 1911
                  End If
                End If
              End If
            End If
          End If
 1911   Loop Until UCase(s4463) = "Q"
      End Sub

'! Called 1 time
      Sub Sub1940
        Dim s65532 As String

        Do
 1949     s4652 = ProgPath + "SITELIST.MNU"
          DisplayTextFile(s4652)
          Print "@0F@                            Site List Command >> ";
          Input s4463
          s65532 = UCase(s4463)
          If s65532 = "D" Then
            Cls
            Locate 11, 1
            Print "@0E@Would you like to download the [@0F@F@0E@]TP, [@0F@W@0E@]WW, [@0F@T@0E@]elNet or [@0F@U@0E@]seNet site list ? ";
            Input s4464
            If UCase(s4464) = "F" Then
              s4644 = ProgPath + "FTP.TXT"
              SendFile(s4644, 1213417543)
            End If
 2094       If UCase(s4464) = "W" Then
              s4644 = ProgPath + "WWW.TXT"
              SendFile(s4644, 1213417543)
            End If
 2143       If UCase(s4464) = "T" Then
              s4644 = ProgPath + "TELNET.TXT"
              SendFile(s4644, 1213417543)
            End If
 2192       If UCase(s4464) = "U" Then
              s4644 = ProgPath + "USENET.TXT"
              SendFile(s4644, 1213417543)
            End If
 2241     Else
 2247       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
                Sub2700
              End If
 2319         If UCase(s4464) = "L" Then
                Sub3824
              End If
 2347       Else
 2353         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
                  Sub2981
                End If
 2425           If UCase(s4464) = "L" Then
                  Sub3864
                End If
 2453         Else
 2459           If s65532 = "T" Then
                  Cls
                  Locate 11, 6
                  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
                    Sub3262
                  End If
 2531             If UCase(s4464) = "L" Then
                    Sub3904
                  End If
 2559           Else
 2565             If s65532 = "U" Then
                    Cls
                    Locate 11, 6
                    Print "@0E@Would you like to [@0F@A@0E@]dd a UseNet site, or [@0F@L@0E@]ist all UseNet sites ? ";
                    Input s4464
                    If UCase(s4464) = "A" Then
                      Sub3543
                    End If
 2637               If UCase(s4464) = "L" Then
                      Sub3944
                    End If
 2665               GoTo 2671
                  End If
                End If
              End If
            End If
          End If
 2671   Loop Until UCase(s4463) = "Q"
      End Sub

'! Called 2 times
      Sub Sub2700
        Do
 2709     Cls
          Locate 8, 1
          Print "@1B@▌┌──────────────────────────────────────────────────────────────────────────@10@┐@18@▐@1B@"
          Print "@1B@▌│@1E@                          FILE TRANSFER PROTOCOL                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1F@          Enter the address and description of a FTP site to add          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌└@10@──────────────────────────────────────────────────────────────────────────┘@18@▐@07@"
          Locate 13, 4
          s4571 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          Locate 16, 9
          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 2978
          End If
 2870   Loop Until UCase(s4465) = "Y"
        s4644 = ProgPath + "FTP.TXT"
        Open s4644 For Append As 1
        Print #1, "     " + s4571
        Close 1
        Print
        Print "@0E@FTP Site Added!"
        ActivityLog "FTP Site Added: " + s4571
        WaitEnter
 2978
      End Sub

'! Called 2 times
      Sub Sub2981
        Do
 2990     Cls
          Locate 8, 1
          Print "@1B@▌┌──────────────────────────────────────────────────────────────────────────@10@┐@18@▐@1B@"
          Print "@1B@▌│@1E@                              WORLD WIDE WEB                              @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1F@          Enter the address and description of a WWW site to add          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌└@10@──────────────────────────────────────────────────────────────────────────┘@18@▐@07@"
          Locate 13, 4
          s4571 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          Locate 16, 9
          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 3259
          End If
 3151   Loop Until UCase(s4465) = "Y"
        s4644 = ProgPath + "WWW.TXT"
        Open s4644 For Append As 1
        Print #1, "     " + s4571
        Close 1
        Print
        Print "@0E@WWW Site Added!"
        ActivityLog "WWW Site Added: " + s4571
        WaitEnter
 3259
      End Sub

'! Called 2 times
      Sub Sub3262
        Do
 3271     Cls
          Locate 8, 1
          Print "@1B@▌┌──────────────────────────────────────────────────────────────────────────@10@┐@18@▐@1B@"
          Print "@1B@▌│@1E@                          TELNET REMOTE CONNECT                           @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1F@        Enter the address and description of a TelNet site to add         @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌└@10@──────────────────────────────────────────────────────────────────────────┘@18@▐@07@"
          Locate 13, 4
          s4571 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          Locate 16, 8
          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 3540
          End If
 3432   Loop Until UCase(s4465) = "Y"
        s4644 = ProgPath + "TELNET.TXT"
        Open s4644 For Append As 1
        Print #1, "     " + s4571
        Close 1
        Print
        Print "@0E@TelNet Site Added!"
        ActivityLog "TelNet Site Added: " + s4571
        WaitEnter
 3540
      End Sub

'! Called 2 times
      Sub Sub3543
        Do
 3552     Cls
          Locate 8, 1
          Print "@1B@▌┌──────────────────────────────────────────────────────────────────────────@10@┐@18@▐@1B@"
          Print "@1B@▌│@1E@                             USENET NEWSGROUP                             @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1F@        Enter the address and description of a UseNet site to add         @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌│@1E@                                                                          @10@│@18@▐@1B@"
          Print "@1B@▌└@10@──────────────────────────────────────────────────────────────────────────┘@18@▐@07@"
          Locate 13, 4
          s4571 = InputMask("@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          Locate 16, 8
          Print "@0E@Did you enter this UseNet site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
          Input s4465
          If UCase(s4465) = "Q" Then
            GoTo 3821
          End If
 3713   Loop Until UCase(s4465) = "Y"
        s4644 = ProgPath + "USENET.TXT"
        Open s4644 For Append As 1
        Print #1, "     " + s4571
        Close 1
        Print
        Print "@0E@UseNet Site Added!"
        ActivityLog "UseNet Site Added: " + s4571
        WaitEnter
 3821
      End Sub

'! Called 2 times
      Sub Sub3824
        Cls
        s4644 = ProgPath + "FTP.TXT"
        DisplayTextFile(s4644)
        WaitEnter
      End Sub

'! Called 2 times
      Sub Sub3864
        Cls
        s4644 = ProgPath + "WWW.TXT"
        DisplayTextFile(s4644)
        WaitEnter
      End Sub

'! Called 2 times
      Sub Sub3904
        Cls
        s4644 = ProgPath + "TELNET.TXT"
        DisplayTextFile(s4644)
        WaitEnter
      End Sub

'! Called 2 times
      Sub Sub3944
        Cls
        s4644 = ProgPath + "USENET.TXT"
        DisplayTextFile(s4644)
        WaitEnter
      End Sub

'! Called 1 time
      Sub Sub3984
        Dim i65534 As Integer

        i65534 = 1
        Do
 4000     s4463 = InKey(1213417543)
          If InStr("FWTUDQ", UCase(s4463)) Then
            GoTo 4133
          End If
 4043     Locate 17, 50
          Print Tab(50); "@0F@"; Mid("─\|/", i65534, 1);
          i65534 = i65534 + 1
          If i65534 > 4 Then
            i65534 = 1
          End If
 4119     Delay 0.1
        Loop
 4133
      End Sub

'! Called 6 times
      Sub Sub4136
        ActivityLog "-=≡:> Site List Access Denied <:≡=-"
        Print
        Print "@0E@Sorry, but you do not have access to this door!"
        WaitEnter
      End Sub