home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CPAGE0.ZIP / CPAGE10.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-01-02  |  5KB  |  300 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  4818 bytes  12/30/122  04:17:12pm
  3. '! Code Segment Size  :2724 bytes
  4. '! Data Segment Size  :4636 bytes
  5. '! String Segment Size:2094 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4463 As String
  9.       Dim s4471 As String
  10.       Dim s4475 As String*60
  11.       Dim s4535 As String*60
  12.       Dim i4599 As Integer
  13.       Dim s4601 As String*1
  14.       Dim i4606 As Integer
  15.       Dim s4608(0 To 6) As String
  16.  
  17.       Dim l65529_ As Long
  18.       Dim i65533_ As Integer
  19.       Dim s65535_ As String*1
  20.  
  21.       CarrierCheck(-1)
  22.       Open ProgPath + "CPAGE.CFG" For Input As 1
  23.       Open ProgPath + "CPREG.DAT" For Output As 2
  24.   118 For i4606 = 1 To 6 Step 1
  25.         Input #1, s4608(i4606)
  26.       Next
  27.   222 Close 1
  28.       Do
  29.         Do
  30.           Do
  31.             Do
  32.               Do
  33.                 Do
  34.                   Do
  35.                     Do
  36.   227                 If RIPDetected Then
  37.                         Print "!|*|1k|w000027N12|#|#|#"
  38.                       End If
  39.   245                 Cls 
  40.                       Print " @0F@Complete Page! @0D@v@09@1@0F@.@09@03@09@  ";
  41.                       Print "                                By@0F@ Silver MicroSystems"
  42.                       Print "@0D@══════════════════════════════════════════════════════════════════════════════"
  43.                       Print "      @0F@[@09@W@0F@]";
  44.                       Print "@0D@...@09@Who's On-Line  ";
  45.                       Print "                        @0F@[@09@U@0F@]";
  46.                       Print "@0D@...@09@User Page"
  47.                       Print "      @0F@[@09@P@0F@]";
  48.                       Print "@0D@...@09@Page SysOp     ";
  49.                       Print "                        @0F@[@09@E@0F@]";
  50.                       Print "@0D@...@09@Emergency SysOp Page "
  51.                       Print "      @0F@[@09@C@0F@]";
  52.                       Print "@0D@...@09@SysOp Feed Back";
  53.                       Print "                        @0F@[@09@Q@0F@]";
  54.                       Print "@0D@...@09@Quit Back To BBS"
  55.                       Print ""
  56.                       Print "                            @0F@[@09@G@0F@]@0D@...@09@Good Bye & Logoff"
  57.                       Print "@0D@══════════════════════════════════════════════════════════════════════════════"
  58.                       Print "@0F@ Registered To@09@:                           "
  59.                       Run "cpkey.wcx", ""
  60.                       Reset 
  61.                       Print ""
  62.                       Print "@0F@Make Your Selection > ";
  63.                       Do
  64.   453                   s4601 = UCase(InKey(1213417543))
  65.                       Loop Until s4601 > ""
  66.                       s65535_ = s4601
  67.                       If (s65535_ = "U") = 0 Then GoTo 568
  68.                       Cls 
  69.                       WhoIsOnline 
  70.                       PageUser 
  71.                       Print ""
  72.                       If RIPDetected Then
  73.                         Print "!|*|1k|w000027N12|#|#|#"
  74.                       End If
  75.   556               Loop
  76.                     GoTo 1323
  77.   568               If (s65535_ = "W") = 0 Then GoTo 629
  78.                     Print ""
  79.                     WhoIsOnline 
  80.                     If RIPDetected Then
  81.                       Print "!|*|1k|w000027N12|#|#|#"
  82.                     End If
  83.   617             Loop
  84.                   GoTo 1323
  85.   629             If (s65535_ = "P") = 0 Then GoTo 825
  86.                   Cls 
  87.                   Print ""
  88.                   Print ""
  89.                   Print ""
  90.                   Print ""
  91.                   Print ""
  92.                   Print ""
  93.                   Print "                       @0D@ Type the reason for your page now@0F@  "
  94.                   Print "@0F@                    Good reasons get a MUCH better response!"
  95.                   Print "@0F@(------------------------------------------------------------------------------)"
  96.                   Print ">";
  97.                   Input s4475
  98.                   ActivityLog "SysOp Page Reason:"
  99.                   ActivityLog s4475
  100.                   Print ">";
  101.                   Input s4535
  102.                   ActivityLog s4535
  103.                   PageSysop 
  104.                   If RIPDetected Then
  105.                     Print "!|*|1k|w000027N12|#|#|#"
  106.                   End If
  107.   813           Loop
  108.                 GoTo 1323
  109.   825           If (s65535_ = "E") = 0 Then GoTo 1122
  110.                 Cls 
  111.                 Print ""
  112.                 Print ""
  113.                 Print ""
  114.                 Print ""
  115.                 Print ""
  116.                 Print ""
  117.                 Print "                       @0D@ Type the reason for your page now@0F@  "
  118.                 Print "@0F@                    Good reasons get a MUCH better response!"
  119.                 Print "@0F@(------------------------------------------------------------------------------)"
  120.                 Print ">";
  121.                 Input s4475
  122.                 ActivityLog "Emergency SysOp Page Reason:"
  123.                 ActivityLog s4475
  124.                 Print ">";
  125.                 Input s4535
  126.                 ActivityLog s4535
  127.                 Print ""
  128.                 Print ""
  129.                 Print "@0D@Please Enter The SysOp's@09@";
  130.                 Print " Emergency Page @0D@Password@09@!@0F@: ";
  131.                 Input s4471
  132.                 s4471 = UCase(s4471)
  133.                 s4463 = s4608(1)
  134.                 If s4471 = s4463 Then
  135.                   GoTo 1329
  136.                 End If
  137.  1092           If RIPDetected Then
  138.                   Print "!|*|1k|w000027N12|#|#|#"
  139.                 End If
  140.  1110         Loop
  141.               GoTo 1323
  142.  1122         If (s65535_ = "C") = 0 Then GoTo 1219
  143.               Print ""
  144.               i4599 = Conference.Number
  145.               Join 0
  146.               Comment 
  147.               Join i4599
  148.               Print ""
  149.               If RIPDetected Then
  150.                 Print "!|*|1k|w000027N12|#|#|#"
  151.               End If
  152.  1207       Loop
  153.             GoTo 1323
  154.  1219       If s65535_ = "Q" Then
  155.               End 
  156.               GoTo 1323
  157.             End If
  158.  1245       If s65535_ = "G" Then
  159.               Print ""
  160.               Cls 
  161.               If RIPDetected Then
  162.                 Print "!|*|1k|w000027N12|#|#|#"
  163.               End If
  164.  1294         DisplayFile("goodbye")
  165.               Goodbye 1213417543
  166.               GoTo 1323
  167.             End If
  168.  1317     Loop
  169.  1323   Loop
  170.  1329   Print ""
  171.         Print ""
  172.         Print ""
  173.         Print "@09@Paging your SysOp! Please wait ";
  174.         If s4608(6) = "Y" Then
  175.         End If
  176.  1410   If s4608(6) = "N" Then
  177.         End If
  178.  1448   Sound 100, 0
  179.         Sound 200, 0
  180.         Sound 300, 0
  181.         Sound 400, 0
  182.         Sound 500, 0
  183.         Sound 600, 0
  184.         Sound 700, 0
  185.         Sound 800, 0
  186.         Sound 900, 0
  187.         Sound 1000, 0
  188.         Sound 100, 0
  189.         Sound 200, 0
  190.         Print "@0F@·";
  191.         Sound 300, 0
  192.         Sound 400, 0
  193.         Print "@0F@·";
  194.         Sound 500, 0
  195.         Sound 600, 0
  196.         Print "@0F@·";
  197.         Sound 700, 0
  198.         Sound 800, 0
  199.         Print "@0F@·";
  200.         Sound 900, 0
  201.         Sound 1000, 0
  202.         Print "@0F@1";
  203.         Sound 100, 0
  204.         Sound 200, 0
  205.         Print "@0F@·";
  206.         Sound 300, 0
  207.         Sound 400, 0
  208.         Print "@0F@·";
  209.         Sound 500, 0
  210.         Sound 600, 0
  211.         Print "@0F@·";
  212.         Sound 700, 0
  213.         Sound 800, 0
  214.         Print "@0F@·";
  215.         Sound 900, 0
  216.         Sound 1000, 0
  217.         Print "@0F@2";
  218.         Sound 100, 0
  219.         Sound 200, 0
  220.         Print "@0F@·";
  221.         Sound 300, 0
  222.         Sound 400, 0
  223.         Print "@0F@·";
  224.         Sound 500, 0
  225.         Sound 600, 0
  226.         Print "@0F@·";
  227.         Sound 700, 0
  228.         Sound 800, 0
  229.         Print "@0F@·";
  230.         Sound 900, 0
  231.         Sound 1000, 0
  232.         Print "@0F@3";
  233.         Sound 100, 0
  234.         Sound 200, 0
  235.         Print "@0F@·";
  236.         Sound 300, 0
  237.         Sound 400, 0
  238.         Print "@0F@·";
  239.         Sound 500, 0
  240.         Sound 600, 0
  241.         Print "@0F@·";
  242.         Sound 700, 0
  243.         Sound 800, 0
  244.         Print "@0F@·";
  245.         Sound 900, 0
  246.         Sound 1000, 0
  247.         Print "@0F@4";
  248.         Sound 100, 0
  249.         Sound 200, 0
  250.         Print "@0F@·";
  251.         Sound 300, 0
  252.         Sound 400, 0
  253.         Print "@0F@·";
  254.         Sound 500, 0
  255.         Sound 600, 0
  256.         Print "@0F@·";
  257.         Sound 700, 0
  258.         Sound 800, 0
  259.         Print "@0F@·";
  260.         Sound 900, 0
  261.         Sound 1000, 0
  262.         Print "@0F@5";
  263.         Sound 100, 0
  264.         Sound 200, 0
  265.         Print "@0F@·";
  266.         Sound 300, 0
  267.         Sound 400, 0
  268.         Print "@0F@·";
  269.         Sound 500, 0
  270.         Sound 600, 0
  271.         Print "@0F@·";
  272.         Sound 700, 0
  273.         Sound 800, 0
  274.         Print "@0F@·";
  275.         Sound 900, 0
  276.         Sound 1000, 0
  277.         Print "@0F@6";
  278.         Sound 100, 0
  279.         Sound 200, 0
  280.         Print "@0F@·";
  281.         Sound 300, 0
  282.         Sound 400, 0
  283.         Print "@0F@·";
  284.         Sound 500, 0
  285.         Sound 600, 0
  286.         Print "@0F@·";
  287.         Sound 700, 0
  288.         Sound 800, 0
  289.         Print "@0F@·";
  290.         Sound 900, 0
  291.         Sound 1000, 0
  292.         Print "@0F@7"
  293.         Print "@0F@Your@0F@ SysOp has been Notified of your Emergency@09@!"
  294.         Print "@0D@If your SysOp is here they should respond shortly@09@!"
  295.         WaitEnter 
  296.         If RIPDetected Then
  297.           Print "!|*|1k|w000027N12|#|#|#"
  298.         End If
  299.  2666 Loop
  300.