home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CLCB_100.ZIP / CLCB_192.PPE (.txt) next >
PCBoard Programming Language Executable  |  1994-02-22  |  6KB  |  359 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  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   TSTRING012(25)
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.     String   STRING032
  52.     String   STRING033
  53.     String   STRING034
  54.     String   STRING035
  55.     String   STRING036
  56.     String   STRING037
  57.     String   STRING038
  58.     String   STRING039
  59.     String   STRING040
  60.     String   STRING041
  61.     String   STRING042
  62.     String   STRING043
  63.     String   STRING044
  64.     String   STRING045
  65.     String   STRING046
  66.     String   STRING047
  67.     String   STRING048
  68.     String   STRING049
  69.     String   STRING050
  70.     String   STRING051
  71.     String   STRING052
  72.     String   STRING053
  73.     String   STRING054
  74.     String   STRING055
  75.     String   STRING056
  76.     String   STRING057
  77.     String   STRING058
  78.     String   STRING059
  79.  
  80. ;------------------------------------------------------------------------------
  81.  
  82.     STRING002 = "C"
  83.     STRING003 = "L"
  84.     STRING004 = "C"
  85.     STRING005 = "B"
  86.     STRING001 = STRING002 + STRING003 + STRING004 + STRING005
  87.     STRING007 = "v"
  88.     STRING008 = "1"
  89.     STRING009 = "."
  90.     STRING010 = "0"
  91.     STRING011 = "0"
  92.     STRING006 = STRING007 + STRING008 + STRING009 + STRING010 + STRING011
  93.     If (Psa(5)) Goto LABEL001
  94.     Newline
  95.     PrintLn STRING001 + " " + STRING006 + " Error: PSA: PCBSTAT is not present in user file!"
  96.     Log "" + STRING001 + " " + STRING006 + " [PSA Error]", 0
  97.     Goto LABEL011
  98.     :LABEL001
  99.     STRING047 = PPEPath() + STRING001 + ".DAT"
  100.     STRING044 = PPEPath() + STRING001 + ".EXC"
  101.     STRING045 = PPEPath() + STRING001 + ".BLT"
  102.     STRING046 = STRING001 + "TEMP." + String(PcbNode())
  103.     FOpen 1, STRING047, 0, 0
  104.     FGet 1, STRING013
  105.     STRING039 = STRING013
  106.     FGet 1, STRING013
  107.     If (STRING013 > 25) Then
  108.         STRING040 = 25
  109.     Else
  110.         STRING040 = STRING013
  111.     Endif
  112.     FGet 1, STRING013
  113.     If (Left(STRING013, 1) <> "@") Then
  114.         STRING041 = "@X08"
  115.     Else
  116.         STRING041 = STRING013
  117.     Endif
  118.     FGet 1, STRING013
  119.     If (Left(STRING013, 1) <> "@") Then
  120.         STRING042 = "@X0F"
  121.     Else
  122.         STRING042 = STRING013
  123.     Endif
  124.     FGet 1, STRING013
  125.     STRING043 = STRING013
  126.     FClose 1
  127.     If (Len(StripAtx(STRING043)) > 79) Then
  128.         Newline
  129.         DefColor
  130.         PrintLn STRING001 + " " + STRING006 + " Error: Uncolored Configured Line Exceeds 79 Characters"
  131.         Log "" + STRING001 + " " + STRING006 + " [Error]", 0
  132.     Else
  133.         If (CDOn()) Then
  134.             STRING033 = STRING041 + "-"
  135.         ElseIf (OnLocal()) Then
  136.             STRING033 = STRING041 + "-"
  137.         Else
  138.             STRING033 = STRING042 + "H"
  139.         Endif
  140.         Newline
  141.         DispStr STRING039
  142.         Delay 5
  143.         WrUSys
  144.         GetUser
  145.         If (Exist(STRING044)) Then
  146.             FOpen 2, STRING044, 0, 0
  147.             :LABEL002
  148.             If (Ferr(2)) Goto LABEL003
  149.             FGet 2, STRING034
  150.             If (Upper(STRING034) == U_Name()) Then
  151.                 FClose 2
  152.                 Goto LABEL011
  153.             Endif
  154.             Goto LABEL002
  155.             :LABEL003
  156.             FClose 2
  157.         Endif
  158.         If (U_RecNum(U_Name()) == -1) Goto LABEL011
  159.         If (Exist(STRING046)) Then
  160.             If (Exist(STRING045)) Then
  161.                 FOpen 2, STRING046, 0, 0
  162.                 FGet 2, STRING013
  163.                 FGet 2, STRING015
  164.                 FGet 2, STRING016
  165.                 FGet 2, STRING017
  166.                 FGet 2, STRING018
  167.                 FGet 2, STRING019
  168.                 FGet 2, STRING020
  169.                 FGet 2, STRING014
  170.                 FClose 2
  171.                 STRING021 = U_Ful()
  172.                 STRING022 = U_Fdl()
  173.                 STRING023 = U_MsgWr()
  174.                 STRING024 = U_MsgRd()
  175.                 STRING025 = U_Stat(2)
  176.                 STRING026 = U_Stat(3)
  177.                 STRING035 = Right(String(STRING023 - STRING017), 2)
  178.                 STRING036 = Right(String(STRING021 - STRING015), 2)
  179.                 STRING037 = Right(String(STRING022 - STRING016), 2)
  180.                 If (STRING021 > STRING015) Then
  181.                     STRING027 = STRING042 + "U"
  182.                     Goto LABEL004
  183.                 Endif
  184.                 STRING027 = STRING041 + "-"
  185.                 :LABEL004
  186.                 If (STRING022 > STRING016) Then
  187.                     STRING028 = STRING042 + "D"
  188.                     Goto LABEL005
  189.                 Endif
  190.                 STRING028 = STRING041 + "-"
  191.                 :LABEL005
  192.                 If (STRING023 > STRING017) Then
  193.                     STRING029 = STRING042 + "W"
  194.                     Goto LABEL006
  195.                 Endif
  196.                 STRING029 = STRING041 + "-"
  197.                 :LABEL006
  198.                 If (STRING024 > STRING018) Then
  199.                     STRING030 = STRING042 + "R"
  200.                     Goto LABEL007
  201.                 Endif
  202.                 STRING030 = STRING041 + "-"
  203.                 :LABEL007
  204.                 If (STRING025 > STRING019) Then
  205.                     STRING031 = STRING042 + "P"
  206.                     Goto LABEL008
  207.                 Endif
  208.                 STRING031 = STRING041 + "-"
  209.                 :LABEL008
  210.                 If (STRING026 > STRING020) Then
  211.                     STRING032 = STRING042 + "C"
  212.                     Goto LABEL009
  213.                 Endif
  214.                 STRING032 = STRING041 + "-"
  215.                 :LABEL009
  216.                 STRING038 = STRING027 + STRING028 + STRING029 + STRING030 + STRING031 + STRING032 + STRING033
  217.                 STRING052 = Right(String(PcbNode()), 2)
  218.                 STRING048 = Left(Mixed(U_Name()), 25)
  219.                 STRING049 = Left(U_Name(), 25)
  220.                 STRING050 = Left(Mixed(Strip(U_City, "@")), 24)
  221.                 STRING051 = Left(Strip(U_City, "@"), 24)
  222.                 STRING053 = Right(String(MinOn()), 3)
  223.                 STRING054 = Right(String(Carrier()), 5)
  224.                 STRING055 = Right(String(U_Sec), 3)
  225.                 STRING056 = Left(STRING014, 5)
  226.                 STRING057 = Left(Time(), 5)
  227.                 STRING058 = Left(TimeAp(STRING014), 5) + Right(TimeAp(STRING014), 3)
  228.                 STRING059 = Left(TimeAp(Time()), 5) + Right(TimeAp(Time()), 3)
  229.                 STRING043 = ReplaceStr(STRING043, "%MIX_USER_FULL_NAME_FIELD", STRING048)
  230.                 STRING043 = ReplaceStr(STRING043, "%CAP_USER_FULL_NAME_FIELD", STRING049)
  231.                 STRING043 = ReplaceStr(STRING043, "%MIX_USERCITYSTATE_FIELD", STRING050)
  232.                 STRING043 = ReplaceStr(STRING043, "%CAP_USERCITYSTATE_FIELD", STRING051)
  233.                 STRING043 = ReplaceStr(STRING043, "%N", STRING052)
  234.                 STRING043 = ReplaceStr(STRING043, "%MO", STRING053)
  235.                 STRING043 = ReplaceStr(STRING043, "%BAUD", STRING054)
  236.                 STRING043 = ReplaceStr(STRING043, "%SL", STRING055)
  237.                 STRING043 = ReplaceStr(STRING043, "%ON24", STRING056)
  238.                 STRING043 = ReplaceStr(STRING043, "%OF24", STRING057)
  239.                 STRING043 = ReplaceStr(STRING043, "%LOGN_AP", STRING058)
  240.                 STRING043 = ReplaceStr(STRING043, "%LOGF_AP", STRING059)
  241.                 STRING043 = ReplaceStr(STRING043, "%U", STRING036)
  242.                 STRING043 = ReplaceStr(STRING043, "%D", STRING037)
  243.                 STRING043 = ReplaceStr(STRING043, "%M", STRING035)
  244.                 STRING043 = ReplaceStr(STRING043, "%FUNCTS", STRING038)
  245.                 TSTRING012(1) = STRING043
  246.                 If (Exist(STRING045)) Then
  247.                     FOpen 1, STRING045, 0, 0
  248.                     For INTEGER001 = 2 To STRING040
  249.                         FGet 1, TSTRING012(INTEGER001)
  250.                     Next
  251.                     FClose 1
  252.                     Delete STRING045
  253.                     FCreate 1, STRING045, 1, 0
  254.                     For INTEGER001 = 1 To STRING040
  255.                         FPutLn 1, TSTRING012(INTEGER001)
  256.                     Next
  257.                     FClose 1
  258.                     Goto LABEL010
  259.                 Endif
  260.             Endif
  261.             FCreate 1, STRING045, 1, 0
  262.             For INTEGER001 = 1 To STRING040
  263.                 FPutLn 1, "I" + "NI" + "TI" + "AL" + "IZ" + "A" + "T" + "I" + "ON"
  264.             Next
  265.             FClose 1
  266.             :LABEL010
  267.             Log "" + STRING001 + " " + STRING006 + " [" + "Bul" + "le" + "tin" + " U" + "pd" + "at" + "e]", 0
  268.             Goto LABEL011
  269.         Endif
  270.     Endif
  271.     :LABEL011
  272.     If (Exist(STRING046)) Delete STRING046
  273.     End
  274.  
  275. ;------------------------------------------------------------------------------
  276. ;
  277. ; Usage report (before postprocessing)
  278. ;
  279. ; ■ Statements used :
  280. ;
  281. ;    1       End
  282. ;    43      Goto 
  283. ;    83      Let 
  284. ;    2       PrintLn 
  285. ;    24      If 
  286. ;    2       FCreate 
  287. ;    4       FOpen 
  288. ;    7       FClose 
  289. ;    15      FGet 
  290. ;    2       FPutLn 
  291. ;    1       GetUser
  292. ;    1       DefColor
  293. ;    2       Delete 
  294. ;    3       Log 
  295. ;    1       Delay 
  296. ;    3       Newline
  297. ;    1       DispStr 
  298. ;    1       WrUSys
  299. ;
  300. ;
  301. ; ■ Functions used :
  302. ;
  303. ;    1       -
  304. ;    74      +
  305. ;    3       -
  306. ;    2       ==
  307. ;    2       <>
  308. ;    3       <
  309. ;    3       <=
  310. ;    8       >
  311. ;    6       >=
  312. ;    22      !
  313. ;    6       &&
  314. ;    3       ||
  315. ;    1       Len(
  316. ;    1       Upper()
  317. ;    10      Left()
  318. ;    9       Right()
  319. ;    1       Ferr()
  320. ;    3       Time()
  321. ;    4       U_Name()
  322. ;    1       U_Ful()
  323. ;    1       U_Fdl()
  324. ;    4       TimeAp()
  325. ;    1       StripAtx()
  326. ;    2       Strip()
  327. ;    8       String()
  328. ;    3       PPEPath()
  329. ;    1       U_MsgRd()
  330. ;    1       U_MsgWr()
  331. ;    2       PcbNode()
  332. ;    1       OnLocal()
  333. ;    1       MinOn()
  334. ;    5       Exist()
  335. ;    1       Carrier()
  336. ;    1       CDOn()
  337. ;    2       U_Stat()
  338. ;    1       Psa()
  339. ;    1       U_RecNum()
  340. ;    16      ReplaceStr()
  341. ;    2       Mixed()
  342. ;
  343. ;------------------------------------------------------------------------------
  344. ;
  345. ; Analysis flags : No flag
  346. ;
  347. ;------------------------------------------------------------------------------
  348. ;
  349. ; Postprocessing report
  350. ;
  351. ;    3       For/Next
  352. ;    0       While/EndWhile
  353. ;    17      If/Then or If/Then/Else
  354. ;    0       Select Case
  355. ;
  356. ;------------------------------------------------------------------------------
  357. ;                 AEGiS Corp - Break the routines, code against the machines!
  358. ;------------------------------------------------------------------------------
  359.