home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TLY-ULIS.ZIP / TLY-ULIS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-05-04  |  6KB  |  278 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.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     GetUser
  48.     STRING006 = U_Name()
  49.     Gosub LABEL004
  50.     STRING007 = "@X05"
  51.     STRING008 = "@X08"
  52.     STRING009 = "@X0F"
  53.     Print "@POFF@"
  54.     INTEGER008 = 1
  55.     INTEGER007 = 0
  56.     Gosub LABEL001
  57.     GetAltUser 1
  58.     If (U_Name() == STRING006) INTEGER006 = INTEGER006 + 1
  59.     While (INTEGER006 < 2) Do
  60.         If (((((U_Sec == INTEGER001) || (U_Sec == INTEGER002)) || (U_Sec == INTEGER003)) || (U_Sec == INTEGER004)) || (U_Sec == INTEGER005)) Gosub LABEL005
  61.         INTEGER007 = U_Bul() / 1000 + INTEGER007
  62.         INTEGER009 = INTEGER009 + 1
  63.         If (STRING006 == U_Name()) STRING007 = "@X04"
  64.         If (INTEGER008 == U_PageLen - 7) Then
  65.             PrintLn "@X07@X08 └───────────────┴─────────────────────────┴──────────────┴──────────────────┘"
  66.             Print "@PAUSE@"
  67.             Cls
  68.             Gosub LABEL001
  69.             INTEGER008 = 1
  70.         Endif
  71.         Print " @X08│ ", STRING007, U_Name()
  72.         AnsiPos 18, GetY()
  73.         Print "@X08│ ", U_City + STRING008
  74.         STRING007 = "@X08"
  75.         AnsiPos 44, GetY()
  76.         Print "@X08│"
  77.         AnsiPos 47, GetY()
  78.         If (Len(U_Bul()) <= 4) Then
  79.             STRING007 = "@X04"
  80.             Print "      ", STRING007, U_Bul() / 1000, STRING008, " Kb  @X08│ ", STRING007, " ", STRING010
  81.         Endif
  82.         If (Len(U_Bul()) == 5) Then
  83.             STRING007 = "@X04"
  84.             Print "     ", STRING007, U_Bul() / 1000, STRING008, " Kb  @X08│ ", STRING007, " ", STRING011
  85.         Endif
  86.         If (Len(U_Bul()) == 6) Then
  87.             STRING007 = "@X04"
  88.             Print "    ", STRING007, U_Bul() / 1000, STRING008, " Kb  @X08│ ", STRING007, " ", STRING012
  89.         Endif
  90.         If (Len(U_Bul()) == 7) Print "   ", STRING007, U_Bul() / 1000, " Kb  @X08│ ", STRING009, " ", STRING013
  91.         If (Len(U_Bul()) == 8) Print "  ", STRING007, U_Bul() / 1000, " Kb  @X08│  ", "@X05", STRING014
  92.         If (Len(U_Bul()) == 9) Print " ", STRING007, U_Bul() / 1000, " Kb  @X08│  ", "@X05", STRING015
  93.         If (Len(U_Bul()) == 10) Print STRING007, U_Bul() / 1000, " Kb  @X08│  ", "@X0D", STRING016
  94.         AnsiPos 78, GetY()
  95.         Print "@X08│"
  96.         If (((((U_Sec == INTEGER001) || (U_Sec == INTEGER002)) || (U_Sec == INTEGER003)) || (U_Sec == INTEGER004)) || (U_Sec == INTEGER005)) Gosub LABEL004
  97.         GetAltUser INTEGER009 + 1
  98.         If (U_Name() == STRING006) INTEGER006 = INTEGER006 + 1
  99.         STRING007 = "@X05"
  100.         INTEGER008 = INTEGER008 + 1
  101.         PrintLn ""
  102.     EndWhile
  103.     Gosub LABEL003
  104.     Gosub LABEL002
  105.     End
  106.     :LABEL001
  107.     PrintLn "@CLS@@X07@X08 ┌───────────────────────────────────────────────────────────────────────────┐"
  108.     PrintLn " │       ·<>· U@X07S@X05e@X08R L@X07i@X05S@X08T v1.1 B@X07y @X08V@X07i@X05RTu@X07A@X08L S@X07P@X05iR@X07i@X08T i@X07N @X0895 F@X07o@X08R T@X07R@X05iLo@X07X@X08y ·<>·        │"
  109.     PrintLn " ├───────────────┬─────────────────────────┬──────────────┬──────────────────┤"
  110.     PrintLn "@X0F @X08│   @X09USERNAME    @X08│        @X09LOCATION         @X08│    @X09KB U/L    @X08│     @X09COMMENT      @X08│"
  111.     PrintLn " ├───────────────┼─────────────────────────┼──────────────┼──────────────────┤"
  112.     Return
  113.     :LABEL002
  114.     PrintLn "@X07@X08 ├───────────────┴─────────────────────────┴──────────────┴──────────────────┤"
  115.     PrintLn " │                 ·<>· V@X07i@X05RTu@X07a@X08L S@X07P@X05iR@X07i@X08T ·<>· T@X07R@X05iLo@X07X@X08y'95 ·<>·                  │"
  116.     PrintLn " └───────────────────────────────────────────────────────────────────────────┘"
  117.     PrintLn "@WAIT@"
  118.     Return
  119.     :LABEL003
  120.     Print " @X08│ -------------"
  121.     AnsiPos 18, GetY()
  122.     Print "@X08│ -----------------------", STRING008
  123.     STRING007 = "@X08"
  124.     AnsiPos 44, GetY()
  125.     Print "@X08│"
  126.     STRING007 = "@X04"
  127.     PrintLn " ------------ │ ---------------- │"
  128.     Print " @X08│ --> @X04TOTAL @X08<--"
  129.     AnsiPos 18, GetY()
  130.     Print "@X08│ ", STRING008
  131.     STRING007 = "@X08"
  132.     AnsiPos 44, GetY()
  133.     Print "@X08│"
  134.     STRING007 = "@X04"
  135.     If (Len(INTEGER007) == 1) PrintLn "        ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  136.     If (Len(INTEGER007) == 2) PrintLn "       ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  137.     If (Len(INTEGER007) == 3) PrintLn "      ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  138.     If (Len(INTEGER007) == 4) PrintLn "     ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  139.     If (Len(INTEGER007) == 5) PrintLn "    ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  140.     If (Len(INTEGER007) == 6) PrintLn "   ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  141.     If (Len(INTEGER007) == 7) PrintLn "  ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  142.     If (Len(INTEGER007) == 8) PrintLn " ", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  143.     If (Len(INTEGER007) == 9) PrintLn "", STRING007, INTEGER007, STRING008, " Kb  @X08│ ", STRING007, " TOP TOTAL U/L   @X08│"
  144.     Return
  145.     :LABEL004
  146.     FOpen 1, PPEPath() + "CONFIG\COMMENT.CNF", 0, 0
  147.     FGet 1, STRING010
  148.     FGet 1, STRING011
  149.     FGet 1, STRING012
  150.     FGet 1, STRING013
  151.     FGet 1, STRING014
  152.     FGet 1, STRING015
  153.     FGet 1, STRING016
  154.     FGet 1, STRING001
  155.     FGet 1, STRING005
  156.     FGet 1, STRING002
  157.     FGet 1, STRING003
  158.     FGet 1, STRING004
  159.     FClose 1
  160.     FOpen 1, PPEPath() + "CONFIG\ACCOUNT.CNF", 0, 0
  161.     FGet 1, INTEGER004
  162.     FGet 1, INTEGER005
  163.     FGet 1, INTEGER001
  164.     FGet 1, INTEGER002
  165.     FGet 1, INTEGER003
  166.     FClose 1
  167.     Return
  168.     :LABEL005
  169.     If (U_Sec == INTEGER001) Then
  170.         STRING010 = "@X08" + STRING002
  171.         STRING011 = "@X08" + STRING002
  172.         STRING012 = "@X08" + STRING002
  173.         STRING013 = "@X08" + STRING002
  174.         STRING014 = "@X08" + STRING002
  175.         STRING015 = "@X08" + STRING002
  176.         STRING016 = "@X08" + STRING002
  177.     Endif
  178.     If (U_Sec == INTEGER002) Then
  179.         STRING010 = "@X08" + STRING003
  180.         STRING011 = "@X08" + STRING003
  181.         STRING012 = "@X08" + STRING003
  182.         STRING013 = "@X08" + STRING003
  183.         STRING014 = "@X08" + STRING003
  184.         STRING015 = "@X08" + STRING003
  185.         STRING016 = "@X08" + STRING003
  186.     Endif
  187.     If (U_Sec == INTEGER003) Then
  188.         STRING010 = "@X08" + STRING004
  189.         STRING011 = "@X08" + STRING004
  190.         STRING012 = "@X08" + STRING004
  191.         STRING013 = "@X08" + STRING004
  192.         STRING014 = "@X08" + STRING004
  193.         STRING015 = "@X08" + STRING004
  194.         STRING016 = "@X08" + STRING004
  195.     Endif
  196.     If (U_Sec == INTEGER004) Then
  197.         STRING010 = "@X08" + STRING001
  198.         STRING011 = "@X08" + STRING001
  199.         STRING012 = "@X08" + STRING001
  200.         STRING013 = "@X08" + STRING001
  201.         STRING014 = "@X08" + STRING001
  202.         STRING015 = "@X08" + STRING001
  203.         STRING016 = "@X08" + STRING001
  204.     Endif
  205.     If (U_Sec == INTEGER005) Then
  206.         STRING010 = "@X08" + STRING005
  207.         STRING011 = "@X08" + STRING005
  208.         STRING012 = "@X08" + STRING005
  209.         STRING013 = "@X08" + STRING005
  210.         STRING014 = "@X08" + STRING005
  211.         STRING015 = "@X08" + STRING005
  212.         STRING016 = "@X08" + STRING005
  213.     Endif
  214.     Return
  215.  
  216. ;------------------------------------------------------------------------------
  217. ;
  218. ; Usage report (before postprocessing)
  219. ;
  220. ; ■ Statements used :
  221. ;
  222. ;    1       End
  223. ;    1       Cls
  224. ;    11      Goto 
  225. ;    57      Let 
  226. ;    19      Print 
  227. ;    21      PrintLn 
  228. ;    28      If 
  229. ;    2       FOpen 
  230. ;    2       FClose 
  231. ;    17      FGet 
  232. ;    1       GetUser
  233. ;    7       Gosub 
  234. ;    5       Return
  235. ;    8       AnsiPos 
  236. ;    2       GetAltUser 
  237. ;
  238. ;
  239. ; ■ Functions used :
  240. ;
  241. ;    8       /
  242. ;    44      +
  243. ;    1       -
  244. ;    34      ==
  245. ;    1       <
  246. ;    1       <=
  247. ;    10      !
  248. ;    8       ||
  249. ;    16      Len(
  250. ;    5       U_Name()
  251. ;    15      U_Bul()
  252. ;    2       PPEPath()
  253. ;    8       GetY()
  254. ;
  255. ;------------------------------------------------------------------------------
  256. ;
  257. ; Analysis flags : R
  258. ;
  259. ; R - Read user ■ 5
  260. ;     User records are read, this may signify that someone wants to get
  261. ;     various informations about a user (for example his password), but
  262. ;     this may also be normal for a program accessing user records (for
  263. ;     example a User Editor)
  264. ;     ■ Search for : GETALTUSER
  265. ;
  266. ;------------------------------------------------------------------------------
  267. ;
  268. ; Postprocessing report
  269. ;
  270. ;    0       For/Next
  271. ;    1       While/EndWhile
  272. ;    9       If/Then or If/Then/Else
  273. ;    0       Select Case
  274. ;
  275. ;------------------------------------------------------------------------------
  276. ;                 AEGiS Corp - Break the routines, code against the machines!
  277. ;------------------------------------------------------------------------------
  278.