home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1997 January / CD_shareware_1-97.iso / DOS / COMUNICA / PCBDE404.ZIP / PCBDE.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-10-08  |  20.7 KB  |  802 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  BOOLEAN008
  27.     Boolean  BOOLEAN009
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Date     DATE001
  31.     Date     DATE002
  32.     Integer  INTEGER001
  33.     Integer  TINTEGER002(99)
  34.     Integer  INTEGER003
  35.     Integer  INTEGER004
  36.     Integer  INTEGER005
  37.     Integer  INTEGER006
  38.     Integer  INTEGER007
  39.     Integer  INTEGER008
  40.     Integer  INTEGER009
  41.     Integer  INTEGER010
  42.     Integer  INTEGER011
  43.     Integer  INTEGER012
  44.     Integer  INTEGER013
  45.     Integer  INTEGER014
  46.     Integer  INTEGER015
  47.     Integer  INTEGER016
  48.     Integer  INTEGER017
  49.     Integer  INTEGER018
  50.     Integer  INTEGER019
  51.     Integer  INTEGER020
  52.     Integer  INTEGER021
  53.     Integer  INTEGER022
  54.     Integer  INTEGER023
  55.     Integer  INTEGER024
  56.     Integer  INTEGER025
  57.     Integer  INTEGER026
  58.     Integer  INTEGER027
  59.     Integer  INTEGER028
  60.     Integer  TINTEGER029(99)
  61.     String   STRING001
  62.     String   TSTRING002(3)
  63.     String   STRING003
  64.     BigStr   BIGSTR001
  65.     BigStr   BIGSTR002
  66.     BigStr   BIGSTR003
  67.     BigStr   BIGSTR004
  68.     BigStr   TBIGSTR005(1,200)
  69.     BigStr   TBIGSTR006(3,200)
  70.     BigStr   BIGSTR007
  71.     BigStr   TBIGSTR008(200)
  72.     BigStr   BIGSTR009
  73.     BigStr   BIGSTR010
  74.     BigStr   BIGSTR011
  75.     BigStr   BIGSTR012
  76.     BigStr   BIGSTR013
  77.     BigStr   BIGSTR014
  78.     BigStr   BIGSTR015
  79.     BigStr   BIGSTR016
  80.     BigStr   BIGSTR017
  81.     BigStr   BIGSTR018
  82.     BigStr   BIGSTR019
  83.     BigStr   BIGSTR020
  84.     BigStr   BIGSTR021
  85.     BigStr   BIGSTR022
  86.     BigStr   BIGSTR023
  87.     BigStr   TBIGSTR024(9,200)
  88.     BigStr   BIGSTR025
  89.     BigStr   BIGSTR026
  90.     BigStr   BIGSTR027
  91.     BigStr   BIGSTR028
  92.     BigStr   BIGSTR029
  93.     BigStr   BIGSTR030
  94.     BigStr   BIGSTR031
  95.     BigStr   BIGSTR032
  96.     BigStr   BIGSTR033
  97.     BigStr   BIGSTR034
  98.     BigStr   BIGSTR035
  99.     BigStr   BIGSTR036
  100.     BigStr   BIGSTR037
  101.     BigStr   BIGSTR038
  102.     BigStr   BIGSTR039
  103.     BigStr   BIGSTR040
  104.     BigStr   BIGSTR041
  105.     BigStr   BIGSTR042
  106.     BigStr   BIGSTR043
  107.     BigStr   BIGSTR044
  108.     BigStr   BIGSTR045
  109.     BigStr   BIGSTR046
  110.     BigStr   BIGSTR047
  111.     BigStr   BIGSTR048
  112.     BigStr   BIGSTR049
  113.     BigStr   BIGSTR050
  114.     BigStr   BIGSTR051
  115.     BigStr   BIGSTR052
  116.     BigStr   BIGSTR053
  117.     BigStr   BIGSTR054
  118.     BigStr   BIGSTR055
  119.     BigStr   BIGSTR056
  120.     BigStr   BIGSTR057
  121.     BigStr   BIGSTR058
  122.     BigStr   BIGSTR059
  123.     BigStr   BIGSTR060
  124.     BigStr   BIGSTR061
  125.     BigStr   BIGSTR062
  126.  
  127. ;------------------------------------------------------------------------------
  128.  
  129.     :LABEL001
  130.     BIGSTR050 = ""
  131.     BIGSTR051 = ""
  132.     BIGSTR052 = ""
  133.     BIGSTR053 = ""
  134.     BIGSTR054 = ""
  135.     BIGSTR055 = ""
  136.     BIGSTR056 = ""
  137.     BIGSTR057 = ""
  138.     BIGSTR058 = ""
  139.     BIGSTR059 = ""
  140.     BIGSTR060 = ""
  141.     BIGSTR042 = Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(65) + Chr(32) + Chr(77) + Chr(111) + Chr(109) + Chr(101) + Chr(110) + Chr(116) + Chr(32) + Chr(111) + Chr(102) + Chr(32) + Chr(83) + Chr(105) + Chr(108) + Chr(101) + Chr(110) + Chr(99) + Chr(101) + Chr(32) + Chr(105) + Chr(110) + Chr(32) + Chr(82) + Chr(101) + Chr(99) + Chr(111) + Chr(103) + Chr(110) + Chr(105) + Chr(116) + Chr(105) + Chr(111) + Chr(110) + Chr(32) + Chr(111) + Chr(102) + Chr(32) + Chr(97) + Chr(108) + Chr(108) + Chr(32) + Chr(85) + Chr(110) + Chr(114) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(32) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(119) + Chr(97) + Chr(114) + Chr(101) + Chr(46) + Chr(46) + Chr(46) + Chr(46)
  142.     BIGSTR043 = Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(105) + Chr(110) + Chr(103) + Chr(32) + Chr(84) + Chr(104) + Chr(101) + Chr(32) + Chr(80) + Chr(67) + Chr(66) + Chr(32) + Chr(68) + Chr(111) + Chr(111) + Chr(114) + Chr(32) + Chr(69) + Chr(120) + Chr(101) + Chr(99) + Chr(117) + Chr(116) + Chr(105) + Chr(118) + Chr(101) + Chr(32) + Chr(82) + Chr(101) + Chr(109) + Chr(111) + Chr(118) + Chr(101) + Chr(115) + Chr(32) + Chr(84) + Chr(104) + Chr(105) + Chr(115) + Chr(32) + Chr(83) + Chr(99) + Chr(114) + Chr(101) + Chr(101) + Chr(110) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32)
  143.     BIGSTR044 = ""
  144.     GetToken BIGSTR014
  145.     GetToken BIGSTR045
  146.     GetToken BIGSTR046
  147.     INTEGER009 = 1
  148.     INTEGER010 = 1
  149.     INTEGER012 = 1
  150.     INTEGER015 = 10
  151.     INTEGER021 = 0
  152.     BIGSTR013 = 0
  153.     INTEGER020 = 0
  154.     BIGSTR033 = ""
  155.     BOOLEAN001 = 1
  156.     BOOLEAN003 = 0
  157.     INTEGER018 = 0
  158.     BIGSTR018 = Chr(80) + Chr(67) + Chr(66) + Chr(68) + Chr(69) + "." + Chr(75) + Chr(69) + Chr(89)
  159.     BIGSTR038 = Chr(85) + Chr(78) + Chr(82) + Chr(69) + Chr(71) + Chr(73) + Chr(83) + Chr(84) + Chr(69) + Chr(82) + Chr(69) + Chr(68)
  160.     BIGSTR047 = Chr(80) + Chr(67) + Chr(66) + Chr(68) + Chr(69) + "." + Chr(68) + Chr(65) + Chr(84)
  161.     BOOLEAN004 = 0
  162.     BIGSTR021 = ""
  163.     BIGSTR022 = ""
  164.     BIGSTR030 = ""
  165.     BIGSTR031 = ""
  166.     BOOLEAN011 = 0
  167.     INTEGER017 = 1
  168.     BIGSTR010 = PcbNode()
  169.     INTEGER023 = 1
  170.     FDefIn 1
  171.     FOpen 1, PPEPath() + "PCBDE.CFG", 2, 2
  172.     :LABEL002
  173.     If (Ferr(1)) Goto LABEL003
  174.     FDGet BIGSTR011
  175.     INTEGER007 = INTEGER007 + 1
  176.     Goto LABEL002
  177.     :LABEL003
  178.     FClose 1
  179.     If (Exist(PPEPath() + "PCBDE.COL")) Then
  180.         FOpen 1, PPEPath() + "PCBDE.COL", 2, 0
  181.         FDGet BIGSTR050
  182.         FDGet BIGSTR051
  183.         FDGet BIGSTR052
  184.         FDGet BIGSTR053
  185.         FDGet BIGSTR054
  186.         FDGet BIGSTR055
  187.         FDGet BIGSTR056
  188.         FDGet BIGSTR057
  189.         FDGet BIGSTR058
  190.         FDGet BIGSTR059
  191.         FClose 1
  192.         BIGSTR050 = Left(BIGSTR050, 4)
  193.         BIGSTR051 = Left(BIGSTR051, 4)
  194.         BIGSTR052 = Left(BIGSTR052, 4)
  195.         BIGSTR053 = Left(BIGSTR053, 4)
  196.         BIGSTR054 = Left(BIGSTR054, 4)
  197.         BIGSTR055 = Left(BIGSTR055, 4)
  198.         BIGSTR056 = Left(BIGSTR056, 4)
  199.         BIGSTR057 = Left(BIGSTR057, 4)
  200.         BIGSTR058 = Left(BIGSTR058, 4)
  201.         BIGSTR059 = Left(BIGSTR059, 4)
  202.         BIGSTR060 = Left(Right(BIGSTR050, 2), 1)
  203.         INTEGER019 = BIGSTR060
  204.         INTEGER019 = INTEGER019 + 8
  205.         BIGSTR060 = INTEGER019
  206.         If (BIGSTR060 == 10) BIGSTR060 = "A"
  207.         If (BIGSTR060 == 11) BIGSTR060 = "B"
  208.         If (BIGSTR060 == 12) BIGSTR060 = "C"
  209.         If (BIGSTR060 == 13) BIGSTR060 = "D"
  210.         If (BIGSTR060 == 14) BIGSTR060 = "E"
  211.         If (BIGSTR060 == 15) BIGSTR060 = "F"
  212.         BIGSTR060 = "@X" + BIGSTR060 + "C"
  213.         BIGSTR049 = Left(Right(BIGSTR052, 2), 1)
  214.         STRING003 = Right(BIGSTR052, 1)
  215.         INTEGER008 = BIGSTR049
  216.         INTEGER008 = INTEGER008 + 8
  217.         If (INTEGER008 == 10) BIGSTR049 = "A"
  218.         If (INTEGER008 == 11) BIGSTR049 = "B"
  219.         If (INTEGER008 == 12) BIGSTR049 = "C"
  220.         If (INTEGER008 == 13) BIGSTR049 = "D"
  221.         If (INTEGER008 == 14) BIGSTR049 = "E"
  222.         If (INTEGER008 == 15) BIGSTR049 = "F"
  223.         BIGSTR048 = "@X" + BIGSTR049 + STRING003
  224.     Else
  225.         BIGSTR050 = "@X1F"
  226.         BIGSTR051 = "@X10"
  227.         BIGSTR052 = "@X1A"
  228.         BIGSTR053 = "@X1E"
  229.         BIGSTR054 = "@X17"
  230.         BIGSTR055 = "@X71"
  231.         BIGSTR056 = "@X7E"
  232.         BIGSTR057 = "@X74"
  233.         BIGSTR058 = "@X1B"
  234.         BIGSTR059 = "@X17"
  235.         BIGSTR060 = "@X1C"
  236.     Endif
  237.     If (Exist(PPEPath() + BIGSTR018)) Then
  238.         FOpen 1, PPEPath() + BIGSTR018, 2, 0
  239.         FDGet BIGSTR061
  240.         FDGet BIGSTR062
  241.         FDGet BIGSTR017
  242.         FClose 1
  243.         BIGSTR062 = BIGSTR062 + "                            "
  244.         BIGSTR062 = Left(BIGSTR062, 26)
  245.         Gosub LABEL020
  246.     Endif
  247.     If (Exist(PPEPath() + "UNIVERSL.KEY")) Goto LABEL025
  248.     If (Exist(PPEPath() + "UNI.KEY")) Goto LABEL026
  249.     :LABEL004
  250.     If (BIGSTR014 == "A") Goto LABEL010
  251.     If ((BIGSTR014 == "C") && Exist(PPEPath() + "PCBDE.CAT")) Goto LABEL009
  252.     If (BIGSTR014 <> "") Then
  253.         BIGSTR021 = BIGSTR014
  254.         INTEGER022 = BIGSTR014
  255.         If (INTEGER022 == 0) Then
  256.             FOpen 6, PPEPath() + "PCBDE.CFG", 0, 0
  257.             INTEGER013 = 1
  258.             BOOLEAN005 = 0
  259.             BOOLEAN006 = 0
  260.             BOOLEAN007 = 0
  261.             :LABEL005
  262.             If (BOOLEAN007) Goto LABEL008
  263.             FGet 6, BIGSTR023
  264.             If (LTrim(Right(BIGSTR023, 8), " ") == BIGSTR021) Then
  265.                 BIGSTR021 = INTEGER013
  266.                 If (Left(Right(BIGSTR023, 40), 1) == "L") TBIGSTR008(BIGSTR021) = "L"
  267.                 If (Left(Right(BIGSTR023, 12), 1) == "!") Then
  268.                     TBIGSTR006(2, BIGSTR021) = LTrim(Right(BIGSTR023, 8), " ")
  269.                     TBIGSTR006(3, BIGSTR021) = RTrim(Left(Right(BIGSTR023, 38), 23), " ")
  270.                     If (Left(Right(BIGSTR023, 40), 1) == "L") TBIGSTR008(BIGSTR021) = "L"
  271.                     BOOLEAN007 = 1
  272.                     BOOLEAN005 = 1
  273.                 Else
  274.                     BOOLEAN007 = 1
  275.                     BOOLEAN006 = 1
  276.                 Endif
  277.             Else
  278.                 If (Ferr(6)) Goto LABEL006
  279.                 If (INTEGER013 > 200) BOOLEAN007 = 1
  280.                 INTEGER013 = INTEGER013 + 1
  281.                 Goto LABEL007
  282.                 :LABEL006
  283.                 BOOLEAN007 = 1
  284.                 BOOLEAN008 = 1
  285.             Endif
  286.             :LABEL007
  287.             Goto LABEL005
  288.             :LABEL008
  289.             FClose 6
  290.             If (BOOLEAN005) Then
  291.                 BOOLEAN009 = 1
  292.                 Goto LABEL015
  293.             ElseIf (BOOLEAN006) Then
  294.                 BOOLEAN010 = 1
  295.                 Goto LABEL015
  296.             Else
  297.                 PrintLn 
  298.                 PrintLn "@X0C(@X8F", BIGSTR021, "@X0C) Is not a valid Door Selection"
  299.             Endif
  300.             Goto LABEL001
  301.         Else
  302.             FOpen 6, PPEPath() + "PCBDE.CFG", 0, 0
  303.             For INTEGER011 = 1 To BIGSTR021
  304.                 FGet 6, BIGSTR023
  305.             Next
  306.             FClose 6
  307.             If (Left(Right(BIGSTR023, 40), 1) == "L") TBIGSTR008(BIGSTR021) = "L"
  308.             If (Left(Right(BIGSTR023, 12), 1) == "!") Then
  309.                 TBIGSTR006(2, BIGSTR021) = LTrim(Right(BIGSTR023, 8), " ")
  310.                 TBIGSTR006(3, BIGSTR021) = RTrim(Left(Right(BIGSTR023, 38), 23), " ")
  311.                 BOOLEAN009 = 1
  312.                 Goto LABEL015
  313.             Else
  314.                 BOOLEAN010 = 1
  315.             Else
  316.             Endif
  317.         Endif
  318.         If (Exist(PPEPath() + "PCBDE.CAT")) Then
  319.             InputStr "@X0FDisplay (@X0AA@X0F)ll Doors or by (@X0BC@X0F)ategory @X0A<ENTER>@X0F=ALL", BIGSTR022, 14, 1, "acAC", 2 + 4 + 8 + 128 + 32
  320.             If (BIGSTR022 == "C") Then
  321.                 :LABEL009
  322.                 BOOLEAN004 = 1
  323.                 FOpen 5, PPEPath() + "PCBDE.CAT", 2, 0
  324.                 FGet 5, BIGSTR025
  325.                 FGet 5, BIGSTR026
  326.                 FGet 5, BIGSTR027
  327.                 FGet 5, BIGSTR028
  328.                 FGet 5, BIGSTR029
  329.                 FGet 5, BIGSTR034
  330.                 FGet 5, BIGSTR035
  331.                 FGet 5, BIGSTR036
  332.                 FGet 5, BIGSTR037
  333.                 FClose 5
  334.                 PrintLn 
  335.                 PrintLn 
  336.                 PrintLn "@X0FThe Following Categories are available"
  337.                 PrintLn "@X0F──────────────────────────────────────"
  338.                 PrintLn "                                      "
  339.                 If (BIGSTR025 <> "") PrintLn "@X0F1 - @X0A", BIGSTR025
  340.                 If (BIGSTR026 <> "") PrintLn "@X0F2 - @X0B", BIGSTR026
  341.                 If (BIGSTR027 <> "") PrintLn "@X0F3 - @X0C", BIGSTR027
  342.                 If (BIGSTR028 <> "") PrintLn "@X0F4 - @X0D", BIGSTR028
  343.                 If (BIGSTR029 <> "") PrintLn "@X0F5 - @X0E", BIGSTR029
  344.                 If (BIGSTR034 <> "") PrintLn "@X0F6 - @X0F", BIGSTR034
  345.                 If (BIGSTR035 <> "") PrintLn "@X0F7 - @X0A", BIGSTR035
  346.                 If (BIGSTR036 <> "") PrintLn "@X0F8 - @X0B", BIGSTR036
  347.                 If (BIGSTR037 <> "") PrintLn "@X0F9 - @X0C", BIGSTR037
  348.                 InputStr "@X0FChoose Category to display @X0A<ENTER>@X0F=ALL Categories", BIGSTR033, 14, 1, Mask_Num(), 2 + 4 + 8 + 128 + 32
  349.                 If (BIGSTR033 == "") BOOLEAN004 = 0
  350.             Else
  351.                 Goto LABEL010
  352.             Endif
  353.         Else
  354.             BOOLEAN004 = 0
  355.         Endif
  356.         :LABEL010
  357.         If (BOOLEAN003) Then
  358.             If (Exist(PPEPath() + "PCBDE.HDR")) Then
  359.                 DispFile PPEPath() + "PCBDE.HDR", 0
  360.             Else
  361.                 PrintLn "@POFF@@CLS@", BIGSTR050, "┌ ", BIGSTR050, "P", BIGSTR050, "C", BIGSTR050, "B", BIGSTR050, " Door Executive  v4.04", BIGSTR050, "        Registered To ", BIGSTR058, BIGSTR062, BIGSTR050, "─", BIGSTR051, "┐@X07"
  362.                 PrintLn BIGSTR050, "│", BIGSTR051, "┌───", BIGSTR050, "┐", BIGSTR051, "┌─────────────────────────────────────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌───────", BIGSTR050, "┐", BIGSTR051, "│@X07"
  363.                 PrintLn BIGSTR050, "│", BIGSTR051, "│", BIGSTR052, "###", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, " Door Name/Description                   ", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, "Shrt Cut", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, "Last Opn", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, "# Times", BIGSTR050, "│", BIGSTR051, "│@X07"
  364.                 PrintLn BIGSTR050, "│", BIGSTR051, "└", BIGSTR050, "───┘", BIGSTR051, "└", BIGSTR050, "─────────────────────────────────────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "───────┘", BIGSTR051, "│@X07"
  365.                 PrintLn BIGSTR050, "│", BIGSTR051, "┌───", BIGSTR050, "┐", BIGSTR051, "┌─────────────────────────────────────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌───────", BIGSTR050, "┐", BIGSTR051, "│@X07"
  366.             Endif
  367.         Else
  368.             PrintLn "@POFF@@CLS@", BIGSTR050, "┌─────── ", BIGSTR050, "P", BIGSTR050, "C", BIGSTR050, "B", BIGSTR050, " Door Executive  v4.04     ──────────────", BIGSTR060, "»» ", BIGSTR038, " ««", BIGSTR050, "─────", BIGSTR051, "┐@X07"
  369.             PrintLn BIGSTR050, "│", BIGSTR051, "┌───", BIGSTR050, "┐", BIGSTR051, "┌─────────────────────────────────────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌───────", BIGSTR050, "┐", BIGSTR051, "│@X07"
  370.             PrintLn BIGSTR050, "│", BIGSTR051, "│", BIGSTR052, "###", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, " Door Name/Description                   ", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, "Shrt Cut", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, "Last Opn", BIGSTR050, "│", BIGSTR051, "│", BIGSTR053, "# Times", BIGSTR050, "│", BIGSTR051, "│@X07"
  371.             PrintLn BIGSTR050, "│", BIGSTR051, "└", BIGSTR050, "───┘", BIGSTR051, "└", BIGSTR050, "─────────────────────────────────────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "───────┘", BIGSTR051, "│@X07"
  372.             PrintLn BIGSTR050, "│", BIGSTR051, "┌───", BIGSTR050, "┐", BIGSTR051, "┌─────────────────────────────────────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌────────", BIGSTR050, "┐", BIGSTR051, "┌───────", BIGSTR050, "┐", BIGSTR051, "│@X07"
  373.         Endif
  374.         FOpen 1, PPEPath() + "PCBDE.CFG", 0, 0
  375.         :LABEL011
  376.         If (Ferr(1)) Goto LABEL012
  377.         FDGet TBIGSTR005(1, INTEGER009)
  378.         If (Left(Right(TBIGSTR005(1, INTEGER009), 42), 1) == "R") Then
  379.             BIGSTR012 = "*"
  380.         Else
  381.             BIGSTR012 = " "
  382.         Endif
  383.         If (Left(Right(TBIGSTR005(1, INTEGER009), 40), 1) == "L") TBIGSTR008(INTEGER009) = "L"
  384.         If (BOOLEAN004) Then
  385.             BIGSTR032 = Left(Right(TBIGSTR005(1, INTEGER009), 14), 1)
  386.             If (BIGSTR032 == BIGSTR033) Then
  387.                 TBIGSTR024(BIGSTR032, INTEGER009) = TBIGSTR005(1, INTEGER009)
  388.             Endif
  389.         Endif
  390.         BIGSTR016 = INTEGER009
  391.         BIGSTR015 = "00000" + BIGSTR016
  392.         BIGSTR016 = "00000" + BIGSTR016
  393.         BIGSTR016 = Right(BIGSTR016, 3)
  394.         If (Exist(PPEPath() + "DATA\" + BIGSTR016 + ".LST")) Then
  395.             FOpen 7, PPEPath() + "DATA\" + BIGSTR016 + ".LST", 2, 0
  396.             FGet 7, BIGSTR039
  397.             BIGSTR019 = Left(BIGSTR039, 8)
  398.             BIGSTR020 = Right(BIGSTR039, 5)
  399.             FClose 7
  400.         Else
  401.             BIGSTR019 = "00-00-00"
  402.             BIGSTR020 = "00000"
  403.         Endif
  404.         If (Left(Right(TBIGSTR005(1, INTEGER009), 12), 1) == "!") Then
  405.             TBIGSTR006(1, INTEGER009) = "True"
  406.             TBIGSTR006(2, INTEGER009) = LTrim(Right(TBIGSTR005(1, INTEGER009), 8), " ")
  407.             TBIGSTR006(3, INTEGER009) = RTrim(Left(Right(TBIGSTR005(1, INTEGER009), 38), 23), " ")
  408.         Endif
  409.         If (BOOLEAN004) Then
  410.             If (BIGSTR032 == BIGSTR033) Then
  411.                 INTEGER020 = INTEGER020 + 1
  412.                 Gosub LABEL016
  413.             Endif
  414.         Else
  415.             Gosub LABEL016
  416.         Endif
  417.         INTEGER009 = INTEGER009 + 1
  418.         If (BOOLEAN004) Then
  419.             If (INTEGER020 == 15) Gosub LABEL013
  420.         Else
  421.             BIGSTR013 = BIGSTR013 + 1
  422.             If (BIGSTR013 == 15) Gosub LABEL013
  423.         Endif
  424.         Goto LABEL011
  425.         :LABEL012
  426.         BOOLEAN002 = 1
  427.         If ((BOOLEAN002 == 1) && (INTEGER021 == 0)) Then
  428.             PrintLn BIGSTR050, "│", BIGSTR051, "└", BIGSTR050, "───┘", BIGSTR051, "└", BIGSTR050, "─────────────────────────────────────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "───────┘", BIGSTR051, "│@X07"
  429.             PrintLn BIGSTR050, "└", BIGSTR051, "─────────────────────────────────────────────────────────────────────────────┘@X07"
  430.         Endif
  431.         Goto LABEL014
  432.         :LABEL013
  433.         If (BOOLEAN001 == 1) Then
  434.             PrintLn BIGSTR050, "│", BIGSTR051, "└", BIGSTR050, "───┘", BIGSTR051, "└", BIGSTR050, "─────────────────────────────────────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "────────┘", BIGSTR051, "└", BIGSTR050, "───────┘", BIGSTR051, "│@X07"
  435.             PrintLn BIGSTR050, "└", BIGSTR051, "─────────────────────────────────────────────────────────────────────────────┘@X07"
  436.             BOOLEAN001 = 0
  437.         Else
  438.             PrintLn "1H"
  439.         Endif
  440.         INTEGER021 = INTEGER021 + 1
  441.         :LABEL014
  442.         If (BOOLEAN002 == 1) PrintLn "1H"
  443.         InputStr "@X0FDoor # @X0A<ENTER>@X0F For more (@X0ED@X0F)efinitions (@X0CQ@X0F)uit", BIGSTR021, 14, 3, Mask_Num() + "QAD", 2 + 4 + 8 + 256
  444.         Select Case (BIGSTR021)
  445.             Case "Q"
  446.                 Goto LABEL024
  447.             Case "A"
  448.                 Goto LABEL017
  449.             Case "D"
  450.                 Goto LABEL018
  451.             Case "True"
  452.                 BOOLEAN009 = 1
  453.                 Goto LABEL015
  454.             Case ""
  455.                 BOOLEAN010 = 1
  456.                 Goto LABEL015
  457.         End Select
  458.         If (BOOLEAN002 == 1) Goto LABEL024
  459.         BIGSTR013 = 0
  460.         INTEGER020 = 0
  461.         PrintLn "H"
  462.         INTEGER016 = 1
  463.         For INTEGER016 = 1 To 15
  464.             PrintLn BIGSTR050, "│", BIGSTR051, "│   ", BIGSTR050, "│", BIGSTR051, "│", BIGSTR050, "                                         @POS:48@│", BIGSTR051, "│", BIGSTR058, "        @POS:59@", BIGSTR050, "│@POS:60@", BIGSTR051, "│", BIGSTR059, "      @POS:69@", BIGSTR050, "│@POS:70@", BIGSTR051, "│", BIGSTR059, "       @POS:78@", BIGSTR050, "│@POS:79@", BIGSTR051, "│@X07"
  465.         Next
  466.         PrintLn "H"
  467.         Return
  468.     Endif
  469.     :LABEL015
  470.     BIGSTR021 = "000" + BIGSTR021
  471.     BIGSTR021 = Right(BIGSTR021, 3)
  472.     If (Exist(PPEPath() + "DATA\" + BIGSTR021 + ".LST")) Then
  473.         FOpen 4, PPEPath() + "DATA\" + BIGSTR021 + ".LST", 2, 0
  474.         FGet 4, BIGSTR039
  475.         BIGSTR019 = Left(BIGSTR039, 8)
  476.         BIGSTR020 = Right(BIGSTR039, 5)
  477.         FClose 4
  478.     Else
  479.         BIGSTR019 = "00-00-00"
  480.         BIGSTR020 = "00000"
  481.     Endif
  482.     INTEGER018 = BIGSTR020
  483.     INTEGER018 = INTEGER018 + 1
  484.     BIGSTR020 = INTEGER018
  485.     BIGSTR041 = Date()
  486.     BIGSTR040 = BIGSTR041 + "00000" + BIGSTR020
  487.     BIGSTR021 = "000" + BIGSTR021
  488.     BIGSTR021 = Right(BIGSTR021, 3)
  489.     FCreate 4, PPEPath() + "DATA\" + BIGSTR021 + ".LST", 2, 0
  490.     FPutLn 4, BIGSTR040
  491.     FClose 4
  492.     If (TBIGSTR008(BIGSTR021) == "L") Then
  493.         INTEGER017 = 1
  494.         For INTEGER017 = 1 To MaxNode()
  495.             BIGSTR009 = INTEGER017
  496.             If (Exist(PPEPath() + "data\" + BIGSTR021 + "." + BIGSTR009)) Then
  497.                 If (INTEGER017 <> PcbNode()) Then
  498.                     PrintLn 
  499.                     PrintLn "@X0CDoor requested is locked"
  500.                     PrintLn 
  501.                     Wait
  502.                     Goto LABEL024
  503.                 Endif
  504.                 Continue
  505.             Endif
  506.         Next
  507.         PrintLn 
  508.         PrintLn "Locking Out Other Nodes"
  509.         PrintLn 
  510.         FCreate 5, PPEPath() + "data\" + BIGSTR021 + "." + String(PcbNode()), 2, 0
  511.         FPutLn 5, "PCBDE lock file for node " + String(PcbNode()) + " door " + BIGSTR021
  512.         FPutLn 5, "Delete me if no one is on the above listed node"
  513.         FClose 5
  514.     Endif
  515.     If (!BOOLEAN003) Gosub LABEL019
  516.     If (BOOLEAN009) Then
  517.         Gosub LABEL021
  518.         Call TBIGSTR006(3, BIGSTR021) + TBIGSTR006(2, BIGSTR021) + ".PPE" + " " + BIGSTR045 + " " + BIGSTR046
  519.     ElseIf (BOOLEAN010) Then
  520.         KbdStuff "Open " + BIGSTR021 + " " + BIGSTR045 + " " + BIGSTR046
  521.     Else
  522.         PrintLn "Error #2345 - Boolean Flag not set - Call Tech Support!"
  523.     Endif
  524.     Goto LABEL024
  525.     :LABEL016
  526.     Select Case (Left(Right(TBIGSTR005(1, INTEGER009), 10), 1))
  527.         Case "*"
  528.             PrintLn BIGSTR050, "│", BIGSTR051, "│", BIGSTR052, Right(BIGSTR015, 3), "@POS:6@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR055, Left(TBIGSTR005(1, INTEGER009), 41), "@POS:48@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR058, LTrim(Right(TBIGSTR005(1, INTEGER009), 8), " "), "@POS:59@", BIGSTR050, "│@POS:60@", BIGSTR051, "│", BIGSTR059, BIGSTR019, "@POS:69@", BIGSTR050, "│@POS:70@", BIGSTR051, "│", BIGSTR054, " ", BIGSTR020, BIGSTR048, BIGSTR012, BIGSTR059, "@POS:78@", BIGSTR050, "│@POS:79@", BIGSTR051, "│@X07"
  529.         Case "&"
  530.             PrintLn BIGSTR050, "│", BIGSTR051, "│", BIGSTR052, Right(BIGSTR015, 3), "@POS:6@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR056, Left(TBIGSTR005(1, INTEGER009), 41), "@POS:48@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR058, LTrim(Right(TBIGSTR005(1, INTEGER009), 8), " "), "@POS:59@", BIGSTR050, "│@POS:60@", BIGSTR051, "│", BIGSTR059, BIGSTR019, "@POS:69@", BIGSTR050, "│@POS:70@", BIGSTR051, "│", BIGSTR054, " ", BIGSTR020, BIGSTR048, BIGSTR012, BIGSTR059, "@POS:78@", BIGSTR050, "│@POS:79@", BIGSTR051, "│@X07"
  531.         Case "^"
  532.             PrintLn BIGSTR050, "│", BIGSTR051, "│", BIGSTR052, Right(BIGSTR015, 3), "@POS:6@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR057, Left(TBIGSTR005(1, INTEGER009), 41), "@POS:48@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR058, LTrim(Right(TBIGSTR005(1, INTEGER009), 8), " "), "@POS:59@", BIGSTR050, "│@POS:60@", BIGSTR051, "│", BIGSTR059, BIGSTR019, "@POS:69@", BIGSTR050, "│@POS:70@", BIGSTR051, "│", BIGSTR054, " ", BIGSTR020, BIGSTR048, BIGSTR012, BIGSTR059, "@POS:78@", BIGSTR050, "│@POS:79@", BIGSTR051, "│@X07"
  533.         Case Else
  534.             PrintLn BIGSTR050, "│", BIGSTR051, "│", BIGSTR052, Right(BIGSTR015, 3), "@POS:6@", BIGSTR050, "│", BIGSTR051, "│", BIGSTR050, Left(TBIGSTR005(1, INTEGER009), 41), "@POS:48@│", BIGSTR051, "│", BIGSTR058, LTrim(Right(TBIGSTR005(1, INTEGER009), 8), " "), "@POS:59@", BIGSTR050, "│@POS:60@", BIGSTR051, "│", BIGSTR059, BIGSTR019, "@POS:69@", BIGSTR050, "│@POS:70@", BIGSTR051, "│", BIGSTR054, " ", BIGSTR020, BIGSTR048, BIGSTR012, BIGSTR059, "@POS:78@", BIGSTR050, "│@POS:79@", BIGSTR051, "│@X07"
  535.     End Select
  536.     Return
  537.     :LABEL017
  538.     Cls
  539.     Newlines 4
  540.     PrintLn "@POS:27@@X10┌───────────────────────────@X19┐@X0F"
  541.     PrintLn "@POS:27@@X10│ @X1APCBDE@X9E·@X1APCB Door Executive@X1E @X1A @X19│@X0F"
  542.     PrintLn "@POS:27@@X10│ @X1D▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X1E @X1D @X19│@X0F"
  543.     PrintLn "@POS:27@@X10│          @X1Cv4.04@X10   @X1C       @X1E @X1C @X19│@X0F"
  544.     PrintLn "@POS:27@@X10│@X1EPractical Computer Services@X19│@X0F"
  545.     PrintLn "@POS:27@@X10│     @X1E483 Klockner Road@X1B   @X1E @X1B @X19│@X0F"
  546.     PrintLn "@POS:27@@X10│     @X1EHamilton, NJ 08619@X1B  @X1E @X1B @X19│@X0F"
  547.     PrintLn "@POS:27@@X10└@X19───────────────────────────┘@X0F"
  548.     Delay (4 * 182) / 10
  549.     Goto LABEL001
  550.     :LABEL018
  551.     DispFile PPEPath() + "pcbde.def", 4 + 2 + 1
  552.     Print "                          "
  553.     Wait
  554.     Goto LABEL001
  555.     :LABEL019
  556.     If (Exist(PPEPath() + "DATA\" + BIGSTR047)) Then
  557.         FOpen 5, PPEPath() + "DATA\" + BIGSTR047, 2, 0
  558.         FGet 5, DATE001
  559.         FClose 5
  560.         DATE002 = Date()
  561.         INTEGER006 = DATE002
  562.         INTEGER005 = DATE001
  563.         If (INTEGER005 + 30 <= INTEGER006) Then
  564.             INTEGER015 = 20
  565.             PrintLn "@CLS@@X0E              PCBDE has now been running for more than 30 days"
  566.             PrintLn 
  567.             PrintLn "@X0B                 ┌────────────────────────────────────────┐"
  568.             PrintLn "@X0B                 │ PCBDE 30 Day Shareware License Expired │"
  569.             PrintLn "@X0B                 └────────────────────────────────────────┘"
  570.             PrintLn 
  571.             PrintLn "@X0C           Please Encourage your SysOp to register this software"
  572.             PrintLn 
  573.             PrintLn 
  574.             Log "                                                         ", 0
  575.             Log "*****************************************************", 0
  576.             Log "*                                                   *", 0
  577.             Log "*  PCBDE has now been running for more than 30 days *", 0
  578.             Log "*                                                   *", 0
  579.             Log "*    └────────────────────────────────────────┘     *", 0
  580.             Log "*    │ PCBDE 30 Day Shareware License Expired │     *", 0
  581.             Log "*    ┌────────────────────────────────────────┐     *", 0
  582.             Log "*                                                   *", 0
  583.             Log "*  You should register PCBDE or Stop running it     *", 0
  584.             Log "*                                                   *", 0
  585.             Log "*****************************************************", 0
  586.             Log "                                                         ", 0
  587.             Wait
  588.         Endif
  589.     Else
  590.         FCreate 4, PPEPath() + BIGSTR047, 2, 0
  591.         FPutLn 4, Date()
  592.         FClose 4
  593.     Endif
  594.     PrintLn "@BEEP@@POFF@@CLS@", BIGSTR050, "┌─────── PCB Door Executive  Ver. 4.04 ────────────", BIGSTR060, "»» ", BIGSTR038, " ««", BIGSTR050, "───────", BIGSTR051, "┐@X07"
  595.     PrintLn BIGSTR050, "│ ", BIGSTR051, "                                                                            │@X07"
  596.     PrintLn BIGSTR050, "│ ", BIGSTR053, BIGSTR042, "    @X07@X00", BIGSTR051, "│@X07"
  597.     PrintLn BIGSTR050, "│ ", BIGSTR051, "                                                                            │@X07"
  598.     PrintLn BIGSTR050, "│ ", BIGSTR052, BIGSTR043, BIGSTR051, "│@X07"
  599.     PrintLn BIGSTR050, "│                                                                       ", BIGSTR051, "      │@X07"
  600.     PrintLn BIGSTR050, "│         Please Encourage your SysOp to Register ", BIGSTR050, "P", BIGSTR050, "C", BIGSTR050, "B ", BIGSTR050, "Door Executive", BIGSTR051, "          │@X07"
  601.     PrintLn BIGSTR050, "└", BIGSTR051, "─────────────────────────────────────────────────────────────────────────────┘@X07"
  602.     PrintLn 
  603.     If (OnLocal()) Then
  604.         INTEGER014 = 1
  605.         For INTEGER014 = 1 To 10
  606.             Print "@X0C", INTEGER014, "@X0F. "
  607.             BIGSTR007 = 1 * (182 / 10)
  608.             Delay BIGSTR007
  609.         Next
  610.     Else
  611.         INTEGER014 = 1
  612.         For INTEGER014 = 1 To INTEGER015
  613.             Print "@X0C", INTEGER014, "@X0F. "
  614.             BIGSTR007 = 1 * (182 / 10)
  615.             Delay BIGSTR007
  616.         Next
  617.     Endif
  618.     Return
  619.     :LABEL020
  620.     BIGSTR001 = BIGSTR061 + BIGSTR062
  621.     BIGSTR001 = Strip(BIGSTR001, " ")
  622.     For INTEGER001 = 1 To Len(BIGSTR001)
  623.         TINTEGER002(INTEGER001) = Asc(Mid(BIGSTR001, INTEGER001, 1))
  624.     Next
  625.     INTEGER003 = 0
  626.     For INTEGER001 = 1 To 80
  627.         INTEGER003 = INTEGER003 + TINTEGER002(INTEGER001)
  628.     Next
  629.     INTEGER004 = INTEGER003 * 1269
  630.     If (INTEGER004 == BIGSTR017) Then
  631.         BOOLEAN003 = 1
  632.     Endif
  633.     Return
  634.     :LABEL021
  635.     FOpen 6, PPEPath() + "longpath.dat", 0, 0
  636.     :LABEL022
  637.     If (Ferr(6)) Goto LABEL023
  638.     FGet 6, BIGSTR004
  639.     Tokenize BIGSTR004
  640.     GetToken BIGSTR003
  641.     GetToken BIGSTR002
  642.     If (S2I(BIGSTR003, 10) == S2I(BIGSTR021, 10)) Then
  643.         TBIGSTR006(3, BIGSTR021) = BIGSTR002
  644.         Return
  645.     Endif
  646.     Goto LABEL022
  647.     :LABEL023
  648.     Return
  649.     :LABEL024
  650.     If (!BOOLEAN003) Gosub LABEL019
  651.     PrintLn "@PON@"
  652.     KbdStuff Chr(13)
  653.     End
  654.     :LABEL025
  655.     FOpen 1, PPEPath() + "UNIVERSL.KEY", 0, 0
  656.     FDefIn 1
  657.     For INTEGER027 = 1 To 3
  658.         FDGet TSTRING002(INTEGER027)
  659.     Next
  660.     FClose 1
  661.     STRING001 = TSTRING002(1) + TSTRING002(2)
  662.     STRING001 = Strip(STRING001, " ")
  663.     For INTEGER028 = 1 To Len(STRING001)
  664.         TINTEGER029(INTEGER028) = Asc(Mid(STRING001, INTEGER028, 1))
  665.     Next
  666.     INTEGER025 = 0
  667.     For INTEGER028 = 1 To 99
  668.         INTEGER025 = INTEGER025 + TINTEGER029(INTEGER028)
  669.     Next
  670.     INTEGER026 = INTEGER025 * 659
  671.     INTEGER024 = INTEGER026
  672.     BOOLEAN003 = 0
  673.     If (INTEGER026 <> TSTRING002(3)) Then
  674.         BOOLEAN003 = 0
  675.     Else
  676.         BOOLEAN003 = 1
  677.         BIGSTR061 = TSTRING002(1)
  678.         BIGSTR062 = TSTRING002(2)
  679.         BIGSTR062 = BIGSTR062 + "                            "
  680.         BIGSTR062 = Left(BIGSTR062, 26)
  681.     Endif
  682.     Goto LABEL004
  683.     :LABEL026
  684.     FOpen 1, PPEPath() + "UNI.KEY", 0, 0
  685.     FDefIn 1
  686.     For INTEGER027 = 1 To 3
  687.         FDGet TSTRING002(INTEGER027)
  688.     Next
  689.     FClose 1
  690.     STRING001 = TSTRING002(1) + TSTRING002(2)
  691.     STRING001 = Strip(STRING001, " ")
  692.     For INTEGER028 = 1 To Len(STRING001)
  693.         TINTEGER029(INTEGER028) = Asc(Mid(STRING001, INTEGER028, 1))
  694.     Next
  695.     INTEGER025 = 0
  696.     For INTEGER028 = 1 To 99
  697.         INTEGER025 = INTEGER025 + TINTEGER029(INTEGER028)
  698.     Next
  699.     INTEGER026 = INTEGER025 * 659
  700.     INTEGER024 = INTEGER026
  701.     BOOLEAN003 = 0
  702.     If (INTEGER026 <> TSTRING002(3)) Then
  703.         BOOLEAN003 = 0
  704.     Else
  705.         BOOLEAN003 = 1
  706.         BIGSTR061 = TSTRING002(1)
  707.         BIGSTR062 = TSTRING002(2)
  708.         BIGSTR062 = BIGSTR062 + "                            "
  709.         BIGSTR062 = Left(BIGSTR062, 26)
  710.     Endif
  711.     Goto LABEL004
  712.  
  713. ;------------------------------------------------------------------------------
  714. ;
  715. ; Usage report (before postprocessing)
  716. ;
  717. ; ■ Statements used :
  718. ;
  719. ;    1       End
  720. ;    1       Cls
  721. ;    3       Wait
  722. ;    134     Goto 
  723. ;    224     Let 
  724. ;    3       Print 
  725. ;    73      PrintLn 
  726. ;    99      If 
  727. ;    2       DispFile 
  728. ;    3       FCreate 
  729. ;    13      FOpen 
  730. ;    14      FClose 
  731. ;    15      FGet 
  732. ;    4       FPutLn 
  733. ;    13      Log 
  734. ;    3       InputStr 
  735. ;    8       Gosub 
  736. ;    6       Return
  737. ;    3       Delay 
  738. ;    1       Newlines 
  739. ;    1       Tokenize 
  740. ;    5       GetToken 
  741. ;    2       KbdStuff 
  742. ;    1       Call 
  743. ;    3       FDefIn 
  744. ;    17      FDGet 
  745. ;
  746. ;
  747. ; ■ Functions used :
  748. ;
  749. ;    6       *
  750. ;    3       /
  751. ;    290     +
  752. ;    45      ==
  753. ;    14      <>
  754. ;    13      <
  755. ;    14      <=
  756. ;    1       >
  757. ;    26      >=
  758. ;    64      !
  759. ;    28      &&
  760. ;    13      ||
  761. ;    6       Len(
  762. ;    3       Mid()
  763. ;    36      Left()
  764. ;    35      Right()
  765. ;    4       Ferr()
  766. ;    177     Chr()
  767. ;    3       Asc()
  768. ;    8       LTrim()
  769. ;    3       RTrim()
  770. ;    3       Date()
  771. ;    3       Strip()
  772. ;    2       String()
  773. ;    2       Mask_Num()
  774. ;    29      PPEPath()
  775. ;    4       PcbNode()
  776. ;    1       OnLocal()
  777. ;    11      Exist()
  778. ;    2       S2I()
  779. ;    2       MaxNode()
  780. ;
  781. ;------------------------------------------------------------------------------
  782. ;
  783. ; Analysis flags : C
  784. ;
  785. ; C - Call child PPE ■ 3
  786. ;     This is usually normal, but may be a tricky way to launch some
  787. ;     sysop-only commands.
  788. ;     ■ Search for : CALL
  789. ;
  790. ;------------------------------------------------------------------------------
  791. ;
  792. ; Postprocessing report
  793. ;
  794. ;    13      For/Next
  795. ;    0       While/EndWhile
  796. ;    36      If/Then or If/Then/Else
  797. ;    2       Select Case
  798. ;
  799. ;------------------------------------------------------------------------------
  800. ;                 AEGiS Corp - Break the routines, code against the machines!
  801. ;------------------------------------------------------------------------------
  802.