home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1997 January / CD_shareware_1-97.iso / DOS / COMUNICA / PCBBE200.ZIP / PCBBE.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-09-30  |  14.3 KB  |  581 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.     Date     DATE001
  25.     Date     DATE002
  26.     Date     DATE003
  27.     Integer  INTEGER001
  28.     Integer  INTEGER002
  29.     Integer  INTEGER003
  30.     Integer  INTEGER004
  31.     Integer  INTEGER005
  32.     Integer  TINTEGER006(99)
  33.     Integer  INTEGER007
  34.     Integer  TINTEGER008(99)
  35.     Integer  INTEGER009
  36.     Integer  INTEGER010
  37.     Integer  INTEGER011
  38.     Integer  INTEGER012
  39.     Integer  INTEGER013
  40.     Integer  INTEGER014
  41.     Integer  INTEGER015
  42.     Integer  INTEGER016
  43.     Integer  INTEGER017
  44.     Integer  INTEGER018
  45.     Integer  INTEGER019
  46.     Integer  INTEGER020
  47.     Integer  INTEGER021
  48.     Integer  INTEGER022
  49.     Integer  INTEGER023
  50.     Integer  INTEGER024
  51.     Integer  INTEGER025
  52.     Integer  INTEGER026
  53.     Integer  INTEGER027
  54.     Integer  INTEGER028
  55.     String   STRING001
  56.     String   TSTRING002(3)
  57.     String   STRING003
  58.     BigStr   BIGSTR001
  59.     BigStr   BIGSTR002
  60.     BigStr   BIGSTR003
  61.     BigStr   BIGSTR004
  62.     BigStr   BIGSTR005
  63.     BigStr   BIGSTR006
  64.     BigStr   BIGSTR007
  65.     BigStr   BIGSTR008
  66.     BigStr   BIGSTR009
  67.     BigStr   BIGSTR010
  68.     BigStr   BIGSTR011
  69.     BigStr   BIGSTR012
  70.     BigStr   BIGSTR013
  71.     BigStr   BIGSTR014
  72.     BigStr   BIGSTR015
  73.     BigStr   BIGSTR016
  74.     BigStr   BIGSTR017
  75.     BigStr   BIGSTR018
  76.     BigStr   BIGSTR019
  77.     BigStr   BIGSTR020
  78.     BigStr   BIGSTR021
  79.     BigStr   BIGSTR022
  80.     BigStr   BIGSTR023
  81.     BigStr   BIGSTR024
  82.     BigStr   BIGSTR025
  83.     BigStr   BIGSTR026
  84.     BigStr   BIGSTR027
  85.     BigStr   BIGSTR028
  86.     BigStr   BIGSTR029
  87.     BigStr   BIGSTR030
  88.     BigStr   BIGSTR031
  89.     BigStr   BIGSTR032
  90.     BigStr   BIGSTR033
  91.     BigStr   BIGSTR034
  92.     BigStr   BIGSTR035
  93.     BigStr   BIGSTR036
  94.     BigStr   BIGSTR037
  95.     BigStr   BIGSTR038
  96.     BigStr   BIGSTR039
  97.     BigStr   BIGSTR040
  98.     BigStr   BIGSTR041
  99.     BigStr   BIGSTR042
  100.  
  101. ;------------------------------------------------------------------------------
  102.  
  103.     BIGSTR026 = ""
  104.     BIGSTR027 = ""
  105.     BIGSTR028 = ""
  106.     BIGSTR030 = ""
  107.     BIGSTR031 = ""
  108.     BIGSTR032 = ""
  109.     BIGSTR033 = ""
  110.     BIGSTR034 = ""
  111.     BIGSTR035 = ""
  112.     BIGSTR036 = ""
  113.     BIGSTR037 = ""
  114.     BIGSTR017 = 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)
  115.     BIGSTR018 = "       Registering The PCB Bulletin Executive Removes This Screen           "
  116.     BIGSTR019 = ""
  117.     GetToken BIGSTR006
  118.     GetToken BIGSTR020
  119.     GetToken BIGSTR021
  120.     GetToken BIGSTR022
  121.     GetToken BIGSTR023
  122.     GetToken BIGSTR024
  123.     INTEGER013 = 1
  124.     INTEGER014 = 1
  125.     INTEGER015 = 1
  126.     INTEGER017 = 10
  127.     BOOLEAN004 = 0
  128.     INTEGER021 = 0
  129.     BIGSTR005 = 0
  130.     BOOLEAN001 = 1
  131.     BOOLEAN003 = 0
  132.     BIGSTR010 = Chr(80) + Chr(67) + Chr(66) + Chr(66) + Chr(69) + "." + Chr(75) + Chr(69) + Chr(89)
  133.     BIGSTR016 = Chr(85) + Chr(78) + Chr(82) + Chr(69) + Chr(71) + Chr(73) + Chr(83) + Chr(84) + Chr(69) + Chr(82) + Chr(69) + Chr(68)
  134.     BIGSTR025 = Chr(80) + Chr(67) + Chr(66) + Chr(66) + Chr(69) + "." + Chr(68) + Chr(65) + Chr(84)
  135.     BIGSTR011 = ""
  136.     BIGSTR012 = ""
  137.     BIGSTR013 = ""
  138.     BIGSTR014 = ""
  139.     PrintLn "@POFF@"
  140.     DATE002 = Date()
  141.     INTEGER012 = DATE002
  142.     FDefIn 1
  143.     If (Exist(PPEPath() + "PCBBE.COL")) Then
  144.         FOpen 1, PPEPath() + "PCBBE.COL", 2, 0
  145.         FDGet BIGSTR026
  146.         FDGet BIGSTR027
  147.         FDGet BIGSTR028
  148.         FDGet BIGSTR030
  149.         FDGet BIGSTR031
  150.         FDGet BIGSTR032
  151.         FDGet BIGSTR033
  152.         FDGet BIGSTR034
  153.         FDGet BIGSTR035
  154.         FClose 1
  155.         BIGSTR026 = Left(BIGSTR026, 4)
  156.         BIGSTR027 = Left(BIGSTR027, 4)
  157.         BIGSTR028 = Left(BIGSTR028, 4)
  158.         BIGSTR030 = Left(BIGSTR030, 4)
  159.         BIGSTR031 = Left(BIGSTR031, 4)
  160.         BIGSTR032 = Left(BIGSTR032, 4)
  161.         BIGSTR033 = Left(BIGSTR033, 4)
  162.         BIGSTR034 = Left(BIGSTR034, 4)
  163.         BIGSTR035 = Left(BIGSTR035, 4)
  164.         BIGSTR036 = Left(BIGSTR036, 4)
  165.         BIGSTR037 = Left(Right(BIGSTR026, 2), 1)
  166.         BIGSTR029 = Left(Right(BIGSTR028, 2), 1)
  167.         STRING003 = Right(BIGSTR028, 1)
  168.         INTEGER020 = BIGSTR029
  169.         INTEGER020 = INTEGER020 + 8
  170.         If (INTEGER020 == 10) BIGSTR029 = "A"
  171.         If (INTEGER020 == 11) BIGSTR029 = "B"
  172.         If (INTEGER020 == 12) BIGSTR029 = "C"
  173.         If (INTEGER020 == 13) BIGSTR029 = "D"
  174.         If (INTEGER020 == 14) BIGSTR029 = "E"
  175.         If (INTEGER020 == 15) BIGSTR029 = "F"
  176.         BIGSTR015 = "@X" + BIGSTR029 + STRING003
  177.         INTEGER019 = BIGSTR037
  178.         INTEGER019 = INTEGER019 + 8
  179.         BIGSTR037 = INTEGER019
  180.         If (BIGSTR037 == 10) BIGSTR037 = "A"
  181.         If (BIGSTR037 == 11) BIGSTR037 = "B"
  182.         If (BIGSTR037 == 12) BIGSTR037 = "C"
  183.         If (BIGSTR037 == 13) BIGSTR037 = "D"
  184.         If (BIGSTR037 == 14) BIGSTR037 = "E"
  185.         If (BIGSTR037 == 15) BIGSTR037 = "F"
  186.         BIGSTR037 = "@X" + BIGSTR037 + "C"
  187.     Else
  188.         BIGSTR026 = "@X1F"
  189.         BIGSTR027 = "@X10"
  190.         BIGSTR028 = "@X1A"
  191.         BIGSTR030 = "@X1E"
  192.         BIGSTR031 = "@X17"
  193.         BIGSTR032 = "@X1D"
  194.         BIGSTR033 = "@X1E"
  195.         BIGSTR034 = "@X1C"
  196.         BIGSTR035 = "@X1B"
  197.         BIGSTR036 = "@X17"
  198.         BIGSTR037 = "@X1C"
  199.     Endif
  200.     If (Exist(PPEPath() + BIGSTR010)) Then
  201.         FOpen 1, PPEPath() + BIGSTR010, 2, 0
  202.         FDGet BIGSTR038
  203.         FDGet BIGSTR039
  204.         FDGet BIGSTR009
  205.         FClose 1
  206.         BIGSTR039 = BIGSTR039 + "                            "
  207.         BIGSTR039 = Left(BIGSTR039, 26)
  208.         Gosub LABEL012
  209.     Endif
  210.     If (Exist(PPEPath() + "UNIVERSL.KEY")) Goto LABEL013
  211.     If (Exist(PPEPath() + "UNI.KEY")) Goto LABEL014
  212.     :LABEL001
  213.     If (BIGSTR006 <> "") Then
  214.         BOOLEAN004 = 1
  215.     Else
  216.         If (BOOLEAN003) Then
  217.             If (Exist(PPEPath() + "PCBBE.HDR")) Then
  218.                 DispFile PPEPath() + "PCBBE.HDR", 0
  219.             Else
  220.                 PrintLn "@POFF@@CLS@", BIGSTR026, "┌ ", BIGSTR026, "P", BIGSTR026, "C", BIGSTR026, "B", BIGSTR026, " Bulletin Executive v2.00", BIGSTR026, "     Registered To ", BIGSTR030, BIGSTR039, BIGSTR026, "─", BIGSTR027, "┐@X07"
  221.                 PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
  222.                 PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, "###", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, " Bulletin  Description                                  ", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, "Last Updated", BIGSTR026, "│", BIGSTR027, "│@X07"
  223.                 PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
  224.                 PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
  225.             Endif
  226.         Else
  227.             PrintLn "@POFF@@CLS@", BIGSTR026, "┌ ", BIGSTR026, "P", BIGSTR026, "C", BIGSTR026, "B", BIGSTR026, " Bulletin Executive v2.00  ──────────────────  ", BIGSTR037, "»» ", BIGSTR016, " «« ", BIGSTR026, "─────", BIGSTR027, "┐@X07"
  228.             PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
  229.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, "###", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, " Bulletin  Description                                  ", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, "Last Updated", BIGSTR026, "│", BIGSTR027, "│@X07"
  230.             PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
  231.             PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
  232.         Endif
  233.         BIGSTR001 = ReadLine(PCBDat(), 31)
  234.         BIGSTR041 = ReadLine(BIGSTR001, CurConf() * 33 + 25)
  235.         BIGSTR041 = Trim(ReadLine(ReadLine(PCBDat(), 31), 25), " ")
  236.         BIGSTR041 = RTrim(BIGSTR041, "T")
  237.         BIGSTR041 = RTrim(BIGSTR041, "S")
  238.         BIGSTR041 = RTrim(BIGSTR041, "L")
  239.         BIGSTR041 = RTrim(BIGSTR041, ".")
  240.         BIGSTR041 = RTrim(BIGSTR041, "T")
  241.         BIGSTR041 = RTrim(BIGSTR041, "L")
  242.         BIGSTR041 = RTrim(BIGSTR041, "B")
  243.         FOpen 1, PPEPath() + "PCBBE.CFG", 0, 2
  244.         INTEGER013 = 1
  245.         :LABEL002
  246.         If (Ferr(1)) Goto LABEL003
  247.         FDGet BIGSTR004
  248.         BIGSTR040 = Left(BIGSTR004, 55)
  249.         BIGSTR008 = INTEGER013
  250.         BIGSTR007 = "00000" + BIGSTR008
  251.         BIGSTR007 = Right(BIGSTR007, 3)
  252.         DATE003 = FileInf(BIGSTR041 + "BLT" + BIGSTR008, 2)
  253.         If (FileInf(BIGSTR041 + "BLT" + BIGSTR008, 1) == 1) Then
  254.             BIGSTR042 = DATE003
  255.         Else
  256.             BIGSTR042 = "Missing "
  257.         Endif
  258.         If (DATE003 > U_LDate()) BOOLEAN005 = 1
  259.         Gosub LABEL009
  260.         INTEGER013 = INTEGER013 + 1
  261.         BIGSTR005 = BIGSTR005 + 1
  262.         If (BIGSTR005 == 15) Gosub LABEL004
  263.         Goto LABEL002
  264.         :LABEL003
  265.         FClose 1
  266.         BOOLEAN002 = 1
  267.         If ((BOOLEAN002 == 1) && (INTEGER021 == 0)) Then
  268.             PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
  269.             PrintLn BIGSTR026, "└", BIGSTR027, "─────────────────────────────────────────────────────────────────────────────┘@X07"
  270.         Endif
  271.         Gosub LABEL005
  272.         :LABEL004
  273.         If (BOOLEAN001 == 1) Then
  274.             PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
  275.             PrintLn BIGSTR026, "└", BIGSTR027, "─────────────────────────────────────────────────────────────────────────────┘@X07"
  276.             BOOLEAN001 = 0
  277.         Else
  278.             PrintLn "1H"
  279.         Endif
  280.         INTEGER021 = INTEGER021 + 1
  281.         :LABEL005
  282.         If (BOOLEAN002 == 1) PrintLn "1H"
  283.         BIGSTR011 = ""
  284.         InputStr "@X0FBulletin # @X0A<ENTER>@X0F For more (@X0CQ@X0F)uit", BIGSTR011, 14, 3, Mask_Num() + "Q", 2 + 4 + 8 + 256
  285.         If (BIGSTR011 == "Q") Then
  286.             Goto LABEL007
  287.         ElseIf (BIGSTR011 <> "") Then
  288.             Goto LABEL006
  289.         ElseIf (BOOLEAN002) Then
  290.             Goto LABEL007
  291.         Endif
  292.         BIGSTR005 = 0
  293.         PrintLn "H"
  294.         INTEGER018 = 1
  295.         For INTEGER018 = 1 To 15
  296.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, "   ", BIGSTR026, "│", BIGSTR027, "│@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│            ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  297.         Next
  298.         PrintLn "H"
  299.         Return
  300.     Endif
  301.     :LABEL006
  302.     INTEGER023 = BIGSTR006
  303.     INTEGER024 = BIGSTR020
  304.     INTEGER025 = BIGSTR021
  305.     INTEGER026 = BIGSTR022
  306.     INTEGER027 = BIGSTR023
  307.     INTEGER028 = BIGSTR024
  308.     If (BOOLEAN004) Then
  309.         PrintLn "@PON@"
  310.         Blt INTEGER023
  311.         If (BIGSTR020 <> "") Blt INTEGER024
  312.         If (BIGSTR021 <> "") Blt INTEGER025
  313.         If (BIGSTR022 <> "") Blt INTEGER026
  314.         If (BIGSTR023 <> "") Blt INTEGER027
  315.         If (BIGSTR024 <> "") Blt INTEGER028
  316.         Wait
  317.     Else
  318.         INTEGER022 = BIGSTR011
  319.         PrintLn "@PON@"
  320.         Blt INTEGER022
  321.         Wait
  322.     Endif
  323.     PrintLn "@POFF@"
  324.     :LABEL007
  325.     If (!BOOLEAN003) Gosub LABEL008
  326.     PrintLn "@PON@"
  327.     KbdStuff Chr(13)
  328.     End
  329.     :LABEL008
  330.     If (Exist(PPEPath() + BIGSTR025)) Then
  331.         FOpen 5, PPEPath() + BIGSTR025, 2, 0
  332.         FGet 5, DATE001
  333.         FClose 5
  334.         INTEGER011 = DATE001
  335.         If (INTEGER011 + 30 <= INTEGER012) Then
  336.             INTEGER017 = 20
  337.             PrintLn "@CLS@@X0E              PCBBE has now been running for more than 30 days"
  338.             PrintLn 
  339.             PrintLn "@X0B                 ┌────────────────────────────────────────┐"
  340.             PrintLn "@X0B                 │ PCBBE 30 Day Shareware License Expired │"
  341.             PrintLn "@X0B                 └────────────────────────────────────────┘"
  342.             PrintLn 
  343.             PrintLn "@X0C           Please Encourage your SysOp to register this software"
  344.             PrintLn 
  345.             PrintLn 
  346.             Log "                                                         ", 0
  347.             Log "*****************************************************", 0
  348.             Log "*                                                   *", 0
  349.             Log "*  PCBBE has now been running for more than 30 days *", 0
  350.             Log "*                                                   *", 0
  351.             Log "*    └────────────────────────────────────────┘     *", 0
  352.             Log "*    │ PCBBE 30 Day Shareware License Expired │     *", 0
  353.             Log "*    ┌────────────────────────────────────────┐     *", 0
  354.             Log "*                                                   *", 0
  355.             Log "*  You should register PCBBE or Stop running it     *", 0
  356.             Log "*                                                   *", 0
  357.             Log "*****************************************************", 0
  358.             Log "                                                         ", 0
  359.             Wait
  360.         Endif
  361.     Else
  362.         FCreate 4, PPEPath() + BIGSTR025, 2, 0
  363.         FPutLn 4, Date()
  364.         FClose 4
  365.     Endif
  366.     PrintLn "@BEEP@@POFF@@CLS@", BIGSTR026, "┌─────── PCB Bulletin Executive  v2.00     ────────", BIGSTR037, "»» ", BIGSTR016, " ««", BIGSTR026, "───────", BIGSTR027, "┐@X07"
  367.     PrintLn BIGSTR026, "│ ", BIGSTR027, "                                                                            │@X07"
  368.     PrintLn BIGSTR026, "│ ", BIGSTR030, BIGSTR017, "    @X07@X00", BIGSTR027, "│@X07"
  369.     PrintLn BIGSTR026, "│ ", BIGSTR027, "                                                                            │@X07"
  370.     PrintLn BIGSTR026, "│ ", BIGSTR028, BIGSTR018, BIGSTR027, "│@X07"
  371.     PrintLn BIGSTR026, "│                                                                       ", BIGSTR027, "      │@X07"
  372.     PrintLn BIGSTR026, "│         Please Encourage your Sysop to Register ", BIGSTR026, "P", BIGSTR026, "C", BIGSTR026, "B ", BIGSTR026, "Bulletin Executive", BIGSTR027, "      │@X07"
  373.     PrintLn BIGSTR026, "└", BIGSTR027, "─────────────────────────────────────────────────────────────────────────────┘@X07"
  374.     PrintLn 
  375.     If (OnLocal()) Then
  376.         INTEGER016 = 1
  377.         For INTEGER016 = 1 To 20
  378.             Print "@X0C", INTEGER016, "@X0F. "
  379.             BIGSTR003 = 1 * (182 / 10)
  380.             Delay BIGSTR003
  381.         Next
  382.     Else
  383.         INTEGER016 = 1
  384.         For INTEGER016 = 1 To INTEGER017
  385.             Print "@X0C", INTEGER016, "@X0F. "
  386.             BIGSTR003 = 1 * (182 / 10)
  387.             Delay BIGSTR003
  388.         Next
  389.     Endif
  390.     Return
  391.     :LABEL009
  392.     If (BOOLEAN005) Goto LABEL010
  393.     Select Case (Right(Left(BIGSTR004, 57), 1))
  394.         Case "*"
  395.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR033, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  396.         Case "&"
  397.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR034, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  398.         Case "^"
  399.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR035, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  400.         Case Else
  401.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR032, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  402.     End Select
  403.     Goto LABEL011
  404.     :LABEL010
  405.     Select Case (Right(Left(BIGSTR004, 57), 1))
  406.         Case "*"
  407.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR033, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] @POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  408.         Case "&"
  409.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR034, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  410.         Case "^"
  411.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR035, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  412.         Case Else
  413.             PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR032, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
  414.     End Select
  415.     :LABEL011
  416.     BOOLEAN005 = 0
  417.     Return
  418.     :LABEL012
  419.     BIGSTR002 = BIGSTR038 + BIGSTR039
  420.     BIGSTR002 = Strip(BIGSTR002, " ")
  421.     For INTEGER007 = 1 To Len(BIGSTR002)
  422.         TINTEGER008(INTEGER007) = Asc(Mid(BIGSTR002, INTEGER007, 1))
  423.     Next
  424.     INTEGER009 = 0
  425.     For INTEGER007 = 1 To 80
  426.         INTEGER009 = INTEGER009 + TINTEGER008(INTEGER007)
  427.     Next
  428.     INTEGER010 = INTEGER009 * 3793
  429.     If (INTEGER010 == BIGSTR009) Then
  430.         BOOLEAN003 = 1
  431.     Endif
  432.     Return
  433.     :LABEL013
  434.     FOpen 1, PPEPath() + "UNIVERSL.KEY", 0, 0
  435.     FDefIn 1
  436.     For INTEGER004 = 1 To 3
  437.         FDGet TSTRING002(INTEGER004)
  438.     Next
  439.     FClose 1
  440.     STRING001 = TSTRING002(1) + TSTRING002(2)
  441.     STRING001 = Strip(STRING001, " ")
  442.     For INTEGER005 = 1 To Len(STRING001)
  443.         TINTEGER006(INTEGER005) = Asc(Mid(STRING001, INTEGER005, 1))
  444.     Next
  445.     INTEGER002 = 0
  446.     For INTEGER005 = 1 To 99
  447.         INTEGER002 = INTEGER002 + TINTEGER006(INTEGER005)
  448.     Next
  449.     INTEGER003 = INTEGER002 * 659
  450.     INTEGER001 = INTEGER003
  451.     BOOLEAN003 = 0
  452.     If (INTEGER003 <> TSTRING002(3)) Then
  453.         BOOLEAN003 = 0
  454.     Else
  455.         BOOLEAN003 = 1
  456.         BIGSTR038 = TSTRING002(1)
  457.         BIGSTR039 = TSTRING002(2)
  458.         BIGSTR039 = BIGSTR039 + "                            "
  459.         BIGSTR039 = Left(BIGSTR039, 26)
  460.     Endif
  461.     Goto LABEL001
  462.     :LABEL014
  463.     FOpen 1, PPEPath() + "UNI.KEY", 0, 0
  464.     FDefIn 1
  465.     For INTEGER004 = 1 To 3
  466.         FDGet TSTRING002(INTEGER004)
  467.     Next
  468.     FClose 1
  469.     STRING001 = TSTRING002(1) + TSTRING002(2)
  470.     STRING001 = Strip(STRING001, " ")
  471.     For INTEGER005 = 1 To Len(STRING001)
  472.         TINTEGER006(INTEGER005) = Asc(Mid(STRING001, INTEGER005, 1))
  473.     Next
  474.     INTEGER002 = 0
  475.     For INTEGER005 = 1 To 99
  476.         INTEGER002 = INTEGER002 + TINTEGER006(INTEGER005)
  477.     Next
  478.     INTEGER003 = INTEGER002 * 659
  479.     INTEGER001 = INTEGER003
  480.     BOOLEAN003 = 0
  481.     If (INTEGER003 <> TSTRING002(3)) Then
  482.         BOOLEAN003 = 0
  483.     Else
  484.         BOOLEAN003 = 1
  485.         BIGSTR038 = TSTRING002(1)
  486.         BIGSTR039 = TSTRING002(2)
  487.         BIGSTR039 = BIGSTR039 + "                            "
  488.         BIGSTR039 = Left(BIGSTR039, 26)
  489.     Endif
  490.     Goto LABEL001
  491.  
  492. ;------------------------------------------------------------------------------
  493. ;
  494. ; Usage report (before postprocessing)
  495. ;
  496. ; ■ Statements used :
  497. ;
  498. ;    1       End
  499. ;    3       Wait
  500. ;    76      Goto 
  501. ;    176     Let 
  502. ;    2       Print 
  503. ;    50      PrintLn 
  504. ;    60      If 
  505. ;    1       DispFile 
  506. ;    1       FCreate 
  507. ;    6       FOpen 
  508. ;    7       FClose 
  509. ;    1       FGet 
  510. ;    1       FPutLn 
  511. ;    13      Log 
  512. ;    1       InputStr 
  513. ;    5       Gosub 
  514. ;    4       Return
  515. ;    2       Delay 
  516. ;    6       GetToken 
  517. ;    1       KbdStuff 
  518. ;    7       Blt 
  519. ;    3       FDefIn 
  520. ;    15      FDGet 
  521. ;
  522. ;
  523. ; ■ Functions used :
  524. ;
  525. ;    6       *
  526. ;    2       /
  527. ;    152     +
  528. ;    26      ==
  529. ;    9       <>
  530. ;    11      <
  531. ;    12      <=
  532. ;    1       >
  533. ;    22      >=
  534. ;    38      !
  535. ;    23      &&
  536. ;    11      ||
  537. ;    6       Len(
  538. ;    3       Mid()
  539. ;    22      Left()
  540. ;    10      Right()
  541. ;    1       Ferr()
  542. ;    101     Chr()
  543. ;    3       Asc()
  544. ;    7       RTrim()
  545. ;    1       Trim()
  546. ;    2       Date()
  547. ;    1       U_LDate()
  548. ;    3       Strip()
  549. ;    1       Mask_Num()
  550. ;    1       CurConf()
  551. ;    2       PCBDat()
  552. ;    14      PPEPath()
  553. ;    4       ReadLine()
  554. ;    1       OnLocal()
  555. ;    6       Exist()
  556. ;    2       FileInf()
  557. ;
  558. ;------------------------------------------------------------------------------
  559. ;
  560. ; Analysis flags : d
  561. ;
  562. ; d - Access PCBOARD.DAT ■ 2
  563. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  564. ;     for many PPE so they can find various informations on the system
  565. ;     (system paths, max number of lines in messages, ...) but it may also
  566. ;     be a way to gather vital informations.
  567. ;     ■ Search for : PCBDAT()
  568. ;
  569. ;------------------------------------------------------------------------------
  570. ;
  571. ; Postprocessing report
  572. ;
  573. ;    11      For/Next
  574. ;    0       While/EndWhile
  575. ;    18      If/Then or If/Then/Else
  576. ;    2       Select Case
  577. ;
  578. ;------------------------------------------------------------------------------
  579. ;                 AEGiS Corp - Break the routines, code against the machines!
  580. ;------------------------------------------------------------------------------
  581.