home *** CD-ROM | disk | FTP | other *** search
/ A Beginner's Guide to the Internet / INTERNET.ISO / text / lists / isl20 / sitelist.wcx (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1995-02-16  |  7.2 KB  |  424 lines

  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  7379 bytes  11/18/124  09:38:50am
  3. '! Code Segment Size  :3567 bytes
  4. '! Data Segment Size  :4702 bytes
  5. '! String Segment Size:3812 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Sub Sub443
  9.       Declare Sub Sub482
  10.       Declare Sub Sub1672
  11.       Declare Sub Sub2277
  12.       Declare Sub Sub2605
  13.       Declare Sub Sub2933
  14.       Declare Sub Sub3261
  15.       Declare Sub Sub3301
  16.       Declare Sub Sub3341
  17.       Declare Sub Sub3381
  18.       Declare Sub Sub3533
  19.  
  20.       Dim s4463 As String*1
  21.       Dim s4464 As String*1
  22.       Dim s4465 As String*1
  23.       Dim s4466 As String*10
  24.       Dim s4476 As String*10
  25.       Dim s4486 As String*10
  26.       Dim s4496 As String*25
  27.       Dim s4521 As String*25
  28.       Dim s4546 As String*25
  29.       Dim s4571 As String*60
  30.       Dim s4631 As String*3
  31.       Dim s4634 As String
  32.       Dim s4638 As String
  33.       Dim s4642 As String
  34.       Dim b4646 As Byte
  35.       Dim s4647 As String*25
  36.       Dim s4672 As String*30
  37.  
  38.       s4647 = "UNREGISTERED"
  39.       s4672 = "UNREGISTERED"
  40.       CarrierCheck(-1)
  41.       s4638 = ProgPath + "SITELIST.CFG"
  42.       Open s4638 For Input As 1
  43.       Input #1, s4466
  44.       Input #1, s4476
  45.       Input #1, s4486
  46.       Input #1, s4496
  47.       Input #1, s4521
  48.       Input #1, s4546
  49.       Input #1, s4631
  50.       Reset 
  51.       If User.SecLevel = UCase(s4466) Then
  52.         Sub3533
  53.         End 
  54.       End If
  55.   202 If User.SecLevel = UCase(s4476) Then
  56.         Sub3533
  57.         End 
  58.       End If
  59.   236 If User.SecLevel = UCase(s4486) Then
  60.         Sub3533
  61.         End 
  62.       End If
  63.   270 If User.Name = UCase(s4496) Then
  64.         Sub3533
  65.         End 
  66.       End If
  67.   304 If User.Name = UCase(s4521) Then
  68.         Sub3533
  69.         End 
  70.       End If
  71.   338 If User.Name = UCase(s4546) Then
  72.         Sub3533
  73.         End 
  74.       End If
  75.   372 ActivityLog "-=≡:> Site Lister Entered <:≡=-"
  76.       If UCase(s4631) = "¥Σå┼╒" Then
  77.         Sub1672
  78.       Else
  79.   414   Sub482
  80.       End If
  81.   420 Sub443
  82.       End 
  83.  
  84. '! Called 1 time
  85.       Sub Sub443
  86.         Cls 
  87.         Locate 12, 8
  88.         Print "@0E@This Program is @8C@UNREGISTERED@0E@. Please ask your SysOp to Register!"
  89.         Delay 3
  90.       End Sub
  91.  
  92. '! Called 1 time
  93.       Sub Sub482
  94.         Dim l65512 As Long
  95.         Dim b65516 As Byte
  96.         Dim l65517 As Long
  97.         Dim b65521 As Byte
  98.         Dim l65522 As Long
  99.         Dim b65526 As Byte
  100.         Dim l65527 As Long
  101.         Dim b65531 As Byte
  102.         Dim s65532 As String
  103.  
  104.         Do
  105.   491     Cls 
  106.           Print "@0E@"
  107.           Print "@0E@     @0B@▐@1B@ ┌────────────────────────────────────────────────────────────────@10@┐@1B@ @08@▌@0B@"
  108.           Print "@0E@     @0B@▐@1B@ │@1E@                    INTERNET SITE LIST 2.0                   @1B@ @1E@  @10@│@1B@ @08@▌@0B@"
  109.           Print "@0F@▄▄▄▄▄@0B@▐@1B@ │@1E@                                                                @10@│@1B@ @08@▌@07@▄▄@0F@▄▄@0B@"
  110.           Print "@0E@▄▄▄▄▄@0B@▐@1B@ │@1E@                                                                @10@│@1B@ @08@▌@06@▄▄@0E@▄▄@0B@"
  111.           Print "@0D@▄▄▄▄▄@0B@▐@1B@ └@10@────────────────────────────────────────────────────────────────┘@1B@ @08@▌@05@▄▄@0D@▄▄@0B@"
  112.           Locate 5, 17
  113.           Print "@1F@SysOp@17@: @1F@"; s4647
  114.           Locate 5, 43
  115.           Print "BBS@17@: @1F@"; s4672
  116.           Locate 7, 1
  117.           Print "@0C@▄▄▄▄▄▄▄▄@04@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0C@▄▄@0B@"
  118.           Print "@0A@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@▐@1B@ ┌─────────────────────────────────────@10@┐@19@ @08@▌@02@▄▄@0A@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@"
  119.           Print "@09@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@▐@1B@ │ [@1E@F@10@]@1F@TP Site @1F@(File Transfer Protocol)@1B@ @10@│@19@ @08@▌@01@▄▄@09@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@"
  120.           Print "@0F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@▐@1B@ │ [@1E@W@10@]@1F@WW Site @1F@(World Wide Web)@1B@  @1F@      @1B@ @10@│@19@ @08@▌@07@▄▄@0F@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0B@"
  121.           Print "@0E@                @0B@  ▐@1B@ │ [@1E@T@10@]@1F@elNet Site @1F@(Remote Connection)@1B@   @10@│@19@ @08@▌@0B@"
  122.           Print "@0E@                @0B@  ▐@1B@ │ [@1E@D@10@]@1F@ownload a Site Listing@1B@           @10@│@19@ @08@▌@0B@"
  123.           Print "@0E@                @0B@  ▐@1B@ │ [@1E@Q@10@]@1F@uit and exit back to the BBS    @1B@ @10@│@19@ @08@▌@0B@"
  124.           Print "@0E@                @0B@  ▐@1B@ └@10@─────────────────────────────────────┘@19@ @08@▌@0B@"
  125.           Print "@0E@"
  126.           Print "@0A@                            Site List Command >> ";
  127.           Sub3381
  128.           s65532 = UCase(s4463)
  129.           If s65532 = "D" Then
  130.   750       For b4646 = 8 To 16 Step 1
  131.               Locate b4646, 1
  132.               ClrEOL 
  133.             Next
  134.   836       Locate 10, 5
  135.             Print "@0E@Would you like to download the [@0F@F@0E@]TP, [@0F@W@0E@]WW, or [@0F@T@0E@]elNet site listing ? ";
  136.             Input s4464
  137.             If UCase(s4464) = "F" Then
  138.               s4634 = ProgPath + "FTP.TXT"
  139.               SendFile(s4634, 1213417543)
  140.             End If
  141.   909       If UCase(s4464) = "W" Then
  142.               s4634 = ProgPath + "WWW.TXT"
  143.               SendFile(s4634, 1213417543)
  144.             End If
  145.   958       If UCase(s4464) = "T" Then
  146.               s4634 = ProgPath + "TELNET.TXT"
  147.               SendFile(s4634, 1213417543)
  148.             End If
  149.  1007     Else
  150.  1013       If s65532 = "F" Then
  151.  1051         For b4646 = 8 To 16 Step 1
  152.                 Locate b4646, 1
  153.                 ClrEOL 
  154.               Next
  155.  1137         Locate 10, 9
  156.               Print "@0E@Would you like to [@0F@A@0E@]dd a FTP site, or [@0F@L@0E@]ist all FTP sites ? ";
  157.               Input s4464
  158.               If UCase(s4464) = "A" Then
  159.                 Sub2277
  160.               End If
  161.  1189         If UCase(s4464) = "L" Then
  162.                 Sub3261
  163.               End If
  164.  1217       Else
  165.  1223         If s65532 = "W" Then
  166.  1261           For b4646 = 8 To 16 Step 1
  167.                   Locate b4646, 1
  168.                   ClrEOL 
  169.                 Next
  170.  1347           Locate 10, 9
  171.                 Print "@0E@Would you like to [@0F@A@0E@]dd a WWW site, or [@0F@L@0E@]ist all WWW sites ? ";
  172.                 Input s4464
  173.                 If UCase(s4464) = "A" Then
  174.                   Sub2605
  175.                 End If
  176.  1399           If UCase(s4464) = "L" Then
  177.                   Sub3301
  178.                 End If
  179.  1427         Else
  180.  1433           If s65532 = "T" Then
  181.  1471             For b4646 = 8 To 16 Step 1
  182.                     Locate b4646, 1
  183.                     ClrEOL 
  184.                   Next
  185.  1557             Locate 10, 7
  186.                   Print "@0E@Would you like to [@0F@A@0E@]dd a TelNet site, or [@0F@L@0E@]ist all TelNet sites ? ";
  187.                   Input s4464
  188.                   If UCase(s4464) = "A" Then
  189.                     Sub2933
  190.                   End If
  191.  1609             If UCase(s4464) = "L" Then
  192.                     Sub3341
  193.                   End If
  194.  1637             GoTo 1643
  195.                 End If
  196.               End If
  197.             End If
  198.           End If
  199.  1643   Loop Until UCase(s4463) = "Q"
  200.       End Sub
  201.  
  202. '! Called 1 time
  203.       Sub Sub1672
  204.         Dim s65532 As String
  205.  
  206.         Do
  207.  1681     s4642 = ProgPath + "SITELIST.MNU"
  208.           DisplayTextFile(s4642)
  209.           Print "@0F@                            Site List Command >> ";
  210.           Input s4463
  211.           s65532 = UCase(s4463)
  212.           If s65532 = "D" Then
  213.             Cls 
  214.             Locate 11, 5
  215.             Print "@0E@Would you like to download the [@0F@F@0E@]TP, [@0F@W@0E@]WW, or [@0F@T@0E@]elNet site listing ? ";
  216.             Input s4464
  217.             If UCase(s4464) = "F" Then
  218.               s4634 = ProgPath + "FTP.TXT"
  219.               SendFile(s4634, 1213417543)
  220.             End If
  221.  1826       If UCase(s4464) = "W" Then
  222.               s4634 = ProgPath + "WWW.TXT"
  223.               SendFile(s4634, 1213417543)
  224.             End If
  225.  1875       If UCase(s4464) = "T" Then
  226.               s4634 = ProgPath + "TELNET.TXT"
  227.               SendFile(s4634, 1213417543)
  228.             End If
  229.  1924     Else
  230.  1930       If s65532 = "F" Then
  231.               Cls 
  232.               Locate 11, 9
  233.               Print "@0E@Would you like to [@0F@A@0E@]dd a FTP site, or [@0F@L@0E@]ist all FTP sites ? ";
  234.               Input s4464
  235.               If UCase(s4464) = "A" Then
  236.                 Sub2277
  237.               End If
  238.  2002         If UCase(s4464) = "L" Then
  239.                 Sub3261
  240.               End If
  241.  2030       Else
  242.  2036         If s65532 = "W" Then
  243.                 Cls 
  244.                 Locate 11, 9
  245.                 Print "@0E@Would you like to [@0F@A@0E@]dd a WWW site, or [@0F@L@0E@]ist all WWW sites ? ";
  246.                 Input s4464
  247.                 If UCase(s4464) = "A" Then
  248.                   Sub2605
  249.                 End If
  250.  2108           If UCase(s4464) = "L" Then
  251.                   Sub3301
  252.                 End If
  253.  2136         Else
  254.  2142           If s65532 = "T" Then
  255.                   Cls 
  256.                   Locate 11, 7
  257.                   Print "@0E@Would you like to [@0F@A@0E@]dd a TelNet site, or [@0F@L@0E@]ist all TelNet sites ? ";
  258.                   Input s4464
  259.                   If UCase(s4464) = "A" Then
  260.                     Sub2933
  261.                   End If
  262.  2214             If UCase(s4464) = "L" Then
  263.                     Sub3341
  264.                   End If
  265.  2242             GoTo 2248
  266.                 End If
  267.               End If
  268.             End If
  269.           End If
  270.  2248   Loop Until UCase(s4463) = "Q"
  271.       End Sub
  272.  
  273. '! Called 2 times
  274.       Sub Sub2277
  275.         Dim l65531 As Long
  276.         Dim b65535 As Byte
  277.  
  278.         Do
  279.  2286
  280.  2307     For b4646 = 8 To 16 Step 1
  281.             Locate b4646, 1
  282.             ClrEOL 
  283.           Next
  284.  2393     Locate 10, 9
  285.           Print "@0E@Enter the complete address and description of a FTP site to add."
  286.           Print "@0E@"
  287.           s4571 = InputMask("@0F@FTP Site@07@: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  288.           Print
  289.           Print "@0E@Did you enter this FTP site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
  290.           Input s4465
  291.           If UCase(s4465) = "Q" Then
  292.             GoTo 2602
  293.           End If
  294.  2494   Loop Until UCase(s4465) = "Y"
  295.         s4634 = ProgPath + "FTP.TXT"
  296.         Open s4634 For Append As 1
  297.         Print #1, "         " + s4571
  298.         Close 1
  299.         Print
  300.         Print "@0E@FTP Site Added!"
  301.         ActivityLog "FTP Site Added: " + s4571
  302.         WaitEnter 
  303.  2602
  304.       End Sub
  305.  
  306. '! Called 2 times
  307.       Sub Sub2605
  308.         Dim l65531 As Long
  309.         Dim b65535 As Byte
  310.  
  311.         Do
  312.  2614
  313.  2635     For b4646 = 8 To 16 Step 1
  314.             Locate b4646, 1
  315.             ClrEOL 
  316.           Next
  317.  2721     Locate 10, 9
  318.           Print "@0E@Enter the complete address and description of a WWW site to add."
  319.           Print "@0E@"
  320.           s4571 = InputMask("@0F@WWW Site@07@: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  321.           Print
  322.           Print "@0E@Did you enter this WWW site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
  323.           Input s4465
  324.           If UCase(s4465) = "Q" Then
  325.             GoTo 2930
  326.           End If
  327.  2822   Loop Until UCase(s4465) = "Y"
  328.         s4634 = ProgPath + "WWW.TXT"
  329.         Open s4634 For Append As 1
  330.         Print #1, "         " + s4571
  331.         Close 1
  332.         Print
  333.         Print "@0E@WWW Site Added!"
  334.         ActivityLog "WWW Site Added: " + s4571
  335.         WaitEnter 
  336.  2930
  337.       End Sub
  338.  
  339. '! Called 2 times
  340.       Sub Sub2933
  341.         Dim l65531 As Long
  342.         Dim b65535 As Byte
  343.  
  344.         Do
  345.  2942
  346.  2963     For b4646 = 8 To 16 Step 1
  347.             Locate b4646, 1
  348.             ClrEOL 
  349.           Next
  350.  3049     Locate 10, 9
  351.           Print "@0E@Enter the complete address and description of a TelNet site to add."
  352.           Print "@0E@"
  353.           s4571 = InputMask("@0F@TelNet Site@07@: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  354.           Print
  355.           Print "@0E@Did you enter this TelNet site correctly [@0F@Y@0E@]es, [@0F@N@0E@]o, or [@0F@Q@0E@]uit ? ";
  356.           Input s4465
  357.           If UCase(s4465) = "Q" Then
  358.             GoTo 3258
  359.           End If
  360.  3150   Loop Until UCase(s4465) = "Y"
  361.         s4634 = ProgPath + "TELNET.TXT"
  362.         Open s4634 For Append As 1
  363.         Print #1, "         " + s4571
  364.         Close 1
  365.         Print
  366.         Print "@0E@TelNet Site Added!"
  367.         ActivityLog "TelNet Site Added: " + s4571
  368.         WaitEnter 
  369.  3258
  370.       End Sub
  371.  
  372. '! Called 2 times
  373.       Sub Sub3261
  374.         Cls 
  375.         s4634 = ProgPath + "FTP.TXT"
  376.         DisplayTextFile(s4634)
  377.         WaitEnter 
  378.       End Sub
  379.  
  380. '! Called 2 times
  381.       Sub Sub3301
  382.         Cls 
  383.         s4634 = ProgPath + "WWW.TXT"
  384.         DisplayTextFile(s4634)
  385.         WaitEnter 
  386.       End Sub
  387.  
  388. '! Called 2 times
  389.       Sub Sub3341
  390.         Cls 
  391.         s4634 = ProgPath + "TELNET.TXT"
  392.         DisplayTextFile(s4634)
  393.         WaitEnter 
  394.       End Sub
  395.  
  396. '! Called 1 time
  397.       Sub Sub3381
  398.         Dim i65534 As Integer
  399.  
  400.         i65534 = 1
  401.         Do
  402.  3397     s4463 = InKey(1213417543)
  403.           If InStr("FWTDQ", UCase(s4463)) Then
  404.             GoTo 3530
  405.           End If
  406.  3440     Locate 16, 50
  407.           Print Tab(50); "@0F@"; Mid("─\|/", i65534, 1);
  408.           i65534 = i65534 + 1
  409.           If i65534 > 4 Then
  410.             i65534 = 1
  411.           End If
  412.  3516     Delay 0.1
  413.         Loop
  414.  3530
  415.       End Sub
  416.  
  417. '! Called 6 times
  418.       Sub Sub3533
  419.         ActivityLog "-=≡:> Site List Access Denied <:≡=-"
  420.         Print
  421.         Print "@0E@Sorry, but you do not have access to this door!"
  422.         WaitEnter 
  423.       End Sub
  424.