home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CW_IN_45.ZIP / INTELEC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-09-30  |  25KB  |  1,226 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Date     DATE003
  22.     Date     DATE004
  23.     Date     DATE005
  24.     Integer  INTEGER001
  25.     Integer  INTEGER002
  26.     Integer  INTEGER003
  27.     Integer  INTEGER004
  28.     Integer  INTEGER005
  29.     Integer  INTEGER006
  30.     Integer  INTEGER007
  31.     Integer  INTEGER008
  32.     Integer  INTEGER009
  33.     Integer  INTEGER010
  34.     Integer  INTEGER011
  35.     Integer  INTEGER012
  36.     Integer  INTEGER013
  37.     Integer  INTEGER014
  38.     Integer  INTEGER015
  39.     Integer  INTEGER016
  40.     Integer  INTEGER017
  41.     String   STRING001
  42.     String   STRING002
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   STRING008
  49.     String   STRING009
  50.     String   STRING010
  51.     String   STRING011
  52.     String   STRING012
  53.     String   STRING013
  54.     String   STRING014
  55.     String   STRING015
  56.     String   STRING016
  57.     String   STRING017
  58.     String   STRING018
  59.     String   STRING019
  60.     String   STRING020
  61.     String   STRING021
  62.     String   STRING022
  63.     String   STRING023
  64.     String   STRING024
  65.     String   STRING025
  66.     String   STRING026
  67.     String   STRING027
  68.     String   STRING028
  69.     String   STRING029
  70.     String   STRING030
  71.     String   STRING031
  72.     String   STRING032
  73.     String   STRING033
  74.     String   STRING034
  75.     String   STRING035
  76.     String   STRING036
  77.     String   STRING037
  78.     String   STRING038
  79.     String   STRING039
  80.     String   STRING040
  81.     String   STRING041
  82.     String   STRING042
  83.     String   STRING043
  84.     String   STRING044
  85.     String   STRING045
  86.     String   STRING046
  87.     String   STRING047
  88.     String   STRING048
  89.     String   STRING049
  90.     String   STRING050
  91.     String   STRING051
  92.     String   STRING052
  93.     String   STRING053
  94.     String   STRING054
  95.     String   STRING055
  96.     String   STRING056
  97.     String   STRING057
  98.  
  99. ;------------------------------------------------------------------------------
  100.  
  101.     If (INTEGER011 == 1) Then
  102.         INTEGER011 = "CRW"
  103.         Beep
  104.     Endif
  105.     INTEGER012 = 36
  106.     STRING047 = PPEPath() + PPEName() + ".CNF"
  107.     STRING055 = 58053
  108.     STRING053 = "N"
  109.     STRING056 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  110.     If (PPEName() == "SUBSCRIP") STRING054 = 46554
  111.     If (PPEName() == "FONE-VER") STRING054 = 34479
  112.     If (PPEName() == "PRO-VOTE") STRING054 = 57877
  113.     If (PPEName() == "CONFMENU") STRING054 = 27062
  114.     If (PPEName() == "FILEMENU") STRING054 = 14513
  115.     If (PPEName() == "MAINMENU") STRING054 = 25781
  116.     If (PPEName() == "DOORMENU") STRING054 = 44910
  117.     If (PPEName() == "AUTOPOST") STRING054 = 61482
  118.     If (PPEName() == "BBSLISTR") STRING054 = 11832
  119.     If (PPEName() == "REMINDME") STRING054 = 54925
  120.     If (PPEName() == "TIMEZONE") STRING054 = 38318
  121.     If (PPEName() == "USERNEWS") STRING054 = 31171
  122.     If (PPEName() == "MSGQUEST") STRING054 = 50024
  123.     If (PPEName() == "BIRTHDAY") STRING054 = 19645
  124.     If (PPEName() == "HOWHEARD") STRING054 = 42868
  125.     If (PPEName() == "WELCOMAT") STRING054 = 23034
  126.     If (Exist(STRING047)) Then
  127.         FOpen 1, STRING047, 0, 0
  128.         FGet 1, STRING042
  129.         FGet 1, INTEGER015
  130.         FGet 1, INTEGER014
  131.         FClose 1
  132.     Else
  133.         Select Case (PPEName())
  134.             Case "MAINT"
  135.                 STRING047 = PPEPath() + "PRO-VOTE.CNF"
  136.             Case "CMW"
  137.                 STRING047 = PPEPath() + "CONFMENU.CNF"
  138.             Case "INTELAPP"
  139.                 STRING047 = PPEPath() + "INTELEC.CNF"
  140.             Case Else
  141.                 PrintLn "@X0CError - Config file not found - Please notify SysOp"
  142.                 End
  143.             Endif
  144.     End Select
  145.     Tokenize STRING042
  146.     GetToken STRING051
  147.     GetToken STRING052
  148.     If (INTEGER015 == 0) Then
  149.         STRING053 = "N"
  150.         Goto LABEL003
  151.     Else
  152.         Goto LABEL001
  153.     Endif
  154.     :LABEL001
  155.     STRING048 = Left(STRING051, 1)
  156.     STRING049 = Left(STRING052, 2)
  157.     STRING050 = STRING048 + STRING049
  158.     If (STRING048 == "A") INTEGER016 = 8408
  159.     If (STRING048 == "B") INTEGER016 = 9119
  160.     If (STRING048 == "C") INTEGER016 = 6619
  161.     If (STRING048 == "D") INTEGER016 = 4820
  162.     If (STRING048 == "E") INTEGER016 = 7325
  163.     If (STRING048 == "F") INTEGER016 = 2928
  164.     If (STRING048 == "G") INTEGER016 = 2031
  165.     If (STRING048 == "H") INTEGER016 = 1934
  166.     If (STRING048 == "I") INTEGER016 = 5534
  167.     If (STRING048 == "J") INTEGER016 = 4737
  168.     If (STRING048 == "K") INTEGER016 = 9242
  169.     If (STRING048 == "L") INTEGER016 = 3743
  170.     If (STRING048 == "M") INTEGER016 = 6546
  171.     If (STRING048 == "N") INTEGER016 = 8355
  172.     If (STRING048 == "O") INTEGER016 = 2859
  173.     If (STRING048 == "P") INTEGER016 = 4660
  174.     If (STRING048 == "Q") INTEGER016 = 7463
  175.     If (STRING048 == "R") INTEGER016 = 1164
  176.     If (STRING048 == "S") INTEGER016 = 6471
  177.     If (STRING048 == "T") INTEGER016 = 3973
  178.     If (STRING048 == "U") INTEGER016 = 5674
  179.     If (STRING048 == "V") INTEGER016 = 5782
  180.     If (STRING048 == "W") INTEGER016 = 3885
  181.     If (STRING048 == "X") INTEGER016 = 8287
  182.     If (STRING048 == "Y") INTEGER016 = 7591
  183.     If (STRING048 == "Z") INTEGER016 = 1096
  184.     INTEGER013 = S2I(STRING050, INTEGER012) + INTEGER015 + STRING054 + INTEGER016
  185.     INTEGER017 = S2I(STRING050, INTEGER012) + INTEGER015 + STRING055 + INTEGER016
  186.     If (INTEGER014 == INTEGER013) Goto LABEL002
  187.     If (INTEGER014 == INTEGER017) Goto LABEL002
  188.     Goto LABEL053
  189.     :LABEL002
  190.     STRING053 = "Y"
  191.     If (Len(INTEGER015) == 1) STRING044 = "000"
  192.     If (Len(INTEGER015) == 2) STRING044 = "00"
  193.     If (Len(INTEGER015) == 3) STRING044 = "0"
  194.     If (Len(INTEGER015) == 4) STRING044 = ""
  195.     STRING045 = INTEGER015
  196.     STRING046 = STRING044 + STRING045
  197.     STRING043 = Space(30 - Len(STRING042))
  198.     :LABEL003
  199.     STRING057 = "CRW"
  200.     FDefIn 1
  201.     STRING023 = "4.5 "
  202.     If (Exist(PPEPath() + "INTELEC.CNF")) Then
  203.         FOpen 1, PPEPath() + "INTELEC.CNF", 0, 0
  204.         FGet 1, STRING003
  205.         FGet 1, STRING004
  206.         FGet 1, STRING010
  207.         FGet 1, STRING007
  208.         FGet 1, STRING010
  209.         FGet 1, STRING014
  210.         FGet 1, STRING015
  211.         FGet 1, STRING016
  212.         FGet 1, STRING017
  213.         FGet 1, STRING018
  214.         FGet 1, STRING010
  215.         FGet 1, STRING010
  216.         FGet 1, STRING019
  217.         FClose 1
  218.     Else
  219.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  220.         End
  221.     Endif
  222.     GetUser
  223.     STRING006 = Left(U_Name(), 17)
  224.     DATE001 = Date()
  225.     INTEGER007 = Month(DATE001)
  226.     STRING040 = INTEGER007
  227.     If (Len(STRING040) == 1) Then
  228.         STRING040 = "0" + STRING040
  229.     Endif
  230.     INTEGER008 = Year(DATE001)
  231.     STRING039 = String(INTEGER008)
  232.     STRING021 = "IN_" + Right(STRING039, 2) + STRING040 + ".ZIP"
  233.     STRING022 = "INB_" + Right(STRING039, 2) + STRING040 + ".ZIP"
  234.     STRING005 = "    Intelec PPE v" + STRING023 + " ■ " + STRING003 + " ■ " + STRING004 + " ■ "
  235.     GetToken STRING008
  236.     If (STRING008 == "I") STRING009 = "Y"
  237.     If (!(STRING008 == "I")) STRING009 = "N"
  238.     If (STRING009 == "Y") Goto LABEL004
  239.     FOpen 1, STRING014, 0, 0
  240.     FGet 1, STRING010
  241.     FGet 1, STRING010
  242.     FGet 1, STRING010
  243.     FGet 1, STRING010
  244.     FGet 1, STRING010
  245.     FGet 1, STRING010
  246.     FGet 1, STRING010
  247.     FGet 1, STRING010
  248.     FGet 1, STRING010
  249.     FGet 1, STRING011
  250.     FClose 1
  251.     DATE002 = Mid(STRING011, 38, 8)
  252.     If (DATE001 > DATE002) Goto LABEL025
  253.     Goto LABEL005
  254.     :LABEL004
  255.     FOpen 1, STRING014, 0, 0
  256.     FGet 1, STRING010
  257.     FGet 1, STRING010
  258.     FGet 1, STRING010
  259.     FGet 1, STRING010
  260.     FGet 1, STRING010
  261.     FGet 1, STRING010
  262.     FGet 1, STRING010
  263.     FGet 1, STRING010
  264.     FGet 1, STRING010
  265.     FGet 1, STRING011
  266.     FClose 1
  267.     DATE002 = Mid(STRING011, 49, 8)
  268.     If (DATE001 > DATE002) Goto LABEL025
  269.     :LABEL005
  270.     FOpen 1, STRING016, 0, 0
  271.     FGet 1, STRING010
  272.     FGet 1, STRING010
  273.     FGet 1, STRING010
  274.     FGet 1, STRING010
  275.     FClose 1
  276.     INTEGER003 = Mid(STRING010, 42, 3)
  277.     FOpen 1, STRING015, 0, 0
  278.     FGet 1, STRING010
  279.     FGet 1, STRING010
  280.     FGet 1, STRING010
  281.     FGet 1, STRING010
  282.     FClose 1
  283.     INTEGER004 = Mid(STRING010, 47, 3)
  284.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Database - Menu", "", ""
  285.     Cls
  286.     DispFile PPEPath() + "WELC", 4 + 2 + 1
  287.     Color 15
  288.     PrintLn STRING005
  289.     PrintLn 
  290.     Wait
  291.     :LABEL006
  292.     Cls
  293.     StartDisp 2
  294.     STRING012 = "Q"
  295.     INTEGER001 = 0
  296.     STRING001 = ""
  297.     STRING002 = ""
  298.     DispFile PPEPath() + "MAIN", 4 + 2 + 1
  299.     PrintLn 
  300.     InputStr "@X0B   Please select Menu Letter ", STRING012, 11, 1, Mask_Alpha(), 8 + 2
  301.     If (STRING012 == "A") Then
  302.         If (STRING007 == "N") Goto LABEL026
  303.         If (STRING009 == "Y") Call PPEPath() + "INTELAPP.PPE I"
  304.         If (STRING009 == "N") Call PPEPath() + "INTELAPP.PPE"
  305.         Goto LABEL006
  306.     Endif
  307.     If (STRING012 == "C") Goto LABEL030
  308.     If (STRING012 == "D") Goto LABEL029
  309.     If (STRING012 == "E") Goto LABEL027
  310.     If (STRING012 == "G") Bye
  311.     If (STRING012 == "H") Goto LABEL022
  312.     If ((STRING012 == "I") && (STRING019 == "N")) Goto LABEL009
  313.     If (STRING012 == "I") Goto LABEL010
  314.     If (STRING012 == "M") Goto LABEL023
  315.     If (STRING012 == "N") STRING002 = "Y"
  316.     If (STRING012 == "N") Goto LABEL039
  317.     If (STRING012 == "P") Goto LABEL028
  318.     If (STRING012 == "Q") Goto LABEL007
  319.     If (STRING012 == "R") Goto LABEL008
  320.     If (STRING012 == "S") STRING001 = "Y"
  321.     If (STRING012 == "S") Goto LABEL039
  322.     If (STRING012 == "T") Goto LABEL019
  323.     Goto LABEL024
  324.     :LABEL007
  325.     Cls
  326.     DispFile PPEPath() + "BYE", 4 + 2 + 1
  327.     End
  328.     :LABEL008
  329.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Database - Rules", "", ""
  330.     Color 11
  331.     Cls
  332.     DispFile STRING014, 4 + 2 + 1
  333.     Wait
  334.     Goto LABEL006
  335.     :LABEL009
  336.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec - IN Basket File", "", ""
  337.     Cls
  338.     PrintLn "@X0ESorry @FIRST@, the newsletter is not available on this system."
  339.     PrintLn 
  340.     Wait
  341.     Goto LABEL006
  342.     :LABEL010
  343.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec - IN Basket File", "", ""
  344.     Cls
  345.     StartDisp 2
  346.     STRING012 = "Q"
  347.     DispFile PPEPath() + "MAININB", 4 + 2 + 1
  348.     PrintLn 
  349.     DATE005 = FileInf(STRING019 + "CONFSTAT.INB", 2)
  350.     If (Month(DATE005) < Month(Date())) Then
  351.         PrintLn "@X0BSorry, the IN Basket on this system is too old, please ask SysOp to get the new"
  352.         PrintLn "@X0Bfile called @X0F", STRING022, "@X0B. This program will not display an outdated newsletter."
  353.         Wait
  354.         Goto LABEL006
  355.     Endif
  356.     InputStr "@X0B   Please select Menu Letter ", STRING012, 11, 1, Mask_Alpha(), 8 + 2
  357.     Cls
  358.     If (STRING012 == "E") Goto LABEL011
  359.     If (STRING012 == "A") Goto LABEL012
  360.     If (STRING012 == "H") Goto LABEL013
  361.     If (STRING012 == "I") Goto LABEL014
  362.     If (STRING012 == "C") Goto LABEL015
  363.     If (STRING012 == "M") Goto LABEL016
  364.     If (STRING012 == "N") Goto LABEL017
  365.     If (STRING012 == "B") Goto LABEL018
  366.     If (STRING012 == "Q") Goto LABEL006
  367.     Goto LABEL024
  368.     :LABEL011
  369.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Editor Notes", "", ""
  370.     STRING020 = STRING019 + "EDITNOTE.INB"
  371.     DispFile STRING020, 4 + 2 + 1
  372.     PrintLn 
  373.     Wait
  374.     Goto LABEL010
  375.     :LABEL012
  376.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket  Network News", "", ""
  377.     STRING020 = STRING019 + "NEWS_NET.INB"
  378.     DispFile STRING020, 4 + 2 + 1
  379.     PrintLn 
  380.     Wait
  381.     Goto LABEL010
  382.     :LABEL013
  383.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - NeedMod File", "", ""
  384.     STRING020 = STRING019 + "NEWS_MOD.INB"
  385.     DispFile STRING020, 4 + 2 + 1
  386.     PrintLn 
  387.     Wait
  388.     Goto LABEL010
  389.     :LABEL014
  390.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Conferences", "", ""
  391.     STRING020 = STRING019 + "NEWS_CNF.INB"
  392.     DispFile STRING020, 4 + 2 + 1
  393.     PrintLn 
  394.     Wait
  395.     Goto LABEL010
  396.     :LABEL015
  397.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Conf Stats", "", ""
  398.     STRING020 = STRING019 + "CONFSTAT.INB"
  399.     DispFile STRING020, 4 + 2 + 1
  400.     PrintLn 
  401.     Wait
  402.     Goto LABEL010
  403.     :LABEL016
  404.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Node Stats", "", ""
  405.     STRING020 = STRING019 + "NODESTAT.INB"
  406.     DispFile STRING020, 4 + 2 + 1
  407.     PrintLn 
  408.     Wait
  409.     Goto LABEL010
  410.     :LABEL017
  411.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Mods Needed", "", ""
  412.     STRING020 = STRING019 + "NEEDMODS.INB"
  413.     DispFile STRING020, 4 + 2 + 1
  414.     PrintLn 
  415.     Wait
  416.     Goto LABEL010
  417.     :LABEL018
  418.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - HiLites File", "", ""
  419.     STRING020 = STRING019 + "HI_LITES.INB"
  420.     DispFile STRING020, 4 + 2 + 1
  421.     PrintLn 
  422.     Wait
  423.     Goto LABEL010
  424.     :LABEL019
  425.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Random BBS's", "", ""
  426.     INTEGER006 = 0
  427.     If (AnsiOn()) Goto LABEL020
  428.     PrintLn "@CLS@@X0BSorry, ANSI required to operate Random BBS Generator"
  429.     PrintLn 
  430.     Wait
  431.     Goto LABEL006
  432.     :LABEL020
  433.     PrintLn "@CLS@@X0DGive it a few seconds, then press any key to stop totally random scan"
  434.     :LABEL021
  435.     FOpen 1, STRING016, 0, 0
  436.     FGet 1, STRING010
  437.     FGet 1, STRING010
  438.     FGet 1, STRING010
  439.     FGet 1, STRING010
  440.     FGet 1, STRING010
  441.     For INTEGER002 = 1 To INTEGER003
  442.         If (INTEGER006 == 10) INTEGER006 = 0
  443.         INTEGER006 = INTEGER006 + 1
  444.         FGet 1, STRING034
  445.         FGet 1, STRING035
  446.         FGet 1, STRING036
  447.         FGet 1, STRING037
  448.         FGet 1, STRING038
  449.         If (INTEGER006 == 1) STRING041 = "▄     "
  450.         If (INTEGER006 == 6) STRING041 = "    ▀ "
  451.         If (INTEGER006 == 2) STRING041 = " ▄    "
  452.         If (INTEGER006 == 7) STRING041 = "   ▀  "
  453.         If (INTEGER006 == 3) STRING041 = "  ▄   "
  454.         If (INTEGER006 == 8) STRING041 = "  ▀   "
  455.         If (INTEGER006 == 4) STRING041 = "   ▄  "
  456.         If (INTEGER006 == 9) STRING041 = " ▀    "
  457.         If (INTEGER006 == 5) STRING041 = "    ▄ "
  458.         If (INTEGER006 == 10) STRING041 = "▀     "
  459.         STRING034 = "        @X0B" + Mid(STRING034, 9, 71)
  460.         STRING035 = "        @X0F" + Mid(STRING035, 9, 71)
  461.         STRING036 = "        @X0E" + Mid(STRING036, 9, 71)
  462.         STRING037 = "        @X0A" + Mid(STRING037, 9, 71)
  463.         STRING038 = "        @X0C" + Mid(STRING038, 9, 71)
  464.         AnsiPos 71, 1
  465.         Print STRING041
  466.         If (KInkey() == "") Then
  467.             If (MInkey() == "") Then
  468.             Next
  469.             FClose 1
  470.             Goto LABEL021
  471.         Endif
  472.     Endif
  473.     AnsiPos 71, 1
  474.     Print "     "
  475.     AnsiPos 1, 3
  476.     PrintLn STRING034
  477.     PrintLn STRING035
  478.     PrintLn STRING036
  479.     PrintLn STRING037
  480.     PrintLn STRING038
  481.     PrintLn 
  482.     FClose 1
  483.     Wait
  484.     Goto LABEL006
  485.     :LABEL022
  486.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Conf Changes", "", ""
  487.     Color 11
  488.     Cls
  489.     DispFile STRING017, 4 + 2 + 1
  490.     Wait
  491.     Goto LABEL006
  492.     :LABEL023
  493.     WrUNet PcbNode(), UN_Stat(), U_Name(), "IN Basket - Read_Me File", "", ""
  494.     Color 11
  495.     Cls
  496.     DispFile STRING018, 4 + 2 + 1
  497.     Wait
  498.     Goto LABEL006
  499.     :LABEL024
  500.     PrintLn 
  501.     PrintLn "@X0FSorry... you entered an invalid menu letter"
  502.     PrintLn 
  503.     Wait
  504.     Goto LABEL006
  505.     :LABEL025
  506.     Cls
  507.     Color 15
  508.     PrintLn "Intelec PPE has ABORTED. The database expired on @X0E", DATE002, "@X0F, ask the SysOp"
  509.     PrintLn "to install a  CURRENT  Intelec distribution file, they're available from"
  510.     PrintLn "Intelec each month with updated info. We're sorry for the inconvenience."
  511.     Stop
  512.     :LABEL026
  513.     Cls
  514.     DispFile PPEPath() + "NOAPP", 4 + 2 + 1
  515.     PrintLn 
  516.     More
  517.     Goto LABEL006
  518.     :LABEL027
  519.     Cls
  520.     PrintLn 
  521.     PrintLn "                    @X0BThe Intelec Database Expires on @X0F", DATE002
  522.     PrintLn 
  523.     Color 7
  524.     Wait
  525.     Goto LABEL006
  526.     :LABEL028
  527.     Cls
  528.     DispFile PPEPath() + "MYSTUFF", 4 + 2 + 1
  529.     Wait
  530.     Goto LABEL006
  531.     :LABEL029
  532.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Database File DL", "", ""
  533.     Cls
  534.     Color 10
  535.     PrintLn "    If @X0F", STRING021, "@X0A is on this BBS you will be able to download it right now."
  536.     PrintLn "    If it's @X0Cnot@X0A found on this BBS, please ask SysOp to get it from the @X0FHost@X0A."
  537.     PrintLn 
  538.     Wait
  539.     Download STRING021
  540.     Goto LABEL006
  541.     :LABEL030
  542.     StartDisp 2
  543.     INTEGER001 = 0
  544.     STRING012 = ""
  545.     Cls
  546.     InputStr "@X0FD@X0B)isplay Conferences  @X0FS@X0B)earch Conferences  @X0F<Enter>@X0B to Return", STRING012, 11, 1, Mask_Alpha(), 2 + 8 + 128
  547.     If (STRING012 == "D") Goto LABEL031
  548.     If (STRING012 == "S") Goto LABEL032
  549.     Goto LABEL006
  550.     :LABEL031
  551.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec  -  Conf Display", "", ""
  552.     INTEGER006 = 0
  553.     Cls
  554.     FOpen 1, STRING015, 0, 0
  555.     FGet 1, STRING010
  556.     FGet 1, STRING010
  557.     FGet 1, STRING010
  558.     FGet 1, STRING010
  559.     FGet 1, STRING010
  560.     FGet 1, STRING010
  561.     FGet 1, STRING010
  562.     FGet 1, STRING010
  563.     FGet 1, STRING010
  564.     FGet 1, STRING010
  565.     For INTEGER002 = 1 To INTEGER004
  566.         FGet 1, STRING024
  567.         FGet 1, STRING025
  568.         FGet 1, STRING026
  569.         FGet 1, STRING027
  570.         FGet 1, STRING028
  571.         FGet 1, STRING029
  572.         FGet 1, STRING030
  573.         FGet 1, STRING031
  574.         FGet 1, STRING032
  575.         FGet 1, STRING033
  576.         If (INTEGER006 == 2) INTEGER006 = 0
  577.         STRING024 = "@X0A" + STRING024
  578.         STRING025 = "@X0F" + STRING025
  579.         STRING026 = "@X0F" + STRING026
  580.         STRING027 = "@X0F" + STRING027
  581.         STRING028 = "@X0F" + STRING028
  582.         STRING029 = "@X0A" + STRING029
  583.         STRING030 = "@X0B" + STRING030
  584.         STRING031 = "@X0B" + STRING031
  585.         STRING032 = "@X0B" + STRING032
  586.         STRING033 = "@X0B" + STRING033
  587.         PrintLn Chr(13), STRING024
  588.         PrintLn Chr(13), STRING025
  589.         PrintLn Chr(13), STRING026
  590.         PrintLn Chr(13), STRING027
  591.         PrintLn Chr(13), STRING028
  592.         PrintLn Chr(13), STRING029
  593.         PrintLn Chr(13), STRING030
  594.         PrintLn Chr(13), STRING031
  595.         PrintLn Chr(13), STRING032
  596.         PrintLn Chr(13), STRING033
  597.         INTEGER006 = INTEGER006 + 1
  598.         If (INTEGER006 == 2) Then
  599.             PrintLn Chr(13), STRING024
  600.             STRING013 = "Y"
  601.             InputYN "@X0EView next screen (Enter for more)", STRING013, 14
  602.             If (STRING013 == "N") Goto LABEL052
  603.             Cls
  604.         Endif
  605.     Next
  606.     FClose 1
  607.     Wait
  608.     Goto LABEL030
  609.     :LABEL032
  610.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec  -  Conf Search", "", ""
  611.     INTEGER006 = 0
  612.     INTEGER001 = 0
  613.     Cls
  614.     DispFile PPEPath() + "SCHCNF", 4 + 2 + 1
  615.     InputStr "Select 1 through 14 or <Enter> to Return ", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  616.     If (INTEGER001 > 14) Goto LABEL032
  617.     If (INTEGER001 == 1) Goto LABEL035
  618.     If (INTEGER001 == 2) Goto LABEL036
  619.     If (INTEGER001 == 3) Goto LABEL037
  620.     If (INTEGER001 == 4) Goto LABEL038
  621.     If (INTEGER001 == 5) Goto LABEL033
  622.     If (INTEGER001 == 6) Goto LABEL033
  623.     If (INTEGER001 == 7) Goto LABEL033
  624.     If (INTEGER001 == 8) Goto LABEL033
  625.     If (INTEGER001 == 9) Goto LABEL033
  626.     If (INTEGER001 == 10) Goto LABEL033
  627.     If (INTEGER001 == 11) Goto LABEL033
  628.     If (INTEGER001 == 12) Goto LABEL033
  629.     If (INTEGER001 == 13) Goto LABEL033
  630.     If (INTEGER001 == 14) Goto LABEL033
  631.     Goto LABEL030
  632.     :LABEL033
  633.     Cls
  634.     FOpen 1, STRING015, 0, 0
  635.     FGet 1, STRING010
  636.     FGet 1, STRING010
  637.     FGet 1, STRING010
  638.     FGet 1, STRING010
  639.     FGet 1, STRING010
  640.     FGet 1, STRING010
  641.     FGet 1, STRING010
  642.     FGet 1, STRING010
  643.     FGet 1, STRING010
  644.     FGet 1, STRING010
  645.     For INTEGER002 = 1 To INTEGER004
  646.         FGet 1, STRING024
  647.         FGet 1, STRING025
  648.         FGet 1, STRING026
  649.         FGet 1, STRING027
  650.         FGet 1, STRING028
  651.         FGet 1, STRING029
  652.         FGet 1, STRING030
  653.         FGet 1, STRING031
  654.         FGet 1, STRING032
  655.         FGet 1, STRING033
  656.         If (INTEGER001 == 1) Then
  657.             If ((((InStr(Upper(STRING025), STRING012) >= 1) || (InStr(Upper(STRING026), STRING012) >= 1)) || (InStr(Upper(STRING027), STRING012) >= 1)) || (InStr(Upper(STRING028), STRING012) >= 1)) Then
  658.                 Gosub LABEL051
  659.                 Goto LABEL034
  660.             Endif
  661.             If ((((InStr(Upper(STRING030), STRING012) >= 1) || (InStr(Upper(STRING031), STRING012) >= 1)) || (InStr(Upper(STRING032), STRING012) >= 1)) || (InStr(Upper(STRING033), STRING012) >= 1)) Gosub LABEL051
  662.         Endif
  663.         :LABEL034
  664.         If (INTEGER001 == 2) Then
  665.             If ((InStr(Upper(STRING025), STRING012) >= 1) || (InStr(Upper(STRING027), STRING012) >= 1)) Gosub LABEL051
  666.         Endif
  667.         If (INTEGER001 == 3) Then
  668.             If (Mid(STRING025, 73, 3) == INTEGER010) Gosub LABEL051
  669.         Endif
  670.         If (INTEGER001 == 4) Then
  671.             DATE004 = Mid(STRING026, 68, 8)
  672.             If (DATE004 >= DATE003) Gosub LABEL051
  673.         Endif
  674.         If (INTEGER001 == 5) Then
  675.             If (Mid(STRING028, 10, 7) == "Private") Gosub LABEL051
  676.         Endif
  677.         If (INTEGER001 == 6) Then
  678.             If (Mid(STRING026, 8, 14) == "Administrative") Gosub LABEL051
  679.         Endif
  680.         If (INTEGER001 == 7) Then
  681.             If (Mid(STRING028, 20, 3) == "Req") Gosub LABEL051
  682.         Endif
  683.         If (INTEGER001 == 8) Then
  684.             If (Mid(STRING026, 8, 14) == "Author Support") Gosub LABEL051
  685.         Endif
  686.         If (INTEGER001 == 9) Then
  687.             If (Mid(STRING026, 8, 14) == "Issues        ") Gosub LABEL051
  688.         Endif
  689.         If (INTEGER001 == 10) Then
  690.             If (Mid(STRING026, 8, 14) == "General       ") Gosub LABEL051
  691.         Endif
  692.         If (INTEGER001 == 11) Then
  693.             If (Mid(STRING026, 8, 14) == "Technical     ") Gosub LABEL051
  694.         Endif
  695.         If (INTEGER001 == 12) Then
  696.             If (Mid(STRING026, 8, 14) == "Programming   ") Gosub LABEL051
  697.         Endif
  698.         If (INTEGER001 == 13) Then
  699.             If (Mid(STRING026, 8, 14) == "Religion      ") Gosub LABEL051
  700.         Endif
  701.         If (INTEGER001 == 14) Then
  702.             If (Mid(STRING026, 8, 14) == "Organizational") Gosub LABEL051
  703.         Endif
  704.     Next
  705.     FClose 1
  706.     PrintLn 
  707.     Wait
  708.     Goto LABEL032
  709.     :LABEL035
  710.     STRING012 = ""
  711.     PrintLn 
  712.     InputStr "@X0BWhat text to search for", STRING012, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  713.     If (STRING012 == "") Goto LABEL030
  714.     Goto LABEL033
  715.     :LABEL036
  716.     STRING012 = ""
  717.     PrintLn 
  718.     InputStr "@X0BWhat moderator or conference name to search for", STRING012, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  719.     If (STRING012 == "") Goto LABEL030
  720.     Goto LABEL033
  721.     :LABEL037
  722.     INTEGER010 = 0
  723.     PrintLn 
  724.     InputStr "@X0BWhat conference # to search for", INTEGER010, 11, 3, Mask_Num(), 2 + 128
  725.     If (INTEGER010 == 0) Goto LABEL030
  726.     Goto LABEL033
  727.     :LABEL038
  728.     INTEGER010 = 0
  729.     DATE003 = 0
  730.     InputStr "@X0BHow many days back to search", INTEGER010, 11, 3, Mask_Num(), 2 + 128
  731.     DATE003 = Date() - INTEGER010
  732.     If (INTEGER010 == 0) Goto LABEL030
  733.     Goto LABEL033
  734.     :LABEL039
  735.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec  NodeList Search", "", ""
  736.     Color 7
  737.     :LABEL040
  738.     INTEGER009 = 0
  739.     INTEGER005 = 0
  740.     INTEGER006 = 0
  741.     StartDisp 2
  742.     Cls
  743.     INTEGER001 = 0
  744.     DispFile PPEPath() + "SCHHUB", 4 + 2 + 1
  745.     InputStr "Select 1 through 8 or <Enter> to Return ", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  746.     If (INTEGER001 == 1) Goto LABEL042
  747.     If (INTEGER001 == 2) Goto LABEL043
  748.     If (INTEGER001 == 3) Goto LABEL044
  749.     If (INTEGER001 == 4) Goto LABEL045
  750.     If (INTEGER001 == 5) Goto LABEL046
  751.     If (INTEGER001 == 6) Goto LABEL047
  752.     If (INTEGER001 == 7) Goto LABEL048
  753.     If (INTEGER001 == 8) Goto LABEL041
  754.     If (INTEGER001 >= 8) Goto LABEL039
  755.     Goto LABEL006
  756.     :LABEL041
  757.     INTEGER006 = 0
  758.     Cls
  759.     FOpen 1, STRING016, 0, 0
  760.     FGet 1, STRING010
  761.     FGet 1, STRING010
  762.     FGet 1, STRING010
  763.     FGet 1, STRING010
  764.     FGet 1, STRING010
  765.     For INTEGER002 = 1 To INTEGER003
  766.         FGet 1, STRING034
  767.         FGet 1, STRING035
  768.         FGet 1, STRING036
  769.         FGet 1, STRING037
  770.         FGet 1, STRING038
  771.         If (((STRING002 == "Y") && !(Mid(STRING035, 68, 3) == "USA")) && !(Mid(STRING035, 68, 3) == "Can")) Gosub LABEL050
  772.         If ((((STRING001 == "Y") && !(Mid(STRING035, 68, 3) == "USA")) && !(Mid(STRING035, 68, 3) == "Can")) && !(Mid(STRING037, 9, 4) == "Node")) Gosub LABEL049
  773.     Next
  774.     FClose 1
  775.     PrintLn 
  776.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  777.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  778.     PrintLn 
  779.     Wait
  780.     Goto LABEL039
  781.     :LABEL042
  782.     INTEGER006 = 0
  783.     STRING012 = ""
  784.     PrintLn 
  785.     InputStr "@X0BWhat State to search for (2 letter abbrev.)", STRING012, 11, 2, Mask_Alpha(), 2 + 8 + 128
  786.     If (STRING012 == "") Goto LABEL040
  787.     Cls
  788.     FOpen 1, STRING016, 0, 0
  789.     FGet 1, STRING010
  790.     FGet 1, STRING010
  791.     FGet 1, STRING010
  792.     FGet 1, STRING010
  793.     FGet 1, STRING010
  794.     For INTEGER002 = 1 To INTEGER003
  795.         FGet 1, STRING034
  796.         FGet 1, STRING035
  797.         FGet 1, STRING036
  798.         FGet 1, STRING037
  799.         FGet 1, STRING038
  800.         If ((Mid(STRING035, 65, 2) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
  801.         If (((Mid(STRING035, 65, 2) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node          ")) Gosub LABEL049
  802.     Next
  803.     FClose 1
  804.     PrintLn 
  805.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  806.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  807.     PrintLn 
  808.     Wait
  809.     Goto LABEL039
  810.     :LABEL043
  811.     INTEGER006 = 0
  812.     INTEGER001 = 0
  813.     Cls
  814.     DispFile PPEPath() + "SCHNET", 4 + 2 + 1
  815.     InputStr "@X0BWhat Net Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  816.     If (INTEGER001 == 0) Goto LABEL040
  817.     If (INTEGER001 == 1) STRING012 = "Rnet     "
  818.     If (INTEGER001 == 2) STRING012 = "Qnet     "
  819.     If (INTEGER001 == 3) STRING012 = "Cam-Mail "
  820.     If (INTEGER001 == 4) STRING012 = "RoseMail "
  821.     If (INTEGER001 == 5) STRING012 = "Tnet     "
  822.     If (INTEGER001 == 6) STRING012 = "GapNet   "
  823.     If (INTEGER001 == 7) STRING012 = "BG_QWK   "
  824.     If (INTEGER001 == 8) STRING012 = "GT_QWK   "
  825.     If (INTEGER001 == 9) STRING012 = "Jnet     "
  826.     If (INTEGER001 == 10) STRING012 = "TriNet   "
  827.     If (INTEGER001 == 11) STRING012 = "QWiKerNet"
  828.     If (INTEGER001 == 12) STRING012 = "MK_Net   "
  829.     If (INTEGER001 == 13) STRING012 = "Synch    "
  830.     If (INTEGER001 == 14) STRING012 = "Cnet     "
  831.     If (INTEGER001 == 15) STRING012 = "Valence  "
  832.     If (INTEGER001 == 16) STRING012 = "FTS      "
  833.     If (INTEGER001 == 17) STRING012 = "wcECHO   "
  834.     If (INTEGER001 == 18) STRING012 = "wcGATE   "
  835.     If (INTEGER001 > 18) Goto LABEL043
  836.     Cls
  837.     FOpen 1, STRING016, 0, 0
  838.     FGet 1, STRING010
  839.     FGet 1, STRING010
  840.     FGet 1, STRING010
  841.     FGet 1, STRING010
  842.     FGet 1, STRING010
  843.     For INTEGER002 = 1 To INTEGER003
  844.         FGet 1, STRING034
  845.         FGet 1, STRING035
  846.         FGet 1, STRING036
  847.         FGet 1, STRING037
  848.         FGet 1, STRING038
  849.         If ((Mid(STRING036, 47, 9) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
  850.         If (((Mid(STRING036, 47, 9) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node          ")) Gosub LABEL049
  851.     Next
  852.     FClose 1
  853.     PrintLn 
  854.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  855.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  856.     PrintLn 
  857.     STRING012 = ""
  858.     Wait
  859.     Goto LABEL039
  860.     :LABEL044
  861.     INTEGER006 = 0
  862.     INTEGER001 = 0
  863.     PrintLn 
  864.     InputStr "@X0BWhat Area Code to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  865.     If (INTEGER001 == 0) Goto LABEL040
  866.     Cls
  867.     FOpen 1, STRING016, 0, 0
  868.     FGet 1, STRING010
  869.     FGet 1, STRING010
  870.     FGet 1, STRING010
  871.     FGet 1, STRING010
  872.     FGet 1, STRING010
  873.     For INTEGER002 = 1 To INTEGER003
  874.         FGet 1, STRING034
  875.         FGet 1, STRING035
  876.         FGet 1, STRING036
  877.         FGet 1, STRING037
  878.         FGet 1, STRING038
  879.         If ((Mid(STRING035, 9, 3) == INTEGER001) && (STRING002 == "Y")) Gosub LABEL050
  880.         If (((Mid(STRING035, 9, 3) == INTEGER001) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node          ")) Gosub LABEL049
  881.     Next
  882.     FClose 1
  883.     PrintLn 
  884.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  885.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  886.     PrintLn 
  887.     Wait
  888.     Goto LABEL039
  889.     :LABEL045
  890.     INTEGER006 = 0
  891.     INTEGER001 = 0
  892.     Cls
  893.     DispFile PPEPath() + "SCHBBS", 4 + 2 + 1
  894.     InputStr "@X0BWhat BBS Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  895.     If (INTEGER001 == 0) Goto LABEL006
  896.     If (INTEGER001 == 1) STRING012 = "PCBoard     "
  897.     If (INTEGER001 == 2) STRING012 = "Wildcat     "
  898.     If (INTEGER001 == 3) STRING012 = "Gap         "
  899.     If (INTEGER001 == 4) STRING012 = "Spitfire    "
  900.     If (INTEGER001 == 5) STRING012 = "Auntie      "
  901.     If (INTEGER001 == 6) STRING012 = "TriBBS      "
  902.     If (INTEGER001 == 7) STRING012 = "GT Power    "
  903.     If (INTEGER001 == 8) STRING012 = "Synchronet  "
  904.     If (INTEGER001 == 9) STRING012 = "Rem. Access "
  905.     If (INTEGER001 == 10) STRING012 = "Searchlight "
  906.     If (INTEGER001 == 11) STRING012 = "UltraBBS    "
  907.     If (INTEGER001 == 12) STRING012 = "Maximus     "
  908.     If (INTEGER001 > 12) Goto LABEL045
  909.     Cls
  910.     FOpen 1, STRING016, 0, 0
  911.     FGet 1, STRING010
  912.     FGet 1, STRING010
  913.     FGet 1, STRING010
  914.     FGet 1, STRING010
  915.     FGet 1, STRING010
  916.     For INTEGER002 = 1 To INTEGER003
  917.         FGet 1, STRING034
  918.         FGet 1, STRING035
  919.         FGet 1, STRING036
  920.         FGet 1, STRING037
  921.         FGet 1, STRING038
  922.         If ((Mid(STRING036, 35, 12) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
  923.         If (((Mid(STRING036, 35, 12) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node          ")) Gosub LABEL049
  924.     Next
  925.     FClose 1
  926.     STRING012 = ""
  927.     PrintLn 
  928.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  929.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  930.     PrintLn 
  931.     Wait
  932.     Goto LABEL039
  933.     :LABEL046
  934.     INTEGER006 = 0
  935.     INTEGER001 = 0
  936.     Cls
  937.     DispFile PPEPath() + "SCHMDM", 4 + 2 + 1
  938.     InputStr "@X0BWhat Modem Type to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  939.     If (INTEGER001 == 0) Goto LABEL006
  940.     If (INTEGER001 == 1) STRING012 = "v.32bis        "
  941.     If (INTEGER001 == 2) STRING012 = "USR HST        "
  942.     If (INTEGER001 == 3) STRING012 = "USR D/S 14.4   "
  943.     If (INTEGER001 == 4) STRING012 = "USR D/S 16.8   "
  944.     If (INTEGER001 == 5) STRING012 = "ZyXel          "
  945.     If (INTEGER001 == 6) STRING012 = "V.Terbo        "
  946.     If (INTEGER001 == 7) STRING012 = "V.FC 28.8      "
  947.     If (INTEGER001 == 8) STRING012 = "V.34           "
  948.     If (INTEGER001 == 9) STRING012 = "Unknown        "
  949.     If (INTEGER001 > 9) Goto LABEL046
  950.     Cls
  951.     FOpen 1, STRING016, 0, 0
  952.     FGet 1, STRING010
  953.     FGet 1, STRING010
  954.     FGet 1, STRING010
  955.     FGet 1, STRING010
  956.     FGet 1, STRING010
  957.     For INTEGER002 = 1 To INTEGER003
  958.         FGet 1, STRING034
  959.         FGet 1, STRING035
  960.         FGet 1, STRING036
  961.         FGet 1, STRING037
  962.         FGet 1, STRING038
  963.         If ((Mid(STRING036, 9, 15) == STRING012) && (STRING002 == "Y")) Gosub LABEL050
  964.         If (((Mid(STRING036, 9, 15) == STRING012) && (STRING001 == "Y")) && !(Mid(STRING037, 9, 14) == "Node          ")) Gosub LABEL049
  965.     Next
  966.     FClose 1
  967.     INTEGER001 = 0
  968.     STRING012 = ""
  969.     PrintLn 
  970.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  971.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  972.     PrintLn 
  973.     Wait
  974.     Goto LABEL039
  975.     :LABEL047
  976.     Color 7
  977.     INTEGER006 = 0
  978.     INTEGER001 = 0
  979.     Cls
  980.     DispFile PPEPath() + "SCHLVL", 4 + 2 + 1
  981.     InputStr "@X0BWhat Hub Level to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  982.     If (INTEGER001 == 0) Goto LABEL039
  983.     If (INTEGER001 == 1) STRING012 = "Super Regional"
  984.     If (INTEGER001 == 2) STRING012 = "Regional Hub  "
  985.     If (INTEGER001 == 3) STRING012 = "Local Hub     "
  986.     If (INTEGER001 > 3) Goto LABEL047
  987.     Cls
  988.     FOpen 1, STRING016, 0, 0
  989.     FGet 1, STRING010
  990.     FGet 1, STRING010
  991.     FGet 1, STRING010
  992.     FGet 1, STRING010
  993.     FGet 1, STRING010
  994.     For INTEGER002 = 1 To INTEGER003
  995.         FGet 1, STRING034
  996.         FGet 1, STRING035
  997.         FGet 1, STRING036
  998.         FGet 1, STRING037
  999.         FGet 1, STRING038
  1000.         If (Mid(STRING037, 9, 14) == STRING012) Gosub LABEL049
  1001.     Next
  1002.     FClose 1
  1003.     PrintLn 
  1004.     Wait
  1005.     Goto LABEL047
  1006.     :LABEL048
  1007.     INTEGER006 = 0
  1008.     STRING012 = ""
  1009.     PrintLn 
  1010.     InputStr "@X0BWhat text to search for", STRING012, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  1011.     If (STRING012 == "") Goto LABEL040
  1012.     Cls
  1013.     FOpen 1, STRING016, 0, 0
  1014.     FGet 1, STRING010
  1015.     FGet 1, STRING010
  1016.     FGet 1, STRING010
  1017.     FGet 1, STRING010
  1018.     FGet 1, STRING010
  1019.     For INTEGER002 = 1 To INTEGER003
  1020.         FGet 1, STRING034
  1021.         FGet 1, STRING035
  1022.         FGet 1, STRING036
  1023.         FGet 1, STRING037
  1024.         FGet 1, STRING038
  1025.         If (STRING002 == "Y") Then
  1026.             If (((InStr(Upper(STRING034), STRING012) || InStr(Upper(STRING035), STRING012)) || InStr(Upper(STRING036), STRING012)) || InStr(Upper(STRING037), STRING012)) Gosub LABEL050
  1027.         Endif
  1028.         If (STRING001 == "Y") Then
  1029.             If (((InStr(Upper(STRING034), STRING012) || InStr(Upper(STRING035), STRING012)) || InStr(Upper(STRING036), STRING012)) || (InStr(Upper(STRING037), STRING012) && !(Mid(STRING037, 9, 14) == "Node          "))) Gosub LABEL049
  1030.         Endif
  1031.     Next
  1032.     FClose 1
  1033.     PrintLn 
  1034.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER009, "@X0B"
  1035.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER009, "@X0B"
  1036.     PrintLn 
  1037.     Wait
  1038.     Goto LABEL039
  1039.     :LABEL049
  1040.     INTEGER005 = INTEGER005 + 1
  1041.     INTEGER009 = INTEGER009 + 1
  1042.     If (INTEGER006 == 4) INTEGER006 = 0
  1043.     If (INTEGER006 == 0) Cls
  1044.     INTEGER006 = INTEGER006 + 1
  1045.     STRING034 = "@X0F" + Mid(STRING034, 9, 71)
  1046.     STRING035 = "@X0E" + Mid(STRING035, 9, 71)
  1047.     STRING036 = "@X0A" + Mid(STRING036, 9, 71)
  1048.     STRING037 = "@X0B" + Mid(STRING037, 9, 71)
  1049.     STRING038 = "@X0F" + Mid(STRING038, 9, 71)
  1050.     PrintLn STRING034
  1051.     PrintLn STRING035
  1052.     PrintLn STRING036
  1053.     PrintLn STRING037
  1054.     PrintLn STRING038
  1055.     If (INTEGER006 == 4) Then
  1056.         PrintLn 
  1057.         STRING013 = "Y"
  1058.         InputYN "@X0EView next screen (Enter for more)", STRING013, 14
  1059.         If (STRING013 == "N") Goto LABEL052
  1060.         Cls
  1061.     Endif
  1062.     Return
  1063.     :LABEL050
  1064.     INTEGER009 = INTEGER009 + 1
  1065.     If (INTEGER006 == 4) INTEGER006 = 0
  1066.     If (INTEGER006 == 0) Cls
  1067.     INTEGER006 = INTEGER006 + 1
  1068.     STRING034 = "@X0F" + Mid(STRING034, 9, 71)
  1069.     STRING035 = "@X0E" + Mid(STRING035, 9, 71)
  1070.     STRING036 = "@X0A" + Mid(STRING036, 9, 71)
  1071.     STRING037 = "@X0B" + Mid(STRING037, 9, 71)
  1072.     STRING038 = "@X0F" + Mid(STRING038, 9, 71)
  1073.     PrintLn STRING034
  1074.     PrintLn STRING035
  1075.     PrintLn STRING036
  1076.     PrintLn STRING037
  1077.     PrintLn STRING038
  1078.     If (INTEGER006 == 4) Then
  1079.         PrintLn 
  1080.         STRING013 = "Y"
  1081.         InputYN "@X0EView next screen (Enter for more)", STRING013, 14
  1082.         If (STRING013 == "N") Goto LABEL052
  1083.     Endif
  1084.     Return
  1085.     :LABEL051
  1086.     If (INTEGER006 == 2) Then
  1087.         INTEGER006 = 0
  1088.         Cls
  1089.     Endif
  1090.     STRING024 = "@X0A" + STRING024
  1091.     STRING025 = "@X0F" + STRING025
  1092.     STRING026 = "@X0F" + STRING026
  1093.     STRING027 = "@X0F" + STRING027
  1094.     STRING028 = "@X0F" + STRING028
  1095.     STRING029 = "@X0A" + STRING029
  1096.     STRING030 = "@X0B" + STRING030
  1097.     STRING031 = "@X0B" + STRING031
  1098.     STRING032 = "@X0B" + STRING032
  1099.     STRING033 = "@X0B" + STRING033
  1100.     PrintLn Chr(13), STRING024
  1101.     PrintLn Chr(13), STRING025
  1102.     PrintLn Chr(13), STRING026
  1103.     PrintLn Chr(13), STRING027
  1104.     PrintLn Chr(13), STRING028
  1105.     PrintLn Chr(13), STRING029
  1106.     PrintLn Chr(13), STRING030
  1107.     PrintLn Chr(13), STRING031
  1108.     PrintLn Chr(13), STRING032
  1109.     PrintLn Chr(13), STRING033
  1110.     INTEGER006 = INTEGER006 + 1
  1111.     If (INTEGER006 == 2) Then
  1112.         PrintLn Chr(13), STRING024
  1113.         STRING013 = "Y"
  1114.         InputYN "@X0EView next screen (Enter for more)", STRING013, 14
  1115.         If (STRING013 == "N") Goto LABEL052
  1116.         Cls
  1117.     Endif
  1118.     Return
  1119.     :LABEL052
  1120.     FClose 1
  1121.     PrintLn 
  1122.     If (STRING001 == "Y") Goto LABEL039
  1123.     If (STRING002 == "Y") Goto LABEL039
  1124.     Goto LABEL006
  1125.     :LABEL053
  1126.     End
  1127.  
  1128. ;------------------------------------------------------------------------------
  1129. ;
  1130. ; Usage report (before postprocessing)
  1131. ;
  1132. ; ■ Statements used :
  1133. ;
  1134. ;    4       End
  1135. ;    37      Cls
  1136. ;    1       More
  1137. ;    30      Wait
  1138. ;    9       Color 
  1139. ;    185     Goto 
  1140. ;    261     Let 
  1141. ;    2       Print 
  1142. ;    111     PrintLn 
  1143. ;    275     If 
  1144. ;    23      DispFile 
  1145. ;    17      FOpen 
  1146. ;    19      FClose 
  1147. ;    174     FGet 
  1148. ;    4       StartDisp 
  1149. ;    1       GetUser
  1150. ;    16      InputStr 
  1151. ;    4       InputYN 
  1152. ;    30      Gosub 
  1153. ;    3       Return
  1154. ;    1       Tokenize 
  1155. ;    3       GetToken 
  1156. ;    1       Stop
  1157. ;    1       Beep
  1158. ;    2       Call 
  1159. ;    1       Bye
  1160. ;    19      WrUNet 
  1161. ;    3       AnsiPos 
  1162. ;    1       FDefIn 
  1163. ;    1       Download 
  1164. ;
  1165. ;
  1166. ; ■ Functions used :
  1167. ;
  1168. ;    189     +
  1169. ;    2       -
  1170. ;    268     ==
  1171. ;    12      <
  1172. ;    11      <=
  1173. ;    7       >
  1174. ;    34      >=
  1175. ;    58      !
  1176. ;    44      &&
  1177. ;    24      ||
  1178. ;    6       Len(
  1179. ;    18      Upper()
  1180. ;    53      Mid()
  1181. ;    3       Left()
  1182. ;    2       Right()
  1183. ;    1       Space()
  1184. ;    22      Chr()
  1185. ;    18      InStr()
  1186. ;    3       Date()
  1187. ;    20      U_Name()
  1188. ;    1       Year()
  1189. ;    3       Month()
  1190. ;    1       String()
  1191. ;    7       Mask_Alpha()
  1192. ;    12      Mask_Num()
  1193. ;    3       Mask_Ascii()
  1194. ;    20      PPEPath()
  1195. ;    19      PcbNode()
  1196. ;    19      UN_Stat()
  1197. ;    2       Exist()
  1198. ;    2       S2I()
  1199. ;    1       AnsiOn()
  1200. ;    1       FileInf()
  1201. ;    20      PPEName()
  1202. ;    1       KInkey()
  1203. ;    1       MInkey()
  1204. ;
  1205. ;------------------------------------------------------------------------------
  1206. ;
  1207. ; Analysis flags : C
  1208. ;
  1209. ; C - Call child PPE ■ 3
  1210. ;     This is usually normal, but may be a tricky way to launch some
  1211. ;     sysop-only commands.
  1212. ;     ■ Search for : CALL
  1213. ;
  1214. ;------------------------------------------------------------------------------
  1215. ;
  1216. ; Postprocessing report
  1217. ;
  1218. ;    11      For/Next
  1219. ;    0       While/EndWhile
  1220. ;    31      If/Then or If/Then/Else
  1221. ;    1       Select Case
  1222. ;
  1223. ;------------------------------------------------------------------------------
  1224. ;                 AEGiS Corp - Break the routines, code against the machines!
  1225. ;------------------------------------------------------------------------------
  1226.