home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / BBSLISTR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-09  |  27KB  |  935 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     String   STRING001
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   STRING017
  46.     String   STRING018
  47.     String   STRING019
  48.     String   STRING020
  49.     String   STRING021
  50.     String   STRING022
  51.     String   STRING023
  52.     String   STRING024
  53.     String   STRING025
  54.     String   STRING026
  55.     String   STRING027
  56.     String   STRING028
  57.     String   STRING029
  58.     String   STRING030
  59.     String   STRING031
  60.     String   STRING032
  61.     String   STRING033
  62.     String   STRING034
  63.     String   STRING035
  64.     String   STRING036
  65.     String   STRING037
  66.     String   STRING038
  67.  
  68. ;------------------------------------------------------------------------------
  69.  
  70.     STRING032 = "1.3 "
  71.     INTEGER003 = 36
  72.     INTEGER006 = 48239
  73.     STRING038 = PPEPath() + "BBSLISTR.LST"
  74.     STRING037 = "@X0D*******************************************************************************"
  75.     If (Exist(PPEPath() + "BBSLISTR.CNF")) Then
  76.         FOpen 1, PPEPath() + "BBSLISTR.CNF", 0, 0
  77.         FGet 1, STRING006
  78.         FGet 1, INTEGER007
  79.         FGet 1, INTEGER005
  80.         FGet 1, INTEGER009
  81.         FClose 1
  82.     Else
  83.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  84.         End
  85.     Endif
  86.     Tokenize STRING006
  87.     GetToken STRING015
  88.     GetToken STRING016
  89.     If (INTEGER007 == 0) Then
  90.         STRING017 = "N"
  91.         Goto LABEL002
  92.     Else
  93.         Goto LABEL001
  94.     Endif
  95.     Cls
  96.     PrintLn 
  97.     PrintLn 
  98.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  99.     PrintLn "                       @X50│       @X5ABBS Lister  v", STRING032, "      @X5D│@X0D"
  100.     PrintLn "                       @X50│                              @X5D│@X0D"
  101.     If (STRING017 == "N") Then
  102.         PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  103.         PrintLn "                       @X50│                              @X5D│@X0D"
  104.         PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  105.         PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  106.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  107.         Beep
  108.         Delay 125
  109.     Else
  110.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  111.         PrintLn "                       @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
  112.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  113.         PrintLn 
  114.         Wait
  115.     Endif
  116.     Bye
  117.     :LABEL001
  118.     STRING012 = Left(STRING015, 1)
  119.     STRING013 = Left(STRING016, 2)
  120.     STRING014 = STRING012 + STRING013
  121.     If (STRING012 == "A") INTEGER008 = 1934
  122.     If (STRING012 == "B") INTEGER008 = 2859
  123.     If (STRING012 == "C") INTEGER008 = 3743
  124.     If (STRING012 == "D") INTEGER008 = 4660
  125.     If (STRING012 == "E") INTEGER008 = 5534
  126.     If (STRING012 == "F") INTEGER008 = 6471
  127.     If (STRING012 == "G") INTEGER008 = 7325
  128.     If (STRING012 == "H") INTEGER008 = 8287
  129.     If (STRING012 == "I") INTEGER008 = 9119
  130.     If (STRING012 == "J") INTEGER008 = 1096
  131.     If (STRING012 == "K") INTEGER008 = 2928
  132.     If (STRING012 == "L") INTEGER008 = 3885
  133.     If (STRING012 == "M") INTEGER008 = 4737
  134.     If (STRING012 == "N") INTEGER008 = 5674
  135.     If (STRING012 == "O") INTEGER008 = 6546
  136.     If (STRING012 == "P") INTEGER008 = 7463
  137.     If (STRING012 == "Q") INTEGER008 = 8355
  138.     If (STRING012 == "R") INTEGER008 = 9242
  139.     If (STRING012 == "S") INTEGER008 = 1164
  140.     If (STRING012 == "T") INTEGER008 = 2031
  141.     If (STRING012 == "U") INTEGER008 = 3973
  142.     If (STRING012 == "V") INTEGER008 = 4820
  143.     If (STRING012 == "W") INTEGER008 = 5782
  144.     If (STRING012 == "X") INTEGER008 = 6619
  145.     If (STRING012 == "Y") INTEGER008 = 7591
  146.     If (STRING012 == "Z") INTEGER008 = 8408
  147.     INTEGER004 = S2I(STRING014, INTEGER003) + INTEGER007 + INTEGER006 + INTEGER008
  148.     If (INTEGER005 == INTEGER004) Then
  149.         If (Len(INTEGER007) == 1) STRING008 = "000"
  150.         If (Len(INTEGER007) == 2) STRING008 = "00"
  151.         If (Len(INTEGER007) == 3) STRING008 = "0"
  152.         If (Len(INTEGER007) == 4) STRING008 = ""
  153.         STRING009 = INTEGER007
  154.         STRING010 = STRING008 + STRING009
  155.         If (Len(STRING006) == 30) STRING007 = ""
  156.         If (Len(STRING006) == 29) STRING007 = ""
  157.         If (Len(STRING006) == 28) STRING007 = " "
  158.         If (Len(STRING006) == 27) STRING007 = " "
  159.         If (Len(STRING006) == 26) STRING007 = "  "
  160.         If (Len(STRING006) == 25) STRING007 = "  "
  161.         If (Len(STRING006) == 24) STRING007 = "   "
  162.         If (Len(STRING006) == 23) STRING007 = "   "
  163.         If (Len(STRING006) == 22) STRING007 = "    "
  164.         If (Len(STRING006) == 21) STRING007 = "    "
  165.         If (Len(STRING006) == 20) STRING007 = "     "
  166.         If (Len(STRING006) == 19) STRING007 = "     "
  167.         If (Len(STRING006) == 18) STRING007 = "      "
  168.         If (Len(STRING006) == 17) STRING007 = "      "
  169.         If (Len(STRING006) == 16) STRING007 = "       "
  170.         If (Len(STRING006) == 15) STRING007 = "       "
  171.         If (Len(STRING006) == 14) STRING007 = "        "
  172.         If (Len(STRING006) == 13) STRING007 = "        "
  173.         If (Len(STRING006) == 12) STRING007 = "         "
  174.         If (Len(STRING006) == 11) STRING007 = "         "
  175.         If (Len(STRING006) == 10) STRING007 = "          "
  176.         If (Len(STRING006) == 9) STRING007 = "          "
  177.         If (Len(STRING006) == 8) STRING007 = "           "
  178.         If (Len(STRING006) == 7) STRING007 = "           "
  179.         If (Len(STRING006) == 6) STRING007 = "            "
  180.         If (Len(STRING006) == 5) STRING007 = "            "
  181.         :LABEL002
  182.         Cls
  183.         PrintLn 
  184.         PrintLn 
  185.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  186.         PrintLn "                       @X50│       @X5ABBS Lister  v", STRING032, "      @X5D│@X0D"
  187.         PrintLn "                       @X50│                              @X5D│@X0D"
  188.         If (STRING017 == "N") Then
  189.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  190.             PrintLn "                       @X50│                              @X5D│@X0D"
  191.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  192.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  193.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  194.             Beep
  195.             Delay 125
  196.             Goto LABEL003
  197.         Endif
  198.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  199.         PrintLn "                       @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
  200.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  201.         PrintLn 
  202.         Wait
  203.         :LABEL003
  204.         StartDisp 2
  205.         STRING011 = ""
  206.         Cls
  207.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  208.         PrintLn " @X5D│                                                                            @X50│@X07"
  209.         PrintLn " @X5D│  @X51BBS Lister - Main Menu                                                    @X50│@X07"
  210.         PrintLn " @X5D│                                                                            @X50│@X07"
  211.         PrintLn " @X5D│         @X51A  @X5FAdd To List       @X51S  @X5FSearch List         @X51G  @X5FGoodbye             @X50│@X07"
  212.         PrintLn " @X5D│                                                                            @X50│@X07"
  213.         PrintLn " @X5D│         @X51V  @X5FView List         @X51Q  @X5FQuit To BBS                                @X50│@X07"
  214.         PrintLn " @X5D│                                                                            @X50│@X07"
  215.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  216.         InputStr "Select: ", STRING011, 11, 1, Mask_Ascii(), 2 + 128 + 8
  217.         If (STRING011 == "A") Goto LABEL024
  218.         If (STRING011 == "V") Goto LABEL004
  219.         If (STRING011 == "S") Goto LABEL005
  220.         If (STRING011 == "Q") Goto LABEL031
  221.         If (STRING011 == "G") Goto LABEL033
  222.         If (STRING011 == "") Goto LABEL031
  223.         Goto LABEL003
  224.         :LABEL004
  225.         Gosub LABEL036
  226.         DispFile STRING038, 1
  227.         Wait
  228.         Goto LABEL003
  229.         :LABEL005
  230.         StartDisp 2
  231.         Cls
  232.         INTEGER001 = 0
  233.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  234.         PrintLn " @X5D│  @X51Search Criteria                                                           @X50│@X07"
  235.         PrintLn " @X5D│     @X511  @X5FBy State            @X514  @X5FBy BBS Type            @X517  @X5FBy Meg Size        @X50│@X07"
  236.         PrintLn " @X5D│     @X512  @X5FBy Country          @X515  @X5FBy Modem Type          @X518  @X5FBy # of Nodes      @X50│@X07"
  237.         PrintLn " @X5D│     @X513  @X5FBy Area Code        @X516  @X5FBy Access Policy       @X519  @X5FBy Text String     @X50│@X07"
  238.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  239.         InputStr "Select: ", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  240.         If (INTEGER001 == 1) Goto LABEL006
  241.         If (INTEGER001 == 2) Goto LABEL008
  242.         If (INTEGER001 == 3) Goto LABEL010
  243.         If (INTEGER001 == 4) Goto LABEL012
  244.         If (INTEGER001 == 5) Goto LABEL014
  245.         If (INTEGER001 == 6) Goto LABEL016
  246.         If (INTEGER001 == 7) Goto LABEL018
  247.         If (INTEGER001 == 8) Goto LABEL020
  248.         If (INTEGER001 == 9) Goto LABEL022
  249.         Goto LABEL003
  250.         :LABEL006
  251.         STRING001 = ""
  252.         InputStr "2 Letter State Code to search for", STRING001, 11, 2, Mask_Alpha(), 2 + 128 + 8
  253.         If (STRING001 == "") Goto LABEL005
  254.         Cls
  255.         Gosub LABEL036
  256.         INTEGER010 = 0
  257.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  258.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  259.             For INTEGER002 = 1 To INTEGER009
  260.                 FGet 1, STRING035
  261.                 FGet 1, STRING036
  262.                 If (Mid(STRING035, 71, 2) == STRING001) Gosub LABEL037
  263.             Next
  264.             FClose 1
  265.             Goto LABEL007
  266.         Endif
  267.         PrintLn "Sorry, no BBS List found"
  268.         :LABEL007
  269.         PrintLn 
  270.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING001, " State", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  271.         PrintLn 
  272.         Wait
  273.         STRING001 = ""
  274.         Goto LABEL005
  275.         :LABEL008
  276.         STRING002 = ""
  277.         InputStr "3 Letter Country Code to search for", STRING002, 11, 3, Mask_Alpha(), 2 + 128 + 8
  278.         If (STRING002 == "") Goto LABEL005
  279.         Cls
  280.         Gosub LABEL036
  281.         INTEGER010 = 0
  282.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  283.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  284.             For INTEGER002 = 1 To INTEGER009
  285.                 FGet 1, STRING035
  286.                 FGet 1, STRING036
  287.                 If (Mid(STRING035, 88, 3) == STRING002) Gosub LABEL037
  288.             Next
  289.             FClose 1
  290.             Goto LABEL009
  291.         Endif
  292.         PrintLn "Sorry, no BBS List found"
  293.         :LABEL009
  294.         PrintLn 
  295.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING002, Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  296.         PrintLn 
  297.         Wait
  298.         STRING002 = ""
  299.         Goto LABEL005
  300.         :LABEL010
  301.         STRING003 = ""
  302.         InputStr "3 Number Area Code to search for", STRING003, 11, 3, Mask_Num(), 2 + 128
  303.         If (STRING003 == "") Goto LABEL005
  304.         Cls
  305.         Gosub LABEL036
  306.         INTEGER010 = 0
  307.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  308.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  309.             For INTEGER002 = 1 To INTEGER009
  310.                 FGet 1, STRING035
  311.                 FGet 1, STRING036
  312.                 If (Mid(STRING035, 40, 3) == STRING003) Gosub LABEL037
  313.             Next
  314.             FClose 1
  315.             Goto LABEL011
  316.         Endif
  317.         PrintLn "Sorry, no BBS List found"
  318.         :LABEL011
  319.         PrintLn 
  320.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING003, " Area Code", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  321.         PrintLn 
  322.         Wait
  323.         STRING003 = ""
  324.         Goto LABEL005
  325.         :LABEL012
  326.         INTEGER001 = 0
  327.         Cls
  328.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  329.         PrintLn " @X5D│         @X511  @X5FPCBoard           @X516  @X5FTriBBS             @X5111  @X5FPowerBBS            @X50│@X07"
  330.         PrintLn " @X5D│         @X512  @X5FWildcat           @X517  @X5FMajorBBS           @X5112  @X5FSearchlt            @X50│@X07"
  331.         PrintLn " @X5D│         @X513  @X5FGAP               @X518  @X5FUltraBBS           @X5113  @X5FWWIV                @X50│@X07"
  332.         PrintLn " @X5D│         @X514  @X5FSpitfire          @X519  @X5FRBBS               @X5114  @X5FRenegade            @X50│@X07"
  333.         PrintLn " @X5D│         @X515  @X5FAuntie           @X5110  @X5FQBBS                                       @X50│@X07"
  334.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  335.         InputStr "@X0BSelect the number of BBS type to search for 0 to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  336.         If (INTEGER001 == 0) Goto LABEL005
  337.         If (INTEGER001 == 1) STRING034 = "PCBoard "
  338.         If (INTEGER001 == 2) STRING034 = "Wildcat "
  339.         If (INTEGER001 == 3) STRING034 = "GAP     "
  340.         If (INTEGER001 == 4) STRING034 = "Spitfire"
  341.         If (INTEGER001 == 5) STRING034 = "Auntie  "
  342.         If (INTEGER001 == 6) STRING034 = "TriBBS  "
  343.         If (INTEGER001 == 7) STRING034 = "MajorBBS"
  344.         If (INTEGER001 == 8) STRING034 = "UltraBBS"
  345.         If (INTEGER001 == 9) STRING034 = "RBBS    "
  346.         If (INTEGER001 == 10) STRING034 = "QBBS    "
  347.         If (INTEGER001 == 11) STRING034 = "PowerBBS"
  348.         If (INTEGER001 == 12) STRING034 = "Searchlt"
  349.         If (INTEGER001 == 13) STRING034 = "WWIV    "
  350.         If (INTEGER001 == 14) STRING034 = "Renegade"
  351.         If (INTEGER001 > 14) Goto LABEL035
  352.         Cls
  353.         Gosub LABEL036
  354.         INTEGER010 = 0
  355.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  356.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  357.             For INTEGER002 = 1 To INTEGER009
  358.                 FGet 1, STRING035
  359.                 FGet 1, STRING036
  360.                 If (Upper((Mid(STRING035, 5, 8) == STRING034))) Gosub LABEL037
  361.             Next
  362.             FClose 1
  363.             Goto LABEL013
  364.         Endif
  365.         PrintLn "Sorry, no BBS List found"
  366.         :LABEL013
  367.         If (STRING034 == "PCBoard ") STRING034 = "PCBoard"
  368.         If (STRING034 == "Wildcat ") STRING034 = "Wildcat"
  369.         If (STRING034 == "GAP     ") STRING034 = "GAP"
  370.         If (STRING034 == "Spitfire") STRING034 = "Spitfire"
  371.         If (STRING034 == "Auntie  ") STRING034 = "Auntie"
  372.         If (STRING034 == "TriBBS  ") STRING034 = "TriBBS"
  373.         If (STRING034 == "MajorBBS") STRING034 = "MajorBBS"
  374.         If (STRING034 == "UltraBBS") STRING034 = "UltraBBS"
  375.         If (STRING034 == "RBBS    ") STRING034 = "RBBS"
  376.         If (STRING034 == "QBBS    ") STRING034 = "QBBS"
  377.         If (STRING034 == "PowerBBS") STRING034 = "PowerBBS"
  378.         If (STRING034 == "Searchlt") STRING034 = "Searchlt"
  379.         If (STRING034 == "WWIV    ") STRING034 = "WWIV"
  380.         If (STRING034 == "Renegade") STRING034 = "Renegade"
  381.         PrintLn 
  382.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING034, " BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  383.         PrintLn 
  384.         Wait
  385.         STRING034 = ""
  386.         Goto LABEL005
  387.         :LABEL014
  388.         INTEGER001 = 0
  389.         Cls
  390.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  391.         PrintLn " @X5D│     @X511) @X5Fv.32bis    @X512) @X5FUSR HST    @X513) @X5FD/S 14.4    @X514) @X5FD/S 16.8    @X515) @X5FZyXel     @X50│@X07"
  392.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  393.         InputStr "Select # of modem type to search for or 0 to Abort", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  394.         If (INTEGER001 == "") Goto LABEL005
  395.         If (INTEGER001 == 0) Goto LABEL005
  396.         If (INTEGER001 == 1) STRING031 = "v.32bis "
  397.         If (INTEGER001 == 2) STRING031 = "USR HST "
  398.         If (INTEGER001 == 3) STRING031 = "D/S 14.4"
  399.         If (INTEGER001 == 4) STRING031 = "D/S 16.8"
  400.         If (INTEGER001 == 5) STRING031 = "ZyXel   "
  401.         If (INTEGER001 > 5) Goto LABEL035
  402.         Cls
  403.         Gosub LABEL036
  404.         INTEGER010 = 0
  405.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  406.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  407.             For INTEGER002 = 1 To INTEGER009
  408.                 FGet 1, STRING035
  409.                 FGet 1, STRING036
  410.                 If (Mid(STRING035, 57, 8) == STRING031) Gosub LABEL037
  411.             Next
  412.             FClose 1
  413.             Goto LABEL015
  414.         Endif
  415.         PrintLn "Sorry, no BBS List found"
  416.         :LABEL015
  417.         If (STRING031 == "v.32bis ") STRING031 = "v.32bis"
  418.         If (STRING031 == "USR HST ") STRING031 = "USR HST"
  419.         If (STRING031 == "D/S 14.4") STRING031 = "D/S 14.4"
  420.         If (STRING031 == "D/S 16.8") STRING031 = "D/S 16.8"
  421.         If (STRING031 == "ZyXel   ") STRING031 = "ZyXel"
  422.         PrintLn 
  423.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING031, " Modem Type", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  424.         PrintLn 
  425.         Wait
  426.         STRING031 = ""
  427.         Goto LABEL005
  428.         :LABEL016
  429.         INTEGER001 = 0
  430.         Cls
  431.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  432.         PrintLn " @X5D│         @X511) @X5F($) Pay Only       @X512) @X5F(R) Ratios       @X513) @X5F(N) No Ratios         @X50│@X07"
  433.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  434.         InputStr "@X0BWhat Access Policy to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  435.         If (INTEGER001 == 1) STRING004 = "$"
  436.         If (INTEGER001 == 2) STRING004 = "R"
  437.         If (INTEGER001 == 3) STRING004 = "N"
  438.         If (INTEGER001 > 3) Goto LABEL035
  439.         If (INTEGER001 == "") Goto LABEL005
  440.         If (INTEGER001 == 0) Goto LABEL005
  441.         Cls
  442.         Gosub LABEL036
  443.         INTEGER010 = 0
  444.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  445.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  446.             For INTEGER002 = 1 To INTEGER009
  447.                 FGet 1, STRING035
  448.                 FGet 1, STRING036
  449.                 If (Mid(STRING035, 96, 1) == STRING004) Gosub LABEL037
  450.             Next
  451.             FClose 1
  452.             Goto LABEL017
  453.         Endif
  454.         PrintLn "Sorry, no BBS List found"
  455.         :LABEL017
  456.         If (STRING004 == "$") STRING004 = "Pay Only"
  457.         If (STRING004 == "R") STRING004 = "Ratio"
  458.         If (STRING004 == "N") STRING004 = "Non-Ratio"
  459.         PrintLn 
  460.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING004, " Type BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  461.         PrintLn 
  462.         Wait
  463.         STRING004 = ""
  464.         INTEGER001 = 0
  465.         Goto LABEL005
  466.         :LABEL018
  467.         INTEGER001 = 0
  468.         Cls
  469.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  470.         PrintLn " @X5D│   @X51Meg Size on BBS                                                          @X50│@X07"
  471.         PrintLn " @X5D│   @X5FOur list will show Meg Size in -how many 100 Megs-. In other words, if   @X50│@X07"
  472.         PrintLn " @X5D│   @X5Fyou're looking for 300 Megs, enter 3. If you're looking for 1.2 Gig or   @X50│@X07"
  473.         PrintLn " @X5D│   @X5Fhigher then enter a 12, and so on.                                       @X50│@X07"
  474.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  475.         InputStr "@X0BWhat Meg Size (or higher) to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  476.         If (INTEGER001 == "") Goto LABEL005
  477.         If (INTEGER001 == 0) Goto LABEL005
  478.         Cls
  479.         Gosub LABEL036
  480.         INTEGER010 = 0
  481.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  482.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  483.             For INTEGER002 = 1 To INTEGER009
  484.                 FGet 1, STRING035
  485.                 FGet 1, STRING036
  486.                 If (Mid(STRING035, 102, 3) >= INTEGER001) Gosub LABEL037
  487.             Next
  488.             FClose 1
  489.             Goto LABEL019
  490.         Endif
  491.         PrintLn "Sorry, no BBS List found"
  492.         :LABEL019
  493.         PrintLn 
  494.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), INTEGER001, " X 100 Mb (or higher) BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  495.         PrintLn 
  496.         Wait
  497.         INTEGER001 = 0
  498.         Goto LABEL005
  499.         :LABEL020
  500.         INTEGER001 = 0
  501.         Cls
  502.         InputStr "@X0BNow many nodes (or higher) to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  503.         If (INTEGER001 == "") Goto LABEL005
  504.         If (INTEGER001 == 0) Goto LABEL005
  505.         Cls
  506.         Gosub LABEL036
  507.         INTEGER010 = 0
  508.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  509.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  510.             For INTEGER002 = 1 To INTEGER009
  511.                 FGet 1, STRING035
  512.                 FGet 1, STRING036
  513.                 If (Mid(STRING035, 114, 2) >= INTEGER001) Gosub LABEL037
  514.             Next
  515.             FClose 1
  516.             Goto LABEL021
  517.         Endif
  518.         PrintLn "Sorry, no BBS List found"
  519.         :LABEL021
  520.         PrintLn 
  521.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), INTEGER001, " Nodes (or higher) BBS", Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  522.         PrintLn 
  523.         Wait
  524.         INTEGER001 = 0
  525.         Goto LABEL005
  526.         :LABEL022
  527.         STRING005 = ""
  528.         InputStr "@X0BText to search for", STRING005, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 128 + 8
  529.         If (STRING005 == "") Goto LABEL005
  530.         Cls
  531.         Gosub LABEL036
  532.         INTEGER010 = 0
  533.         If (Exist(PPEPath() + "BBSLISTR.LST")) Then
  534.             FOpen 1, PPEPath() + "BBSLISTR.LST", 0, 0
  535.             For INTEGER002 = 1 To INTEGER009
  536.                 FGet 1, STRING035
  537.                 FGet 1, STRING036
  538.                 If ((InStr(Upper(STRING035), STRING005) >= 1) || (InStr(Upper(STRING036), STRING005) >= 1)) Gosub LABEL037
  539.             Next
  540.             FClose 1
  541.             Goto LABEL023
  542.         Endif
  543.         PrintLn "Sorry, no BBS List found"
  544.         :LABEL023
  545.         PrintLn 
  546.         PrintLn "@X0BThere were @X0F", INTEGER010, " @X0B", Chr(34), STRING005, Chr(34), " matches found in @X0F", INTEGER009, "@X0B entries."
  547.         PrintLn 
  548.         Wait
  549.         INTEGER001 = 0
  550.         Goto LABEL005
  551.         :LABEL024
  552.         INTEGER001 = 0
  553.         Cls
  554.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  555.         PrintLn " @X5D│         @X511  @X5FPCBoard           @X516  @X5FTriBBS             @X5111  @X5FPowerBBS            @X50│@X07"
  556.         PrintLn " @X5D│         @X512  @X5FWildcat           @X517  @X5FMajorBBS           @X5112  @X5FSearchlt            @X50│@X07"
  557.         PrintLn " @X5D│         @X513  @X5FGAP               @X518  @X5FUltraBBS           @X5113  @X5FWWIV                @X50│@X07"
  558.         PrintLn " @X5D│         @X514  @X5FSpitfire          @X519  @X5FRBBS               @X5114  @X5FRenegade            @X50│@X07"
  559.         PrintLn " @X5D│         @X515  @X5FAuntie           @X5110  @X5FQBBS               @X5115  @X5FOther               @X50│@X07"
  560.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  561.         InputStr "@X0BSelect the number of your BBS or 0 to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  562.         If (INTEGER001 == 0) Goto LABEL003
  563.         If (INTEGER001 == 1) STRING034 = "PCBoard "
  564.         If (INTEGER001 == 2) STRING034 = "Wildcat "
  565.         If (INTEGER001 == 3) STRING034 = "GAP     "
  566.         If (INTEGER001 == 4) STRING034 = "Spitfire"
  567.         If (INTEGER001 == 5) STRING034 = "Auntie  "
  568.         If (INTEGER001 == 6) STRING034 = "TriBBS  "
  569.         If (INTEGER001 == 7) STRING034 = "MajorBBS"
  570.         If (INTEGER001 == 8) STRING034 = "UltraBBS"
  571.         If (INTEGER001 == 9) STRING034 = "RBBS    "
  572.         If (INTEGER001 == 10) STRING034 = "QBBS    "
  573.         If (INTEGER001 == 11) STRING034 = "PowerBBS"
  574.         If (INTEGER001 == 12) STRING034 = "Searchlt"
  575.         If (INTEGER001 == 13) STRING034 = "WWIV    "
  576.         If (INTEGER001 == 14) STRING034 = "Renegade"
  577.         If (INTEGER001 == 15) STRING034 = "        "
  578.         If (INTEGER001 == 15) Goto LABEL025
  579.         If (INTEGER001 > 15) Goto LABEL035
  580.         Goto LABEL026
  581.         :LABEL025
  582.         STRING034 = ""
  583.         InputStr "What BBS software is it (8 char abbreviation)", STRING034, 11, 8, Mask_Alpha() + Mask_Ascii(), 2 + 128
  584.         If (STRING034 == "") Goto LABEL003
  585.         STRING034 = STRING034 + " "
  586.         :LABEL026
  587.         Cls
  588.         InputStr "@X0BWhat is the name of your BBS (17 chars only)", STRING023, 11, 17, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
  589.         If (STRING023 == "") Goto LABEL003
  590.         If (Len(STRING023) == 1) Goto LABEL003
  591.         If (Len(STRING023) == 2) STRING024 = "               "
  592.         If (Len(STRING023) == 3) STRING024 = "              "
  593.         If (Len(STRING023) == 4) STRING024 = "             "
  594.         If (Len(STRING023) == 5) STRING024 = "            "
  595.         If (Len(STRING023) == 6) STRING024 = "           "
  596.         If (Len(STRING023) == 7) STRING024 = "          "
  597.         If (Len(STRING023) == 8) STRING024 = "         "
  598.         If (Len(STRING023) == 9) STRING024 = "        "
  599.         If (Len(STRING023) == 10) STRING024 = "       "
  600.         If (Len(STRING023) == 11) STRING024 = "      "
  601.         If (Len(STRING023) == 12) STRING024 = "     "
  602.         If (Len(STRING023) == 13) STRING024 = "    "
  603.         If (Len(STRING023) == 14) STRING024 = "   "
  604.         If (Len(STRING023) == 15) STRING024 = "  "
  605.         If (Len(STRING023) == 16) STRING024 = " "
  606.         If (Len(STRING023) == 17) STRING024 = ""
  607.         STRING029 = "   -   -    "
  608.         InputStr "@X0BWhat is your BBS's phone no (xxx-xxx-xxxx format)", STRING029, 11, 12, Mask_Num() + "-", 2 + 128 + 1024
  609.         If (Len(STRING029) == 10) STRING030 = "  "
  610.         If (Len(STRING029) == 11) STRING030 = " "
  611.         If (Len(STRING029) == 12) STRING030 = ""
  612.         If (Len(STRING029) < 10) Goto LABEL003
  613.         INTEGER001 = 0
  614.         Cls
  615.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  616.         PrintLn " @X5D│ @X511) @X5Fv.32bis   @X512) @X5FUSR HST   @X513) @X5FD/S 14.4   @X514) @X5FD/S 16.8   @X515) @X5FZyXel   @X516) @X5FOthers @X50│@X07"
  617.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  618.         PrintLn " @X0EWhat modem is on your BBS phone number: @X0F", STRING029, "@X0B"
  619.         InputStr "Select 1, 2, 3, 4, 5, 6 or 0 to Abort", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  620.         If (INTEGER001 == "") Goto LABEL003
  621.         If (INTEGER001 == 0) Goto LABEL003
  622.         If (INTEGER001 == 1) STRING031 = "v.32bis "
  623.         If (INTEGER001 == 2) STRING031 = "USR HST "
  624.         If (INTEGER001 == 3) STRING031 = "D/S 14.4"
  625.         If (INTEGER001 == 4) STRING031 = "D/S 16.8"
  626.         If (INTEGER001 == 5) STRING031 = "ZyXel   "
  627.         If (INTEGER001 == 6) STRING031 = "-Other- "
  628.         If (INTEGER001 > 6) Goto LABEL035
  629.         Cls
  630.         Color 11
  631.         InputStr "What city is the BBS in   ", STRING025, 11, 12, Mask_Alpha() + Mask_Ascii(), 2 + 128
  632.         If (STRING025 == "") Goto LABEL003
  633.         If (Len(STRING025) == 1) Goto LABEL003
  634.         If (Len(STRING025) == 2) Goto LABEL003
  635.         If (Len(STRING025) == 3) STRING026 = "          "
  636.         If (Len(STRING025) == 4) STRING026 = "         "
  637.         If (Len(STRING025) == 5) STRING026 = "        "
  638.         If (Len(STRING025) == 6) STRING026 = "       "
  639.         If (Len(STRING025) == 7) STRING026 = "      "
  640.         If (Len(STRING025) == 8) STRING026 = "     "
  641.         If (Len(STRING025) == 9) STRING026 = "    "
  642.         If (Len(STRING025) == 10) STRING026 = "   "
  643.         If (Len(STRING025) == 11) STRING026 = "  "
  644.         If (Len(STRING025) == 12) STRING026 = " "
  645.         Cls
  646.         InputStr "What ST/Prov is the BBS in (2/3 char abbreviation)", STRING027, 11, 3, Mask_Alpha() + Mask_Ascii(), 8 + 2 + 128
  647.         If (STRING027 == "") Goto LABEL003
  648.         If (Len(STRING027) == 1) Goto LABEL003
  649.         If (Len(STRING027) == 2) STRING028 = "  "
  650.         If (Len(STRING027) == 3) STRING028 = " "
  651.         Cls
  652.         INTEGER001 = 0
  653.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  654.         PrintLn " @X5D│  @X511  @X5FAustralia@X51..........   12  @X5FIreland@X51...........   23  @X5FPortugal@X51..........  @X50│@X07"
  655.         PrintLn " @X5D│  @X512  @X5FAustria@X51............   13  @X5FIsrael@X51............   24  @X5FRussia@X51............  @X50│@X07"
  656.         PrintLn " @X5D│  @X513  @X5FBelgium@X51............   14  @X5FItaly@X51.............   25  @X5FSaudi Arabia@X51......  @X50│@X07"
  657.         PrintLn " @X5D│  @X514  @X5ECanada@X51.............   15  @X5FJapan@X51.............   26  @X5FScotland@X51..........  @X50│@X07"
  658.         PrintLn " @X5D│  @X515  @X5FDenmark@X51............   16  @X5FKuwait@X51............   27  @X5FSingapore@X51.........  @X50│@X07"
  659.         PrintLn " @X5D│  @X516  @X5FEgypt@X51..............   17  @X5FMalaysia@X51..........   28  @X5FSpain@X51.............  @X50│@X07"
  660.         PrintLn " @X5D│  @X517  @X5EEngland@X51............   18  @X5FMexico@X51............   29  @X5FSweden@X51............  @X50│@X07"
  661.         PrintLn " @X5D│  @X518  @X5FFrance@X51.............   19  @X5FNorway@X51............   30  @X5FSwitzerland@X51.......  @X50│@X07"
  662.         PrintLn " @X5D│  @X519  @X5FGermany@X51............   20  @X5FNew Zealand@X51.......   31  @X5FTaiwan@X51............  @X50│@X07"
  663.         PrintLn " @X5D│ @X5110  @X5FHolland@X51............   21  @X5FPhilappines@X51.......   32  @X5EUnited States@X51.....  @X50│@X07"
  664.         PrintLn " @X5D│ @X5111  @X5FIndia@X51..............   22  @X5FPoland@X51............   33  @X5FOther@X51.............  @X50│@X07"
  665.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  666.         InputStr "Select # representing the country the BBS in or 0 to Abort", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  667.         If (INTEGER001 == 0) Goto LABEL003
  668.         If (INTEGER001 == 1) STRING033 = "AUS"
  669.         If (INTEGER001 == 2) STRING033 = "AST"
  670.         If (INTEGER001 == 3) STRING033 = "BEL"
  671.         If (INTEGER001 == 4) STRING033 = "CAN"
  672.         If (INTEGER001 == 5) STRING033 = "DEN"
  673.         If (INTEGER001 == 6) STRING033 = "EGY"
  674.         If (INTEGER001 == 7) STRING033 = "ENG"
  675.         If (INTEGER001 == 8) STRING033 = "FRA"
  676.         If (INTEGER001 == 9) STRING033 = "GER"
  677.         If (INTEGER001 == 10) STRING033 = "HOL"
  678.         If (INTEGER001 == 11) STRING033 = "IND"
  679.         If (INTEGER001 == 12) STRING033 = "IRE"
  680.         If (INTEGER001 == 13) STRING033 = "ISR"
  681.         If (INTEGER001 == 14) STRING033 = "ITA"
  682.         If (INTEGER001 == 15) STRING033 = "JPN"
  683.         If (INTEGER001 == 16) STRING033 = "KUW"
  684.         If (INTEGER001 == 17) STRING033 = "MAL"
  685.         If (INTEGER001 == 18) STRING033 = "MEX"
  686.         If (INTEGER001 == 19) STRING033 = "NOR"
  687.         If (INTEGER001 == 20) STRING033 = "NZE"
  688.         If (INTEGER001 == 21) STRING033 = "PHI"
  689.         If (INTEGER001 == 22) STRING033 = "POL"
  690.         If (INTEGER001 == 23) STRING033 = "POR"
  691.         If (INTEGER001 == 24) STRING033 = "RUS"
  692.         If (INTEGER001 == 25) STRING033 = "SAU"
  693.         If (INTEGER001 == 26) STRING033 = "SCO"
  694.         If (INTEGER001 == 27) STRING033 = "SIN"
  695.         If (INTEGER001 == 28) STRING033 = "SPA"
  696.         If (INTEGER001 == 29) STRING033 = "SWE"
  697.         If (INTEGER001 == 30) STRING033 = "SWI"
  698.         If (INTEGER001 == 31) STRING033 = "TAI"
  699.         If (INTEGER001 == 32) STRING033 = "USA"
  700.         If (INTEGER001 == 33) STRING033 = "   "
  701.         If (INTEGER001 == 33) Goto LABEL027
  702.         If (INTEGER001 > 33) Goto LABEL035
  703.         Goto LABEL028
  704.         :LABEL027
  705.         STRING033 = ""
  706.         InputStr "What country is the BBS in (3 char abbreviation)", STRING033, 11, 3, Mask_Alpha() + Mask_Ascii(), 8 + 2 + 128
  707.         If (STRING033 == "") Goto LABEL003
  708.         :LABEL028
  709.         INTEGER001 = 0
  710.         Cls
  711.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  712.         PrintLn " @X5D│         @X511) @X5F($) Pay Only       @X512) @X5F(R) Ratios       @X513) @X5F(N) No Ratios         @X50│@X07"
  713.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  714.         PrintLn " @X0EWhat access policy is the BBS"
  715.         InputStr "Select 1, 2, 3 or 0 to Abort", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  716.         If (INTEGER001 == "") Goto LABEL003
  717.         If (INTEGER001 == 0) Goto LABEL003
  718.         If (INTEGER001 == 1) STRING018 = "$"
  719.         If (INTEGER001 == 2) STRING018 = "R"
  720.         If (INTEGER001 == 3) STRING018 = "N"
  721.         If (INTEGER001 > 3) Goto LABEL035
  722.         STRING019 = ""
  723.         Cls
  724.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  725.         PrintLn " @X5D│   @X51Meg Size on BBS                                                          @X50│@X07"
  726.         PrintLn " @X5D│   @X5FOur list will show Meg Size in -how many 100 Megs-. In other words, if   @X50│@X07"
  727.         PrintLn " @X5D│   @X5Fyou have 300 megs on your board, enter a 3. If you have 1.2 Gig, enter   @X50│@X07"
  728.         PrintLn " @X5D│   @X5F12, if you have 5 Gigs, enter 50, 10 Gigs is 100 and so on.              @X50│@X07"
  729.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  730.         InputStr " How many 100 Meg increments on your BBS", STRING019, 11, 3, Mask_Num(), 2 + 128
  731.         If (STRING019 == "") Goto LABEL003
  732.         If (Len(STRING019) == 1) STRING020 = "  "
  733.         If (Len(STRING019) == 2) STRING020 = " "
  734.         If (Len(STRING019) == 3) STRING020 = ""
  735.         STRING021 = ""
  736.         Cls
  737.         InputStr "How many nodes on your BBS (if over 99 enter 99)", STRING021, 11, 2, Mask_Num(), 2 + 128
  738.         If (STRING021 == "") Goto LABEL003
  739.         If (Len(STRING021) == 1) STRING022 = " "
  740.         If (Len(STRING021) == 2) STRING022 = ""
  741.         STRING036 = ""
  742.         Cls
  743.         PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  744.         PrintLn " @X5D│   @X51Secondary Line                                                           @X50│@X07"
  745.         PrintLn " @X5D│   @X5FYou now have a second line (up to 75 characters) to add other features   @X50│@X07"
  746.         PrintLn " @X5D│   @X5Fof your BBS to this list (such as CD-Roms, networks on your board, how   @X50│@X07"
  747.         PrintLn " @X5D│   @X5Fmany nodes, other modems supported, etc).  Take advantage of this one!   @X50│@X07"
  748.         PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  749.         InputStr "@X0B", STRING036, 11, 75, Mask_Ascii() + Mask_Alpha() + Mask_Num(), 2 + 128
  750.         If (STRING036 == "") STRING036 = " "
  751.         STRING036 = "@X07" + STRING036
  752.         Cls
  753.         Gosub LABEL036
  754.         STRING011 = ""
  755.         PrintLn STRING037
  756.         PrintLn "@X0B", STRING034, "@X0F ", STRING023, STRING024, "@X0E ", STRING029, STRING030, "@X0F ", STRING031, " @X0A ", STRING027, STRING028, STRING025, STRING026, STRING033, "@X0D ", STRING018, " ", "@X0F", STRING020, STRING019, "@X0C/@X0F", STRING022, STRING021
  757.         PrintLn STRING036
  758.         PrintLn STRING037
  759.         PrintLn 
  760.         InputStr "@X0FIs the above BBS info correct (Y/N)", STRING011, 11, 1, Mask_Alpha(), 8 + 2
  761.         If (STRING011 == "Y") Goto LABEL029
  762.         Goto LABEL003
  763.         :LABEL029
  764.         FAppend 1, STRING038, 2, 3
  765.         FPutLn 1, "@X0B", STRING034, "@X0F ", STRING023, STRING024, "@X0E ", STRING029, STRING030, "@X0F ", STRING031, " @X0A ", STRING027, STRING028, STRING025, STRING026, STRING033, "@X0D ", STRING018, " ", "@X0F", STRING020, STRING019, "@X0C/@X0F", STRING022, STRING021
  766.         FPutLn 1, STRING036
  767.         FClose 1
  768.         If (Exist(PPEPath() + "BBSLISTR.CNF")) Then
  769.             INTEGER009 = INTEGER009 + 1
  770.             FOpen 1, PPEPath() + "BBSLISTR.CNF", 1, 0
  771.             FPutLn 1, STRING006
  772.             FPutLn 1, INTEGER007
  773.             FPutLn 1, INTEGER005
  774.             FPutLn 1, INTEGER009
  775.             FClose 1
  776.             Goto LABEL030
  777.         Endif
  778.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  779.         End
  780.         :LABEL030
  781.         PrintLn 
  782.         PrintLn "@X0BYour BBS Information has been added to our list - Thank you, @FIRST@"
  783.         PrintLn 
  784.         Wait
  785.         Goto LABEL003
  786.         :LABEL031
  787.         Cls
  788.         PrintLn 
  789.         PrintLn 
  790.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  791.         PrintLn "                       @X50│       @X5ABBS Lister  v", STRING032, "      @X5D│@X0D"
  792.         PrintLn "                       @X50│                              @X5D│@X0D"
  793.         If (STRING017 == "N") Then
  794.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  795.             PrintLn "                       @X50│                              @X5D│@X0D"
  796.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  797.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  798.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  799.             Beep
  800.             Delay 125
  801.             Goto LABEL032
  802.         Endif
  803.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  804.         PrintLn "                       @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
  805.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  806.         PrintLn 
  807.         Wait
  808.         :LABEL032
  809.         End
  810.         :LABEL033
  811.         Cls
  812.         PrintLn 
  813.         PrintLn 
  814.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  815.         PrintLn "                       @X50│       @X5ABBS Lister  v", STRING032, "      @X5D│@X0D"
  816.         PrintLn "                       @X50│                              @X5D│@X0D"
  817.         If (STRING017 == "N") Then
  818.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  819.             PrintLn "                       @X50│                              @X5D│@X0D"
  820.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  821.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  822.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  823.             Beep
  824.             Delay 125
  825.             Goto LABEL034
  826.         Endif
  827.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  828.         PrintLn "                       @X50│@X5B", STRING007, STRING006, "@POS:55@@X5D│@X07"
  829.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  830.         PrintLn 
  831.         Wait
  832.         :LABEL034
  833.         Bye
  834.         :LABEL035
  835.         PrintLn 
  836.         PrintLn "@X0FSorry... you entered an invalid number"
  837.         PrintLn 
  838.         Wait
  839.         Goto LABEL003
  840.     Endif
  841.     Cls
  842.     PrintLn 
  843.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  844.     PrintLn "                       @X50│       @X5BBBS Lister  v1.0       @X5D│@X07"
  845.     PrintLn "                       @X50│                              @X5D│@X07"
  846.     PrintLn "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  847.     PrintLn "                       @X50│                              @X5D│@X07"
  848.     PrintLn "                       @X50│  @X5BInvalid Registration Code!  @X5D│@X07"
  849.     PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  850.     Beep
  851.     Delay 182
  852.     End
  853.     :LABEL036
  854.     Cls
  855.     PrintLn "@X5BBBS S/W  @X5FBBS Name          @X5EBBS Phone #  @X5FModem     @X5AST  City         Ctry @X5FMb@X5C/@X5FNode"
  856.     Return
  857.     :LABEL037
  858.     PrintLn Chr(13), STRING035
  859.     PrintLn Chr(13), STRING036
  860.     PrintLn Chr(13), STRING037
  861.     INTEGER010 = INTEGER010 + 1
  862.     Return
  863.  
  864. ;------------------------------------------------------------------------------
  865. ;
  866. ; Usage report (before postprocessing)
  867. ;
  868. ; ■ Statements used :
  869. ;
  870. ;    4       End
  871. ;    33      Cls
  872. ;    16      Wait
  873. ;    1       Color 
  874. ;    126     Goto 
  875. ;    269     Let 
  876. ;    191     PrintLn 
  877. ;    285     If 
  878. ;    1       DispFile 
  879. ;    11      FOpen 
  880. ;    1       FAppend 
  881. ;    12      FClose 
  882. ;    22      FGet 
  883. ;    6       FPutLn 
  884. ;    2       StartDisp 
  885. ;    25      InputStr 
  886. ;    20      Gosub 
  887. ;    2       Return
  888. ;    5       Delay 
  889. ;    1       Tokenize 
  890. ;    2       GetToken 
  891. ;    5       Beep
  892. ;    2       Bye
  893. ;
  894. ;
  895. ; ■ Functions used :
  896. ;
  897. ;    81      +
  898. ;    254     ==
  899. ;    10      <
  900. ;    9       <=
  901. ;    7       >
  902. ;    22      >=
  903. ;    26      !
  904. ;    18      &&
  905. ;    10      ||
  906. ;    71      Len(
  907. ;    3       Upper()
  908. ;    8       Mid()
  909. ;    2       Left()
  910. ;    21      Chr()
  911. ;    2       InStr()
  912. ;    10      Mask_Alpha()
  913. ;    17      Mask_Num()
  914. ;    8       Mask_Ascii()
  915. ;    23      PPEPath()
  916. ;    11      Exist()
  917. ;    1       S2I()
  918. ;
  919. ;------------------------------------------------------------------------------
  920. ;
  921. ; Analysis flags : No flag
  922. ;
  923. ;------------------------------------------------------------------------------
  924. ;
  925. ; Postprocessing report
  926. ;
  927. ;    9       For/Next
  928. ;    0       While/EndWhile
  929. ;    17      If/Then or If/Then/Else
  930. ;    0       Select Case
  931. ;
  932. ;------------------------------------------------------------------------------
  933. ;                 AEGiS Corp - Break the routines, code against the machines!
  934. ;------------------------------------------------------------------------------
  935.