home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_BBSL.ZIP / BBSLIST.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-04-14  |  4.4 KB  |  159 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.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     Goto LABEL003
  31.     :LABEL001
  32.     PrintLn "@CLS@@X08                ▓█░▒▓█░▒▓ @X0FÅDDING A BBS TO THE LIST @X08▓█░▒▓█░░▒"
  33.     PrintLn "                ░▒   BBS Name:                            ▓█"
  34.     PrintLn "                ▓█   Phone Number:                        ░▒"
  35.     PrintLn "                ░▒   Speed:                               ▓█"
  36.     PrintLn "                ▒▓   Sysop:                               ▒▓"
  37.     PrintLn "                ▓█   NUP:                                 ░▒"
  38.     PrintLn "                ░▒   Software:                            ▓█"
  39.     PrintLn "                ▓█                                        ░▒"
  40.     PrintLn "                ░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█"
  41.     AnsiPos 31, 2
  42.     InputStr "@X00_", STRING001, 14, 20, Mask_Ascii(), 0
  43.     AnsiPos 35, 3
  44.     InputStr "@X00_", STRING002, 14, 12, Mask_Ascii(), 0
  45.     AnsiPos 28, 4
  46.     InputStr "@X00_", STRING003, 14, 4, Mask_Ascii(), 0
  47.     AnsiPos 28, 5
  48.     InputStr "@X00_", STRING004, 14, 13, Mask_Ascii(), 0
  49.     AnsiPos 26, 6
  50.     InputStr "@X00_", STRING005, 14, 8, Mask_Ascii(), 0
  51.     AnsiPos 31, 7
  52.     InputStr "@X00_", STRING006, 14, 9, Mask_Ascii(), 0
  53.     AnsiPos 25, 8
  54.     InputStr "@X08Do You Wana Save [@X0FY/N@X08]", STRING007, 14, 1, Mask_Ascii(), 2
  55.     If (STRING007 == "y") Goto LABEL002
  56.     If (STRING007 == "Y") Goto LABEL002
  57.     If (STRING007 == "n") Goto LABEL003
  58.     If (STRING007 == "N") Goto LABEL003
  59.     :LABEL002
  60.     FAppend 1, PPEPath() + "BBSLIST.DAT", 1, 0
  61.     FPutLn 1, "│@POS:2@" + STRING001, "@POS:25@" + STRING002 + "@POS:40@" + STRING003 + "@POS:46@" + STRING004 + "@POS:61@" + STRING005 + "@POS:70@" + STRING006 + "@POS:79@│"
  62.     FClose 1
  63.     Goto LABEL003
  64.     End
  65.     :LABEL003
  66.     Cls
  67.     PrintLn "@CLS@@X07@X0F                          @X08AlF BBS Lister Version 2.0"
  68.     PrintLn "@X0F                          @X08Coded By Kenitec Death <94>"
  69.     PrintLn ""
  70.     PrintLn "@X0F                          @X08[@X0FA@X08]dd A BBS to the List"
  71.     PrintLn "@X0F                          @X08[@X0FL@X08]ist The BBS List"
  72.     PrintLn "@X0F                          @X08[@X0FI@X08]nfo About This PPE"
  73.     PrintLn "@X0F                          @X08[@X0FG@X08]oodbye"
  74.     PrintLn "@X0F                          @X08[@X0FQ@X08]uit Back to BBS"
  75.     PrintLn ""
  76.     PrintLn ""
  77.     PrintLn ""
  78.     PrintLn ""
  79.     PrintLn ""
  80.     PrintLn ""
  81.     PrintLn "@X0F    @X08┌───[@X0F@MINLEFT@ Min Left@X08]──[@X0F@USER@@X08]-"
  82.     InputStr "   @X08 └───■>_", STRING008, 8, 1, Mask_Ascii(), 8
  83.     If (STRING008 == "A") Goto LABEL001
  84.     If (STRING008 == "L") Goto LABEL004
  85.     If (STRING008 == "I") Goto LABEL005
  86.     If (STRING008 == "G") Goto LABEL006
  87.     If (STRING008 == "Q") Goto LABEL007
  88.     Goto LABEL003
  89.     End
  90.     :LABEL004
  91.     PrintLn "@CLS@"
  92.     PrintLn "@CLS@@X07@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  93.     PrintLn "@X07▒@X71 Board Name             Number       Speed   Sysop         NuP      Software@X07█▓"
  94.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  95.     PrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  96.     DispFile PPEPath() + "BBSLIST.DAT", 1
  97.     PrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  98.     PrintLn "@MORE@"
  99.     Goto LABEL003
  100.     End
  101.     :LABEL005
  102.     PrintLn "@CLS@"
  103.     PrintLn "@X08    AlF BBS Lister By Kenitec Death <94>"
  104.     PrintLn "    AlF in <94> Kicken Some Ass"
  105.     PrintLn "@MORE@"
  106.     Goto LABEL003
  107.     End
  108.     :LABEL006
  109.     Bye
  110.     End
  111.     :LABEL007
  112.     PrintLn "@CLS@@X07@X0F                          @X08AlF BBS Lister Version 2.0"
  113.     PrintLn "@X0F                          @X08Coded By Kenitec Death <94>"
  114.     End
  115.  
  116. ;------------------------------------------------------------------------------
  117. ;
  118. ; Usage report (before postprocessing)
  119. ;
  120. ; ■ Statements used :
  121. ;
  122. ;    6       End
  123. ;    1       Cls
  124. ;    14      Goto 
  125. ;    37      PrintLn 
  126. ;    9       If 
  127. ;    1       DispFile 
  128. ;    1       FAppend 
  129. ;    1       FClose 
  130. ;    1       FPutLn 
  131. ;    8       InputStr 
  132. ;    1       Bye
  133. ;    7       AnsiPos 
  134. ;
  135. ;
  136. ; ■ Functions used :
  137. ;
  138. ;    13      +
  139. ;    9       ==
  140. ;    8       Mask_Ascii()
  141. ;    2       PPEPath()
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Analysis flags : No flag
  146. ;
  147. ;------------------------------------------------------------------------------
  148. ;
  149. ; Postprocessing report
  150. ;
  151. ;    0       For/Next
  152. ;    0       While/EndWhile
  153. ;    0       If/Then or If/Then/Else
  154. ;    0       Select Case
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;                 AEGiS Corp - Break the routines, code against the machines!
  158. ;------------------------------------------------------------------------------
  159.