home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TWR-UPLO.ZIP / UPLOAD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-07-26  |  5KB  |  296 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.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     :LABEL001
  40.     Cls
  41.     StartDisp 1
  42.     DispFile PPEPath() + "upload.pcb", 1
  43.     :LABEL002
  44.     STRING001 = "■PRIVATE UPLOAD■"
  45.     STRING003 = "■PUBLIC UPLOAD■"
  46.     STRING004 = "■PROTOKOLL■"
  47.     STRING005 = " Private Upload "
  48.     STRING006 = " Public Upload "
  49.     STRING007 = " Protokoll "
  50.     STRING008 = "■ABORT■"
  51.     STRING009 = " Abort "
  52.     STRING012 = "■SHOW  RULES■"
  53.     STRING013 = " Show  Rules "
  54.     STRING002 = ""
  55.     AnsiPos 11, 13
  56.     PrintLn "@X04", STRING001, "@X04"
  57.     AnsiPos 29, 13
  58.     PrintLn "@X09", STRING006, "@X09"
  59.     AnsiPos 46, 13
  60.     PrintLn "@X09", STRING007, "@X09"
  61.     AnsiPos 59, 13
  62.     PrintLn "@X09", STRING009, "@X09"
  63.     AnsiPos 30, 15
  64.     PrintLn "@X09", STRING013, "@X09"
  65.     While (STRING002 == "") Do
  66.         STRING002 = Inkey()
  67.     EndWhile
  68.     If (STRING002 == Chr(13)) Goto LABEL007
  69.     If (STRING002 == Chr(27)) Goto LABEL011
  70.     If (STRING002 == "RIGHT") Goto LABEL003
  71.     If (STRING002 == "LEFT") Goto LABEL005
  72.     If (STRING002 == "DOWN") Goto LABEL006
  73.     If (STRING002 == "UP") Goto LABEL006
  74.     Goto LABEL002
  75.     :LABEL003
  76.     STRING002 = ""
  77.     AnsiPos 11, 13
  78.     PrintLn "@X09", STRING005, "@X09"
  79.     AnsiPos 29, 13
  80.     PrintLn "@X04", STRING003, "@X04"
  81.     AnsiPos 46, 13
  82.     PrintLn "@X09", STRING007, "@X09"
  83.     AnsiPos 59, 13
  84.     PrintLn "@X09", STRING009, "@X09"
  85.     AnsiPos 30, 15
  86.     PrintLn "@X09", STRING013, "@X09"
  87.     While (STRING002 == "") Do
  88.         STRING002 = Inkey()
  89.     EndWhile
  90.     If (STRING002 == Chr(27)) Goto LABEL011
  91.     If (STRING002 == Chr(13)) Goto LABEL008
  92.     If (STRING002 == "RIGHT") Goto LABEL004
  93.     If (STRING002 == "LEFT") Goto LABEL002
  94.     If (STRING002 == "DOWN") Goto LABEL006
  95.     If (STRING002 == "UP") Goto LABEL006
  96.     Goto LABEL003
  97.     :LABEL004
  98.     STRING002 = ""
  99.     AnsiPos 11, 13
  100.     PrintLn "@X09", STRING005, "@X09"
  101.     AnsiPos 29, 13
  102.     PrintLn "@X09", STRING006, "@X09"
  103.     AnsiPos 46, 13
  104.     PrintLn "@X04", STRING004, "@X04"
  105.     AnsiPos 59, 13
  106.     PrintLn "@X09", STRING009, "@X09"
  107.     AnsiPos 30, 15
  108.     PrintLn "@X09", STRING013, "@X09"
  109.     While (STRING002 == "") Do
  110.         STRING002 = Inkey()
  111.     EndWhile
  112.     If (STRING002 == Chr(27)) Goto LABEL011
  113.     If (STRING002 == Chr(13)) Goto LABEL009
  114.     If (STRING002 == "RIGHT") Goto LABEL005
  115.     If (STRING002 == "LEFT") Goto LABEL003
  116.     If (STRING002 == "DOWN") Goto LABEL006
  117.     If (STRING002 == "UP") Goto LABEL006
  118.     Goto LABEL004
  119.     :LABEL005
  120.     STRING002 = ""
  121.     AnsiPos 11, 13
  122.     PrintLn "@X09", STRING005, "@X09"
  123.     AnsiPos 29, 13
  124.     PrintLn "@X09", STRING006, "@X09"
  125.     AnsiPos 46, 13
  126.     PrintLn "@X09", STRING007, "@X09"
  127.     AnsiPos 59, 13
  128.     PrintLn "@X04", STRING008, "@X04"
  129.     AnsiPos 30, 15
  130.     PrintLn "@X09", STRING013, "@X09"
  131.     While (STRING002 == "") Do
  132.         STRING002 = Inkey()
  133.     EndWhile
  134.     If (STRING002 == Chr(27)) Goto LABEL011
  135.     If (STRING002 == Chr(13)) Goto LABEL011
  136.     If (STRING002 == "RIGHT") Goto LABEL002
  137.     If (STRING002 == "LEFT") Goto LABEL004
  138.     If (STRING002 == "DOWN") Goto LABEL006
  139.     If (STRING002 == "UP") Goto LABEL006
  140.     Goto LABEL005
  141.     :LABEL006
  142.     STRING002 = ""
  143.     AnsiPos 11, 13
  144.     PrintLn "@X09", STRING005, "@X09"
  145.     AnsiPos 29, 13
  146.     PrintLn "@X09", STRING006, "@X09"
  147.     AnsiPos 46, 13
  148.     PrintLn "@X09", STRING007, "@X09"
  149.     AnsiPos 59, 13
  150.     PrintLn "@X09", STRING009, "@X09"
  151.     AnsiPos 30, 15
  152.     PrintLn "@X04", STRING012, "@X04"
  153.     While (STRING002 == "") Do
  154.         STRING002 = Inkey()
  155.     EndWhile
  156.     If (STRING002 == Chr(27)) Goto LABEL006
  157.     If (STRING002 == Chr(13)) Goto LABEL010
  158.     If (STRING002 == "RIGHT") Goto LABEL005
  159.     If (STRING002 == "LEFT") Goto LABEL002
  160.     If (STRING002 == "DOWN") Goto LABEL005
  161.     If (STRING002 == "UP") Goto LABEL002
  162.     Goto LABEL006
  163.     :LABEL007
  164.     STRING010 = "TwR.ZIP"
  165.     STRING011 = "--==■TwR Rules Da World■==--"
  166.     KbdStuff "U" + Chr(13) + STRING010 + Chr(13) + "/" + STRING011 + Chr(13) + Chr(13) + Chr(13) + Chr(13)
  167.     End
  168.     :LABEL008
  169.     STRING010 = "TwR.ZIP"
  170.     STRING011 = "--==■TwR Rules Da World■==--"
  171.     KbdStuff "U" + Chr(13) + STRING010 + Chr(13) + STRING011 + Chr(13) + Chr(13) + Chr(13) + Chr(13)
  172.     End
  173.     :LABEL009
  174.     Cls
  175.     Command 0, "T"
  176.     Delay 10
  177.     PrintLn "@X09New Protokoll Choosen@X09"
  178.     Goto LABEL001
  179.     :LABEL010
  180.     Cls
  181.     DispFile PPEPath() + "rules.pcb", 1
  182.     FOpen 1, PPEPath() + "upload.rul", 3, 2
  183.     FGet 1, STRING012
  184.     FGet 1, STRING013
  185.     FGet 1, STRING014
  186.     FGet 1, STRING015
  187.     FGet 1, STRING016
  188.     FGet 1, STRING017
  189.     FClose 1
  190.     AnsiPos 22, 15
  191.     PrintLn "@X03", STRING012, "@X03"
  192.     AnsiPos 22, 16
  193.     PrintLn "@X03", STRING013, "@X03"
  194.     AnsiPos 22, 17
  195.     PrintLn "@X03", STRING014, "@X03"
  196.     AnsiPos 22, 18
  197.     PrintLn "@X03", STRING015, "@X03"
  198.     AnsiPos 22, 19
  199.     PrintLn "@X03", STRING016, "@X03"
  200.     AnsiPos 22, 20
  201.     PrintLn "@X03", STRING017, "@X03"
  202.     Delay 4
  203.     PrintLn ""
  204.     FreshLine
  205.     Wait
  206.     Goto LABEL001
  207.     :LABEL011
  208.     Cls
  209.     Delay 4
  210.     AnsiPos 30, 3
  211.     PrintLn "@X05a@X05"
  212.     Delay 4
  213.     AnsiPos 30, 3
  214.     PrintLn "@X05HaN@X05"
  215.     Delay 4
  216.     AnsiPos 30, 3
  217.     PrintLn "@X05 HaNi@X05"
  218.     Delay 4
  219.     AnsiPos 30, 3
  220.     PrintLn "@X05y HaNiB@X05"
  221.     Delay 4
  222.     AnsiPos 30, 3
  223.     PrintLn "@X05By HaNiBa@X05"
  224.     Delay 4
  225.     AnsiPos 30, 3
  226.     PrintLn "@X05 By HaNiBaL@X05"
  227.     Delay 4
  228.     AnsiPos 30, 3
  229.     PrintLn "@X05e By HaNiBaL^@X05"
  230.     Delay 4
  231.     AnsiPos 30, 3
  232.     PrintLn "@X05ne By HaNiBaL^T@X05"
  233.     Delay 4
  234.     AnsiPos 30, 3
  235.     PrintLn "@X05one By HaNiBaL^Tw@X05"
  236.     Delay 4
  237.     AnsiPos 30, 3
  238.     PrintLn "@X05Done By HaNiBaL^TwR@X05"
  239.     Delay 4
  240.     AnsiPos 30, 3
  241.     PrintLn "@X03Done By HaNiBaL^TwR@X03"
  242.     AnsiPos 30, 10
  243.     Delay 8
  244.     End
  245.  
  246. ;------------------------------------------------------------------------------
  247. ;
  248. ; Usage report (before postprocessing)
  249. ;
  250. ; ■ Statements used :
  251. ;
  252. ;    3       End
  253. ;    4       Cls
  254. ;    1       Wait
  255. ;    48      Goto 
  256. ;    24      Let 
  257. ;    44      PrintLn 
  258. ;    35      If 
  259. ;    2       DispFile 
  260. ;    1       FOpen 
  261. ;    1       FClose 
  262. ;    6       FGet 
  263. ;    1       StartDisp 
  264. ;    14      Delay 
  265. ;    2       KbdStuff 
  266. ;    43      AnsiPos 
  267. ;    1       FreshLine
  268. ;    1       Command 
  269. ;
  270. ;
  271. ; ■ Functions used :
  272. ;
  273. ;    20      +
  274. ;    35      ==
  275. ;    5       !
  276. ;    22      Chr()
  277. ;    5       Inkey()
  278. ;    3       PPEPath()
  279. ;
  280. ;------------------------------------------------------------------------------
  281. ;
  282. ; Analysis flags : No flag
  283. ;
  284. ;------------------------------------------------------------------------------
  285. ;
  286. ; Postprocessing report
  287. ;
  288. ;    0       For/Next
  289. ;    5       While/EndWhile
  290. ;    0       If/Then or If/Then/Else
  291. ;    0       Select Case
  292. ;
  293. ;------------------------------------------------------------------------------
  294. ;                 AEGiS Corp - Break the routines, code against the machines!
  295. ;------------------------------------------------------------------------------
  296.