home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / WCRB110S.ZIP / WCRIPBRO.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-06-16  |  20KB  |  748 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  20191 bytes  12/30/122  04:16:32pm
  3. '! Code Segment Size  :17155 bytes
  4. '! Data Segment Size  :16482 bytes
  5. '! String Segment Size:3036 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Type Type28
  9.         s0 As String*1
  10.         s1 As String*12
  11.         s13 As String*60
  12.       End Type
  13.  
  14.       Type Type27
  15.         s0 As String*1
  16.         s1 As String*2
  17.         s3 As String*2
  18.         Filler5(1 To 2) As Byte
  19.         s7 As String*2
  20.         s9 As String*2
  21.         s11 As String*2
  22.         s13 As String*2
  23.         i15 As Integer
  24.         s17 As String*2
  25.         s19 As String*80
  26.       End Type
  27.  
  28.       Type Type26
  29.         Filler0(1 To 4) As Byte
  30.         s4 As String*2
  31.         s6 As String*2
  32.         s8 As String*2
  33.         s10 As String*2
  34.       End Type
  35.  
  36.       Dim i4463 As Integer
  37.       Dim i4465 As Integer
  38.       Dim i4467 As Integer
  39.       Dim s4469 As String
  40.       Dim s4473 As String
  41.       Dim s4477 As String
  42.       Dim s4481 As String
  43.       Dim s4485 As String
  44.       Dim s4489 As String
  45.       Dim i4493 As Integer
  46.       Dim s4495 As String
  47.       Dim s4499 As String
  48.       Dim s4503 As String
  49.       Dim s4507 As String
  50.       Dim s4511 As String
  51.       Dim s4515 As String
  52.       Dim o4519 As Boolean
  53.       Dim s4520 As String
  54.       Dim s4524 As String
  55.       Dim i4528 As Integer
  56.       Dim i4530 As Integer
  57.       Dim l4532 As Long
  58.       Dim t28_4536(0 To 100) As Type28
  59.       Dim t28_4609(0 To 100) As Type28
  60.       Dim t27_11982(0 To 40) As Type27
  61.       Dim i16041 As Integer
  62.       Dim s16043(0 To 21) As String
  63.       Dim s16131(0 To 21) As String
  64.       Dim s16219 As String
  65.       Dim o16223 As Boolean
  66.       Dim i16224 As Integer
  67.       Dim t26_16226 As Type26
  68.       Dim s16245 As String
  69.       Dim w16249(0 To 36) As Word
  70.       Dim i16323 As Integer
  71.       Dim s16325(1 To 5) As String
  72.       Dim s16345 As String
  73.       Dim o16349 As Boolean
  74.       Dim s16350 As String
  75.       Dim s16354 As String
  76.       Dim i16364 As Integer
  77.       Dim s16366(0 To 25) As String
  78.       Dim s16470 As String
  79.       Dim s16474 As String
  80.       Dim s16478 As String
  81.  
  82.       Dim l65428_ As Long
  83.       Dim i65432_ As Integer
  84.       Dim l65434_ As Long
  85.       Dim i65438_ As Integer
  86.       Dim l65440_ As Long
  87.       Dim i65444_ As Integer
  88.       Dim l65446_ As Long
  89.       Dim i65450_ As Integer
  90.       Dim l65452_ As Long
  91.       Dim i65456_ As Integer
  92.       Dim l65458_ As Long
  93.       Dim i65462_ As Integer
  94.       Dim l65464_ As Long
  95.       Dim i65468_ As Integer
  96.       Dim l65470_ As Long
  97.       Dim i65474_ As Integer
  98.       Dim l65476_ As Long
  99.       Dim i65480_ As Integer
  100.       Dim l65482_ As Long
  101.       Dim i65486_ As Integer
  102.       Dim s65488_ As String
  103.       Dim s65492_ As String
  104.       Dim s65496_ As String
  105.       Dim s65500_ As String
  106.       Dim s65504_ As String
  107.       Dim s65508_ As String
  108.       Dim s65512_ As String
  109.       Dim s65516_ As String
  110.       Dim s65520_ As String
  111.       Dim s65524_ As String
  112.       Dim s65528_ As String
  113.       Dim s65532_ As String
  114.  
  115.       CarrierCheck(-1)
  116.       o16349 = 0
  117.       s16245 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  118.    83 For i4528 = 1 To 36 Step 1
  119.         w16249(i4528) = i4528 - 1
  120.       Next
  121.   194 s16345 = "!|2" + Chr(27) + "000"
  122.       s16043(1) = "!|@202U"
  123.       s16131(1) = "|@602U"
  124.       s16043(2) = "!|@2032"
  125.       s16131(2) = "|@6032"
  126.       s16043(3) = "!|@203A"
  127.       s16131(3) = "|@603A"
  128.       s16043(4) = "!|@203I"
  129.       s16131(4) = "|@603I"
  130.       s16043(5) = "!|@203Q"
  131.       s16131(5) = "|@603Q"
  132.       s16043(6) = "!|@203Y"
  133.       s16131(6) = "|@603Y"
  134.       s16043(7) = "!|@2046"
  135.       s16131(7) = "|@6046"
  136.       s16043(8) = "!|@204E"
  137.       s16131(8) = "|@604E"
  138.       s16043(9) = "!|@204M"
  139.       s16131(9) = "|@604M"
  140.       s16043(10) = "!|@204U"
  141.       s16131(10) = "|@604U"
  142.       s16043(11) = "!|@2052"
  143.       s16131(11) = "|@6052"
  144.       s16043(12) = "!|@205A"
  145.       s16131(12) = "|@605A"
  146.       s16043(13) = "!|@205I"
  147.       s16131(13) = "|@605I"
  148.       s16043(14) = "!|@205Q"
  149.       s16131(14) = "|@605Q"
  150.       s16043(15) = "!|@205Y"
  151.       s16131(15) = "|@605Y"
  152.       s16043(16) = "!|@2066"
  153.       s16131(16) = "|@6066"
  154.       s16043(17) = "!|@206E"
  155.       s16131(17) = "|@606E"
  156.       s16043(18) = "!|@206M"
  157.       s16131(18) = "|@606M"
  158.       s16043(19) = "!|@206U"
  159.       s16131(19) = "|@606U"
  160.       s16043(20) = "!|@2072"
  161.       s16131(20) = "|@6072"
  162.       s16043(21) = "!|@207A"
  163.       s16131(21) = "|@607A"
  164.       If o16349 And ParamStr(2) = "/INDEX" Then
  165.         Chain "WCRBIDX.WCX", ""
  166.       End If
  167.  1515 If RIPDetected And RIPEnabled Then
  168.         s4481 = "R"
  169.       Else
  170.  1544   s16470 = Chr(27) + "[!"
  171.         Print s16470
  172.         Delay 2
  173.         s16470 = InKey(1213417543)
  174.         If s16470 <> "" Then
  175.           s4481 = "R"
  176.           Do
  177.  1614       s16470 = InKey(1213417543)
  178.           Loop While s16470 <> ""
  179.         Else
  180.  1649     s4481 = "S"
  181.         End If
  182.       End If
  183.  1658 If s4481 = "R" Then
  184.         s4469 = ProgPath
  185.         s4515 = s4485
  186.         s16350 = s4485
  187.         If o16349 Then
  188.           If ParamCount > 0 Then
  189.             s4469 = ParamStr(1)
  190.           End If
  191.  1730     If Right(s4469, 1) <> "\" Then
  192.             s4469 = s4469 + "\"
  193.           End If
  194.         End If
  195.  1767   s4473 = s4469 + "WCRIPBRO.CFG"
  196.         Do
  197.  1782     If Exists(s4473) Then
  198.             Open s4473 For Input As 1
  199.             Input #1, s16354
  200.             If s16354 <> "" Then
  201.               s4485 = s16354
  202.             End If
  203.  1846       Input #1, s16354
  204.             If s16354 <> "" Then
  205.               s4507 = s16354
  206.               s4489 = s16354
  207.             End If
  208.  1886       If Not EOF(1) Then
  209.               Input #1, s16354
  210.               s4515 = s16354
  211.             End If
  212.  1914       If Not EOF(1) Then
  213.               Input #1, s16354
  214.               s16350 = s16354
  215.             End If
  216.  1942       Close 1
  217.             i4493 = 0
  218.             i16364 = 0
  219.             s16366(0) = s4489
  220.             If Right(s4485, 1) <> "\" Then
  221.               s4485 = s4485 + "\"
  222.             End If
  223.  2024       If Right(s4515, 1) <> "\" Then
  224.               s4515 = s4515 + "\"
  225.             End If
  226.  2061       If Right(s16350, 1) <> "\" Then
  227.               s16350 = s16350 + "\"
  228.             End If
  229.             Do
  230.  2098         If s4489 <> "" Then
  231.                 If s4489 <> s16366(i16364) Then
  232.                   i16364 = i16364 + 1
  233.                   If i16364 > 25 Then
  234.  2205               For i4528 = 1 To 24 Step 1
  235.                       s16366(i4528) = s16366(i4528 + 1)
  236.                     Next
  237.  2338               i16364 = 25
  238.                   End If
  239.  2345             s16366(i16364) = s4489
  240.                 End If
  241.  2377           If o4519 Then
  242.                   s4477 = s4515
  243.                 Else
  244.  2402             s4477 = s4485
  245.                 End If
  246.  2410           If Exists(s4477 + s4489) Then
  247.                   s4524 = ""
  248.                   s16478 = "|"
  249.                   Open s4477 + s4489 For Input As 5
  250.                   i16224 = 0
  251.                   s16478 = ""
  252.                   Do
  253.  2487               Input #5, s16354
  254.                     Do
  255.  2494                 i4463 = InStr(s16354, "|1M")
  256.                       If (i4463) = 0 Then GoTo 3966
  257.                       If o4519 Then
  258.                         t26_16226.s4 = Mid(s16354, i4463 + 5, 2)
  259.                         t26_16226.s6 = Mid(s16354, i4463 + 7, 2)
  260.                         t26_16226.s8 = Mid(s16354, i4463 + 9, 2)
  261.                         t26_16226.s10 = Mid(s16354, i4463 + 11, 2)
  262.                       End If
  263.  2645                 If i4463 > 2 Then
  264.                         s4524 = Left(s16354, i4463 - 1)
  265.                       End If
  266.  2680                 s16474 = Mid(s16354, i4463 + 20, 1213417543)
  267.                       i4463 = InStr(s16474, "|")
  268.                       If i4463 Then
  269.                         s4524 = s4524 + Mid(s16474, i4463, 1213417543)
  270.                         s16474 = Left(s16474, i4463 - 1)
  271.                       End If
  272.  2780                 i4463 = InStr(s16474, "^")
  273.                       If i4463 Then
  274.                         s16474 = Left(s16474, i4463 - 1)
  275.                       End If
  276.                       Do
  277.  2828                   i4463 = InStr(s16474, "\\")
  278.                         If i4463 Then
  279.                           s16474 = Left(s16474, i4463 - 1) + Mid(s16474, i4463 + 1, 1213417543)
  280.                         End If
  281.  2899                 Loop While i4463 > 0
  282.                       s16478 = s16478 + s16474 + "|"
  283.                       If o4519 Then
  284.                         If Left(s16474, 4) = "<IP>" Then
  285.                           s16474 = Trim(Mid(s16474, 5, 1213417543))
  286.                           i4463 = InStr(s16474, ",")
  287.                           If i4463 > 0 Then
  288.                             i16041 = Val(Left(s16474, i4463 - 1))
  289.                             s16474 = Trim(Mid(s16474, i4463 + 1, 1213417543))
  290.                             i4463 = InStr(s16474, ",")
  291.                             If i4463 > 0 Then
  292.                               s16219 = Left(s16474, i4463 - 1)
  293.                               If Len(s16219) < 2 Then
  294.                                 s16219 = "0" + s16219
  295.                               End If
  296.  3154                         t27_11982(i16041).s7 = s16219
  297.                               s16474 = Trim(Mid(s16474, i4463 + 1, 1213417543))
  298.                               i4463 = InStr(s16474, ",")
  299.                               If i4463 > 0 Then
  300.                                 s16219 = Left(s16474, i4463 - 1)
  301.                                 If Len(s16219) < 2 Then
  302.                                   s16219 = "0" + s16219
  303.                                 End If
  304.  3303                           t27_11982(i16041).s9 = s16219
  305.                                 s16474 = Trim(Mid(s16474, i4463 + 1, 1213417543))
  306.                                 i4463 = InStr(s16474, ",")
  307.                                 If i4463 > 0 Then
  308.                                   s16219 = Left(s16474, i4463 - 1)
  309.                                   If Len(s16219) < 2 Then
  310.                                     s16219 = "0" + s16219
  311.                                   End If
  312.  3452                             t27_11982(i16041).s11 = s16219
  313.                                   s16474 = Trim(Mid(s16474, i4463 + 1, 1213417543))
  314.                                   i4463 = InStr(s16474, ",")
  315.                                   If i4463 > 0 Then
  316.                                     s16219 = Left(s16474, i4463 - 1)
  317.                                     If Len(s16219) < 2 Then
  318.                                       s16219 = "0" + s16219
  319.                                     End If
  320.  3601                               t27_11982(i16041).s13 = s16219
  321.                                     s16474 = Trim(Mid(s16474, i4463 + 1, 1213417543))
  322.                                     i4463 = InStr(s16474, ",")
  323.                                     If i4463 > 0 Then
  324.                                       s16219 = Left(s16474, i4463 - 1)
  325.                                       t27_11982(i16041).i15 = Val(s16474)
  326.                                       s16474 = Trim(Mid(s16474, i4463 + 1, 1213417543))
  327.                                       t27_11982(i16041).s17 = s16474
  328.                                     End If
  329.                                   End If
  330.                                 End If
  331.                               End If
  332.  3824                         i16224 = i16224 + 1
  333.                               t27_11982(i16041).s1 = t26_16226.s4
  334.                               t27_11982(i16041).s3 = t26_16226.s6
  335.                             End If
  336.                           End If
  337.                         End If
  338.                       End If
  339.  3926                 If (s4524 <> "") = 0 Then GoTo 3966
  340.                       s16354 = s4524
  341.                       s4524 = ""
  342.                     Loop
  343.  3966               s4524 = ""
  344.                     Do
  345.  3975                 i4463 = InStr(s16354, "|1U")
  346.                       If (i4463) = 0 Then GoTo 4441
  347.                       If i4463 > 2 Then
  348.                         s4524 = Left(s16354, i4463 - 1)
  349.                       End If
  350.  4038                 s16474 = Mid(s16354, i4463 + 3, 1213417543)
  351.                       i4463 = InStr(s16474, "|")
  352.                       If i4463 Then
  353.                         s4524 = s4524 + Mid(s16474, i4463, 1213417543)
  354.                         s16474 = Left(s16474, i4463 - 1)
  355.                       End If
  356.  4138                 i4463 = InStr(s16474, "<>")
  357.                       If i4463 Then
  358.                         s16474 = Mid(s16474, i4463 + 2, 1213417543)
  359.                         i4463 = InStr(s16474, "<>")
  360.                         If i4463 Then
  361.                           s16474 = Mid(s16474, i4463 + 2, 1213417543)
  362.                           i4463 = InStr(s16474, "^")
  363.                           If i4463 Then
  364.                             s16474 = Left(s16474, i4463 - 1)
  365.                           End If
  366.                           Do
  367.  4292                       i4463 = InStr(s16474, "\\")
  368.                             If i4463 > 0 Then
  369.                               s16474 = Left(s16474, i4463 - 1) + Mid(s16474, i4463 + 1, 1213417543)
  370.                             End If
  371.  4366                     Loop While i4463 > 0
  372.                           s16478 = s16478 + s16474 + "|"
  373.                         End If
  374.                       End If
  375.  4401                 If (s4524 <> "") = 0 Then GoTo 4441
  376.                       s16354 = s4524
  377.                       s4524 = ""
  378.                     Loop
  379.  4441             Loop While Not EOF(5)
  380.                   Close 5
  381.                   s16478 = UCase(s16478)
  382.                   DisplayTextFile(s4477 + s4489)
  383.                   Print s16345 + "$SMF$|#|#|#"
  384.                   If o4519 Then
  385.                     s16354 = s16350 + s4489
  386.                     i4463 = InStr(s16354, ".")
  387.                     If i4463 > 0 Then
  388.                       s16354 = Left(s16354, i4463)
  389.                     Else
  390.  4577                 s16354 = s16354 + "."
  391.                     End If
  392.                     Do
  393.  4592                 i4528 = i4528 + 1
  394.                     Loop While Exists(s16354 + LTrim(Str(i4528))) And i4528 < 1000
  395.                     s4511 = s16354 + LTrim(Str(i4528))
  396.                   End If
  397.  4665             If Not o16349 Then
  398.                     Print "!|c0D|Y02000400|@019C***UNREGISTERED***|#|#|#"
  399.                   End If
  400.  4687             If o4519 Then
  401.                     i16041 = 1
  402.                     GoTo 9333
  403.                   End If
  404.  4711             Print s16345 + "$RMF$|#|#|#"
  405.                   Input s16354
  406.                   s16354 = UCase(s16354)
  407.  4743             If o16349 Then
  408.                     i4463 = InStr(s16354, ";")
  409.                     If i4463 > 0 Then
  410.                       s4520 = Mid(s16354, i4463 + 1, 1213417543)
  411.                       s16354 = Left(s16354, i4463 - 1)
  412.                     End If
  413.                   End If
  414.                   Do
  415.  4830
  416.  4851               For i4528 = 1 To 5 Step 1
  417.                       s16325(i4528) = ""
  418.                     Next
  419.  4962               i16323 = 0
  420.                     Open "c:\wc\atest.txt" For Append As 4
  421.                     Print #4, s16354
  422.                     Print #4, s16478
  423.                     i16323 = InStr(s16478, s16354)
  424.                     Print #4, Str(i16323)
  425.                     Close 4
  426.                     s4495 = Left(s16354, 1)
  427.                     s4499 = Mid(s16354, 2, 1)
  428.                     s4503 = Mid(s16354, 3, 1)
  429.                     s65532_ = s4495
  430.                     If s65532_ = "<" Then
  431.                       s4524 = Trim(Mid(s16354, 5, 1213417543))
  432.                       s65528_ = s4499
  433.                       If s65528_ = "<" Then
  434.                         If i16323 > 0 Then
  435.                           If o4519 Then
  436.                             o4519 = 0
  437.                           End If
  438.  5185                     s16354 = Mid(s16354, 3, 1213417543)
  439.                           Run s16354, ""
  440.                         End If
  441.  5215                 Else
  442.  5221                   If s65528_ = "0" Then
  443.                           i4493 = 1
  444.                         Else
  445.  5251                     If s65528_ = "D" Then
  446.                             If i16323 > 0 Then
  447.                               s65524_ = s4503
  448.                               If s65524_ = "P" Then
  449.                                 If Exists(s4485 + LTrim(Mid(s16354, 5, 1213417543))) Then
  450.                                   s4489 = LTrim(Mid(s16354, 5, 1213417543))
  451.                                   If o4519 Then
  452.                                     o4519 = 0
  453.  5401                               For i4528 = 1 To i16224 Step 1
  454.                                       t27_11982(i4528).s0 = ""
  455.                                     Next
  456.                                   End If
  457.  5509                           Else
  458.  5515                             If o4519 Then
  459.                                     GoTo 4711
  460.                                   End If
  461.                                 End If
  462.  5532                           GoTo 5538
  463.                               End If
  464.                             End If
  465.  5538                     Else
  466.  5544                       If s65528_ = "F" Then
  467.                               If i16323 > 0 Then
  468.                                 If o4519 Then
  469.                                   o4519 = 0
  470.                                 End If
  471.  5592                           s65520_ = s4503
  472.                                 If s65520_ = "A" Then
  473.                                   DisplayFile(LTrim(Mid(s16354, 5, 1213417543)))
  474.                                 Else
  475.  5644                             If s65520_ = "B" Then
  476.                                     GoSub 15720
  477.                                     If Val(s16325(3)) < 1 Then
  478.                                       s16325(3) = "15"
  479.                                     End If
  480.  5745                               If s16325(4) <> "" Then
  481.                                       EditFile(s16325(1), Val(s16325(2)), s16325(3), Val(s16325(4)))
  482.                                     Else
  483.  5924                                 EditFile(s16325(1), Val(s16325(2)), s16325(3))
  484.                                     End If
  485.  6021                             Else
  486.  6027                               If s65520_ = "C" Then
  487.                                       EditFile(LTrim(Mid(s16354, 5, 1213417543)), 1213417543, "")
  488.                                     Else
  489.  6081                                 If s65520_ = "D" Then
  490.                                         GoSub 15720
  491.                                         If s16325(1) <> "" And Val(s16325(2)) > 0 Then
  492.                                           Download s16325(1), Val(s16325(2))
  493.                                         Else
  494.  6257                                     Download "", 1213417543
  495.                                         End If
  496.  6270                                 Else
  497.  6276                                   If s65520_ = "E" Then
  498.                                           EditMarkList 
  499.                                         Else
  500.  6302                                     If s65520_ = "F" Then
  501.                                             GoSub 15720
  502.                                             If s16325(1) <> "" And Val(s16325(2)) > 0 Then
  503.                                               AddMarkFile(s16325(1), Val(s16325(2)))
  504.                                             End If
  505.  6473                                     Else
  506.  6479                                       If s65520_ = "G" Then
  507.                                               DisplayGroupFiles 
  508.                                             Else
  509.  6505                                         If s65520_ = "I" Then
  510.                                                 GoSub 15720
  511.                                                 If s16325(1) <> "" And Val(s16325(2)) > 0 Then
  512.                                                   FileInfo s16325(1), Val(s16325(2))
  513.                                                 Else
  514.  6681                                             FileInfo "", 1213417543
  515.                                                 End If
  516.  6694                                         Else
  517.  6700                                           If s65520_ = "J" Then
  518.                                                   FileStats 
  519.                                                 Else
  520.  6726                                             If s65520_ = "K" Then
  521.                                                     Kill LTrim(Mid(s16354, 5, 1213417543))
  522.                                                   Else
  523.  6769                                               If s65520_ = "L" Then
  524.                                                       If s4524 <> "" Then
  525.                                                         ListFiles Val(s4524)
  526.                                                       Else
  527.  6819                                                   ListFiles 1213417543
  528.                                                       End If
  529.  6827                                               Else
  530.  6833                                                 If s65520_ = "M" Then
  531.                                                         If s4524 <> "" Then
  532.                                                           ListFilesDate Val(s4524)
  533.                                                         Else
  534.  6883                                                     ListFilesDate 1213417543
  535.                                                         End If
  536.  6891                                                 Else
  537.  6897                                                   If s65520_ = "P" Then
  538.                                                           GoSub 15720
  539.                                                           If s16325(1) <> "" And Val(s16325(2)) > 0 Then
  540.                                                             ReceiveFile(s16325(1), Val(s16325(2)))
  541.                                                           Else
  542.  7074                                                       If s16325(1) <> "" Then
  543.                                                               ReceiveFile(s16325(1), 1213417543)
  544.                                                             End If
  545.                                                           End If
  546.  7156                                                   Else
  547.  7162                                                     If s65520_ = "Q" Then
  548.                                                             If s4524 <> "" Then
  549.                                                               DisplayTextFile(s4524)
  550.                                                             End If
  551.  7204                                                     Else
  552.  7210                                                       If s65520_ = "R" Then
  553.                                                               GoSub 15720
  554.                                                               If s16325(1) <> "" And Val(s16325(2)) > 0 Then
  555.                                                                 ReadTextFile s16325(1), Val(s16325(2))
  556.                                                               Else
  557.  7386                                                           ReadTextFile "", 1213417543
  558.                                                               End If
  559.  7399                                                       Else
  560.  7405                                                         If s65520_ = "S" Then
  561.                                                                 If s4524 <> "" And Val(s4524) > 0 Then
  562.                                                                   SearchFiles Val(s4524)
  563.                                                                 Else
  564.  7467                                                             SearchFiles 1213417543
  565.                                                                 End If
  566.  7475                                                         Else
  567.  7481                                                           If s65520_ = "T" Then
  568.                                                                   GoSub 15720
  569.                                                                   If s16325(1) <> "" And Val(s16325(2)) > 1 Then
  570.                                                                     SendFile(s16325(1), Val(s16325(2)))
  571.                                                                   Else
  572.  7659                                                               If s16325(1) <> "" Then
  573.                                                                       SendFile(s16325(1), 1213417543)
  574.                                                                     End If
  575.                                                                   End If
  576.  7741                                                           Else
  577.  7747                                                             If s65520_ = "U" Then
  578.                                                                     Upload 
  579.                                                                   Else
  580.  7773                                                               If s65520_ = "V" Then
  581.                                                                       GoSub 15720
  582.                                                                       If s16325(1) <> "" And Val(s16325(2)) > 0 Then
  583.                                                                         ViewFile s16325(1), Val(s16325(2))
  584.                                                                       Else
  585.  7949                                                                   ViewFile "", 1213417543
  586.                                                                       End If
  587.  7962                                                                 GoTo 7968
  588.                                                                     End If
  589.                                                                   End If
  590.                                                                 End If
  591.                                                               End If
  592.                                                             End If
  593.                                                           End If
  594.                                                         End If
  595.                                                       End If
  596.                                                     End If
  597.                                                   End If
  598.                                                 End If
  599.                                               End If
  600.                                             End If
  601.                                           End If
  602.                                         End If
  603.                                       End If
  604.                                     End If
  605.                                   End If
  606.                                 End If
  607.                               End If
  608.  7968                       Else
  609.  7974                         If s65528_ = "G" Then
  610.                                 If i16323 > 0 Then
  611.                                   If o4519 Then
  612.                                     o4519 = 0
  613.                                   End If
  614.  8022                             s65516_ = s4503
  615.                                   If s65516_ = "A" Then
  616.                                     CheckBulletins 
  617.                                   Else
  618.  8056                               If s65516_ = "B" Then
  619.                                       If Val(s4524) < 1 Then
  620.                                         BulletinMenu 
  621.                                       Else
  622.  8099                                   Bulletin Val(s4524)
  623.                                       End If
  624.  8109                               Else
  625.  8115                                 If s65516_ = "C" Then
  626.                                         CheckNewsletter 
  627.                                       Else
  628.  8141                                   If s65516_ = "D" Then
  629.                                           DoorMenu 
  630.                                         Else
  631.  8167                                     If s65516_ = "E" Then
  632.                                             If Val(s16354) > 0 Then
  633.                                               Door Val(s4524)
  634.                                             End If
  635.  8210                                     Else
  636.  8216                                       If s65516_ = "F" Then
  637.                                               HelloFiles 
  638.                                             Else
  639.  8242                                         If s65516_ = "G" Then
  640.                                                 If Mid(s16354, 4, 1213417543) = "1" Then
  641.                                                   Goodbye -1
  642.                                                 Else
  643.  8298                                             HangUp 
  644.                                                 End If
  645.  8301                                         Else
  646.  8307                                           If s65516_ = "H" Then
  647.                                                   If s4524 <> "" Then
  648.                                                     DisplayHelp s4524
  649.                                                   End If
  650.  8348                                           Else
  651.  8354                                             If s65516_ = "I" Then
  652.                                                     HelpLevel 
  653.                                                   Else
  654.  8380                                               If s65516_ = "J" Then
  655.                                                       If Val(s4524) > - 1 Then
  656.                                                         Join Val(LTrim(Mid(s16354, 5, 1213417543)))
  657.                                                       Else
  658.  8445                                                   Join 1213417543
  659.                                                       End If
  660.  8453                                               Else
  661.  8459                                                 If s65516_ = "N" Then
  662.                                                         Newsletter 
  663.                                                       Else
  664.  8485                                                   If s65516_ = "O" Then
  665.                                                           QuoteOfTheDay 
  666.                                                         Else
  667.  8511                                                     If s65516_ = "P" Then
  668.                                                             If Val(s4524) > 0 Then
  669.                                                               DisplayPrompt Val(s4524)
  670.                                                             End If
  671.  8554                                                     Else
  672.  8560                                                       If s65516_ = "Q" Then
  673.                                                               If s4524 = "" Then
  674.                                                                 QuestionnaireMenu 
  675.                                                               Else
  676.  8603                                                           If Val(s4524) > 0 Then
  677.                                                                   Questionnaire Val(s4524)
  678.                                                                 Else
  679.  8635                                                             Questionnaire s4524
  680.                                                                 End If
  681.                                                               End If
  682.  8642                                                       Else
  683.  8648                                                         If s65516_ = "R" Then
  684.                                                               Else
  685.  8671                                                           If s65516_ = "S" Then
  686.                                                                   GoSub 15720
  687.                                                                   If Val(s16325(1)) > 0 And Val(s16325(2)) > 0 Then
  688.                                                                     Sound Val(s16325(1)), Val(s16325(2))
  689.                                                                   End If
  690.  8844                                                           Else
  691.  8850                                                             If s65516_ = "T" Then
  692.                                                                     Statistics 
  693.                                                                   Else
  694.  8876                                                               If s65516_ = "U" Then
  695.                                                                       UpdateConfs 
  696.                                                                     Else
  697.  8902                                                                 If s65516_ = "W" Then
  698.                                                                         GoSub 15720
  699.                                                                         If s16325(1) <> "" Then
  700.                                                                           If s16325(2) <> "" Then
  701.                                                                             Shell s16325(1), s16325(2)
  702.                                                                           Else
  703.  9080                                                                       Shell s16325(1), ""
  704.                                                                           End If
  705.                                                                         End If
  706.  9118                                                                 Else
  707.  9124                                                                   If s65516_ = "Z" Then
  708.                                                                           Chain s4524, ""
  709.                                                                           GoTo 9159
  710.                                                                         End If
  711.                                                                       End If
  712.                                                                     End If
  713.                                                                   End If
  714.                                                                 End If
  715.                                                               End If
  716.                                                             End If
  717.                                                           End If
  718.                                                         End If
  719.                                                       End If
  720.                                                     End If
  721.                                                   End If
  722.                                                 End If
  723.                                               End If
  724.                                             End If
  725.                                           End If
  726.                                         End If
  727.                                       End If
  728.                                     End If
  729.                                   End If
  730.                                 End If
  731.  9159                         Else
  732.  9165                           If s65528_ = "I" Then
  733.                                   If o16349 Then
  734.                                     If s4503 = "F" Then
  735.                                       If Exists(s4515 + s4524) Then
  736.                                         s4489 = s4524
  737.                                         o4519 = -1
  738.                                       End If
  739.  9245                               Else
  740.  9251                                 If o4519 Then
  741.                                         s65512_ = s4503
  742.                                         If s65512_ = "P" Then
  743.                                           i4463 = InStr(s16354, ",")
  744.                                           i16041 = Val(Trim(Mid(s16354, 5, i4463 - 5)))
  745.                                           Do
  746.  9333                                       Print "!|c" + t27_11982(i16041).s7 + "|Y" + t27_11982(i16041).s11 + "00" + t27_11982(i16041).s13 + "00|W00|#|#|#"
  747.                                             i4463 = t27_11982(i16041).i15 - 1
  748.