home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / RD_STATS.ZIP / RD-STATS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-02-20  |  5KB  |  221 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.     String   STRING001
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     PrintLn "@CLS@@X01─────────────────@X09─@X01─@X09──@X03─@X09─@X03──@X0B─@X03─@X0B──@X0F─@X0B─@X0F──@X0B─@X0F─────────────@X0B─@X0F──@X0B─@X0F─@X0B──@X03─@X0B─@X03──@X09─@X03─@X09──@X01─@X09─@X01───────────────"
  25.     PrintLn "@X01                       @X09K-RaD [@X0BSTATS@X09] 1.o Coded By @X0FR@X0Ba@X03D@X09i@X01CaL"
  26.     PrintLn "@X01────────────────@X09─@X01─@X09──@X03─@X09─@X03──@X0B─@X03─@X0B──@X0F─@X0B─@X0F──@X0B─@X0F─────────────@X0B─@X0F──@X0B─@X0F─@X0B──@X03─@X0B─@X03──@X09─@X03─@X09──@X01─@X09─@X01────────────────"
  27.     PrintLn " "
  28.     PrintLn "@X01                          @X0F▄@X7F█▄@X0F @X08▄@X07▄@X0F▄▄▄▀ ▄@X07▄▀  @X08▄@X07▄@X0F▄▄▄▀  ▄█@X7F▄@X07"
  29.     PrintLn "@X0F                        ▄█▀▀@X08▄@X78▀@X7F▄@X0F▀@X07▀@X08▄ @X0F▄█▀@X08▄ ▄@X78▀@X7F▄@X0F▀@X07▀@X08▄  @X0F▄█▀▀"
  30.     PrintLn "@X0F                       @X07▀ @X08▄@X78▀@X0F▄   @X08▐@X78▀@X08▌@X0F▐█   @X7F▄@X07▄  @X08▐@X78▀@X08▌ @X07▀ @X08▄@X78▀@X0F▄"
  31.     PrintLn "@X0F                          ▀@X7F▄@X0F▌   @X7F▀@X0F▌█▌ ▄@X78▀@X0F▐@X7F▀@X0F▌  @X7F▀@X0F▌    ▀@X7F▄@X0F▌"
  32.     PrintLn "@X0F                        ▄▄@X7F█@X0F▀    ▐@X07▌@X0F█ ▄@X07▀ @X0F▐██  ▐@X07▌  @X0F▄▄█▀"
  33.     PrintLn "@X0F                      @X07▄@X7F▀@X0F█▀      @X07▐ ▀    @X0F█▀   @X07▐ ▄@X7F▀@X0F█▀"
  34.     PrintLn "@X0F                        @X07▀                       ▀"
  35.     PrintLn "@X07                     @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  36.     PrintLn "@X07                     @X0F█@X07████████████████████████@X77 @X07██████@X78░@X07"
  37.     PrintLn "@X0F                     █@X7F      @X07█@X77                      @X07██@X78▒@X07"
  38.     PrintLn "@X0F                     █@X07█@X78──══φ@X07█@X78 PeRSoNaL STaTS!  φ══──@X07█@X78▓@X07"
  39.     PrintLn "@X0F                     █@X07█@X78──══φ@X07█@X77 @X78MeSSaGe STaTS!!  φ══──@X07█@X08█"
  40.     PrintLn "@X08                     @X0F█@X07█@X78──══φ@X07█@X77 @X78FiLe STaTiSTiCS  φ══──@X07█@X08█"
  41.     PrintLn "@X08                     @X7F▓@X07█@X78──══φ@X07█@X77 @X78BaCK To THe BBS  φ══──@X07█@X08█"
  42.     PrintLn "@X08                     @X7F▒@X07█@X77     @X07█@X77                      @X07██@X08█"
  43.     PrintLn "@X08                     @X7F░@X07███@X77 @X07█@X77 @X07█@X77                        @X08█"
  44.     PrintLn "@X08                     @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  45.     INTEGER001 = 1
  46.     :LABEL001
  47.     If (TRUE) Goto LABEL002
  48.     STRING001 = Inkey()
  49.     If (STRING001 == "UP") Goto LABEL002
  50.     If (STRING001 == "LEFT") Goto LABEL002
  51.     If (STRING001 == "RIGHT") Goto LABEL003
  52.     If (STRING001 == "a") Goto LABEL002
  53.     If (STRING001 == "z") Goto LABEL003
  54.     If (STRING001 == "DOWN") Goto LABEL003
  55.     If (STRING001 == Chr(13)) Goto LABEL009
  56.     Goto LABEL001
  57.     :LABEL002
  58.     INTEGER001 = INTEGER001 - 1
  59.     Goto LABEL004
  60.     End
  61.     :LABEL003
  62.     INTEGER001 = INTEGER001 + 1
  63.     Goto LABEL004
  64.     End
  65.     :LABEL004
  66.     If (INTEGER001 > 4) INTEGER001 = 1
  67.     If (INTEGER001 < 1) INTEGER001 = 4
  68.     If (INTEGER001 == "1") Goto LABEL005
  69.     If (INTEGER001 == "2") Goto LABEL006
  70.     If (INTEGER001 == "3") Goto LABEL007
  71.     If (INTEGER001 == "4") Goto LABEL008
  72.     End
  73.     :LABEL005
  74.     Print "@POFF@"
  75.     AnsiPos 30, 16
  76.     PrintLn "@X78 MeSSaGe STaTS!! "
  77.     AnsiPos 30, 17
  78.     PrintLn "@X78 FiLe STaTiSTiCS "
  79.     AnsiPos 30, 18
  80.     PrintLn "@X78 BaCK To THe BBS "
  81.     AnsiPos 30, 15
  82.     PrintLn "@X1F PeRSoNaL STaTS! "
  83.     INTEGER001 = "1"
  84.     Goto LABEL001
  85.     End
  86.     :LABEL006
  87.     Print "@POFF@"
  88.     AnsiPos 30, 15
  89.     PrintLn "@X78 PeRSoNaL STaTS! "
  90.     AnsiPos 30, 17
  91.     PrintLn "@X78 FiLe STaTiSTiCS "
  92.     AnsiPos 30, 18
  93.     PrintLn "@X78 BaCK To THe BBS "
  94.     AnsiPos 30, 16
  95.     PrintLn "@X1F MeSSaGe STaTS!! "
  96.     INTEGER001 = "2"
  97.     Goto LABEL001
  98.     End
  99.     :LABEL007
  100.     Print "@POFF@"
  101.     AnsiPos 30, 15
  102.     PrintLn "@X78 PeRSoNaL STaTS! "
  103.     AnsiPos 30, 16
  104.     PrintLn "@X78 MeSSaGe STaTS!! "
  105.     AnsiPos 30, 18
  106.     PrintLn "@X78 BaCK To THe BBS "
  107.     AnsiPos 30, 17
  108.     PrintLn "@X1F FiLe STaTiSTiCS "
  109.     INTEGER001 = "3"
  110.     Goto LABEL001
  111.     End
  112.     :LABEL008
  113.     Print "@POFF@"
  114.     AnsiPos 30, 15
  115.     PrintLn "@X78 PeRSoNaL STaTS! "
  116.     AnsiPos 30, 16
  117.     PrintLn "@X78 MeSSaGe STaTS!! "
  118.     AnsiPos 30, 17
  119.     PrintLn "@X78 FiLe STaTiSTiCS "
  120.     AnsiPos 30, 18
  121.     PrintLn "@X1F BaCK To THe BBS "
  122.     INTEGER001 = "4"
  123.     Goto LABEL001
  124.     End
  125.     :LABEL009
  126.     If (INTEGER001 == "1") Goto LABEL011
  127.     If (INTEGER001 == "2") Goto LABEL012
  128.     If (INTEGER001 == "3") Goto LABEL013
  129.     If (INTEGER001 == "4") Goto LABEL010
  130.     End
  131.     :LABEL010
  132.     Color 15
  133.     Cls
  134.     End
  135.     :LABEL011
  136.     DispFile PPEPath() + "P.ANS", 1
  137.     Wait
  138.     Goto LABEL014
  139.     End
  140.     :LABEL012
  141.     DispFile PPEPath() + "M.ANS", 1
  142.     Wait
  143.     Goto LABEL014
  144.     End
  145.     :LABEL013
  146.     DispFile PPEPath() + "F.ANS", 1
  147.     Wait
  148.     Goto LABEL014
  149.     End
  150.     :LABEL014
  151.     PrintLn "@CLS@@X01─────────────────@X09─@X01─@X09──@X03─@X09─@X03──@X0B─@X03─@X0B──@X0F─@X0B─@X0F──@X0B─@X0F─────────────@X0B─@X0F──@X0B─@X0F─@X0B──@X03─@X0B─@X03──@X09─@X03─@X09──@X01─@X09─@X01───────────────"
  152.     PrintLn "@X01                       @X09K-RaD [@X0BSTATS@X09] 1.o Coded By @X0FR@X0Ba@X03D@X09i@X01CaL"
  153.     PrintLn "@X01────────────────@X09─@X01─@X09──@X03─@X09─@X03──@X0B─@X03─@X0B──@X0F─@X0B─@X0F──@X0B─@X0F─────────────@X0B─@X0F──@X0B─@X0F─@X0B──@X03─@X0B─@X03──@X09─@X03─@X09──@X01─@X09─@X01────────────────"
  154.     PrintLn " "
  155.     PrintLn "@X01                          @X0F▄@X7F█▄@X0F @X08▄@X07▄@X0F▄▄▄▀ ▄@X07▄▀  @X08▄@X07▄@X0F▄▄▄▀  ▄█@X7F▄@X07"
  156.     PrintLn "@X0F                        ▄█▀▀@X08▄@X78▀@X7F▄@X0F▀@X07▀@X08▄ @X0F▄█▀@X08▄ ▄@X78▀@X7F▄@X0F▀@X07▀@X08▄  @X0F▄█▀▀"
  157.     PrintLn "@X0F                       @X07▀ @X08▄@X78▀@X0F▄   @X08▐@X78▀@X08▌@X0F▐█   @X7F▄@X07▄  @X08▐@X78▀@X08▌ @X07▀ @X08▄@X78▀@X0F▄"
  158.     PrintLn "@X0F                          ▀@X7F▄@X0F▌   @X7F▀@X0F▌█▌ ▄@X78▀@X0F▐@X7F▀@X0F▌  @X7F▀@X0F▌    ▀@X7F▄@X0F▌"
  159.     PrintLn "@X0F                        ▄▄@X7F█@X0F▀    ▐@X07▌@X0F█ ▄@X07▀ @X0F▐██  ▐@X07▌  @X0F▄▄█▀"
  160.     PrintLn "@X0F                      @X07▄@X7F▀@X0F█▀      @X07▐ ▀    @X0F█▀   @X07▐ ▄@X7F▀@X0F█▀"
  161.     PrintLn "@X0F                        @X07▀                       ▀"
  162.     PrintLn "@X07                     @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  163.     PrintLn "@X07                     @X0F█@X07████████████████████████@X77 @X07██████@X78░@X07"
  164.     PrintLn "@X0F                     █@X7F      @X07█@X77                      @X07██@X78▒@X07"
  165.     PrintLn "@X0F                     █@X07█@X78──══φ@X07█@X78 PeRSoNaL STaTS!  φ══──@X07█@X78▓@X07"
  166.     PrintLn "@X0F                     █@X07█@X78──══φ@X07█@X77 @X78MeSSaGe STaTS!!  φ══──@X07█@X08█"
  167.     PrintLn "@X08                     @X0F█@X07█@X78──══φ@X07█@X77 @X78FiLe STaTiSTiCS  φ══──@X07█@X08█"
  168.     PrintLn "@X08                     @X7F▓@X07█@X78──══φ@X07█@X77 @X78BaCK To THe BBS  φ══──@X07█@X08█"
  169.     PrintLn "@X08                     @X7F▒@X07█@X77     @X07█@X77                      @X07██@X08█"
  170.     PrintLn "@X08                     @X7F░@X07███@X77 @X07█@X77 @X07█@X77                        @X08█"
  171.     PrintLn "@X08                     @X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  172.     Goto LABEL001
  173.  
  174. ;------------------------------------------------------------------------------
  175. ;
  176. ; Usage report (before postprocessing)
  177. ;
  178. ; ■ Statements used :
  179. ;
  180. ;    12      End
  181. ;    1       Cls
  182. ;    3       Wait
  183. ;    1       Color 
  184. ;    27      Goto 
  185. ;    10      Let 
  186. ;    4       Print 
  187. ;    58      PrintLn 
  188. ;    18      If 
  189. ;    3       DispFile 
  190. ;    16      AnsiPos 
  191. ;
  192. ;
  193. ; ■ Functions used :
  194. ;
  195. ;    4       +
  196. ;    1       -
  197. ;    15      ==
  198. ;    1       <
  199. ;    1       >
  200. ;    1       !
  201. ;    1       Chr()
  202. ;    1       Inkey()
  203. ;    3       PPEPath()
  204. ;
  205. ;------------------------------------------------------------------------------
  206. ;
  207. ; Analysis flags : No flag
  208. ;
  209. ;------------------------------------------------------------------------------
  210. ;
  211. ; Postprocessing report
  212. ;
  213. ;    0       For/Next
  214. ;    0       While/EndWhile
  215. ;    0       If/Then or If/Then/Else
  216. ;    0       Select Case
  217. ;
  218. ;------------------------------------------------------------------------------
  219. ;                 AEGiS Corp - Break the routines, code against the machines!
  220. ;------------------------------------------------------------------------------
  221.