home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_ONE.ZIP / ONELINER.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-04-14  |  4.3 KB  |  232 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.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.     String   STRING036
  55.     String   STRING037
  56.  
  57. ;------------------------------------------------------------------------------
  58.  
  59.     FOpen 1, PPEPath() + "ONELINER.CNF", 0, 0
  60.     FGet 1, STRING017
  61.     FGet 1, STRING018
  62.     FGet 1, STRING019
  63.     FGet 1, STRING020
  64.     FGet 1, STRING021
  65.     FClose 1
  66.     PrintLn "@POFF@"
  67.     PrintLn "@CLS@@X07"
  68.     PrintLn STRING017
  69.     PrintLn STRING018
  70.     PrintLn STRING019
  71.     PrintLn ""
  72.     DispFile PPEPath() + "ONELINER.DAT", 1
  73.     Newline
  74.     InputStr STRING020 + "_", STRING022, 1, 14, Mask_Ascii(), 8 + 2
  75.     If (STRING022 == "Y") Goto LABEL001
  76.     If (STRING022 == "N") Goto LABEL002
  77.     Goto LABEL002
  78.     :LABEL001
  79.     PrintLn "@CLS@"
  80.     PrintLn "           @X08 Welcome to the AlF Oneliners Coded BY Kenitec Death"
  81.     PrintLn "@X08                        All @X Codes are Excepted"
  82.     PrintLn "@X0101 Dark Blue   @X0202 Dark Green   @X0303 Medium Blue   @X0404 Dark Red   @X05   05 Dark Purple"
  83.     PrintLn ""
  84.     PrintLn "@X0606 Brown       @X0707 Light Grey   @X0808 Drak Grey     @X0909 Lighter Blue  @X0A0A Light Green"
  85.     PrintLn ""
  86.     PrintLn "@X0B0B Light Blue  @X0C0C Light Red    @X0D0D Light Purple  @X0E0E Yellow        @X0F0F Wight"
  87.     PrintLn ""
  88.     PrintLn "@X09)────────────────────────────────────────────────────────────────────────────("
  89.     InputStr "@X00_", STRING023, 14, 79, Mask_Ascii(), 0
  90.     If (STRING023 == "") Goto LABEL002
  91.     FOpen 1, PPEPath() + "ONELINER.DAT", 0, 0
  92.     FGet 1, STRING001
  93.     FGet 1, STRING002
  94.     FGet 1, STRING003
  95.     FGet 1, STRING004
  96.     FGet 1, STRING005
  97.     FGet 1, STRING006
  98.     FGet 1, STRING007
  99.     FGet 1, STRING008
  100.     FGet 1, STRING009
  101.     FGet 1, STRING010
  102.     FGet 1, STRING011
  103.     FGet 1, STRING012
  104.     FGet 1, STRING013
  105.     FGet 1, STRING014
  106.     FGet 1, STRING015
  107.     FGet 1, STRING016
  108.     FClose 1
  109.     FCreate 1, PPEPath() + "ONELINER.DAT", 1, 0
  110.     FPutLn 1, STRING002
  111.     FPutLn 1, STRING003
  112.     FPutLn 1, STRING004
  113.     FPutLn 1, STRING005
  114.     FPutLn 1, STRING006
  115.     FPutLn 1, STRING007
  116.     FPutLn 1, STRING008
  117.     FPutLn 1, STRING009
  118.     FPutLn 1, STRING010
  119.     FPutLn 1, STRING011
  120.     FPutLn 1, STRING012
  121.     FPutLn 1, STRING013
  122.     FPutLn 1, STRING014
  123.     FPutLn 1, STRING015
  124.     FPutLn 1, STRING016
  125.     FPutLn 1, "@X08■@X0A" + STRING023 + "@X08■"
  126.     FClose 1
  127.     PrintLn "@CLS@"
  128.     PrintLn "@X08Your Oneliner Has Been Added"
  129.     Goto LABEL002
  130.     End
  131.     :LABEL002
  132.     PrintLn ""
  133.     PrintLn ""
  134.     PrintLn ""
  135.     PrintLn "@X0FOneliners PPL v1.00 (4.15.94) - by Kenitec Death [AlF]"
  136.     Delay 25
  137.     PrintLn "@PON@"
  138.     If (STRING021 == "Y") Goto LABEL003
  139.     End
  140.     :LABEL003
  141.     PrintLn "@X08@CLS@  Last Few Callers, Part of The AlF Oneliners - CoDed By Kenitec Death [AlF 94]"
  142.     PrintLn "@X07@X0F       Name                           Usernote                Speed  Node"
  143.     PrintLn "     @X0C┌───@X04─@X0C───@X04──@X0C─@X04────────@X0C─@X04─────@X08─@X04───@X08───@X04─@X08─────@X04─@X08──────@X04───@X08───────────@X04─@X08─────────┐"
  144.     DispFile PPEPath() + "ONELINER.LFC", 1
  145.     PrintLn "@X07@X0F     @X0C└───@X04─@X0C───@X04──@X0C─@X04────────@X0C─@X04─────@X08─@X04───@X08───@X04─@X08─────@X04─@X08──────@X04───@X08───────────@X04─@X08─────────┘"
  146.     FOpen 1, PPEPath() + "ONELINER.LFC", 0, 0
  147.     FGet 1, STRING024
  148.     FGet 1, STRING025
  149.     FGet 1, STRING026
  150.     FGet 1, STRING027
  151.     FGet 1, STRING028
  152.     FGet 1, STRING029
  153.     FGet 1, STRING030
  154.     FGet 1, STRING031
  155.     FGet 1, STRING032
  156.     FGet 1, STRING033
  157.     FClose 1
  158.     STRING034 = U_Name()
  159.     STRING035 = UN_City()
  160.     STRING036 = Carrier()
  161.     STRING037 = PcbNode()
  162.     If (OnLocal()) Then
  163.         Goto LABEL004
  164.     Endif
  165.     FCreate 1, PPEPath() + "ONELINER.LFC", 1, 0
  166.     FPutLn 1, STRING025
  167.     FPutLn 1, STRING026
  168.     FPutLn 1, STRING027
  169.     FPutLn 1, STRING028
  170.     FPutLn 1, STRING029
  171.     FPutLn 1, STRING030
  172.     FPutLn 1, STRING031
  173.     FPutLn 1, STRING032
  174.     FPutLn 1, "@X0C@POS:6@│@POS:7@@X0B" + STRING034 + "@POS:33@@X09" + STRING035 + "@POS:63@@X05" + STRING036 + "@POS:71@@X0E" + STRING037 + "@X08@POS:75@│"
  175.     FClose 1
  176.     End
  177.     :LABEL004
  178.     PrintLn "@MORE@"
  179.     End
  180.  
  181. ;------------------------------------------------------------------------------
  182. ;
  183. ; Usage report (before postprocessing)
  184. ;
  185. ; ■ Statements used :
  186. ;
  187. ;    4       End
  188. ;    8       Goto 
  189. ;    4       Let 
  190. ;    28      PrintLn 
  191. ;    5       If 
  192. ;    2       DispFile 
  193. ;    2       FCreate 
  194. ;    3       FOpen 
  195. ;    5       FClose 
  196. ;    31      FGet 
  197. ;    25      FPutLn 
  198. ;    2       InputStr 
  199. ;    1       Delay 
  200. ;    1       Newline
  201. ;
  202. ;
  203. ; ■ Functions used :
  204. ;
  205. ;    19      +
  206. ;    4       ==
  207. ;    1       !
  208. ;    1       U_Name()
  209. ;    2       Mask_Ascii()
  210. ;    7       PPEPath()
  211. ;    1       PcbNode()
  212. ;    1       OnLocal()
  213. ;    1       UN_City()
  214. ;    1       Carrier()
  215. ;
  216. ;------------------------------------------------------------------------------
  217. ;
  218. ; Analysis flags : No flag
  219. ;
  220. ;------------------------------------------------------------------------------
  221. ;
  222. ; Postprocessing report
  223. ;
  224. ;    0       For/Next
  225. ;    0       While/EndWhile
  226. ;    1       If/Then or If/Then/Else
  227. ;    0       Select Case
  228. ;
  229. ;------------------------------------------------------------------------------
  230. ;                 AEGiS Corp - Break the routines, code against the machines!
  231. ;------------------------------------------------------------------------------
  232.