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