home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / LIQUID / AMIU060.ZIP / AMI-U.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-05-19  |  14.1 KB  |  263 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.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     Declare  Procedure PROC001()
  29.     Declare  Procedure PROC002()
  30.     Declare  Procedure PROC003()
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING003 = Upper(GetToken())
  35.     For INTEGER002 = 1 To 8
  36.         INTEGER001 = Random(260) / 10 + 64
  37.         STRING001 = STRING001 + Chr(INTEGER001)
  38.     Next
  39.     STRING001 = STRING001 + ".ZIP"
  40.     If (STRING003 <> "/Q") Then
  41.         PROC001()
  42.         If (Upper(STRING006) == "ANIM") PROC002()
  43.         If (Upper(STRING006) == "STAT") PROC003()
  44.         If (Upper(STRING006) == "BEFORE") Then
  45.             PROC003()
  46.             PROC002()
  47.         Endif
  48.         If (Upper(STRING006) == "AFTER") Then
  49.             PROC002()
  50.             PROC003()
  51.         Endif
  52.     Endif
  53.     Cls
  54.     KeyFlush
  55.     If (FlagCnt() > 0) Then
  56.         Newline
  57.         PrintLn "@X05You still have files flagged for download."
  58.         PrintLn "Would you like to delete them ? [@X07y@X05/@X07N@X05] "
  59.         KeyFlush
  60.         :LABEL001
  61.         STRING002 = ""
  62.         While ((STRING002 == "")) STRING002 = Upper(Inkey())
  63.         KeyFlush
  64.         Select Case (STRING002)
  65.             Case "Y"
  66.                 STRING004 = "UB" + Chr(13) + YesChar() + Chr(13)
  67.             Case "N", Chr(13)
  68.                 KbdStuff "UB" + Chr(13) + "N" + Chr(13)
  69.                 End
  70.             Case Else
  71.                 Goto LABEL001
  72.         End Select
  73.     Else
  74.         STRING004 = "UB" + Chr(13)
  75.     Endif
  76.     KbdStuff STRING004
  77.     KbdStuff STRING001 + Chr(13)
  78.     KbdStuff "LiQUiD /X UPLOAD v o.6o          CoDed by CyZ" + Chr(13) + Chr(13) + Chr(13)
  79.     End
  80.  
  81. ;------------------------------------------------------------------------------
  82.  
  83.     Procedure PROC002()
  84.  
  85.     Cls
  86.     Print "s77H_s76Hs 75H_s74H_s73H_s72H_s71H/s70H/s70H_s69H/s68H/s65H_s66H s67H_s68H/s68H_s67H_s66H_s65H_s64H_"
  87.     Print "63H_62H_s61H_s60H_s59H_58H_s57H_s56H_s55H_s54H_s53H_s52H_s51H_s50H_s49H_48H_s47H_s46H_"
  88.     Print "45H_s44H_43H_s42H_s41H_s40H_39H_s38H_s37H_s36H_s35H_s34H_s33H_s32H_31H_s30H_"
  89.     Print "s29H_s28H_s27H_s26H_25H_s24H_s23H_s22H_s21H_s20H_s19H_s18H_s17H_s16H_s15H_s"
  90.     Print "14H_13H_s12H_s11H_10H_s9H/s8H\s7H\s6H/"
  91.     Print "5H_s4H_3H_s2H s1H_s14H-s13H s12H-s11H-s10H-"
  92.     Print "s77H_s76H s75H_s74H_s73H_s72H/s71H\s70H\s69H/s68H_s67H_s66H_s65H_s"
  93.     Print "64H_63H_s62H_s61H_s60H_59H_s58H_s57H_s56H_55H_s54H_"
  94.     Print "53H_s52H_51H_s50H_s49H_s48H_47H_s46H_s45H_s44H_s"
  95.     Print "43H_s42H_s41H_40H_s39H_s38H_s37H_36H_s35H_s34H_33H_s32H_"
  96.     Print "31H_s30H_s29H_s28H_27H_s26H_s25H_24H_s23H_s22H_21H_s20H_s19H_s18H_s17H_"
  97.     Print "s16H_s15H_s14H_s13H_s12H_s11H_s10H_"
  98.     Print "s9H_s8H_s7H_s6H_s5H_s4H_3H_s2H_s1H_"
  99.     Print "39H╤s40H»s39H»s40H╞s39H╞s40H╞s38H¿s39H╤s40HNs39H«s40HNs41HN"
  100.     Print "s37H¼38HWs39H╞s40H#s39H╞s40H#s41H╞42H╞36H¼"
  101.     Print "s37HMs38H╤s39H«s40HWs39HMs40HWs41H#42HW43H╤s35H»s36H#s"
  102.     Print "37H╪38HN39H╞s40HN39HN40HNs41H╤s42HMs43H╤44H╣s34H" + Chr(34)
  103.     Print "35H#36H╪37H╞s38HN39HM40H╞s39Hms40H╞s41H«42H╞43HQs33H¿s"
  104.     Print "34H#35HW36HNs37HM38H#s39HNs40HNs40HNs41HNs42HM"
  105.     Print "43H132H" + Chr(34) + "33H«s34H╞35H╞s36H«s37H«s38HMs39Hms41H╞s42H«s43H1s31H»s32HNs33HNs34H╤s35H╤s36H╤s37H#s38H,"
  106.     Print "41H,42HN43HF31H╞s32H╞s33H╪s34HWs35H╪s36H«s37H,s42H,s43H#s30HNs"
  107.     Print "31H╤32H╪s33H╞34HW35HN36H,43H╞s29H╞s30HW"
  108.     Print "s31H╪s32HN33HM34H╞35H_44HEs28H╞s29H╞s30H╪31HMs32H«33HNs27H*s28H╤s29HWs30H«s31H╤s32H°s26H▓27H╪s28H╞"
  109.     Print "29HN30HW31Hµ25H░26HW27HN28H╞29H╞30H°s24H»25H╞s26H╞27H╤s28HNs"
  110.     Print "29Hb24H╤25HN26HW27H╞28H╤23H╪24HM"
  111.     Print "25H╞26HN27H╪22H#23H#s24HN25H╞s26H╪s27H_21H▓s22H«s23HM24H╤s25HWs26H_s20H░s21HNs22H#s23HWs24H╞s25H,"
  112.     Print "20H╞21H«22HM23H╤24Hµs19H╤s20H╤s21H«s22HW23H╪s18Hós19HW20H╤21H╞s22HWs23H_s17H¼s18H╞s19H╪s20H╤21HMs22H╡"
  113.     Print "17HN18H╪s19HWs20H«21HN7H_16H0s17HW18HM19H╤s20HMs21HLs6H.s15H░s16HMs17H#s18H╪s19H«s20H#5HN15H#16H«"
  114.     Print "17H╪18HNs19H«s20HW4H414HVs15H╤16H╪17H╞s18HNs19HMs20H╣s3Hñs4Hhs13H`s14HWs15H╪s16HNs17HMs18H#s19HN"
  115.     Print "20H╣2H░3H#s13HMs14HW15HM16H#s17H#18HM19HN20H╣s1H¿s2H«s3H■"
  116.     Print "s12H░s13H╞s14H#s15H#s16H#s17H#s18H╞s19HMs0HVs1H╤"
  117.     Print "2HMs12HNs13H#s14H#s15H«s16H«s17H╤s18H#s9HWs0H╪s1H#2Hms11H»12H#s13H#s14HNs15HNs16HWs17H#s8H╞s9HWs0H«"
  118.     Print "1HNs11H#s12H#s13H╞s14HMs15HMs16H«s7HNs8H╞s9HNs0H╞s1HNs11H«s12HNs13H«14H«15HNs6H╞s7HNs8HMs9H╤s0H╞"
  119.     Print "1H╣s10H7s11H╞s12H╤s13H╤s14HMs5H╤s6H╞s7H#s8HW"
  120.     Print "s9H╤s0HWs10H#s11HWs12H╪13H«s4H╪s5HNs6H#s7HMs8H╪s9HMs0H0s10H╞s11HWs12H╤s3H╪s4HMs5H#s6H«s7HWs8H#"
  121.     Print "9Hds0H,s10H╡s11H╪s2HWs3H«4H«s5H╤s6HMs7Hµs8H,s10H,s1H╪s2HNs3H╤s4H╪s"
  122.     Print "5H«s6H,s1H░s2HWs3H╪4Hgs0H»s1H╞2HW"
  123.     Print "s3H,sH¿s0HNs1HgsHMs0H_sH»sHµsH░sH,"
  124.     Print "s9H s21H s17H s44H"
  125.     Print "s7Hs__.  _____/\______/\______/\s24H\_»s^.|__\__  _  _____.  _____. \s22Hs__ s/   |  \/   |  \/  _|  \/   |  \ s_s23H/s/    |   \   |   \  \_   \   |   \s\"
  126.     Print "s23Hs/     l    \  l    \  |    \  l    \s23H\      ____/   ____/ _l____/   ____/24H\____/  \____/  \,,╞E/  \____/case"
  127.     Print "s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR "
  128.     Print "sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<"
  129.     Print "s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<"
  130.     Print "s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<"
  131.     Print "s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<"
  132.     Print "s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45H"
  133.     Print "s>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR"
  134.     Print " yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<s45Hs>>> tHANkS fOR yOuR sUPPORT! <<<"
  135.     Print "77Hbs76HbUs75HbUTs74HbUT s73HbUT is72HbUT iFs71HbUT iF s70HbUT iF Us69HbUT iF U s68HbUT iF U us67HbUT iF U uPs66HbUT iF U uPLs65HbUT iF U uPLO"
  136.     Print "64HbUT iF U uPLOAs63HbUT iF U uPLOAds62HbUT iF U uPLOAd s61HbUT iF U uPLOAd cs60HbUT iF U uPLOAd cRs59HbUT iF U uPLOAd cRas58HbUT iF U uPLOAd cRaPs57HbUT iF U uPLOAd"
  137.     Print " cRaP s56HbUT iF U uPLOAd cRaP -s55HbUT iF U uPLOAd cRaP - s54HbUT iF U uPLOAd cRaP - ss53HbUT iF U uPLOAd cRaP - sUs52HbUT iF U uPLOAd cRaP - sUFs51HbUT iF U uPLOAd cRaP - sUFF"
  138.     Print "50HbUT iF U uPLOAd cRaP - sUFFes49HbUT iF U uPLOAd cRaP - sUFFeRs48HbUT iF U uPLOAd cRaP - sUFFeR!s47HbUT iF U uPLOAd cRaP - sUFFeR! s46HbUT iF U uPLOAd cRaP - sUFFeR!"
  139.     Print "73Hs-btms1Hs  "
  140.     AnsiPos 79, 23
  141.     While ((STRING002 == "")) STRING002 = Inkey()
  142.     STRING002 = ""
  143.  
  144.     EndProc
  145.  
  146.  
  147. ;------------------------------------------------------------------------------
  148.  
  149.     Procedure PROC003()
  150.  
  151.     Cls
  152.     PrintLn "@X0F                           @X04( @X05UPLOAd INFORMATIONs ! @X04)"
  153.     Print "@X05+@X06--------------@X05+@X06---------------------------------@X05+@X06------------@X05+@X06----------------@X05+"
  154.     Print "@X06| @X04USEr NAMe    @X06| @X07@USER:32@@X06| @X04BYTEs Up   @X06| @X07@UPBYTES:15@@X06|"
  155.     Print "| @X04LOCATIOn     @X06| @X07@CITY:32@@X06| @X04FILEs Up   @X06| @X07@UPFILES:15@@X06|"
  156.     Print "| @X04LAST DATe On @X06| @X07@LASTDATEON:32@@X06| @X04BYTEs DOWn @X06| @X07@DLBYTES:15@@X06|"
  157.     Print "| @X04CURRENt DATe @X06| @X07@SYSDATE:32@@X06| @X04FILEs DOWn @X06| @X07@DLFILES:15@@X06|"
  158.     Print "| @X04CONFERENCe   @X06| @X07@CONFNAME:32@@X06| @X04NODe #     @X06| @X07@NODE:15@@X06|"
  159.     Print "| @X04TIMe LIMIt   @X06| @X07@TIMELIMIT:32@@X06| @X04TIMe LEFt  @X06| @X07@TIMELEFT:15@@X06|"
  160.     Print "@X05+@X06----------@X05+@X06---@X05+@X06------------@X05+@X06-----------@X05+@X06--------@X05+@X06---@X05+@X06--------@X05+@X06---@X05+@X06------------@X05+@X06"
  161.     Print "|  @X04LiQUiD   @X06| @X04BYTELIMIt     @X06| @X07@KBLIMIT:10@@X06| @X04BYTEs LEFt @X06| @X07@KBLEFT:11@@X06|  @X04VERSIOn:  @X06|"
  162.     Print "| @X04/X Upload @X06| @X04RATIo TYPe    @X06| @X07" + STRING005 + "@X06| @X04TIMe       @X06| @X07@SYSTIME:11@@X06|    @X04o.6o    @X06|@X05"
  163.     Print "+@X06----------@X05+@X06----@X05+@X06-----------@X05+@X06-----------@X05+@X06------------@X05+@X06------------@X05+@X06------------@X05+@X06"
  164.     Print "| @X04SYSOp COMMENT @X06| @X07w8t 4 next version!                                          @X06|@X05"
  165.     Print "+@X06---------------@X05+@X06--------------------------------------------------------------@X05+"
  166.     Newline
  167.     AnsiPos 79, 23
  168.     While ((STRING002 == "")) STRING002 = Inkey()
  169.     STRING002 = ""
  170.  
  171.     EndProc
  172.  
  173.  
  174. ;------------------------------------------------------------------------------
  175.  
  176.     Procedure PROC001()
  177.  
  178.     FOpen 2, PPEPath() + "AMI-U.CNF", 0, 0
  179.     FGet 2, STRING006
  180.     FClose 2
  181.     If (Upper(STRING006) <> "ANIM") Then
  182.         INTEGER003 = 0
  183.         FOpen 1, PPEPath() + "RATIO.CNF", 2, 0
  184.         While (INTEGER003 <> CurSec()) Do
  185.             FGet 1, STRING005
  186.             If (STRING005 == "EOF") Break
  187.             Tokenize STRING005
  188.             INTEGER003 = GetToken()
  189.         EndWhile
  190.         STRING005 = GetToken()
  191.         If (Lower(STRING005) == "dis") STRING005 = "disabled  "
  192.         STRING005 = Left(STRING005, 10)
  193.     Endif
  194.  
  195.     EndProc
  196.  
  197.  
  198. ;------------------------------------------------------------------------------
  199. ;
  200. ; Usage report (before postprocessing)
  201. ;
  202. ; ■ Statements used :
  203. ;
  204. ;    2       End
  205. ;    3       Cls
  206. ;    20      Goto 
  207. ;    19      Let 
  208. ;    67      Print 
  209. ;    3       PrintLn 
  210. ;    16      If 
  211. ;    2       FOpen 
  212. ;    1       FClose 
  213. ;    2       FGet 
  214. ;    2       Newline
  215. ;    1       Tokenize 
  216. ;    4       KbdStuff 
  217. ;    2       AnsiPos 
  218. ;    3       KeyFlush
  219. ;    3       EndProc
  220. ;
  221. ;
  222. ; ■ Functions used :
  223. ;
  224. ;    1       /
  225. ;    22      +
  226. ;    12      ==
  227. ;    3       <>
  228. ;    1       <
  229. ;    1       <=
  230. ;    1       >
  231. ;    2       >=
  232. ;    9       !
  233. ;    2       &&
  234. ;    2       ||
  235. ;    1       Lower()
  236. ;    7       Upper()
  237. ;    1       Left()
  238. ;    13      Chr()
  239. ;    1       Random()
  240. ;    1       YesChar()
  241. ;    3       Inkey()
  242. ;    2       PPEPath()
  243. ;    1       CurSec()
  244. ;    3       GetToken()
  245. ;    1       FlagCnt()
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Analysis flags : No flag
  250. ;
  251. ;------------------------------------------------------------------------------
  252. ;
  253. ; Postprocessing report
  254. ;
  255. ;    1       For/Next
  256. ;    1       While/EndWhile
  257. ;    5       If/Then or If/Then/Else
  258. ;    1       Select Case
  259. ;
  260. ;------------------------------------------------------------------------------
  261. ;                 AEGiS Corp - Break the routines, code against the machines!
  262. ;------------------------------------------------------------------------------
  263.