home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TWR-DOWN.ZIP / DOWNLOAD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-07-27  |  4KB  |  260 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 3.3O (Encryption type II) - 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.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     :LABEL001
  35.     Cls
  36.     StartDisp 1
  37.     DispFile PPEPath() + "DOWNLOAD.PCB", 1
  38.     :LABEL002
  39.     STRING001 = ""
  40.     STRING002 = " Download "
  41.     STRING003 = "■Download■"
  42.     STRING004 = " Goodbye After "
  43.     STRING005 = "■Goodbye After■"
  44.     STRING006 = " Protokoll "
  45.     STRING007 = "■Protokoll■"
  46.     STRING008 = " Edit Batch "
  47.     STRING009 = "■Edit Batch■"
  48.     STRING010 = " Abort "
  49.     STRING011 = "■Abort■"
  50.     STRING012 = "DOWNLOAD PROZESSOR v1.o"
  51.     AnsiPos 8, 14
  52.     PrintLn "@X06", STRING003, "@X06"
  53.     AnsiPos 20, 14
  54.     PrintLn "@X09", STRING004, "@X09"
  55.     AnsiPos 37, 14
  56.     PrintLn "@X09", STRING006, "@X09"
  57.     AnsiPos 50, 14
  58.     PrintLn "@X09", STRING008, "@X09"
  59.     AnsiPos 63, 14
  60.     PrintLn "@X09", STRING010, "@X09"
  61.     While (STRING001 == "") Do
  62.         STRING001 = Inkey()
  63.     EndWhile
  64.     If (STRING001 == Chr(27)) Goto LABEL011
  65.     If (STRING001 == Chr(13)) Goto LABEL007
  66.     If (STRING001 == "RIGHT") Goto LABEL003
  67.     If (STRING001 == "LEFT") Goto LABEL006
  68.     If (STRING001 == "UP") Goto LABEL012
  69.     Goto LABEL002
  70.     :LABEL003
  71.     STRING001 = ""
  72.     AnsiPos 8, 14
  73.     PrintLn "@X09", STRING002, "@X09"
  74.     AnsiPos 20, 14
  75.     PrintLn "@X06", STRING005, "@X06"
  76.     AnsiPos 37, 14
  77.     PrintLn "@X09", STRING006, "@X09"
  78.     AnsiPos 50, 14
  79.     PrintLn "@X09", STRING008, "@X09"
  80.     AnsiPos 63, 14
  81.     PrintLn "@X09", STRING010, "@X09"
  82.     While (STRING001 == "") Do
  83.         STRING001 = Inkey()
  84.     EndWhile
  85.     If (STRING001 == Chr(27)) Goto LABEL011
  86.     If (STRING001 == Chr(13)) Goto LABEL008
  87.     If (STRING001 == "RIGHT") Goto LABEL004
  88.     If (STRING001 == "LEFT") Goto LABEL002
  89.     If (STRING001 == "UP") Goto LABEL012
  90.     Goto LABEL003
  91.     :LABEL004
  92.     STRING001 = ""
  93.     AnsiPos 8, 14
  94.     PrintLn "@X09", STRING002, "@X09"
  95.     AnsiPos 20, 14
  96.     PrintLn "@X09", STRING004, "@X09"
  97.     AnsiPos 37, 14
  98.     PrintLn "@X06", STRING007, "@X06"
  99.     AnsiPos 50, 14
  100.     PrintLn "@X09", STRING008, "@X09"
  101.     AnsiPos 63, 14
  102.     PrintLn "@X09", STRING010, "@X09"
  103.     While (STRING001 == "") Do
  104.         STRING001 = Inkey()
  105.     EndWhile
  106.     If (STRING001 == Chr(27)) Goto LABEL011
  107.     If (STRING001 == Chr(13)) Goto LABEL009
  108.     If (STRING001 == "RIGHT") Goto LABEL005
  109.     If (STRING001 == "LEFT") Goto LABEL003
  110.     If (STRING001 == "UP") Goto LABEL012
  111.     Goto LABEL004
  112.     :LABEL005
  113.     STRING001 = ""
  114.     AnsiPos 8, 14
  115.     PrintLn "@X09", STRING002, "@X09"
  116.     AnsiPos 20, 14
  117.     PrintLn "@X09", STRING004, "@X09"
  118.     AnsiPos 37, 14
  119.     PrintLn "@X09", STRING006, "@X09"
  120.     AnsiPos 50, 14
  121.     PrintLn "@X06", STRING009, "@X06"
  122.     AnsiPos 63, 14
  123.     PrintLn "@X09", STRING010, "@X09"
  124.     While (STRING001 == "") Do
  125.         STRING001 = Inkey()
  126.     EndWhile
  127.     If (STRING001 == Chr(27)) Goto LABEL011
  128.     If (STRING001 == Chr(13)) Goto LABEL010
  129.     If (STRING001 == "RIGHT") Goto LABEL006
  130.     If (STRING001 == "LEFT") Goto LABEL004
  131.     If (STRING001 == "UP") Goto LABEL012
  132.     Goto LABEL005
  133.     :LABEL006
  134.     STRING001 = ""
  135.     AnsiPos 8, 14
  136.     PrintLn "@X09", STRING002, "@X09"
  137.     AnsiPos 20, 14
  138.     PrintLn "@X09", STRING004, "@X09"
  139.     AnsiPos 37, 14
  140.     PrintLn "@X09", STRING006, "@X09"
  141.     AnsiPos 50, 14
  142.     PrintLn "@X09", STRING008, "@X09"
  143.     AnsiPos 63, 14
  144.     PrintLn "@X06", STRING011, "@X06"
  145.     While (STRING001 == "") Do
  146.         STRING001 = Inkey()
  147.     EndWhile
  148.     If (STRING001 == Chr(27)) Goto LABEL011
  149.     If (STRING001 == Chr(13)) Goto LABEL011
  150.     If (STRING001 == "RIGHT") Goto LABEL002
  151.     If (STRING001 == "LEFT") Goto LABEL005
  152.     If (STRING001 == "UP") Goto LABEL012
  153.     Goto LABEL006
  154.     :LABEL007
  155.     KbdStuff "D" + Chr(13) + Chr(13) + Chr(13) + Chr(13)
  156.     Goto LABEL011
  157.     :LABEL008
  158.     KbdStuff "D" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + "G"
  159.     Goto LABEL011
  160.     :LABEL009
  161.     Command 0, "T"
  162.     Goto LABEL001
  163.     :LABEL010
  164.     KbdStuff "D" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + "E"
  165.     End
  166.     :LABEL011
  167.     Cls
  168.     FreshLine
  169.     AnsiPos 20, 30
  170.     Print "@X02TwR RuleZ Da@X02"
  171.     Delay 2
  172.     AnsiPos 20, 30
  173.     Print "@X03TwR RuleZ Da WorlD@X03"
  174.     Delay 2
  175.     AnsiPos 20, 30
  176.     Print "@X04TwR RuleZ Da@X04"
  177.     Delay 2
  178.     AnsiPos 20, 30
  179.     Print "@X05TwR RuleZ Da WorlD@X05"
  180.     Delay 2
  181.     AnsiPos 20, 30
  182.     Print "@X06TwR RuleZ Da@X06"
  183.     Delay 2
  184.     AnsiPos 20, 30
  185.     Print "@X07TwR RuleZ Da WorlD@X07"
  186.     Cls
  187.     End
  188.     :LABEL012
  189.     AnsiPos 8, 14
  190.     PrintLn "@X09", STRING002, "@X09"
  191.     AnsiPos 20, 14
  192.     PrintLn "@X09", STRING004, "@X09"
  193.     AnsiPos 37, 14
  194.     PrintLn "@X09", STRING006, "@X09"
  195.     AnsiPos 50, 14
  196.     PrintLn "@X09", STRING008, "@X09"
  197.     AnsiPos 63, 14
  198.     PrintLn "@X09", STRING010, "@X09"
  199.     AnsiPos 26, 12
  200.     PrintLn "@X1F", STRING012, "@X1F"
  201.     Delay 6
  202.     AnsiPos 26, 16
  203.     Print "@X08╔═════════════════════╗@X08"
  204.     AnsiPos 26, 17
  205.     Print "@X08║ Download Prozessor  ║@X08"
  206.     AnsiPos 26, 18
  207.     Print "@X08║ v1.o By HaNiBaL^TwR ║@X08"
  208.     AnsiPos 26, 19
  209.     Print "@X08╚═════════════════════╝@X08"
  210.     Delay 10
  211.     Goto LABEL001
  212.  
  213. ;------------------------------------------------------------------------------
  214. ;
  215. ; Usage report (before postprocessing)
  216. ;
  217. ; ■ Statements used :
  218. ;
  219. ;    2       End
  220. ;    3       Cls
  221. ;    45      Goto 
  222. ;    21      Let 
  223. ;    10      Print 
  224. ;    31      PrintLn 
  225. ;    30      If 
  226. ;    1       DispFile 
  227. ;    1       StartDisp 
  228. ;    7       Delay 
  229. ;    3       KbdStuff 
  230. ;    41      AnsiPos 
  231. ;    1       FreshLine
  232. ;    1       Command 
  233. ;
  234. ;
  235. ; ■ Functions used :
  236. ;
  237. ;    15      +
  238. ;    30      ==
  239. ;    5       !
  240. ;    22      Chr()
  241. ;    5       Inkey()
  242. ;    1       PPEPath()
  243. ;
  244. ;------------------------------------------------------------------------------
  245. ;
  246. ; Analysis flags : No flag
  247. ;
  248. ;------------------------------------------------------------------------------
  249. ;
  250. ; Postprocessing report
  251. ;
  252. ;    0       For/Next
  253. ;    5       While/EndWhile
  254. ;    0       If/Then or If/Then/Else
  255. ;    0       Select Case
  256. ;
  257. ;------------------------------------------------------------------------------
  258. ;                 AEGiS Corp - Break the routines, code against the machines!
  259. ;------------------------------------------------------------------------------
  260.