home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TRANS.ZIP / TRANS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-09-08  |  6KB  |  354 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.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Cls
  38.     AnsiPos 1, 1
  39.     PrintLn "@X0FT@X07RANS-@X0FO@X07-@X0FF@X07LASH - @X0FV1.1b"
  40.     AnsiPos 60, 1
  41.     PrintLn "@X0Fd@X07one @X0Fb@X07y: -@X04M@X0CO@X0EN@X0FS@X0ET@X0CE@X04R@X07-"
  42.     If (Exist(PPEPath() + PPEName() + ".ANS")) DispFile PPEPath() + PPEName() + ".ANS", 1
  43.     STRING002 = Chr(13)
  44.     STRING008 = TokenStr()
  45.     STRING012 = 0
  46.     If (PcbNode() == 0) Then
  47.         If (FileInf(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST.", 1)) STRING012 = 1
  48.     Else
  49.         If (FileInf(GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode()), 1)) STRING012 = 1
  50.     Endif
  51.     If (STRING012 == 1) Then
  52.         If (Exist(PPEPath() + "FLAGDL.ANS")) DispFile PPEPath() + "FLAGDL.ANS", 1
  53.         STRING010 = "THERE ARE FILES FLAGGED FOR DOWNLOAD!"
  54.         STRING009 = 21
  55.         STRING011 = 0
  56.         Newline
  57.         STRING007 = GetY()
  58.         :LABEL001
  59.         If (STRING009 == 58) Goto LABEL002
  60.         Inc STRING009
  61.         Inc STRING011
  62.         AnsiPos STRING009, STRING007
  63.         Print "@X0F■"
  64.         Delay 1
  65.         Print Chr(8)
  66.         Print "@X8C" + Mid(STRING010, STRING011, 1)
  67.         Goto LABEL001
  68.         :LABEL002
  69.         Beep
  70.         Newlines 2
  71.         STRING007 = GetY()
  72.         AnsiPos 1, STRING007
  73.         Print "@X1FABORT UPLOAD@X07 ─ @X0FU@X09PLOAD AND LOOSE FLAGGED FILES @X07─ @X0FD@X09OWNLOAD FIRST"
  74.         STRING014 = 1
  75.         :LABEL003
  76.         AnsiPos 1, STRING007
  77.         :LABEL004
  78.         STRING013 = ""
  79.         STRING013 = Upper(Inkey())
  80.         If (STRING013 == STRING002) Goto LABEL015
  81.         If (STRING013 <> "") Goto LABEL005
  82.         Goto LABEL004
  83.         :LABEL005
  84.         If (STRING013 == "LEFT") Then
  85.             If (STRING014 == 1) Goto LABEL011
  86.             If (STRING014 == 2) Goto LABEL007
  87.             Goto LABEL009
  88.         Endif
  89.         If (STRING013 == "RIGHT") Then
  90.             If (STRING014 == 1) Goto LABEL008
  91.             If (STRING014 == 2) Goto LABEL010
  92.             Goto LABEL006
  93.         Endif
  94.         If (STRING013 == "A") Goto LABEL012
  95.         If (STRING013 == "U") Goto LABEL013
  96.         If (STRING013 == "D") Goto LABEL014
  97.         Goto LABEL004
  98.         :LABEL006
  99.         AnsiPos 1, STRING007
  100.         Print "@X1FABORT UPLOAD"
  101.         AnsiPos 49, STRING007
  102.         Print "@X0FD@X09OWNLOAD FIRST"
  103.         STRING014 = 1
  104.         Goto LABEL003
  105.         :LABEL007
  106.         AnsiPos 1, STRING007
  107.         Print "@X1FABORT UPLOAD"
  108.         AnsiPos 16, STRING007
  109.         Print "@X0FU@X09PLOAD AND LOOSE FLAGGED FILES"
  110.         STRING014 = 1
  111.         Goto LABEL003
  112.         :LABEL008
  113.         AnsiPos 16, STRING007
  114.         Print "@X1FUPLOAD AND LOOSE FLAGGED FILES"
  115.         AnsiPos 1, STRING007
  116.         Print "@X0FA@X09BORT UPLOAD"
  117.         STRING014 = 2
  118.         Goto LABEL003
  119.         :LABEL009
  120.         AnsiPos 16, STRING007
  121.         Print "@X1FUPLOAD AND LOOSE FLAGGED FILES"
  122.         AnsiPos 49, STRING007
  123.         Print "@X0FD@X09OWNLOAD FIRST"
  124.         STRING014 = 2
  125.         Goto LABEL003
  126.         :LABEL010
  127.         AnsiPos 49, STRING007
  128.         Print "@X1FDOWNLOAD FIRST"
  129.         AnsiPos 16, STRING007
  130.         Print "@X0FU@X09PLOAD AND LOOSE FLAGGED FILES"
  131.         STRING014 = 3
  132.         Goto LABEL003
  133.         :LABEL011
  134.         AnsiPos 49, STRING007
  135.         Print "@X1FDOWNLOAD FIRST"
  136.         AnsiPos 1, STRING007
  137.         Print "@X0FA@X09BORT UPLOAD"
  138.         STRING014 = 3
  139.         Goto LABEL003
  140.         :LABEL012
  141.         Print "@X9FABORT UPLOAD@X07 ─ @X0FU@X09PLOAD AND LOOSE FLAGGED FILES @X07─ @X0FD@X09OWNLOAD FIRST"
  142.         DefColor
  143.         Newline
  144.         End
  145.         :LABEL013
  146.         Print "@X0FA@X09BORT UPLOAD@X07 ─ @X9FUPLOAD AND LOOSE FLAGGED FILES@X07 ─ @X0FD@X09OWNLOAD FIRST"
  147.         DefColor
  148.         Newline
  149.         Goto LABEL016
  150.         :LABEL014
  151.         Print "@X0FA@X09BORT UPLOAD @X07─ @X0FU@X09PLOAD AND LOOSE FLAGGED FILES @X07─ @X9FDOWNLOAD FIRST"
  152.         DefColor
  153.         Newline
  154.         KbdStuff "D" + STRING002 + STRING002 + STRING002
  155.         End
  156.         :LABEL015
  157.         If (STRING014 == 1) Goto LABEL012
  158.         If (STRING014 == 2) Goto LABEL013
  159.         If (STRING014 == 3) Goto LABEL014
  160.     Endif
  161.     :LABEL016
  162.     For STRING004 = Goto To 7
  163.         STRING003 = String(Random(9))
  164.         STRING001 = STRING001 + STRING003
  165.     Next
  166.     STRING001 = STRING001 + ".ZIP"
  167.     Newline
  168.     STRING007 = GetY()
  169.     AnsiPos 1, STRING007
  170.     Print "@X0FE@X07NTER @X0FA D@X07ESCRIPTION @X0FO@X07F @X0FT@X07HE @X0FF@X07ILE@X0F(@X07S@X0F) @X0E[@X0FY@X07/@X0FN@X0E] [@X0FENTER@X0E]@X07=@X0FNo@X07?"
  171.     AnsiPos 54, STRING007
  172.     :LABEL017
  173.     STRING005 = ""
  174.     STRING005 = Inkey()
  175.     If (Lower((STRING005 == "y"))) Goto LABEL018
  176.     If ((STRING005 == STRING002) || (Lower(STRING005) == "n")) Goto LABEL032
  177.     Goto LABEL017
  178.     :LABEL018
  179.     Newlines 2
  180.     STRING001 = ""
  181.     STRING015 = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_&#!"
  182.     STRING003 = Chr(8)
  183.     STRING009 = 0
  184.     STRING008 = ""
  185.     STRING007 = GetY()
  186.     AnsiPos 1, STRING007
  187.     Print "@X0FE@X07nter @X0Ft@X07he @X0FF@X07ilename @X0Ft@X07o @X0FU@X07pload @X0E[@X0FENTER@X0E]@X07=@X0Fnone@X07?"
  188.     AnsiPos 44, STRING007
  189.     :LABEL019
  190.     STRING005 = ""
  191.     STRING005 = Inkey()
  192.     If (STRING005 == STRING002) Goto LABEL020
  193.     If (STRING005 == STRING003) Goto LABEL023
  194.     If (STRING005 == Chr(27)) Goto LABEL021
  195.     If ((STRING005 == ".") && (STRING009 > 0)) Goto LABEL024
  196.     If (STRING005 <> "") Goto LABEL022
  197.     Goto LABEL019
  198.     :LABEL020
  199.     If (STRING009 == 0) End
  200.     Goto LABEL032
  201.     :LABEL021
  202.     STRING004 = 0
  203.     STRING009 = 0
  204.     STRING001 = ""
  205.     AnsiPos 44, STRING007
  206.     Print "            "
  207.     AnsiPos 44, STRING007
  208.     Goto LABEL019
  209.     :LABEL022
  210.     If (InStr(STRING015, STRING005) == 0) Goto LABEL019
  211.     Inc STRING009
  212.     STRING001 = STRING001 + STRING005
  213.     Print STRING005
  214.     If (STRING009 == 8) Goto LABEL024
  215.     Goto LABEL019
  216.     :LABEL023
  217.     If (STRING009 == 0) Goto LABEL019
  218.     Dec STRING009
  219.     Print STRING003 + " " + STRING003
  220.     STRING001 = Left(STRING001, Len(STRING001) - 1)
  221.     Goto LABEL019
  222.     :LABEL024
  223.     STRING004 = 0
  224.     STRING001 = STRING001 + "."
  225.     Print "."
  226.     :LABEL025
  227.     STRING005 = ""
  228.     STRING005 = Inkey()
  229.     If (STRING005 == STRING002) Goto LABEL029
  230.     If (STRING005 == STRING003) Goto LABEL027
  231.     If (STRING005 == Chr(27)) Goto LABEL021
  232.     If (STRING005 == ".") Goto LABEL025
  233.     If (STRING005 <> "") Goto LABEL026
  234.     Goto LABEL025
  235.     :LABEL026
  236.     If (STRING004 == 3) Goto LABEL025
  237.     If (InStr(STRING015, STRING005) == 0) Goto LABEL025
  238.     Inc STRING004
  239.     STRING001 = STRING001 + STRING005
  240.     Print STRING005
  241.     Goto LABEL025
  242.     :LABEL027
  243.     If (STRING004 == 0) Goto LABEL028
  244.     Dec STRING004
  245.     Print STRING003 + " " + STRING003
  246.     STRING001 = Left(STRING001, Len(STRING001) - 1)
  247.     Goto LABEL025
  248.     :LABEL028
  249.     Print STRING003 + " " + STRING003 + STRING003 + " " + STRING003
  250.     STRING001 = Left(STRING001, Len(STRING001) - 2)
  251.     Dec STRING009
  252.     Goto LABEL019
  253.     :LABEL029
  254.     Newlines 2
  255.     STRING007 = GetY()
  256.     AnsiPos 1, STRING007
  257.     Print "@X0FU@X07se @X0EFILE_ID.DIZ @X0Fa@X07s @X0FD@X07escription @X0E[@X0FY@X07/@X0FN@X0E] [@X0FENTER@X0E]@X07=@X0FY@X07?"
  258.     AnsiPos 49, STRING007
  259.     :LABEL030
  260.     STRING005 = ""
  261.     STRING005 = Inkey()
  262.     If ((STRING005 == STRING002) || (Lower(STRING005) == "y")) Goto LABEL032
  263.     If (Lower(STRING005) == "n") Goto LABEL031
  264.     Goto LABEL030
  265.     :LABEL031
  266.     Newline
  267.     If (STRING012 == 0) KbdStuff "UB" + STRING002 + STRING001 + STRING002
  268.     If (STRING012 == 1) KbdStuff "UB" + STRING002 + "Y" + STRING002 + STRING001 + STRING002
  269.     End
  270.     :LABEL032
  271.     STRING006 = "FILE_ID.DIZ WILL BE USED IF FOUND IN FILE" + STRING002 + STRING002 + STRING002
  272.     Newline
  273.     If (STRING012 == 0) KbdStuff "UB" + STRING002 + STRING001 + STRING002 + STRING006
  274.     If (STRING012 == 1) KbdStuff "UB" + STRING002 + "Y" + STRING002 + STRING001 + STRING002 + STRING006
  275.     End
  276.     Newline
  277.     If (STRING012 == 0) KbdStuff "UB" + STRING002 + STRING008
  278.     If (STRING012 == 1) KbdStuff "UB" + STRING002 + "Y" + STRING002 + STRING008
  279.     End
  280.  
  281. ;------------------------------------------------------------------------------
  282. ;
  283. ; Usage report (before postprocessing)
  284. ;
  285. ; ■ Statements used :
  286. ;
  287. ;    6       End
  288. ;    1       Cls
  289. ;    64      Goto 
  290. ;    49      Let 
  291. ;    29      Print 
  292. ;    2       PrintLn 
  293. ;    50      If 
  294. ;    2       DispFile 
  295. ;    3       DefColor
  296. ;    1       Delay 
  297. ;    5       Inc 
  298. ;    3       Dec 
  299. ;    8       Newline
  300. ;    3       Newlines 
  301. ;    1       Beep
  302. ;    7       KbdStuff 
  303. ;    25      AnsiPos 
  304. ;
  305. ;
  306. ; ■ Functions used :
  307. ;
  308. ;    56      +
  309. ;    3       -
  310. ;    43      ==
  311. ;    4       <>
  312. ;    1       <
  313. ;    1       <=
  314. ;    1       >
  315. ;    2       >=
  316. ;    5       !
  317. ;    3       &&
  318. ;    3       ||
  319. ;    3       Len(
  320. ;    4       Lower()
  321. ;    1       Upper()
  322. ;    1       Mid()
  323. ;    3       Left()
  324. ;    5       Chr()
  325. ;    2       InStr()
  326. ;    1       Random()
  327. ;    5       Inkey()
  328. ;    2       String()
  329. ;    4       PPEPath()
  330. ;    2       PcbNode()
  331. ;    4       GetEnv()
  332. ;    2       Exist()
  333. ;    1       TokenStr()
  334. ;    5       GetY()
  335. ;    2       FileInf()
  336. ;    2       PPEName()
  337. ;
  338. ;------------------------------------------------------------------------------
  339. ;
  340. ; Analysis flags : No flag
  341. ;
  342. ;------------------------------------------------------------------------------
  343. ;
  344. ; Postprocessing report
  345. ;
  346. ;    1       For/Next
  347. ;    0       While/EndWhile
  348. ;    4       If/Then or If/Then/Else
  349. ;    0       Select Case
  350. ;
  351. ;------------------------------------------------------------------------------
  352. ;                 AEGiS Corp - Break the routines, code against the machines!
  353. ;------------------------------------------------------------------------------
  354.