home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FTATUL16.ZIP / START.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-10  |  4KB  |  282 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.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.     String   STRING018
  42.     String   STRING019
  43.     String   STRING020
  44.     String   STRING021
  45.     String   STRING022
  46.     String   STRING023
  47.     String   STRING024
  48.     String   STRING025
  49.     String   STRING026
  50.     String   STRING027
  51.     String   STRING028
  52.     String   STRING029
  53.     String   STRING030
  54.     String   STRING031
  55.     String   STRING032
  56.     String   STRING033
  57.     String   STRING034
  58.     String   STRING035
  59.     String   STRING036
  60.     String   STRING037
  61.     String   STRING038
  62.     String   STRING039
  63.     String   STRING040
  64.     String   STRING041
  65.     String   STRING042
  66.     String   STRING043
  67.     String   STRING044
  68.     String   STRING045
  69.  
  70. ;------------------------------------------------------------------------------
  71.  
  72.     GetUser
  73.     STRING001 = U_Name()
  74.     INTEGER002 = U_RecNum(STRING001)
  75.     INTEGER001 = U_Bul()
  76.     STRING002 = INTEGER002
  77.     STRING034 = Date()
  78.     FOpen 1, PPEPath() + "EXEMPT", 2, 0
  79.     FGet 1, STRING035
  80.     FGet 1, STRING036
  81.     FGet 1, STRING037
  82.     FGet 1, STRING038
  83.     FGet 1, STRING039
  84.     FClose 1
  85.     STRING035 = Upper(STRING035)
  86.     STRING036 = Upper(STRING036)
  87.     STRING037 = Upper(STRING037)
  88.     STRING038 = Upper(STRING038)
  89.     STRING039 = Upper(STRING039)
  90.     If (STRING001 == STRING035) Goto LABEL007
  91.     If (STRING001 == STRING036) Goto LABEL007
  92.     If (STRING001 == STRING037) Goto LABEL007
  93.     If (STRING001 == STRING038) Goto LABEL007
  94.     If (STRING001 == STRING039) Goto LABEL007
  95.     If (Exist(PPEPath() + "USERS")) Goto LABEL001
  96.     FCreate 1, PPEPath() + "USERS", 2, 0
  97.     FClose 1
  98.     Goto LABEL002
  99.     :LABEL001
  100.     FOpen 1, PPEPath() + "USERS", 0, 0
  101.     FGet 1, STRING003
  102.     FGet 1, STRING004
  103.     FGet 1, STRING005
  104.     FGet 1, STRING006
  105.     FGet 1, STRING007
  106.     FGet 1, STRING008
  107.     FGet 1, STRING009
  108.     FGet 1, STRING010
  109.     FGet 1, STRING011
  110.     FGet 1, STRING012
  111.     FGet 1, STRING013
  112.     FGet 1, STRING014
  113.     FGet 1, STRING015
  114.     FGet 1, STRING016
  115.     FGet 1, STRING017
  116.     FGet 1, STRING018
  117.     FGet 1, STRING019
  118.     FGet 1, STRING020
  119.     FGet 1, STRING021
  120.     FGet 1, STRING022
  121.     FGet 1, STRING023
  122.     FGet 1, STRING024
  123.     FGet 1, STRING025
  124.     FGet 1, STRING026
  125.     FGet 1, STRING027
  126.     FGet 1, STRING028
  127.     FGet 1, STRING029
  128.     FGet 1, STRING030
  129.     FGet 1, STRING031
  130.     FGet 1, STRING032
  131.     FClose 1
  132.     If (STRING001 == STRING003) Goto LABEL003
  133.     If (STRING001 == STRING004) Goto LABEL003
  134.     If (STRING001 == STRING005) Goto LABEL003
  135.     If (STRING001 == STRING006) Goto LABEL003
  136.     If (STRING001 == STRING007) Goto LABEL003
  137.     If (STRING001 == STRING008) Goto LABEL003
  138.     If (STRING001 == STRING009) Goto LABEL003
  139.     If (STRING001 == STRING010) Goto LABEL003
  140.     If (STRING001 == STRING011) Goto LABEL003
  141.     If (STRING001 == STRING012) Goto LABEL003
  142.     If (STRING001 == STRING013) Goto LABEL003
  143.     If (STRING001 == STRING014) Goto LABEL003
  144.     If (STRING001 == STRING015) Goto LABEL003
  145.     If (STRING001 == STRING016) Goto LABEL003
  146.     If (STRING001 == STRING017) Goto LABEL003
  147.     If (STRING001 == STRING018) Goto LABEL003
  148.     If (STRING001 == STRING019) Goto LABEL003
  149.     If (STRING001 == STRING020) Goto LABEL003
  150.     If (STRING001 == STRING021) Goto LABEL003
  151.     If (STRING001 == STRING022) Goto LABEL003
  152.     If (STRING001 == STRING023) Goto LABEL003
  153.     If (STRING001 == STRING024) Goto LABEL003
  154.     If (STRING001 == STRING025) Goto LABEL003
  155.     If (STRING001 == STRING026) Goto LABEL003
  156.     If (STRING001 == STRING027) Goto LABEL003
  157.     If (STRING001 == STRING028) Goto LABEL003
  158.     If (STRING001 == STRING029) Goto LABEL003
  159.     If (STRING001 == STRING030) Goto LABEL003
  160.     If (STRING001 == STRING031) Goto LABEL003
  161.     If (STRING001 == STRING032) Goto LABEL003
  162.     :LABEL002
  163.     FCreate 1, PPEPath() + STRING002 + ".OLD", 2, 0
  164.     FPutLn 1, INTEGER001
  165.     FClose 1
  166.     :LABEL003
  167.     FOpen 1, PPEPath() + "FINDTOP.CFG", 2, 0
  168.     FGet 1, STRING033
  169.     FClose 1
  170.     STRING034 = Date()
  171.     If (STRING034 == STRING033) Then
  172.         Goto LABEL004
  173.     ElseIf (STRING034 > STRING033) Then
  174.         Goto LABEL005
  175.     Endif
  176.     Goto LABEL007
  177.     :LABEL004
  178.     Call PPEPath() + "FINDTOP.PPE"
  179.     :LABEL005
  180.     FOpen 1, PPEPath() + "WINNERS", 2, 0
  181.     FGet 1, STRING040
  182.     FGet 1, STRING041
  183.     FGet 1, STRING042
  184.     FGet 1, STRING043
  185.     FGet 1, STRING044
  186.     FGet 1, STRING045
  187.     FClose 1
  188.     INTEGER003 = Len(STRING040)
  189.     INTEGER003 = 35 - INTEGER003
  190.     INTEGER004 = Len(STRING042)
  191.     INTEGER004 = 35 - INTEGER004
  192.     INTEGER005 = Len(STRING044)
  193.     INTEGER005 = 35 - INTEGER005
  194.     StartDisp 1
  195.     Cls
  196.     AnsiPos 0, 0
  197.     DispFile PPEPath() + "TOPS.PCB", 0
  198.     AnsiPos 18, 4
  199.     Print "@X03" + STRING033
  200.     AnsiPos INTEGER003, 7
  201.     Print "@X0B" + STRING040
  202.     AnsiPos 41, 7
  203.     Print "@X0B" + STRING041
  204.     AnsiPos INTEGER004, 10
  205.     Print "@X03" + STRING042
  206.     AnsiPos 41, 10
  207.     Print "@X03" + STRING043
  208.     AnsiPos INTEGER005, 13
  209.     Print "@X08" + STRING044
  210.     AnsiPos 41, 13
  211.     Print STRING045
  212.     :LABEL006
  213.     If (Inkey() == Chr(13)) Goto LABEL007
  214.     AnsiPos 0, 23
  215.     Goto LABEL006
  216.     :LABEL007
  217.     End
  218.  
  219. ;------------------------------------------------------------------------------
  220. ;
  221. ; Usage report (before postprocessing)
  222. ;
  223. ; ■ Statements used :
  224. ;
  225. ;    1       End
  226. ;    1       Cls
  227. ;    46      Goto 
  228. ;    17      Let 
  229. ;    7       Print 
  230. ;    39      If 
  231. ;    1       DispFile 
  232. ;    2       FCreate 
  233. ;    4       FOpen 
  234. ;    6       FClose 
  235. ;    42      FGet 
  236. ;    1       FPutLn 
  237. ;    1       StartDisp 
  238. ;    1       GetUser
  239. ;    1       Call 
  240. ;    9       AnsiPos 
  241. ;
  242. ;
  243. ; ■ Functions used :
  244. ;
  245. ;    16      +
  246. ;    3       -
  247. ;    37      ==
  248. ;    1       >
  249. ;    2       !
  250. ;    3       Len(
  251. ;    5       Upper()
  252. ;    1       Chr()
  253. ;    2       Date()
  254. ;    1       U_Name()
  255. ;    1       U_Bul()
  256. ;    1       Inkey()
  257. ;    9       PPEPath()
  258. ;    1       Exist()
  259. ;    1       U_RecNum()
  260. ;
  261. ;------------------------------------------------------------------------------
  262. ;
  263. ; Analysis flags : C
  264. ;
  265. ; C - Call child PPE ■ 3
  266. ;     This is usually normal, but may be a tricky way to launch some
  267. ;     sysop-only commands.
  268. ;     ■ Search for : CALL
  269. ;
  270. ;------------------------------------------------------------------------------
  271. ;
  272. ; Postprocessing report
  273. ;
  274. ;    0       For/Next
  275. ;    0       While/EndWhile
  276. ;    2       If/Then or If/Then/Else
  277. ;    0       Select Case
  278. ;
  279. ;------------------------------------------------------------------------------
  280. ;                 AEGiS Corp - Break the routines, code against the machines!
  281. ;------------------------------------------------------------------------------
  282.