home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MT_BBS11.ZIP / BBSLIST.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-08-18  |  15.4 KB  |  584 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.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   STRING017
  40.     String   STRING018
  41.     String   STRING019
  42.     String   STRING020
  43.     String   STRING021
  44.     String   STRING022
  45.     String   STRING023
  46.     String   STRING024
  47.     String   STRING025
  48.     String   STRING026
  49.     String   STRING027
  50.     String   STRING028
  51.     String   STRING029
  52.     String   STRING030
  53.     String   STRING031
  54.     String   STRING032
  55.     String   STRING033
  56.     String   STRING034
  57.     String   STRING035
  58.     String   STRING036
  59.     String   STRING037
  60.     String   STRING038
  61.     String   STRING039
  62.     String   STRING040
  63.     String   STRING041
  64.     String   STRING042
  65.     String   STRING043
  66.     String   STRING044
  67.     String   STRING045
  68.     String   STRING046
  69.  
  70. ;------------------------------------------------------------------------------
  71.  
  72.     STRING011 = ""
  73.     If (Exist(PPEPath() + "BBSLIST.CNF") == 0) Then
  74.         PrintLn 
  75.         PrintLn "Error!  File BBSLIST.CNF not found!"
  76.         PrintLn "This File includes all BBS List Paramaters and is required"
  77.         PrintLn "for this program to work!   Please notify SysOp..."
  78.         PrintLn 
  79.         Wait
  80.         End
  81.     Endif
  82.     FOpen 1, PPEPath() + "BBSLIST.CNF", 0, 0
  83.     FGet 1, STRING019
  84.     FGet 1, STRING020
  85.     FGet 1, STRING021
  86.     FGet 1, STRING022
  87.     FGet 1, STRING023
  88.     FGet 1, STRING024
  89.     FGet 1, STRING012
  90.     FGet 1, STRING025
  91.     FClose 1
  92.     If (STRING025 == "1") Then
  93.         PrintLn "@X07@PON@"
  94.         Print "Loading BBSList "
  95.         Delay 2
  96.         Print " ."
  97.         Delay 2
  98.         Print " ."
  99.         Delay 2
  100.         Print " ."
  101.         Delay 2
  102.         PrintLn "@CLREOL@"
  103.         Delay 5
  104.     Endif
  105.     Log "MT-BBSList (" + PPEName() + ".PPE): " + "ran at: (" + Left(Time(), 5) + ")", 0
  106.     Delay 2
  107.     Cls
  108.     If (Exist(PPEPath() + "WELCOME")) DispFile PPEPath() + "WELCOME", 4 + 2 + 1
  109.     PrintLn 
  110.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  111.     If (STRING010 == "") Goto LABEL000
  112.     STRING026 = "■+▐è⌡╝ 15ZB+▐rrÜ■K╓N Å+j║}{Ü⌠╓°m°╝▐o+■■,45╝&65542643498469└╜4957895for■84764ramdom768476 count1┌Ö!2121 "
  113.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■341231234K╓N Å+j║}{515134251534Ü⌠╓°m°4123412341234╝▐■,45╝&6554└╜476846785for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠"
  114.     STRING034 = "M"
  115.     STRING027 = "f ea w 8435@#$ f■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■⌠# ö@8689╝94904998└48Q11∞╜74│+L4╝465444454╝445774"
  116.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  117.     STRING035 = "T"
  118.     STRING028 = "dfasdewtmlasfdtq[ dgjqth fgjatghqptr djhtqtqnb dt[qj K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■fv86967067062334653452345asdgfasjg afghjatu e553452626 qt vq vta23452314515gfjh"
  119.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  120.     STRING036 = "-"
  121.     STRING029 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654"
  122.     STRING032 = "wxofdfaK╓N fasdÅ+j║ewtqt}{Ü⌠╓°m°euyuuiot╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝"
  123.     STRING037 = "B"
  124.     STRING030 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■o+■"
  125.     STRING033 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  126.     STRING038 = "B"
  127.     STRING031 = "7535788K╓N57347 Å864695790+j║}06980687{Ü⌠-969- 789-90- 69078907890╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝"
  128.     STRING033 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  129.     STRING039 = "S"
  130.     STRING032 = "K37697╓N -789-Å563767+j║}690 0986-790-8={Ü⌠╓°m2647356745846798649 578°╝▐■06890 869087690,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓373587N 4858467Å+j76967║9868}{37432Ü123434╓°m°╝▐■,45╝"
  131.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  132.     STRING040 = "L"
  133.     STRING033 = "}{xÜ⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  134.     STRING033 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  135.     STRING029 = "465441654645327686348464416 K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■41646464654"
  136.     STRING041 = "i"
  137.     STRING032 = "K╓}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°r■K╓N Å+j"
  138.     STRING033 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  139.     STRING042 = "s"
  140.     STRING032 = "655c4└╜45for■K╓N Å+j║}{}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{■"
  141.     STRING033 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  142.     STRING043 = "t"
  143.     STRING032 = "6554└╜45for■K╓N Å+j║}{}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{■"
  144.     STRING044 = " @X01(@X09v1.1@X01) @X09/Standard@X09"
  145.     STRING033 = "╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  146.     STRING033 = "}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45876967806-9860for■o+■o+■"
  147.     STRING033 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  148.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  149.     STRING046 = "  ■ "
  150.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  151.     STRING033 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  152.     STRING045 = " 08-18-93"
  153.     STRING032 = "K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■tK╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜■o+■"
  154.     STRING033 = "for■o+■⌠#ö@8689╝9╓490498└48Q11∞╜749│+L4╝N4654 4Å445j4║╝4}4{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■K╓N Å+j║}{Ü⌠╓°m°╝▐■,45╝&6554└╜45for■o+■o+■"
  155.     Cls
  156.     PrintLn "@X09" + STRING034 + STRING035 + STRING036 + STRING037 + STRING038 + STRING039 + STRING040 + STRING041 + STRING042 + STRING043 + STRING044 + STRING046 + STRING045
  157.     PrintLn 
  158.     :LABEL001
  159.     If (Exist(PPEPath() + "MENU")) DispFile PPEPath() + "MENU", 4 + 2 + 1
  160.     PrintLn 
  161.     :LABEL002
  162.     STRING003 = ""
  163.     InputStr STRING023 + " _", STRING003, 15, 8, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQKRSTUVWXYZ~!@#$%^&*()_+|`1234567890-=<>?/\;':., ", 2 + 4 + 8 + 64
  164.     If (STRING003 == "A") Gosub LABEL016
  165.     If (STRING003 == "V") Gosub LABEL022
  166.     If (STRING003 == "S") Gosub LABEL009
  167.     If (STRING003 == "O") Gosub LABEL003
  168.     If (STRING003 == "N") Gosub LABEL008
  169.     If (STRING003 == "I") Gosub LABEL007
  170.     If (STRING003 == "H") Gosub LABEL006
  171.     If (STRING003 == "?") Gosub LABEL006
  172.     If (STRING003 == "M") Gosub LABEL004
  173.     If (STRING003 == "R") Gosub LABEL004
  174.     If (STRING003 == "") Gosub LABEL002
  175.     If (STRING003 == "Q") Gosub LABEL023
  176.     If (STRING003 == "G") Gosub LABEL005
  177.     If (STRING003 == "BYE") Gosub LABEL005
  178.     If (STRING003 == "ADD") Gosub LABEL016
  179.     If (STRING003 == "VIEW") Gosub LABEL022
  180.     If (STRING003 == "SEARCH") Gosub LABEL009
  181.     If (STRING003 == "OTHER") Gosub LABEL003
  182.     If (STRING003 == "NEWS") Gosub LABEL008
  183.     If (STRING003 == "INITIAL") Gosub LABEL007
  184.     If (STRING003 == "HELP") Gosub LABEL006
  185.     If (STRING003 == "MENU") Gosub LABEL004
  186.     If (STRING003 == "REDISPLAY") Gosub LABEL004
  187.     If (STRING003 == "QUIT") Gosub LABEL023
  188.     If (STRING003 == "GOODBYE") Gosub LABEL005
  189.     If (STRING003 == "AD") Gosub LABEL016
  190.     If (STRING003 == "VI") Gosub LABEL022
  191.     If (STRING003 == "OT") Gosub LABEL003
  192.     If (STRING003 == "SE") Gosub LABEL009
  193.     If (STRING003 == "NE") Gosub LABEL008
  194.     If (STRING003 == "IN") Gosub LABEL007
  195.     If (STRING003 == "HE") Gosub LABEL006
  196.     If (STRING003 == "ME") Gosub LABEL004
  197.     If (STRING003 == "RE") Gosub LABEL004
  198.     If (STRING003 == "QU") Gosub LABEL023
  199.     If (STRING003 == "GO") Gosub LABEL005
  200.     If (STRING003 == "VIE") Gosub LABEL022
  201.     If (STRING003 == "OTH") Gosub LABEL003
  202.     If (STRING003 == "SEA") Gosub LABEL009
  203.     If (STRING003 == "NEW") Gosub LABEL008
  204.     If (STRING003 == "INI") Gosub LABEL007
  205.     If (STRING003 == "HEL") Gosub LABEL006
  206.     If (STRING003 == "MEN") Gosub LABEL004
  207.     If (STRING003 == "RED") Gosub LABEL004
  208.     If (STRING003 == "QUI") Gosub LABEL023
  209.     If (STRING003 == "GOO") Gosub LABEL005
  210.     If (STRING003 == "OTHE") Gosub LABEL003
  211.     If (STRING003 == "SEAR") Gosub LABEL009
  212.     If (STRING003 == "INIT") Gosub LABEL007
  213.     If (STRING003 == "GOOD") Gosub LABEL005
  214.     If (STRING003 == "SEARC") Gosub LABEL009
  215.     If (STRING003 == "INITI") Gosub LABEL007
  216.     If (STRING003 == "GOODB") Gosub LABEL005
  217.     If (STRING003 == "INITIA") Gosub LABEL007
  218.     If (STRING003 == "GOODBY") Gosub LABEL005
  219.     If (STRING003 == "BY") Gosub LABEL005
  220.     If (STRING003 == "B") Gosub LABEL005
  221.     Goto LABEL015
  222.     :LABEL003
  223.     Cls
  224.     PrintLn STRING022 + STRING019 + "  ■ [Other BBS Lists / View/Search]@X07"
  225.     PrintLn 
  226.     Delay 15
  227.     PrintLn "@X0CSorry [Other Listings View/Search] Feature  available"
  228.     PrintLn "only in the /Deluxe version....@X07"
  229.     PrintLn 
  230.     Goto LABEL002
  231.     :LABEL004
  232.     Cls
  233.     Goto LABEL001
  234.     :LABEL005
  235.     PrintLn 
  236.     PrintLn "Thanks for visiting the BBS List @FIRST@!"
  237.     Bye
  238.     :LABEL006
  239.     Cls
  240.     PrintLn STRING022 + STRING019 + "  ■ [Help]@X07"
  241.     PrintLn 
  242.     If (Exist(PPEPath() + "HELP")) DispFile PPEPath() + "HELP", 4 + 2 + 1
  243.     PrintLn 
  244.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  245.     If (STRING010 == "") Goto LABEL001
  246.     :LABEL007
  247.     Cls
  248.     PrintLn "@X09" + STRING034 + STRING035 + STRING036 + STRING037 + STRING038 + STRING039 + STRING040 + STRING041 + STRING042 + STRING043 + STRING044 + STRING046 + STRING045
  249.     PrintLn 
  250.     If (Exist(PPEPath() + "WELCOME")) DispFile PPEPath() + "WELCOME", 4 + 2 + 1
  251.     PrintLn 
  252.     Goto LABEL002
  253.     :LABEL008
  254.     Cls
  255.     PrintLn STRING022 + STRING019 + "  ■ [NEWS for: @SYSDATE@]@X07"
  256.     PrintLn 
  257.     If (Exist(PPEPath() + "NEWS")) DispFile PPEPath() + "NEWS", 4 + 2 + 1
  258.     PrintLn 
  259.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  260.     If (STRING010 == "") Goto LABEL001
  261.     :LABEL009
  262.     Cls
  263.     PrintLn "@PON@" + STRING022 + STRING019 + "  ■ [Search Entries]@X07"
  264.     PrintLn 
  265.     If (Exist(PPEPath() + "SEARCH")) DispFile PPEPath() + "SEARCH", 4 + 2 + 1
  266.     :LABEL010
  267.     PrintLn 
  268.     STRING018 = ""
  269.     InputStr STRING024 + " _", STRING018, 15, 12, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPKRSTUVWXYZ~!@#$%^&*()_+|`1234567890-=<>?/\;':., ", 2 + 4 + 8 + 64
  270.     If (STRING018 == "Q") Gosub LABEL013
  271.     If (STRING018 == "H") Gosub LABEL014
  272.     If (STRING018 == "") Gosub LABEL013
  273.     INTEGER003 = 0
  274.     INTEGER004 = 0
  275.     STRING016 = ""
  276.     STRING017 = ""
  277.     STRING015 = ""
  278.     STRING016 = Upper(STRING017)
  279.     STRING016 = STRING018
  280.     If (Exist(PPEPath() + STRING020)) Then
  281.         PrintLn 
  282.         PrintLn "@PON@@X04[@X0CSearching BBSList@X04] @X07for (@X0F" + STRING018 + "@X07) [@X0ACTRL-K@X07] Aborts..."
  283.         Log "Searching Name Entry in " + STRING020 + " for (" + STRING016 + ")", 0
  284.         FOpen 1, PPEPath() + STRING020, 0, 0
  285.         :LABEL011
  286.         If (Ferr(1)) Goto LABEL012
  287.         FGet 1, STRING015
  288.         If (STRING015 <> "") Then
  289.             INTEGER003 = INTEGER003 + 1
  290.             STRING015 = Upper(STRING015)
  291.             If (InStr(STRING015, STRING016)) Then
  292.                 INTEGER004 = INTEGER004 + 1
  293.                 INTEGER002 = InStr(STRING015, STRING016)
  294.                 If (INTEGER004 == 1) Newlines 1
  295.                 Print "@X07" + Left(STRING015, INTEGER002 - 1) + "@X0F" + STRING016 + "@X07"
  296.                 PrintLn Mid(STRING015, INTEGER002 + Len(STRING016), Len(STRING015) - INTEGER002 + 1 - Len(STRING016))
  297.             Endif
  298.         Endif
  299.         If (Abort()) FClose 1
  300.         Goto LABEL011
  301.         :LABEL012
  302.         FClose 1
  303.     Else
  304.         Newline
  305.     Endif
  306.     PrintLn 
  307.     ResetDisp
  308.     If (INTEGER004 == 0) Newlines 0
  309.     PrintLn "@X0CTotal (Matches)  found: @X0F" + String(INTEGER004)
  310.     PrintLn "@X0CTotal Entries Searched: @X0F" + String(INTEGER003)
  311.     Newline
  312.     FClose 1
  313.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  314.     If (STRING010 == "") Goto LABEL010
  315.     PrintLn "Invalid Search command...  Try again!"
  316.     Goto LABEL010
  317.     :LABEL013
  318.     PrintLn 
  319.     PrintLn "Returning to BBSList Main Menu . . . "
  320.     PrintLn 
  321.     Goto LABEL001
  322.     :LABEL014
  323.     PrintLn 
  324.     If (Exist(PPEPath() + "HLPFIND")) DispFile PPEPath() + "HLPFIND", 4 + 2 + 1
  325.     Goto LABEL010
  326.     :LABEL015
  327.     PrintLn 
  328.     PrintLn "@X0C(@X0F" + STRING003 + "@X0C) Is an invalid BBS List command...  Type (@X0FM@X0C) to see Commands Menu!"
  329.     PrintLn 
  330.     Goto LABEL002
  331.     :LABEL016
  332.     Cls
  333.     PrintLn STRING022 + STRING019 + "  ■ [ADD a NEW Entry]"
  334.     PrintLn 
  335.     If (Exist(PPEPath() + "ADD")) DispFile PPEPath() + "ADD", 4 + 2 + 1
  336.     PrintLn 
  337.     STRING004 = ""
  338.     InputText "@X09System  Name", STRING004, 7, 21
  339.     If ((STRING004 == "") || (Len(STRING004) <= 2)) Goto LABEL020
  340.     Newlines 2
  341.     STRING005 = ""
  342.     InputText "@X09   Area Code", STRING005, 7, 3
  343.     If ((STRING005 == "") || (Len(STRING005) <= 2)) Goto LABEL020
  344.     Newlines 2
  345.     STRING006 = ""
  346.     InputText "@X09      Prefix", STRING006, 7, 3
  347.     If ((STRING006 == "") || (Len(STRING006) <= 2)) Goto LABEL020
  348.     Newlines 2
  349.     STRING007 = ""
  350.     InputText "@X09       Sufix", STRING007, 7, 4
  351.     If ((STRING007 == "") || (Len(STRING007) <= 2)) Goto LABEL020
  352.     INTEGER003 = 0
  353.     INTEGER004 = 0
  354.     STRING016 = ""
  355.     STRING017 = ""
  356.     STRING015 = ""
  357.     STRING016 = Upper(STRING017)
  358.     STRING016 = STRING005 + "-" + STRING006 + "-" + STRING007
  359.     If (Exist(PPEPath() + STRING020)) Then
  360.         Log "Scanning " + STRING020 + " for (" + STRING016 + ")", 0
  361.         FOpen 1, PPEPath() + STRING020, 0, 0
  362.         :LABEL017
  363.         If (Ferr(1)) Goto LABEL018
  364.         FGet 1, STRING015
  365.         If (STRING015 <> "") Then
  366.             INTEGER003 = INTEGER003 + 1
  367.             STRING015 = Upper(STRING015)
  368.             If (InStr(STRING015, STRING016)) Then
  369.                 INTEGER004 = INTEGER004 + 1
  370.                 INTEGER002 = InStr(STRING015, STRING016)
  371.                 If (INTEGER004 == 1) Newlines 1
  372.                 Cls
  373.                 PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  374.                 PrintLn "@X71System Name            Phone #       Modem Type      Description of System     @X07"
  375.                 PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  376.                 Print "@X0A" + Left(STRING015, INTEGER002 - 1) + "@X0A" + STRING016 + "@X0A"
  377.                 PrintLn Mid(STRING015, INTEGER002 + Len(STRING016), Len(STRING015) - INTEGER002 + 1 - Len(STRING016))
  378.                 PrintLn "@X08───────────────────────────────────────────────────────────────────────────────@X07"
  379.                 PrintLn 
  380.                 PrintLn "@X0FBBS Entry (Phone Number) is already listed!"
  381.                 PrintLn "@X0FBBS Entries may be listed once only... Or one Phone Number per entry!"
  382.                 PrintLn 
  383.                 PrintLn "@X0CEntry Aborted...@X07"
  384.                 PrintLn 
  385.                 InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  386.                 If (STRING010 == "") Goto LABEL000
  387.                 FClose 1
  388.                 Goto LABEL001
  389.             Endif
  390.         Endif
  391.         If (Abort()) FClose 1
  392.         Goto LABEL017
  393.         :LABEL018
  394.         FClose 1
  395.     Else
  396.         Newline
  397.     Endif
  398.     ResetDisp
  399.     If (INTEGER004 == 0) Newlines 0
  400.     Newline
  401.     STRING008 = ""
  402.     InputText "@X09Modem Type/s", STRING008, 7, 14
  403.     If ((STRING008 == "") || (Len(STRING008) <= 1)) Goto LABEL020
  404.     Newlines 2
  405.     STRING009 = ""
  406.     InputText "@X09Description ", STRING009, 7, 26
  407.     If ((STRING009 == "") || (Len(STRING009) <= 2)) Goto LABEL020
  408.     Newlines 2
  409.     STRING002 = "Y"
  410.     PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  411.     PrintLn "@X71System Name            Phone #       Modem Type      Description of System     @X07"
  412.     PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  413.     PrintLn "@POS:1@" + STRING004 + "@POS:24@" + STRING005 + "-@POS:28@" + STRING006 + "-@POS:32@" + STRING007 + "@POS:38@" + STRING008 + "@POS:54@" + STRING009
  414.     PrintLn "@X08───────────────────────────────────────────────────────────────────────────────@X07"
  415.     PrintLn 
  416.     InputYN "@X0AIs the above Entry Correct?  (Y/n)", STRING002, 14
  417.     If (STRING002 <> YesChar()) Goto LABEL019
  418.     PrintLn 
  419.     Goto LABEL021
  420.     :LABEL019
  421.     PrintLn 
  422.     PrintLn "@X0CBBSList Entry Aborted at users request..."
  423.     PrintLn 
  424.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  425.     If (STRING010 == "") Goto LABEL001
  426.     :LABEL020
  427.     PrintLn 
  428.     PrintLn "@X04Entry Aborted!  Insuficient or Invalid Info given..."
  429.     PrintLn 
  430.     Goto LABEL001
  431.     :LABEL021
  432.     PrintLn 
  433.     PrintLn "@X02[@X0AAdding@X02] @X07NEW entry to BBSList..."
  434.     FAppend 1, PPEPath() + STRING020, 1, 2
  435.     STRING001 = ""
  436.     STRING004 = Left(RTrim(STRING004, Chr(32)) + "  ", 23)
  437.     STRING005 = Left(RTrim(STRING005, Chr(32)) + "  ", 3)
  438.     STRING006 = Left(RTrim(STRING006, Chr(32)) + "  ", 3)
  439.     STRING007 = Left(RTrim(STRING007, Chr(32)) + "  ", 6)
  440.     STRING008 = Left(RTrim(STRING008, Chr(32)) + "  ", 16)
  441.     STRING009 = Left(RTrim(STRING009, Chr(32)) + "  ", 26)
  442.     FPut 1, "" + STRING004
  443.     FPut 1, "" + STRING005 + "-"
  444.     FPut 1, "" + STRING006 + "-"
  445.     FPut 1, "" + STRING007
  446.     FPut 1, "" + STRING008
  447.     FPut 1, "" + STRING009
  448.     FPutLn 1, ""
  449.     FClose 1
  450.     FClose 1
  451.     PrintLn 
  452.     PrintLn "@X04[@X0CSorting@X04] @X07BBSList   Please wait..."
  453.     STRING013 = PPEPath() + STRING013
  454.     STRING014 = PPEPath() + STRING020
  455.     STRING013 = STRING021
  456.     Shell -1, INTEGER001, STRING013, STRING014
  457.     PrintLn 
  458.     PrintLn "Your Entry has been saved"
  459.     PrintLn 
  460.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  461.     If (STRING010 == "") Goto LABEL001
  462.     :LABEL022
  463.     Cls
  464.     PrintLn "@PON@" + STRING022 + STRING019 + "  ■ [View Entries]@X07"
  465.     PrintLn 
  466.     If (Exist(PPEPath() + "VIEW")) DispFile PPEPath() + "VIEW", 4 + 2 + 1
  467.     PrintLn 
  468.     If (Exist(PPEPath() + STRING020) == 0) Then
  469.         Delay 3
  470.         PrintLn "   @X0C- Sorry no Entries have been found"
  471.         PrintLn "   @X0C- Try adding a NEW entry to the BBSList!"
  472.         Delay 15
  473.         PrintLn 
  474.         InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  475.         If (STRING010 == "") Goto LABEL001
  476.     Endif
  477.     If (Exist(PPEPath() + "HEADER") == 0) Then
  478.         PrintLn "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
  479.         PrintLn "@X71System Name            Phone #       Modem Type      Description of System     @X07"
  480.         PrintLn "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  481.         If (Exist(PPEPath() + STRING020)) DispFile PPEPath() + STRING020, 4 + 2 + 1
  482.         PrintLn "@X08───────────────────────────────────────────────────────────────────────────────@X07"
  483.         PrintLn "@X04[@X0CEND@X04] @X07BBSList Entries"
  484.         Newlines 1
  485.         InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  486.         If (STRING010 == "") Goto LABEL001
  487.     Endif
  488.     If (Exist(PPEPath() + "HEADER")) DispFile PPEPath() + "HEADER", 4 + 2 + 1
  489.     If (Exist(PPEPath() + STRING020)) DispFile PPEPath() + STRING020, 4 + 2 + 1
  490.     PrintLn "@X08───────────────────────────────────────────────────────────────────────────────@X07"
  491.     PrintLn "@X04[@X0CEND@X04] @X07BBSList Entries"
  492.     Newlines 1
  493.     InputStr "@X07" + STRING012, STRING010, 14, 0, STRING011, +32
  494.     If (STRING010 == "") Goto LABEL001
  495.     :LABEL023
  496.     PrintLn 
  497.     PrintLn "@X0AThanks for visiting the BBSList @FIRST@!    Returning to System..."
  498.     Delay 8
  499.     End
  500.  
  501. ;------------------------------------------------------------------------------
  502. ;
  503. ; Usage report (before postprocessing)
  504. ;
  505. ; ■ Statements used :
  506. ;
  507. ;    2       End
  508. ;    11      Cls
  509. ;    1       Wait
  510. ;    44      Goto 
  511. ;    85      Let 
  512. ;    6       Print 
  513. ;    93      PrintLn 
  514. ;    107     If 
  515. ;    12      DispFile 
  516. ;    3       FOpen 
  517. ;    1       FAppend 
  518. ;    9       FClose 
  519. ;    10      FGet 
  520. ;    6       FPut 
  521. ;    1       FPutLn 
  522. ;    2       ResetDisp
  523. ;    3       Log 
  524. ;    12      InputStr 
  525. ;    1       InputYN 
  526. ;    60      Gosub 
  527. ;    10      Delay 
  528. ;    4       Newline
  529. ;    11      Newlines 
  530. ;    1       Shell 
  531. ;    6       InputText 
  532. ;    1       Bye
  533. ;
  534. ;
  535. ; ■ Functions used :
  536. ;
  537. ;    10      +
  538. ;    1       -
  539. ;    181     +
  540. ;    6       -
  541. ;    84      ==
  542. ;    3       <>
  543. ;    6       <=
  544. ;    12      !
  545. ;    6       ||
  546. ;    12      Len(
  547. ;    4       Upper()
  548. ;    2       Mid()
  549. ;    9       Left()
  550. ;    2       Ferr()
  551. ;    6       Chr()
  552. ;    4       InStr()
  553. ;    2       Abort()
  554. ;    6       RTrim()
  555. ;    1       Time()
  556. ;    1       YesChar()
  557. ;    2       String()
  558. ;    35      PPEPath()
  559. ;    17      Exist()
  560. ;    1       PPEName()
  561. ;
  562. ;------------------------------------------------------------------------------
  563. ;
  564. ; Analysis flags : S
  565. ;
  566. ; S - Shell to DOS ■ 5
  567. ;     This may be normal if the PPE need to execute an external command,
  568. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  569. ;     or usefull (sorting, maintenance,...). Check!
  570. ;     ■ Search for : SHELL
  571. ;
  572. ;------------------------------------------------------------------------------
  573. ;
  574. ; Postprocessing report
  575. ;
  576. ;    0       For/Next
  577. ;    0       While/EndWhile
  578. ;    10      If/Then or If/Then/Else
  579. ;    0       Select Case
  580. ;
  581. ;------------------------------------------------------------------------------
  582. ;                 AEGiS Corp - Break the routines, code against the machines!
  583. ;------------------------------------------------------------------------------
  584.