home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / bbsutils / usv028p.arj / U-SV82.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-01-24  |  6KB  |  324 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.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   STRING017
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     INTEGER002 = GetX()
  44.     INTEGER003 = GetY()
  45.     STRING001 = " @X0A.@X02PRESS@X0A.  @X05<@X0D-@X05>         @X05<@X0D-@X05>  @X0A.@X02PRESS@X0A. "
  46.     STRING002 = " @X02PRESS@X0A..  @X05<@X0D/@X05>    @X08T    @X05<@X0D\@X05>  @X0A..@X02PRESS "
  47.     STRING003 = " @X02RESS@X0A..@X02P @X07 @X05<@X0Dl@X05>    @X07T    @X05<@X0Dl@X05>  @X02S@X0A..@X02PRES "
  48.     STRING004 = " @X02ESS@X0A..@X02PR  @X05<@X0D\@X05>    @X0FT    @X05<@X0D/@X05>  @X02SS@X0A..@X02PRE "
  49.     STRING005 = " @X02SS@X0A..@X02PRE  @X05<@X0D-@X05>@X08N   @X0FT   @X08E@X05<@X0D-@X05>  @X02ESS@X0A..@X02PR "
  50.     STRING006 = " @X02S@X0A..@X02PRES  @X05<@X0D/@X05> @X08N  @X0FT  @X08E @X05<@X0D\@X05>  @X02RESS@X0A..@X02P "
  51.     STRING007 = " @X0A..@X02PRESS  @X05<@X0Dl@X05>  @X08N @X0FT @X08E  @X05<@X0Dl@X05>  @X02PRESS@X0A.. "
  52.     STRING008 = " @X0A.@X02PRESS@X0A.  @X05<@X0D\@X05>   @X08N@X0FT@X08E   @X05<@X0D/@X05>  @X0A.@X02PRESS@X0A. "
  53.     STRING009 = " @X02PRESS@X0A..  @X05<@X0D-@X05>   @X07N@X0FT@X07E   @X05<@X0D-@X05>  @X0A..@X02PRESS "
  54.     STRING010 = " @X02RESS@X0A..@X02P  @X05<@X0D/@X05>@X08   @X0FNTE   @X05<@X0D\@X05>  @X02S@X0A..@X02PRES "
  55.     STRING011 = " @X02ESS@X0A..@X02PR  @X05<@X0Dl@X05>@X08E  @X0FNTE @X08 R@X05<@X0Dl@X05>  @X02SS@X0A..@X02PRE "
  56.     STRING012 = " @X02SS@X0A..@X02PRE  @X05<@X0D\@X05> @X08E @X0FNTE @X08R @X05<@X0D/@X05>  @X02ESS@X0A..@X02PR "
  57.     STRING013 = " @X02S@X0A..@X02PRES  @X05<@X0D-@X05>  @X08E@X0FNTE@X08R  @X05<@X0D-@X05>  @X02RESS@X0A..@X02P "
  58.     STRING014 = " @X0A..@X02PRESS  @X05<@X0D/@X05>  @X07E@X0FNTE@X07R  @X05<@X0D\@X05>  @X02PRESS@X0A.. "
  59.     STRING015 = " @X0A.@X02PRESS@X0A.  @X05<@X0Dl@X05>  @X0FENTER  @X05<@X0Dl@X05>  @X0A.@X02PRESS@X0A. "
  60.     AnsiPos INTEGER002, INTEGER003
  61.     PrintLn "@X02UT@X0Ao@X02P@X0Ai@X02A @X0FScroller V8.2@X80.............................................."
  62.     :LABEL001
  63.     AnsiPos INTEGER002, INTEGER003 + 1
  64.     Print STRING001
  65.     Delay 1
  66.     STRING016 = Upper(Inkey())
  67.     If (STRING016 == Chr(13)) Goto LABEL006
  68.     If (STRING016 == Chr(42)) Goto LABEL002
  69.     AnsiPos INTEGER002, INTEGER003 + 1
  70.     Print STRING002
  71.     Delay 1
  72.     STRING016 = Upper(Inkey())
  73.     If (STRING016 == Chr(13)) Goto LABEL006
  74.     If (STRING016 == Chr(42)) Goto LABEL002
  75.     AnsiPos INTEGER002, INTEGER003 + 1
  76.     Print STRING003
  77.     Delay 1
  78.     STRING016 = Upper(Inkey())
  79.     If (STRING016 == Chr(13)) Goto LABEL006
  80.     If (STRING016 == Chr(42)) Goto LABEL002
  81.     AnsiPos INTEGER002, INTEGER003 + 1
  82.     Print STRING004
  83.     Delay 1
  84.     STRING016 = Upper(Inkey())
  85.     If (STRING016 == Chr(13)) Goto LABEL006
  86.     If (STRING016 == Chr(42)) Goto LABEL002
  87.     AnsiPos INTEGER002, INTEGER003 + 1
  88.     Print STRING005
  89.     Delay 1
  90.     STRING016 = Upper(Inkey())
  91.     If (STRING016 == Chr(13)) Goto LABEL006
  92.     If (STRING016 == Chr(42)) Goto LABEL002
  93.     AnsiPos INTEGER002, INTEGER003 + 1
  94.     Print STRING006
  95.     Delay 1
  96.     STRING016 = Upper(Inkey())
  97.     If (STRING016 == Chr(13)) Goto LABEL006
  98.     If (STRING016 == Chr(42)) Goto LABEL002
  99.     AnsiPos INTEGER002, INTEGER003 + 1
  100.     Print STRING007
  101.     Delay 1
  102.     STRING016 = Upper(Inkey())
  103.     If (STRING016 == Chr(13)) Goto LABEL006
  104.     If (STRING016 == Chr(42)) Goto LABEL002
  105.     AnsiPos INTEGER002, INTEGER003 + 1
  106.     Print STRING008
  107.     Delay 1
  108.     STRING016 = Upper(Inkey())
  109.     If (STRING016 == Chr(13)) Goto LABEL006
  110.     If (STRING016 == Chr(42)) Goto LABEL002
  111.     AnsiPos INTEGER002, INTEGER003 + 1
  112.     Print STRING009
  113.     Delay 1
  114.     STRING016 = Upper(Inkey())
  115.     If (STRING016 == Chr(13)) Goto LABEL006
  116.     If (STRING016 == Chr(42)) Goto LABEL002
  117.     AnsiPos INTEGER002, INTEGER003 + 1
  118.     Print STRING010
  119.     Delay 1
  120.     STRING016 = Upper(Inkey())
  121.     If (STRING016 == Chr(13)) Goto LABEL006
  122.     If (STRING016 == Chr(42)) Goto LABEL002
  123.     AnsiPos INTEGER002, INTEGER003 + 1
  124.     Print STRING011
  125.     Delay 1
  126.     STRING016 = Upper(Inkey())
  127.     If (STRING016 == Chr(13)) Goto LABEL006
  128.     If (STRING016 == Chr(42)) Goto LABEL002
  129.     AnsiPos INTEGER002, INTEGER003 + 1
  130.     Print STRING012
  131.     Delay 1
  132.     STRING016 = Upper(Inkey())
  133.     If (STRING016 == Chr(13)) Goto LABEL006
  134.     If (STRING016 == Chr(42)) Goto LABEL002
  135.     AnsiPos INTEGER002, INTEGER003 + 1
  136.     Print STRING013
  137.     Delay 1
  138.     STRING016 = Upper(Inkey())
  139.     If (STRING016 == Chr(13)) Goto LABEL006
  140.     If (STRING016 == Chr(42)) Goto LABEL002
  141.     AnsiPos INTEGER002, INTEGER003 + 1
  142.     Print STRING014
  143.     Delay 1
  144.     STRING016 = Upper(Inkey())
  145.     If (STRING016 == Chr(13)) Goto LABEL006
  146.     If (STRING016 == Chr(42)) Goto LABEL002
  147.     AnsiPos INTEGER002, INTEGER003 + 1
  148.     Print STRING015
  149.     Delay 2
  150.     STRING016 = Upper(Inkey())
  151.     If (STRING016 == Chr(13)) Goto LABEL006
  152.     If (STRING016 == Chr(42)) Goto LABEL002
  153.     AnsiPos INTEGER002, INTEGER003 + 1
  154.     Print STRING014
  155.     Delay 1
  156.     STRING016 = Upper(Inkey())
  157.     If (STRING016 == Chr(13)) Goto LABEL006
  158.     If (STRING016 == Chr(42)) Goto LABEL002
  159.     AnsiPos INTEGER002, INTEGER003 + 1
  160.     Print STRING013
  161.     Delay 1
  162.     STRING016 = Upper(Inkey())
  163.     If (STRING016 == Chr(13)) Goto LABEL006
  164.     If (STRING016 == Chr(42)) Goto LABEL002
  165.     AnsiPos INTEGER002, INTEGER003 + 1
  166.     Print STRING012
  167.     Delay 1
  168.     STRING016 = Upper(Inkey())
  169.     If (STRING016 == Chr(13)) Goto LABEL006
  170.     If (STRING016 == Chr(42)) Goto LABEL002
  171.     AnsiPos INTEGER002, INTEGER003 + 1
  172.     Print STRING011
  173.     Delay 1
  174.     STRING016 = Upper(Inkey())
  175.     If (STRING016 == Chr(13)) Goto LABEL006
  176.     If (STRING016 == Chr(42)) Goto LABEL002
  177.     AnsiPos INTEGER002, INTEGER003 + 1
  178.     Print STRING010
  179.     Delay 1
  180.     STRING016 = Upper(Inkey())
  181.     If (STRING016 == Chr(13)) Goto LABEL006
  182.     If (STRING016 == Chr(42)) Goto LABEL002
  183.     AnsiPos INTEGER002, INTEGER003 + 1
  184.     Print STRING009
  185.     Delay 1
  186.     STRING016 = Upper(Inkey())
  187.     If (STRING016 == Chr(13)) Goto LABEL006
  188.     If (STRING016 == Chr(42)) Goto LABEL002
  189.     AnsiPos INTEGER002, INTEGER003 + 1
  190.     Print STRING008
  191.     Delay 1
  192.     STRING016 = Upper(Inkey())
  193.     If (STRING016 == Chr(13)) Goto LABEL006
  194.     If (STRING016 == Chr(42)) Goto LABEL002
  195.     AnsiPos INTEGER002, INTEGER003 + 1
  196.     Print STRING007
  197.     Delay 1
  198.     STRING016 = Upper(Inkey())
  199.     If (STRING016 == Chr(13)) Goto LABEL006
  200.     If (STRING016 == Chr(42)) Goto LABEL002
  201.     AnsiPos INTEGER002, INTEGER003 + 1
  202.     Print STRING006
  203.     Delay 1
  204.     STRING016 = Upper(Inkey())
  205.     If (STRING016 == Chr(13)) Goto LABEL006
  206.     If (STRING016 == Chr(42)) Goto LABEL002
  207.     AnsiPos INTEGER002, INTEGER003 + 1
  208.     Print STRING005
  209.     Delay 1
  210.     STRING016 = Upper(Inkey())
  211.     If (STRING016 == Chr(13)) Goto LABEL006
  212.     If (STRING016 == Chr(42)) Goto LABEL002
  213.     AnsiPos INTEGER002, INTEGER003 + 1
  214.     Print STRING004
  215.     Delay 1
  216.     STRING016 = Upper(Inkey())
  217.     If (STRING016 == Chr(13)) Goto LABEL006
  218.     If (STRING016 == Chr(42)) Goto LABEL002
  219.     AnsiPos INTEGER002, INTEGER003 + 1
  220.     Print STRING003
  221.     Delay 1
  222.     STRING016 = Upper(Inkey())
  223.     If (STRING016 == Chr(13)) Goto LABEL006
  224.     If (STRING016 == Chr(42)) Goto LABEL002
  225.     AnsiPos INTEGER002, INTEGER003 + 1
  226.     Print STRING002
  227.     Delay 1
  228.     STRING016 = Upper(Inkey())
  229.     If (STRING016 == Chr(13)) Goto LABEL006
  230.     If (STRING016 == Chr(42)) Goto LABEL002
  231.     Goto LABEL001
  232.     :LABEL002
  233.     AnsiPos INTEGER002, INTEGER003 + 1
  234.     Input STRING015, STRING017
  235.     If (STRING017 == "S") Goto LABEL003
  236.     If (STRING017 == "D") Goto LABEL004
  237.     If (STRING017 == "P") Goto LABEL005
  238.     AnsiPos INTEGER002, INTEGER003
  239.     Print "@X80blablablablablablablablablablablablablablablablablabla........................."
  240.     Goto LABEL001
  241.     :LABEL003
  242.     AnsiPos INTEGER002, INTEGER003 + 1
  243.     Input STRING015, INTEGER005
  244.     GetUser
  245.     U_Sec = INTEGER005
  246.     PutUser
  247.     AnsiPos INTEGER002, INTEGER003 + 1
  248.     Print "@X80blablablablablablablablablablablablablablablablablabla........................."
  249.     Goto LABEL001
  250.     :LABEL004
  251.     AnsiPos INTEGER002, INTEGER003 + 1
  252.     Input STRING015, INTEGER004
  253.     AdjTBytes INTEGER004
  254.     AnsiPos INTEGER002, INTEGER003 + 1
  255.     Print "@X80blablablablablablablablablablablablablablablablablabla........................."
  256.     Goto LABEL001
  257.     :LABEL005
  258.     PageOn
  259.     AnsiPos INTEGER002, INTEGER003 + 1
  260.     Print "@X80blablablablablablablablablablablablablablablablablabla........................."
  261.     Goto LABEL001
  262.     :LABEL006
  263.     KbdStuff "^K"
  264.     End
  265.  
  266. ;------------------------------------------------------------------------------
  267. ;
  268. ; Usage report (before postprocessing)
  269. ;
  270. ; ■ Statements used :
  271. ;
  272. ;    1       End
  273. ;    64      Goto 
  274. ;    46      Let 
  275. ;    32      Print 
  276. ;    1       PrintLn 
  277. ;    59      If 
  278. ;    3       Input 
  279. ;    1       GetUser
  280. ;    1       PutUser
  281. ;    28      Delay 
  282. ;    1       KbdStuff 
  283. ;    36      AnsiPos 
  284. ;    1       PageOn
  285. ;    1       AdjTBytes 
  286. ;
  287. ;
  288. ; ■ Functions used :
  289. ;
  290. ;    34      +
  291. ;    59      ==
  292. ;    28      Upper()
  293. ;    56      Chr()
  294. ;    28      Inkey()
  295. ;    1       GetX()
  296. ;    1       GetY()
  297. ;
  298. ;------------------------------------------------------------------------------
  299. ;
  300. ; Analysis flags : Wa
  301. ;
  302. ; W - Write user ■ 5
  303. ;     Program writes a user record. Although this may be normal for a
  304. ;     User Editor, it may also be a way to modify an account level.
  305. ;     ■ Search for : PUTUSER
  306. ;
  307. ; a - Adjust ratio ■ 4
  308. ;     User's ratio is adjusted by changing the amount of files/bytes
  309. ;     uploaded. This may be normal for a user editor.
  310. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  311. ;
  312. ;------------------------------------------------------------------------------
  313. ;
  314. ; Postprocessing report
  315. ;
  316. ;    0       For/Next
  317. ;    0       While/EndWhile
  318. ;    0       If/Then or If/Then/Else
  319. ;    0       Select Case
  320. ;
  321. ;------------------------------------------------------------------------------
  322. ;                 AEGiS Corp - Break the routines, code against the machines!
  323. ;------------------------------------------------------------------------------
  324.