home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMSG07.ZIP / THT-MSG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-20  |  5KB  |  327 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.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.     String   STRING014
  36.     String   STRING015
  37.     String   STRING016
  38.     String   STRING017
  39.     String   STRING018
  40.     String   STRING019
  41.     String   STRING020
  42.     String   STRING021
  43.     String   STRING022
  44.     String   STRING023
  45.     String   STRING024
  46.     String   STRING025
  47.     String   STRING026
  48.     String   STRING027
  49.     String   STRING028
  50.     String   STRING029
  51.     String   STRING030
  52.     String   STRING031
  53.     String   STRING032
  54.     String   STRING033
  55.     String   STRING034
  56.     String   STRING035
  57.     String   STRING036
  58.     String   STRING037
  59.     String   STRING038
  60.     String   STRING039
  61.     String   STRING040
  62.     String   STRING041
  63.  
  64. ;------------------------------------------------------------------------------
  65.  
  66.     INTEGER002 = GetY()
  67.     FDefIn 1
  68.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  69.     FDGet STRING009
  70.     FDGet STRING015
  71.     FDGet STRING010
  72.     FDGet STRING016
  73.     FDGet STRING011
  74.     FDGet STRING017
  75.     FDGet STRING012
  76.     FDGet STRING018
  77.     FDGet STRING013
  78.     FDGet STRING019
  79.     FDGet STRING014
  80.     FDGet STRING020
  81.     FDGet STRING021
  82.     FDGet STRING022
  83.     FDGet STRING023
  84.     FDGet STRING024
  85.     FDGet STRING025
  86.     FDGet STRING033
  87.     FDGet STRING034
  88.     FDGet STRING035
  89.     FDGet STRING036
  90.     FDGet STRING037
  91.     FDGet STRING038
  92.     FDGet STRING039
  93.     FDGet STRING040
  94.     FDGet STRING041
  95.     FClose 1
  96.     GetUser
  97.     U_Cls = 1
  98.     U_PageLen = 22
  99.     PutUser
  100.     STRING032 = ReadLine(PPEPath() + PPEName() + ".hdr", 7)
  101.     FClose -1
  102.     If (Left(STRING032, 2) <> "@X") STRING032 = 16
  103.     STRING031 = Left(STRING032, 3) + "0" + I2S(29, 36) + I2S(17, 36) + I2S(29, 36) + "-" + I2S(22, 36) + "sg " + I2S(31, 36) + " " + I2S(0, 36) + "." + I2S(7, 36)
  104.     AnsiPos 1, 1
  105.     STRING008 = ScrText(1, 0, 5, 0)
  106.     If (STRING008 == "  To:") Then
  107.         STRING002 = ScrText(6, 1, 31, 0)
  108.         STRING030 = ScrText(1, 1, 6, 0)
  109.         STRING003 = ScrText(6, 2, 31, 0)
  110.         STRING004 = ScrText(6, 3, 47, 0)
  111.         STRING005 = ScrText(6, 4, 30, 0)
  112.         STRING026 = ScrText(37, 4, 7, 0)
  113.         STRING027 = ScrText(44, 4, 35, 0)
  114.         STRING006 = ScrText(6, 5, 28, 0)
  115.         STRING028 = ScrText(34, 5, 10, 0)
  116.         STRING029 = ScrText(44, 5, 35, 0)
  117.     Else
  118.         STRING001 = ScrText(6, 1, 23, 0)
  119.         STRING007 = ScrText(44, 1, 32, 0)
  120.         STRING002 = ScrText(6, 2, 31, 0)
  121.         STRING030 = ScrText(1, 2, 6, 0)
  122.         STRING003 = ScrText(6, 3, 31, 0)
  123.         STRING004 = ScrText(6, 4, 47, 0)
  124.         STRING005 = ScrText(6, 5, 30, 0)
  125.         STRING026 = ScrText(37, 5, 7, 0)
  126.         STRING027 = ScrText(44, 5, 35, 0)
  127.         STRING006 = ScrText(6, 6, 25, 0)
  128.         STRING028 = ScrText(34, 6, 10, 0)
  129.         STRING029 = ScrText(44, 6, 35, 0)
  130.     Endif
  131.     If (U_LongHDR == 1) Then
  132.         If (STRING008 == "  To:") Goto LABEL001
  133.         If (STRING008 == "Date:") Goto LABEL001
  134.         If (STRING008 == "From:") Goto LABEL001
  135.         Stop
  136.         :LABEL001
  137.         AnsiPos 1, 1
  138.         DispFile PPEPath() + PPEName() + ".hdr", 0
  139.         AnsiPos 63, 7
  140.         Print STRING031
  141.         If (STRING008 == "  To:") Then
  142.             Tokenize STRING033
  143.             GetToken INTEGER003
  144.             GetToken INTEGER004
  145.             AnsiPos INTEGER003, INTEGER004
  146.             Print STRING009 + "  To" + Left(STRING009, 3) + "F:" + STRING015 + RTrim(STRING002, " ")
  147.             Tokenize STRING034
  148.             GetToken INTEGER003
  149.             GetToken INTEGER004
  150.             AnsiPos INTEGER003, INTEGER004
  151.             Print STRING009 + "From" + Left(STRING009, 3) + "F:" + STRING015 + RTrim(STRING003, " ")
  152.             Tokenize STRING035
  153.             GetToken INTEGER003
  154.             GetToken INTEGER004
  155.             AnsiPos INTEGER003, INTEGER004
  156.             Print STRING012 + "Subj" + Left(STRING012, 3) + "F:" + STRING018 + STRING004
  157.             Tokenize STRING037
  158.             GetToken INTEGER003
  159.             GetToken INTEGER004
  160.             AnsiPos INTEGER003, INTEGER004
  161.             Print STRING013 + "Read" + Left(STRING013, 3) + "F:" + STRING019 + RTrim(STRING005, " ")
  162.             Tokenize STRING038
  163.             GetToken INTEGER003
  164.             GetToken INTEGER004
  165.             AnsiPos INTEGER003, INTEGER004
  166.             Print STRING013 + "Status" + Left(STRING013, 3) + "F:" + STRING023 + RTrim(STRING027, " ")
  167.             Tokenize STRING039
  168.             GetToken INTEGER003
  169.             GetToken INTEGER004
  170.             AnsiPos INTEGER003, INTEGER004
  171.             Print STRING013 + "Conf" + Left(STRING013, 3) + "F:" + STRING025 + RTrim(STRING006, " ")
  172.             Tokenize STRING040
  173.             GetToken INTEGER003
  174.             GetToken INTEGER004
  175.             AnsiPos INTEGER003, INTEGER004
  176.             Print STRING013 + "Read Type" + Left(STRING013, 3) + "F:" + STRING019 + RTrim(STRING029, " ")
  177.             AnsiPos 1, INTEGER002
  178.         Else
  179.             Tokenize STRING033
  180.             GetToken INTEGER003
  181.             GetToken INTEGER004
  182.             AnsiPos INTEGER003, INTEGER004
  183.             Print STRING009 + "Date" + Left(STRING009, 3) + "F:" + STRING015 + RTrim(STRING001, " ")
  184.             Tokenize STRING034
  185.             GetToken INTEGER003
  186.             GetToken INTEGER004
  187.             AnsiPos INTEGER003, INTEGER004
  188.             Print STRING021 + RTrim(STRING007, " ")
  189.             Tokenize STRING035
  190.             GetToken INTEGER003
  191.             GetToken INTEGER004
  192.             AnsiPos INTEGER003, INTEGER004
  193.             Print STRING010 + "  To" + Left(STRING010, 3) + "F:" + STRING016 + RTrim(STRING002, " ")
  194.             Tokenize STRING036
  195.             GetToken INTEGER003
  196.             GetToken INTEGER004
  197.             AnsiPos INTEGER003, INTEGER004
  198.             Print STRING011 + "From" + Left(STRING011, 3) + "F:" + STRING017 + RTrim(STRING003, " ")
  199.             Tokenize STRING037
  200.             GetToken INTEGER003
  201.             GetToken INTEGER004
  202.             AnsiPos INTEGER003, INTEGER004
  203.             Print STRING012 + "Subj" + Left(STRING012, 3) + "F:" + STRING018 + STRING004
  204.             Tokenize STRING038
  205.             GetToken INTEGER003
  206.             GetToken INTEGER004
  207.             AnsiPos INTEGER003, INTEGER004
  208.             Print STRING022 + "Status" + Left(STRING022, 3) + "F:" + STRING023 + RTrim(STRING027, " ")
  209.             Tokenize STRING039
  210.             GetToken INTEGER003
  211.             GetToken INTEGER004
  212.             AnsiPos INTEGER003, INTEGER004
  213.             Print STRING013 + "Read" + Left(STRING013, 3) + "F:" + STRING019 + RTrim(STRING005, " ")
  214.             Tokenize STRING040
  215.             GetToken INTEGER003
  216.             GetToken INTEGER004
  217.             AnsiPos INTEGER003, INTEGER004
  218.             Print STRING024 + "Read Type" + Left(STRING024, 3) + "F:" + STRING025 + RTrim(STRING029, " ")
  219.             Tokenize STRING041
  220.             GetToken INTEGER003
  221.             GetToken INTEGER004
  222.             AnsiPos INTEGER003, INTEGER004
  223.             Print STRING014 + "Conf" + Left(STRING014, 3) + "F:" + STRING020 + RTrim(STRING006, " ")
  224.             AnsiPos 1, INTEGER002
  225.         Endif
  226.     Else
  227.         If (STRING008 <> "Date:") Then
  228.             If (STRING008 == "  To:") Goto LABEL002
  229.             If (STRING008 == "From:") Goto LABEL002
  230.             AnsiPos 1, INTEGER002
  231.             Stop
  232.         Endif
  233.         :LABEL002
  234.         AnsiPos 1, 1
  235.         DispFile PPEPath() + PPEName() + "1.hdr", 0
  236.         AnsiPos 63, 5
  237.         Print STRING031
  238.         Tokenize STRING033
  239.         GetToken INTEGER003
  240.         GetToken INTEGER004
  241.         AnsiPos INTEGER003, INTEGER004
  242.         Print STRING009 + "Date" + Left(STRING009, 3) + "F:" + STRING015 + RTrim(STRING001, " ")
  243.         Tokenize STRING034
  244.         GetToken INTEGER003
  245.         GetToken INTEGER004
  246.         AnsiPos INTEGER003, INTEGER004
  247.         Print STRING009 + RTrim(STRING007, " ")
  248.         Tokenize STRING035
  249.         GetToken INTEGER003
  250.         GetToken INTEGER004
  251.         AnsiPos INTEGER003, INTEGER004
  252.         Print STRING010 + "  To" + Left(STRING010, 3) + "F:" + STRING016 + RTrim(STRING002, " ")
  253.         Tokenize STRING037
  254.         GetToken INTEGER003
  255.         GetToken INTEGER004
  256.         AnsiPos INTEGER003, INTEGER004
  257.         Print STRING011 + "From" + Left(STRING011, 3) + "F:" + STRING017 + RTrim(STRING003, " ")
  258.         Tokenize STRING038
  259.         GetToken INTEGER003
  260.         GetToken INTEGER004
  261.         AnsiPos INTEGER003 - 5, INTEGER004
  262.         Print STRING012 + "Subj" + Left(STRING012, 3) + "F:" + STRING018 + Left(STRING004, 34)
  263.         AnsiPos 1, INTEGER002
  264.     Endif
  265.  
  266. ;------------------------------------------------------------------------------
  267. ;
  268. ; Usage report (before postprocessing)
  269. ;
  270. ; ■ Statements used :
  271. ;
  272. ;    12      Goto 
  273. ;    29      Let 
  274. ;    23      Print 
  275. ;    10      If 
  276. ;    2       DispFile 
  277. ;    1       FOpen 
  278. ;    2       FClose 
  279. ;    1       GetUser
  280. ;    1       PutUser
  281. ;    21      Tokenize 
  282. ;    42      GetToken 
  283. ;    2       Stop
  284. ;    30      AnsiPos 
  285. ;    1       FDefIn 
  286. ;    26      FDGet 
  287. ;
  288. ;
  289. ; ■ Functions used :
  290. ;
  291. ;    1       -
  292. ;    117     +
  293. ;    1       -
  294. ;    8       ==
  295. ;    2       <>
  296. ;    9       !
  297. ;    22      Left()
  298. ;    18      RTrim()
  299. ;    4       PPEPath()
  300. ;    1       ReadLine()
  301. ;    7       I2S()
  302. ;    1       GetY()
  303. ;    4       PPEName()
  304. ;    23      ScrText()
  305. ;
  306. ;------------------------------------------------------------------------------
  307. ;
  308. ; Analysis flags : W
  309. ;
  310. ; W - Write user ■ 5
  311. ;     Program writes a user record. Although this may be normal for a
  312. ;     User Editor, it may also be a way to modify an account level.
  313. ;     ■ Search for : PUTUSER
  314. ;
  315. ;------------------------------------------------------------------------------
  316. ;
  317. ; Postprocessing report
  318. ;
  319. ;    0       For/Next
  320. ;    0       While/EndWhile
  321. ;    4       If/Then or If/Then/Else
  322. ;    0       Select Case
  323. ;
  324. ;------------------------------------------------------------------------------
  325. ;                 AEGiS Corp - Break the routines, code against the machines!
  326. ;------------------------------------------------------------------------------
  327.