home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TGX!UL1.ZIP / UPLOAD.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-08-07  |  4KB  |  292 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.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Declare  Procedure PROC001()
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     PROC001()
  24.     End
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     Procedure PROC001()
  29.  
  30.     String   STRING001
  31.     String   STRING002
  32.     String   STRING003
  33.     String   STRING004
  34.     String   STRING005
  35.     String   STRING006
  36.     String   STRING007
  37.     String   STRING008
  38.     String   STRING009
  39.     String   STRING010
  40.     String   STRING011
  41.     String   STRING012
  42.     String   STRING013
  43.     Integer  INTEGER002
  44.     Integer  INTEGER003
  45.     Integer  INTEGER004
  46.     String   STRING014
  47.     String   STRING015
  48.     String   STRING016
  49.     String   STRING017
  50.     String   STRING018
  51.     Integer  INTEGER005
  52.     Integer  INTEGER006
  53.     String   STRING019
  54.     String   STRING020
  55.     String   STRING021
  56.     String   STRING022
  57.     String   STRING023
  58.     String   STRING024
  59.     String   STRING025
  60.  
  61.     GetUser
  62.     INTEGER002 = CurSec()
  63.     INTEGER003 = ReadLine(PPEPath() + "upload.cfg", 1)
  64.     INTEGER004 = ReadLine(PPEPath() + "upload.cfg", 2)
  65.     STRING001 = ReadLine(PPEPath() + "upload.cfg", 3)
  66.     STRING002 = ReadLine(PPEPath() + "upload.cfg", 4)
  67.     STRING014 = ReadLine(PPEPath() + "upload.cfg", 5)
  68.     STRING015 = ReadLine(PPEPath() + "upload.cfg", 6)
  69.     STRING016 = ReadLine(PPEPath() + "upload.cfg", 7)
  70.     STRING017 = ReadLine(PPEPath() + "upload.cfg", 8)
  71.     STRING003 = ReadLine(PPEPath() + "upload.cfg", 9)
  72.     STRING018 = ReadLine(PPEPath() + "upload.cfg", 10)
  73.     INTEGER005 = ReadLine(PPEPath() + "upload.cfg", 11)
  74.     INTEGER006 = ReadLine(PPEPath() + "upload.cfg", 12)
  75.     STRING020 = ReadLine(PPEPath() + "upload.cfg", 13)
  76.     STRING021 = ReadLine(PPEPath() + "upload.cfg", 14)
  77.     STRING022 = ReadLine(PPEPath() + "upload.cfg", 15)
  78.     STRING019 = ReadLine(PPEPath() + "upload.cfg", 16)
  79.     STRING004 = STRING001 + STRING014
  80.     STRING005 = STRING001 + STRING015
  81.     STRING007 = STRING001 + STRING016
  82.     STRING006 = STRING001 + STRING017
  83.     STRING008 = STRING002 + STRING014
  84.     STRING009 = STRING002 + STRING015
  85.     STRING011 = STRING002 + STRING016
  86.     STRING010 = STRING002 + STRING017
  87.     Cls
  88.     If (STRING018 == "NO") Goto LABEL005
  89.     DispFile PPEPath() + "rules.pcb", 4 + 2 + 1
  90.     STRING023 = STRING021 + " " + STRING022 + "[YES]" + STRING021 + " [NO]"
  91.     STRING024 = STRING021 + " " + STRING021 + "[YES] " + STRING022 + "[NO]"
  92.     If (STRING019 == "YES") Goto LABEL001
  93.     If (STRING019 == "NO") Goto LABEL003
  94.     :LABEL001
  95.     AnsiPos INTEGER005, INTEGER006
  96.     Print STRING021 + STRING020 + STRING023
  97.     :LABEL002
  98.     STRING025 = Inkey()
  99.     If (STRING025 == "RIGHT") Goto LABEL003
  100.     If (STRING025 == "LEFT") Goto LABEL003
  101.     If (STRING025 == Chr(13)) Goto LABEL005
  102.     Goto LABEL002
  103.     :LABEL003
  104.     AnsiPos INTEGER005, INTEGER006
  105.     Print STRING021 + STRING020 + STRING024
  106.     :LABEL004
  107.     STRING025 = Inkey()
  108.     If (STRING025 == "RIGHT") Goto LABEL001
  109.     If (STRING025 == "LEFT") Goto LABEL001
  110.     If (STRING025 == Chr(13)) Goto LABEL019
  111.     Goto LABEL004
  112.     :LABEL005
  113.     Print "@X0F"
  114.     Cls
  115.     DispFile PPEPath() + "upload.pcb", 4 + 2 + 1
  116.     AnsiPos 58, 23
  117.     Print STRING001 + "CoDeD By: NaiLeZ [TgX]"
  118.     :LABEL006
  119.     AnsiPos INTEGER003, INTEGER004
  120.     Print STRING008
  121.     AnsiPos INTEGER003, INTEGER004 + 1
  122.     Print STRING005
  123.     AnsiPos INTEGER003, INTEGER004 + 2
  124.     Print STRING007
  125.     AnsiPos INTEGER003, INTEGER004 + 3
  126.     Print STRING006
  127.     :LABEL007
  128.     STRING012 = Inkey()
  129.     If (STRING012 == "DOWN") Goto LABEL009
  130.     If (STRING012 == "UP") Goto LABEL013
  131.     If (STRING012 == Chr(13)) Goto LABEL015
  132.     If (STRING012 == "LEFT") Then
  133.         :LABEL008
  134.         STRING013 = Inkey()
  135.         If (STRING013 == "END") Then
  136.             U_Sec = 80
  137.             PutUser
  138.         Endif
  139.         If (STRING013 == "HOME") Then
  140.             U_Sec = INTEGER002
  141.             PutUser
  142.         Endif
  143.         If (STRING013 == "DOWN") Goto LABEL009
  144.         If (STRING013 == "UP") Goto LABEL013
  145.         Goto LABEL008
  146.     Endif
  147.     Goto LABEL007
  148.     :LABEL009
  149.     AnsiPos INTEGER003, INTEGER004
  150.     Print STRING004
  151.     AnsiPos INTEGER003, INTEGER004 + 1
  152.     Print STRING009
  153.     AnsiPos INTEGER003, INTEGER004 + 2
  154.     Print STRING007
  155.     AnsiPos INTEGER003, INTEGER004 + 3
  156.     Print STRING006
  157.     AnsiPos 58, 23
  158.     Print STRING001 + "CoDeD By: NaiLeZ [TgX]"
  159.     :LABEL010
  160.     STRING012 = Inkey()
  161.     If (STRING012 == "UP") Goto LABEL006
  162.     If (STRING012 == "DOWN") Goto LABEL011
  163.     If (STRING012 == Chr(13)) Goto LABEL016
  164.     Goto LABEL010
  165.     :LABEL011
  166.     AnsiPos INTEGER003, INTEGER004
  167.     Print STRING004
  168.     AnsiPos INTEGER003, INTEGER004 + 1
  169.     Print STRING005
  170.     AnsiPos INTEGER003, INTEGER004 + 2
  171.     Print STRING011
  172.     AnsiPos INTEGER003, INTEGER004 + 3
  173.     Print STRING006
  174.     :LABEL012
  175.     STRING012 = Inkey()
  176.     If (STRING012 == "UP") Goto LABEL009
  177.     If (STRING012 == "DOWN") Goto LABEL013
  178.     If (STRING012 == Chr(13)) Goto LABEL017
  179.     Goto LABEL012
  180.     :LABEL013
  181.     AnsiPos INTEGER003, INTEGER004
  182.     Print STRING004
  183.     AnsiPos INTEGER003, INTEGER004 + 1
  184.     Print STRING005
  185.     AnsiPos INTEGER003, INTEGER004 + 2
  186.     Print STRING007
  187.     AnsiPos INTEGER003, INTEGER004 + 3
  188.     Print STRING010
  189.     :LABEL014
  190.     STRING012 = Inkey()
  191.     If (STRING012 == "UP") Goto LABEL011
  192.     If (STRING012 == "DOWN") Goto LABEL006
  193.     If (STRING012 == Chr(13)) Goto LABEL018
  194.     Goto LABEL014
  195.     :LABEL015
  196.     Print "@X0F"
  197.     Cls
  198.     KbdStuff "u" + Chr(13)
  199.     KbdStuff "FILENAME.EXP" + Chr(13)
  200.     KbdStuff "FILE_ID.DIZ INSIDE"
  201.     KbdStuff Chr(13)
  202.     KbdStuff Chr(13) + Chr(13)
  203.     End
  204.     :LABEL016
  205.     Print "@X0F"
  206.     Cls
  207.     KbdStuff "u" + Chr(13)
  208.     KbdStuff "FILENAME.EXP"
  209.     KbdStuff Chr(13)
  210.     KbdStuff "/FILE_ID.DIZ INSIDE"
  211.     KbdStuff Chr(13)
  212.     KbdStuff Chr(13) + Chr(13)
  213.     End
  214.     :LABEL017
  215.     Print "@X0F"
  216.     Cls
  217.     Call STRING003
  218.     Goto LABEL005
  219.     :LABEL018
  220.     Print "@X0F"
  221.     Cls
  222.     KbdStuff Chr(13) + Chr(13)
  223.     KbdStuff "menu" + Chr(13)
  224.     End
  225.     :LABEL019
  226.     Print "@X0F"
  227.     Cls
  228.     KbdStuff "menu" + Chr(13)
  229.     End
  230.  
  231.     EndProc
  232.  
  233.  
  234. ;------------------------------------------------------------------------------
  235. ;
  236. ; Usage report (before postprocessing)
  237. ;
  238. ; ■ Statements used :
  239. ;
  240. ;    5       End
  241. ;    7       Cls
  242. ;    34      Goto 
  243. ;    36      Let 
  244. ;    26      Print 
  245. ;    26      If 
  246. ;    2       DispFile 
  247. ;    1       GetUser
  248. ;    2       PutUser
  249. ;    14      KbdStuff 
  250. ;    1       Call 
  251. ;    20      AnsiPos 
  252. ;    1       EndProc
  253. ;
  254. ;
  255. ; ■ Functions used :
  256. ;
  257. ;    66      +
  258. ;    26      ==
  259. ;    3       !
  260. ;    20      Chr()
  261. ;    7       Inkey()
  262. ;    18      PPEPath()
  263. ;    16      ReadLine()
  264. ;    1       CurSec()
  265. ;
  266. ;------------------------------------------------------------------------------
  267. ;
  268. ; Analysis flags : WC
  269. ;
  270. ; W - Write user ■ 5
  271. ;     Program writes a user record. Although this may be normal for a
  272. ;     User Editor, it may also be a way to modify an account level.
  273. ;     ■ Search for : PUTUSER
  274. ;
  275. ; C - Call child PPE ■ 3
  276. ;     This is usually normal, but may be a tricky way to launch some
  277. ;     sysop-only commands.
  278. ;     ■ Search for : CALL
  279. ;
  280. ;------------------------------------------------------------------------------
  281. ;
  282. ; Postprocessing report
  283. ;
  284. ;    0       For/Next
  285. ;    0       While/EndWhile
  286. ;    3       If/Then or If/Then/Else
  287. ;    0       Select Case
  288. ;
  289. ;------------------------------------------------------------------------------
  290. ;                 AEGiS Corp - Break the routines, code against the machines!
  291. ;------------------------------------------------------------------------------
  292.