home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALFBBS3.ZIP / BBSLIST.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-04-29  |  9.4 KB  |  309 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     Goto LABEL003
  39.     :LABEL001
  40.     PrintLn "@CLS@@X08                ▓█░▒▓█░▒▓ @X0FÅDDING A BBS TO THE LIST @X08▓█░▒▓█░░▒"
  41.     PrintLn "                ░▒   BBS Name:                            ▓█"
  42.     PrintLn "                ▓█   Phone Number:                        ░▒"
  43.     PrintLn "                ░▒   Speed:                               ▓█"
  44.     PrintLn "                ▒▓   Sysop:                               ▒▓"
  45.     PrintLn "                ▓█   NUP:                                 ░▒"
  46.     PrintLn "                ░▒   Software:                            ▓█"
  47.     PrintLn "                ▓█   Nodes:                               ░▒"
  48.     PrintLn "                ░▒   HD Space:                            ▓█"
  49.     PrintLn "                ▓█   Warez:                               ░▒"
  50.     PrintLn "                ░▒                                        ▓█"
  51.     PrintLn "                ▓█░▒▓█▒▓█▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒░▒"
  52.     AnsiPos 31, 2
  53.     InputStr "@X00_", STRING007, 14, 20, Mask_Ascii(), 0
  54.     AnsiPos 35, 3
  55.     InputStr "@X00_", STRING008, 14, 12, Mask_Ascii(), 0
  56.     AnsiPos 28, 4
  57.     InputStr "@X00_", STRING009, 14, 4, Mask_Ascii(), 0
  58.     AnsiPos 28, 5
  59.     InputStr "@X00_", STRING010, 14, 13, Mask_Ascii(), 0
  60.     AnsiPos 26, 6
  61.     InputStr "@X00_", STRING011, 14, 8, Mask_Ascii(), 0
  62.     AnsiPos 31, 7
  63.     InputStr "@X00_", STRING012, 14, 9, Mask_Ascii(), 0
  64.     AnsiPos 28, 8
  65.     InputStr "@X00_", STRING014, 14, 2, Mask_Ascii(), 0
  66.     AnsiPos 31, 9
  67.     InputStr "@X00_", STRING015, 14, 8, Mask_Ascii(), 0
  68.     AnsiPos 28, 10
  69.     InputStr "@X00_", STRING016, 14, 12, Mask_Ascii(), 0
  70.     AnsiPos 25, 11
  71.     InputStr "@X08Do You Wana Save [@X0FY/N@X08]", STRING013, 14, 1, Mask_Ascii(), 2
  72.     If (STRING013 == "y") Goto LABEL002
  73.     If (STRING013 == "Y") Goto LABEL002
  74.     If (STRING013 == "n") Goto LABEL003
  75.     If (STRING013 == "N") Goto LABEL003
  76.     :LABEL002
  77.     FAppend 1, PPEPath() + "BBSLIST.DAT", 1, 0
  78.     FPutLn 1, "│@POS:2@" + STRING007, "@POS:25@" + STRING008 + "@POS:40@" + STRING009 + "@POS:46@" + STRING010 + "@POS:61@" + STRING011 + "@POS:70@" + STRING012 + "@POS:79@│"
  79.     FClose 1
  80.     FAppend 1, PPEPath() + "BBSLIST.LNG", 1, 0
  81.     FPutLn 1, "@X08┌─────────────────────────────────────────────────────────────────────────────┐"
  82.     FPutLn 1, "@X08│ BBS Name:@X0F" + STRING007 + "@POS:79@@X08│"
  83.     FPutLn 1, "@X08│ Phone Number:" + STRING008 + "@POS:31@Speed:" + STRING009 + "@POS:44@Sysop:" + STRING010 + "@POS:66@NuP:" + STRING011 + "@POS:79@│"
  84.     FPutLn 1, "@X08│      Software:" + STRING012 + "@POS:28@Nodes:" + STRING014 + "@POS:38@HD Space:" + STRING015 + "@POS:56@Warez:" + STRING016 + "@POS:79@│"
  85.     FPutLn 1, "@X08└─────────────────────────────────────────────────────────────────────────────┘"
  86.     FClose 1
  87.     Goto LABEL003
  88.     End
  89.     :LABEL003
  90.     Print "@CLS@"
  91.     PrintLn ""
  92.     PrintLn ""
  93.     PrintLn ""
  94.     PrintLn ""
  95.     PrintLn ""
  96.     PrintLn "@X07@X0F                        @X08AlF BBS Lister Version 3.0"
  97.     PrintLn "@X0F                     @X08Coded By Kenitec Death / Joe MaMa <94>"
  98.     PrintLn ""
  99.     PrintLn "@X0F                           @X08 Add A BBS to the List @X08"
  100.     PrintLn "@X0F                            @X08  List The BBS List "
  101.     PrintLn "@X0F                             @X08Extra long BBS List"
  102.     PrintLn "@X0F                             @X08Info About This PPE"
  103.     PrintLn "@X0F                                   @X08Goodbye "
  104.     PrintLn "@X0F                               @X08Quit Back to BBS"
  105.     PrintLn ""
  106.     PrintLn ""
  107.     PrintLn ""
  108.     PrintLn ""
  109.     PrintLn ""
  110.     PrintLn ""
  111.     PrintLn "                    @X07[@X0F,@X07]@X08 or @X07[@X0FA@X07]@X08,@X07[@X0FZ@X07] @X08Move, @X07[@X0FENTER@X07]@X08 Selects.."
  112.     Goto LABEL004
  113.     End
  114.     :LABEL004
  115.     AnsiPos 0, 10
  116.     Print "@X0F                            @X08  List The BBS List "
  117.     AnsiPos 0, 14
  118.     Print "@X0F                               @X08Quit Back to BBS "
  119.     AnsiPos 0, 9
  120.     Print "@X0F                           @X70 Add A BBS to the List @X08"
  121.     STRING001 = ""
  122.     While (STRING001 == "") Do
  123.         STRING001 = Inkey()
  124.     EndWhile
  125.     If (STRING001 == Chr(13)) Goto LABEL001
  126.     If (((STRING001 == "DOWN") || (STRING001 == Chr(122))) || (STRING001 == Chr(90))) Goto LABEL005
  127.     If (((STRING001 == "UP") || (STRING001 == Chr(65))) || (STRING001 == Chr(97))) Goto LABEL009
  128.     If (STRING001 == Chr(32)) Goto LABEL005
  129.     Goto LABEL004
  130.     :LABEL005
  131.     AnsiPos 0, 9
  132.     Print "@X0F                            @X08Add A BBS to the List@X08 "
  133.     AnsiPos 0, 11
  134.     Print "@X0F                            @X08 Extra long BBS List@X08 "
  135.     AnsiPos 0, 10
  136.     Print "@X0F                             @X70 List The BBS List @X08"
  137.     STRING002 = ""
  138.     While (STRING002 == "") Do
  139.         STRING002 = Inkey()
  140.     EndWhile
  141.     If (STRING002 == Chr(13)) Goto LABEL010
  142.     If (((STRING002 == "DOWN") || (STRING002 == Chr(122))) || (STRING002 == Chr(90))) Goto LABEL006
  143.     If (((STRING002 == "UP") || (STRING002 == Chr(65))) || (STRING002 == Chr(97))) Goto LABEL004
  144.     If (STRING002 == Chr(32)) Goto LABEL006
  145.     Goto LABEL005
  146.     :LABEL006
  147.     AnsiPos 0, 10
  148.     Print "@X0F                              @X08List The BBS List@X08 "
  149.     AnsiPos 0, 12
  150.     Print "@X0F                             @X08Info About This PPE@X08 "
  151.     AnsiPos 0, 11
  152.     Print "@X0F                            @X70 Extra long BBS List @X08"
  153.     STRING003 = ""
  154.     While (STRING003 == "") Do
  155.         STRING003 = Inkey()
  156.     EndWhile
  157.     If (STRING003 == Chr(13)) Goto LABEL014
  158.     If (((STRING003 == "DOWN") || (STRING003 == Chr(122))) || (STRING003 == Chr(90))) Goto LABEL007
  159.     If (((STRING003 == "UP") || (STRING003 == Chr(65))) || (STRING003 == Chr(97))) Goto LABEL005
  160.     If (STRING003 == Chr(32)) Goto LABEL007
  161.     Goto LABEL006
  162.     :LABEL007
  163.     AnsiPos 0, 11
  164.     Print "@X0F                             @X08Extra long BBS List@X08 "
  165.     AnsiPos 0, 13
  166.     Print "@X0F                                   @X08Goodbye@X08 "
  167.     AnsiPos 0, 12
  168.     Print "@X0F                            @X70 Info About This PPE @X08"
  169.     STRING004 = ""
  170.     While (STRING004 == "") Do
  171.         STRING004 = Inkey()
  172.     EndWhile
  173.     If (STRING004 == Chr(13)) Goto LABEL011
  174.     If (((STRING004 == "DOWN") || (STRING004 == Chr(122))) || (STRING004 == Chr(90))) Goto LABEL008
  175.     If (((STRING004 == "UP") || (STRING004 == Chr(65))) || (STRING004 == Chr(97))) Goto LABEL006
  176.     If (STRING004 == Chr(32)) Goto LABEL008
  177.     Goto LABEL007
  178.     :LABEL008
  179.     AnsiPos 0, 12
  180.     Print "@X0F                             @X08Info About This PPE@X08 "
  181.     AnsiPos 0, 14
  182.     Print "@X0F                               @X08Quit Back to BBS@X08 "
  183.     AnsiPos 0, 13
  184.     Print "@X0F                                  @X70 Goodbye @X08"
  185.     STRING005 = ""
  186.     While (STRING005 == "") Do
  187.         STRING005 = Inkey()
  188.     EndWhile
  189.     If (STRING005 == Chr(13)) Goto LABEL012
  190.     If (((STRING005 == "DOWN") || (STRING005 == Chr(122))) || (STRING005 == Chr(90))) Goto LABEL009
  191.     If (((STRING005 == "UP") || (STRING005 == Chr(65))) || (STRING005 == Chr(97))) Goto LABEL007
  192.     If (STRING005 == Chr(32)) Goto LABEL009
  193.     Goto LABEL008
  194.     :LABEL009
  195.     AnsiPos 0, 9
  196.     Print "@X0F                           @X08 Add A BBS to the List@X08 "
  197.     AnsiPos 0, 13
  198.     Print "@X0F                                   @X08Goodbye "
  199.     AnsiPos 0, 14
  200.     Print "@X0F                              @X70 Quit Back to BBS @X08"
  201.     STRING006 = ""
  202.     While (STRING006 == "") Do
  203.         STRING006 = Inkey()
  204.     EndWhile
  205.     If (STRING006 == Chr(13)) Goto LABEL013
  206.     If (((STRING006 == "DOWN") || (STRING006 == Chr(122))) || (STRING006 == Chr(90))) Goto LABEL004
  207.     If (((STRING006 == "UP") || (STRING006 == Chr(65))) || (STRING006 == Chr(97))) Goto LABEL008
  208.     If (STRING006 == Chr(32)) Goto LABEL004
  209.     Goto LABEL009
  210.     Goto LABEL003
  211.     End
  212.     :LABEL010
  213.     PrintLn "@CLS@"
  214.     PrintLn "@CLS@@X07@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  215.     PrintLn "@X07▒@X71 Board Name             Number       Speed   Sysop         NuP      Software@X07█▓"
  216.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  217.     PrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  218.     DispFile PPEPath() + "BBSLIST.DAT", 1
  219.     PrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  220.     PrintLn "@MORE@"
  221.     Goto LABEL003
  222.     End
  223.     :LABEL011
  224.     PrintLn "@CLS@"
  225.     PrintLn "@X08    AlF BBS Lister By Kenitec Death / Joe MaMa <94>"
  226.     PrintLn "    AlF in <94> Kicken Some Ass"
  227.     PrintLn "         Version 3.0 "
  228.     PrintLn ""
  229.     PrintLn "History:"
  230.     PrintLn ""
  231.     PrintLn "1.0 This Version never Existed Because 2 is always Better than 1"
  232.     PrintLn ""
  233.     PrintLn "2.0 This Version i would like to call the contriversial Version"
  234.     PrintLn "    because after it came out many people liked it yet hated it"
  235.     PrintLn "    Because it looked so much like the Genesis BBS lister by"
  236.     PrintLn "    The Anti Christ..."
  237.     PrintLn ""
  238.     PrintLn "3.0 In case you are Stupid that is the Version you are lookin at"
  239.     PrintLn "    Well this was inspired By CoBrA Who is a local sysop.. Well"
  240.     PrintLn "    He called me some names because of version 2.0 so i would"
  241.     PrintLn "    like to dedicate this version to him..."
  242.     PrintLn ""
  243.     PrintLn ""
  244.     PrintLn "@MORE@"
  245.     Goto LABEL003
  246.     End
  247.     :LABEL012
  248.     Bye
  249.     End
  250.     :LABEL013
  251.     PrintLn "@CLS@@X07@X0F                      @X08AlF BBS Lister Version 3.0 "
  252.     PrintLn "@X0F                       @X08Coded By Kenitec Death / Joe MaMa <94>"
  253.     End
  254.     :LABEL014
  255.     PrintLn "@CLS@"
  256.     DispFile PPEPath() + "BBSLIST.LNG", 1
  257.     PrintLn "@MORE@"
  258.     Goto LABEL003
  259.     End
  260.  
  261. ;------------------------------------------------------------------------------
  262. ;
  263. ; Usage report (before postprocessing)
  264. ;
  265. ; ■ Statements used :
  266. ;
  267. ;    8       End
  268. ;    53      Goto 
  269. ;    12      Let 
  270. ;    19      Print 
  271. ;    65      PrintLn 
  272. ;    34      If 
  273. ;    2       DispFile 
  274. ;    2       FAppend 
  275. ;    2       FClose 
  276. ;    6       FPutLn 
  277. ;    10      InputStr 
  278. ;    1       Bye
  279. ;    28      AnsiPos 
  280. ;
  281. ;
  282. ; ■ Functions used :
  283. ;
  284. ;    33      +
  285. ;    58      ==
  286. ;    6       !
  287. ;    24      ||
  288. ;    36      Chr()
  289. ;    6       Inkey()
  290. ;    10      Mask_Ascii()
  291. ;    4       PPEPath()
  292. ;
  293. ;------------------------------------------------------------------------------
  294. ;
  295. ; Analysis flags : No flag
  296. ;
  297. ;------------------------------------------------------------------------------
  298. ;
  299. ; Postprocessing report
  300. ;
  301. ;    0       For/Next
  302. ;    6       While/EndWhile
  303. ;    0       If/Then or If/Then/Else
  304. ;    0       Select Case
  305. ;
  306. ;------------------------------------------------------------------------------
  307. ;                 AEGiS Corp - Break the routines, code against the machines!
  308. ;------------------------------------------------------------------------------
  309.