home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / WELCOMAT.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-09-09  |  6KB  |  289 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     Integer  INTEGER006
  24.     Integer  INTEGER007
  25.     Integer  INTEGER008
  26.     Integer  INTEGER009
  27.     Integer  INTEGER010
  28.     Integer  INTEGER011
  29.     Integer  INTEGER012
  30.     Integer  INTEGER013
  31.     Integer  INTEGER014
  32.     Integer  INTEGER015
  33.     Integer  INTEGER016
  34.     Integer  INTEGER017
  35.     Integer  INTEGER018
  36.     Integer  INTEGER019
  37.     Integer  INTEGER020
  38.     Integer  INTEGER021
  39.     Integer  INTEGER022
  40.     Integer  INTEGER023
  41.     Integer  INTEGER024
  42.     Integer  INTEGER025
  43.     Integer  INTEGER026
  44.     Integer  INTEGER027
  45.     Integer  INTEGER028
  46.     Integer  INTEGER029
  47.     Integer  INTEGER030
  48.     Integer  INTEGER031
  49.     Integer  INTEGER032
  50.     Integer  INTEGER033
  51.     Integer  INTEGER034
  52.     Integer  INTEGER035
  53.     Integer  INTEGER036
  54.     Integer  INTEGER037
  55.     Integer  INTEGER038
  56.     Integer  INTEGER039
  57.     Integer  INTEGER040
  58.     String   STRING001
  59.     String   STRING002
  60.     String   STRING003
  61.     String   TSTRING004(250)
  62.     String   STRING005
  63.     String   STRING006
  64.     String   STRING007
  65.     String   STRING008
  66.     String   STRING009
  67.     String   STRING010
  68.     String   STRING011
  69.     String   STRING012
  70.     String   STRING013
  71.     String   STRING014
  72.     String   STRING015
  73.  
  74. ;------------------------------------------------------------------------------
  75.  
  76.     STRING001 = "1.5"
  77.     FOpen 1, PPEPath() + "WELCOMAT.CNF", 0, 0
  78.     FGet 1, STRING009
  79.     FGet 1, INTEGER039
  80.     FGet 1, INTEGER037
  81.     FGet 1, STRING003
  82.     FGet 1, STRING002
  83.     FGet 1, INTEGER004
  84.     FGet 1, INTEGER005
  85.     FGet 1, INTEGER006
  86.     FGet 1, INTEGER007
  87.     FGet 1, INTEGER008
  88.     FGet 1, INTEGER009
  89.     FGet 1, INTEGER010
  90.     FGet 1, INTEGER011
  91.     FGet 1, INTEGER012
  92.     FGet 1, INTEGER013
  93.     FGet 1, INTEGER014
  94.     FGet 1, INTEGER015
  95.     FGet 1, INTEGER016
  96.     FGet 1, INTEGER017
  97.     FGet 1, INTEGER018
  98.     FGet 1, INTEGER019
  99.     FGet 1, INTEGER020
  100.     FGet 1, INTEGER021
  101.     FGet 1, INTEGER022
  102.     FGet 1, INTEGER023
  103.     FGet 1, INTEGER024
  104.     FGet 1, INTEGER025
  105.     FGet 1, INTEGER026
  106.     FGet 1, INTEGER027
  107.     FGet 1, INTEGER028
  108.     FGet 1, INTEGER029
  109.     FGet 1, INTEGER030
  110.     FGet 1, INTEGER031
  111.     FGet 1, INTEGER032
  112.     FGet 1, INTEGER033
  113.     FGet 1, INTEGER034
  114.     FClose 1
  115.     Tokenize STRING009
  116.     GetToken STRING013
  117.     GetToken STRING014
  118.     If (INTEGER039 == 0) Then
  119.         STRING015 = "N"
  120.         Goto LABEL002
  121.     Else
  122.         Goto LABEL001
  123.     Endif
  124.     :LABEL001
  125.     INTEGER035 = 36
  126.     INTEGER038 = 40621
  127.     STRING010 = Left(STRING013, 1)
  128.     STRING011 = Left(STRING014, 2)
  129.     STRING012 = STRING010 + STRING011
  130.     If (STRING010 == "A") INTEGER040 = 1934
  131.     If (STRING010 == "B") INTEGER040 = 2859
  132.     If (STRING010 == "C") INTEGER040 = 3743
  133.     If (STRING010 == "D") INTEGER040 = 4660
  134.     If (STRING010 == "E") INTEGER040 = 5534
  135.     If (STRING010 == "F") INTEGER040 = 6471
  136.     If (STRING010 == "G") INTEGER040 = 7325
  137.     If (STRING010 == "H") INTEGER040 = 8287
  138.     If (STRING010 == "I") INTEGER040 = 9119
  139.     If (STRING010 == "J") INTEGER040 = 1096
  140.     If (STRING010 == "K") INTEGER040 = 2928
  141.     If (STRING010 == "L") INTEGER040 = 3885
  142.     If (STRING010 == "M") INTEGER040 = 4737
  143.     If (STRING010 == "N") INTEGER040 = 5674
  144.     If (STRING010 == "O") INTEGER040 = 6546
  145.     If (STRING010 == "P") INTEGER040 = 7463
  146.     If (STRING010 == "Q") INTEGER040 = 8355
  147.     If (STRING010 == "R") INTEGER040 = 9242
  148.     If (STRING010 == "S") INTEGER040 = 1164
  149.     If (STRING010 == "T") INTEGER040 = 2031
  150.     If (STRING010 == "U") INTEGER040 = 3973
  151.     If (STRING010 == "V") INTEGER040 = 4820
  152.     If (STRING010 == "W") INTEGER040 = 5782
  153.     If (STRING010 == "X") INTEGER040 = 6619
  154.     If (STRING010 == "Y") INTEGER040 = 7591
  155.     If (STRING010 == "Z") INTEGER040 = 8408
  156.     INTEGER036 = S2I(STRING012, INTEGER035) + INTEGER039 + INTEGER038 + INTEGER040
  157.     If (Len(INTEGER039) == 1) STRING006 = "000"
  158.     If (Len(INTEGER039) == 2) STRING006 = "00"
  159.     If (Len(INTEGER039) == 3) STRING006 = "0"
  160.     If (Len(INTEGER039) == 4) STRING006 = ""
  161.     STRING007 = INTEGER039
  162.     STRING008 = STRING006 + STRING007
  163.     :LABEL002
  164.     If (!(INTEGER037 == INTEGER036) || (STRING015 == "N")) Then
  165.         STRING005 = "@X0B ■ WelcoMat v" + STRING001 + " # " + "@X0CUNREGISTERED@X0B" + " ■ " + STRING009 + " ■ "
  166.     Else
  167.         STRING005 = "@X0B ■ WelcoMat v" + STRING001 + " #@X0F" + STRING008 + "@X0B ■ " + STRING009 + " ■ "
  168.     Endif
  169.     GetUser
  170.     FOpen 1, STRING003, 0, 0
  171.     FGet 1, INTEGER002
  172.     For INTEGER003 = 1 To INTEGER002
  173.         FGet 1, TSTRING004(INTEGER003)
  174.         If (U_Name() == Upper(TSTRING004(INTEGER003))) Goto LABEL003
  175.     Next
  176.     FClose 1
  177.     Goto LABEL004
  178.     :LABEL003
  179.     U_Sec = INTEGER004
  180.     If (INTEGER005 <> "") ConfFlag INTEGER005, 1
  181.     If (INTEGER006 <> "") ConfFlag INTEGER006, 1
  182.     If (INTEGER007 <> "") ConfFlag INTEGER007, 1
  183.     If (INTEGER008 <> "") ConfFlag INTEGER008, 1
  184.     If (INTEGER009 <> "") ConfFlag INTEGER009, 1
  185.     If (INTEGER010 <> "") ConfFlag INTEGER010, 1
  186.     If (INTEGER011 <> "") ConfFlag INTEGER011, 1
  187.     If (INTEGER012 <> "") ConfFlag INTEGER012, 1
  188.     If (INTEGER013 <> "") ConfFlag INTEGER013, 1
  189.     If (INTEGER014 <> "") ConfFlag INTEGER014, 1
  190.     If (INTEGER015 <> "") ConfFlag INTEGER015, 1
  191.     If (INTEGER016 <> "") ConfFlag INTEGER016, 1
  192.     If (INTEGER017 <> "") ConfFlag INTEGER017, 1
  193.     If (INTEGER018 <> "") ConfFlag INTEGER018, 1
  194.     If (INTEGER019 <> "") ConfFlag INTEGER019, 1
  195.     If (INTEGER020 <> "") ConfFlag INTEGER020, 1
  196.     If (INTEGER021 <> "") ConfFlag INTEGER021, 1
  197.     If (INTEGER022 <> "") ConfFlag INTEGER022, 1
  198.     If (INTEGER023 <> "") ConfFlag INTEGER023, 1
  199.     If (INTEGER024 <> "") ConfFlag INTEGER024, 1
  200.     If (INTEGER025 <> "") ConfFlag INTEGER025, 1
  201.     If (INTEGER026 <> "") ConfFlag INTEGER026, 1
  202.     If (INTEGER027 <> "") ConfFlag INTEGER027, 1
  203.     If (INTEGER028 <> "") ConfFlag INTEGER028, 1
  204.     If (INTEGER029 <> "") ConfFlag INTEGER029, 1
  205.     If (INTEGER030 <> "") ConfFlag INTEGER030, 1
  206.     If (INTEGER031 <> "") ConfFlag INTEGER031, 1
  207.     If (INTEGER032 <> "") ConfFlag INTEGER032, 1
  208.     If (INTEGER033 <> "") ConfFlag INTEGER033, 1
  209.     If (INTEGER034 <> "") ConfFlag INTEGER034, 1
  210.     PutUser
  211.     Cls
  212.     Beep
  213.     DispFile STRING002, 4 + 2 + 1
  214.     PrintLn STRING005
  215.     PrintLn 
  216.     Wait
  217.     :LABEL004
  218.     End
  219.  
  220. ;------------------------------------------------------------------------------
  221. ;
  222. ; Usage report (before postprocessing)
  223. ;
  224. ; ■ Statements used :
  225. ;
  226. ;    1       End
  227. ;    1       Cls
  228. ;    1       Wait
  229. ;    11      Goto 
  230. ;    45      Let 
  231. ;    2       PrintLn 
  232. ;    64      If 
  233. ;    30      ConfFlag 
  234. ;    1       DispFile 
  235. ;    2       FOpen 
  236. ;    2       FClose 
  237. ;    38      FGet 
  238. ;    1       GetUser
  239. ;    1       PutUser
  240. ;    1       Tokenize 
  241. ;    2       GetToken 
  242. ;    1       Beep
  243. ;
  244. ;
  245. ; ■ Functions used :
  246. ;
  247. ;    21      +
  248. ;    34      ==
  249. ;    30      <>
  250. ;    1       <
  251. ;    1       <=
  252. ;    2       >=
  253. ;    4       !
  254. ;    2       &&
  255. ;    2       ||
  256. ;    4       Len(
  257. ;    1       Upper()
  258. ;    2       Left()
  259. ;    1       U_Name()
  260. ;    1       PPEPath()
  261. ;    1       S2I()
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;
  265. ; Analysis flags : FW
  266. ;
  267. ; F - Change conference flags status ■ 2
  268. ;     This may be normal for a SELECT replacement but it may also be
  269. ;     a way to get access to conferences a user is not allowed to.
  270. ;     ■ Search for : CONFFLAG, CONFUNFLAG
  271. ;
  272. ; W - Write user ■ 5
  273. ;     Program writes a user record. Although this may be normal for a
  274. ;     User Editor, it may also be a way to modify an account level.
  275. ;     ■ Search for : PUTUSER
  276. ;
  277. ;------------------------------------------------------------------------------
  278. ;
  279. ; Postprocessing report
  280. ;
  281. ;    1       For/Next
  282. ;    0       While/EndWhile
  283. ;    2       If/Then or If/Then/Else
  284. ;    0       Select Case
  285. ;
  286. ;------------------------------------------------------------------------------
  287. ;                 AEGiS Corp - Break the routines, code against the machines!
  288. ;------------------------------------------------------------------------------
  289.