home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / CW_PM_31.ZIP / PRO-MENU.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-01-12  |  18KB  |  500 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.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.     String   STRING017
  45.     String   STRING018
  46.     String   STRING019
  47.     String   STRING020
  48.     String   STRING021
  49.     String   STRING022
  50.     String   STRING023
  51.     String   STRING024
  52.     String   STRING025
  53.     String   STRING026
  54.     String   STRING027
  55.     String   STRING028
  56.     String   STRING029
  57.     String   STRING030
  58.     String   STRING031
  59.     String   STRING032
  60.     String   STRING033
  61.     String   STRING034
  62.     String   STRING035
  63.     String   STRING036
  64.     String   STRING037
  65.     String   STRING038
  66.     String   STRING039
  67.     String   STRING040
  68.     String   STRING041
  69.     String   STRING042
  70.     String   STRING043
  71.     String   STRING044
  72.     String   STRING045
  73.     String   STRING046
  74.     String   STRING047
  75.     String   STRING048
  76.     String   STRING049
  77.     String   STRING050
  78.     String   STRING051
  79.     String   STRING052
  80.     String   STRING053
  81.     String   STRING054
  82.     String   STRING055
  83.     String   STRING056
  84.     String   STRING057
  85.     String   STRING058
  86.     String   STRING059
  87.     String   STRING060
  88.     String   STRING061
  89.     String   STRING062
  90.     String   STRING063
  91.     String   STRING064
  92.     String   STRING065
  93.     String   STRING066
  94.     String   STRING067
  95.     String   STRING068
  96.     String   STRING069
  97.     String   STRING070
  98.     String   STRING071
  99.     String   STRING072
  100.     String   STRING073
  101.     Time     TIME001
  102.  
  103. ;------------------------------------------------------------------------------
  104.  
  105.     STRING073 = "3.1 "
  106.     INTEGER004 = 36
  107.     STRING064 = PPEPath() + PPEName() + ".CNF"
  108.     STRING072 = 44893
  109.     STRING070 = "N"
  110.     If (PPEName() == "BF-RATIO") STRING071 = 34515
  111.     If (PPEName() == "BBSLISTR") STRING071 = 48239
  112.     If (PPEName() == "CONFJOIN") STRING071 = 27233
  113.     If (PPEName() == "HOWHEARD") STRING071 = 18744
  114.     If (PPEName() == "MSGQUEST") STRING071 = 10183
  115.     If (PPEName() == "PRO-MENU") STRING071 = 54932
  116.     If (PPEName() == "PRO-VOTE") STRING071 = 30147
  117.     If (PPEName() == "SPEEDLIM") STRING071 = 62956
  118.     If (PPEName() == "SUBSCRIP") STRING071 = 22239
  119.     If (PPEName() == "TIME-ADJ") STRING071 = 57813
  120.     If (PPEName() == "TIMEZONE") STRING071 = 38271
  121.     If (PPEName() == "USERNEWS") STRING071 = 51818
  122.     If (PPEName() == "WELCOMAT") STRING071 = 40621
  123.     If (Exist(STRING064)) Then
  124.         FOpen 1, STRING064, 0, 0
  125.         FGet 1, STRING059
  126.         FGet 1, INTEGER007
  127.         FGet 1, INTEGER006
  128.         FClose 1
  129.     Else
  130.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  131.         End
  132.     Endif
  133.     Tokenize STRING059
  134.     GetToken STRING068
  135.     GetToken STRING069
  136.     If (INTEGER007 == 0) Then
  137.         STRING070 = "N"
  138.         Goto LABEL003
  139.     Else
  140.         Goto LABEL001
  141.     Endif
  142.     :LABEL001
  143.     STRING065 = Left(STRING068, 1)
  144.     STRING066 = Left(STRING069, 2)
  145.     STRING067 = STRING065 + STRING066
  146.     If (STRING065 == "A") INTEGER008 = 1934
  147.     If (STRING065 == "B") INTEGER008 = 2859
  148.     If (STRING065 == "C") INTEGER008 = 3743
  149.     If (STRING065 == "D") INTEGER008 = 4660
  150.     If (STRING065 == "E") INTEGER008 = 5534
  151.     If (STRING065 == "F") INTEGER008 = 6471
  152.     If (STRING065 == "G") INTEGER008 = 7325
  153.     If (STRING065 == "H") INTEGER008 = 8287
  154.     If (STRING065 == "I") INTEGER008 = 9119
  155.     If (STRING065 == "J") INTEGER008 = 1096
  156.     If (STRING065 == "K") INTEGER008 = 2928
  157.     If (STRING065 == "L") INTEGER008 = 3885
  158.     If (STRING065 == "M") INTEGER008 = 4737
  159.     If (STRING065 == "N") INTEGER008 = 5674
  160.     If (STRING065 == "O") INTEGER008 = 6546
  161.     If (STRING065 == "P") INTEGER008 = 7463
  162.     If (STRING065 == "Q") INTEGER008 = 8355
  163.     If (STRING065 == "R") INTEGER008 = 9242
  164.     If (STRING065 == "S") INTEGER008 = 1164
  165.     If (STRING065 == "T") INTEGER008 = 2031
  166.     If (STRING065 == "U") INTEGER008 = 3973
  167.     If (STRING065 == "V") INTEGER008 = 4820
  168.     If (STRING065 == "W") INTEGER008 = 5782
  169.     If (STRING065 == "X") INTEGER008 = 6619
  170.     If (STRING065 == "Y") INTEGER008 = 7591
  171.     If (STRING065 == "Z") INTEGER008 = 8408
  172.     INTEGER005 = S2I(STRING067, INTEGER004) + INTEGER007 + STRING071 + INTEGER008
  173.     INTEGER009 = S2I(STRING067, INTEGER004) + INTEGER007 + STRING072 + INTEGER008
  174.     If (INTEGER006 == INTEGER005) Goto LABEL002
  175.     If (INTEGER006 == INTEGER009) Goto LABEL002
  176.     Goto LABEL006
  177.     :LABEL002
  178.     STRING070 = "Y"
  179.     If (Len(INTEGER007) == 1) STRING061 = "000"
  180.     If (Len(INTEGER007) == 2) STRING061 = "00"
  181.     If (Len(INTEGER007) == 3) STRING061 = "0"
  182.     If (Len(INTEGER007) == 4) STRING061 = ""
  183.     STRING062 = INTEGER007
  184.     STRING063 = STRING061 + STRING062
  185.     If (Len(STRING059) == 30) STRING060 = ""
  186.     If (Len(STRING059) == 29) STRING060 = ""
  187.     If (Len(STRING059) == 28) STRING060 = " "
  188.     If (Len(STRING059) == 27) STRING060 = " "
  189.     If (Len(STRING059) == 26) STRING060 = "  "
  190.     If (Len(STRING059) == 25) STRING060 = "  "
  191.     If (Len(STRING059) == 24) STRING060 = "   "
  192.     If (Len(STRING059) == 23) STRING060 = "   "
  193.     If (Len(STRING059) == 22) STRING060 = "    "
  194.     If (Len(STRING059) == 21) STRING060 = "    "
  195.     If (Len(STRING059) == 20) STRING060 = "     "
  196.     If (Len(STRING059) == 19) STRING060 = "     "
  197.     If (Len(STRING059) == 18) STRING060 = "      "
  198.     If (Len(STRING059) == 17) STRING060 = "      "
  199.     If (Len(STRING059) == 16) STRING060 = "       "
  200.     If (Len(STRING059) == 15) STRING060 = "       "
  201.     If (Len(STRING059) == 14) STRING060 = "        "
  202.     If (Len(STRING059) == 13) STRING060 = "        "
  203.     If (Len(STRING059) == 12) STRING060 = "         "
  204.     If (Len(STRING059) == 11) STRING060 = "         "
  205.     If (Len(STRING059) == 10) STRING060 = "          "
  206.     If (Len(STRING059) == 9) STRING060 = "          "
  207.     If (Len(STRING059) == 8) STRING060 = "           "
  208.     If (Len(STRING059) == 7) STRING060 = "           "
  209.     If (Len(STRING059) == 6) STRING060 = "            "
  210.     If (Len(STRING059) == 5) STRING060 = "            "
  211.     :LABEL003
  212.     TIME001 = Time()
  213.     STRING001 = Left(String(TIME001), 5)
  214.     STRING002 = Right(String(STRING001), 2)
  215.     STRING003 = Left(String(STRING001), 2)
  216.     If (Hour(TIME001) > 11) Then
  217.         STRING004 = "PM"
  218.     Else
  219.         STRING004 = "AM"
  220.     Endif
  221.     If (STRING003 == "13") STRING003 = " 1"
  222.     If (STRING003 == "14") STRING003 = " 2"
  223.     If (STRING003 == "15") STRING003 = " 3"
  224.     If (STRING003 == "16") STRING003 = " 4"
  225.     If (STRING003 == "17") STRING003 = " 5"
  226.     If (STRING003 == "18") STRING003 = " 6"
  227.     If (STRING003 == "19") STRING003 = " 7"
  228.     If (STRING003 == "20") STRING003 = " 8"
  229.     If (STRING003 == "21") STRING003 = " 9"
  230.     If (STRING003 == "22") STRING003 = "10"
  231.     If (STRING003 == "23") STRING003 = "11"
  232.     STRING001 = STRING003 + ":" + STRING002 + " " + STRING004
  233.     STRING019 = " "
  234.     STRING020 = " "
  235.     STRING021 = " "
  236.     STRING022 = " "
  237.     STRING023 = " "
  238.     STRING024 = " "
  239.     STRING025 = " "
  240.     STRING026 = " "
  241.     STRING027 = " "
  242.     STRING028 = " "
  243.     STRING029 = " "
  244.     STRING030 = " "
  245.     STRING031 = " "
  246.     STRING032 = " "
  247.     STRING033 = " "
  248.     STRING034 = " "
  249.     STRING035 = " "
  250.     STRING036 = " "
  251.     STRING037 = " "
  252.     STRING038 = " "
  253.     STRING039 = " "
  254.     STRING040 = " "
  255.     STRING041 = " "
  256.     STRING042 = " "
  257.     STRING043 = " "
  258.     STRING044 = " "
  259.     STRING045 = " "
  260.     STRING046 = " "
  261.     STRING047 = " "
  262.     STRING048 = " "
  263.     STRING049 = " "
  264.     STRING050 = " "
  265.     STRING051 = " "
  266.     STRING052 = " "
  267.     STRING053 = " "
  268.     STRING054 = " "
  269.     STRING055 = " "
  270.     STRING056 = " "
  271.     STRING057 = " "
  272.     STRING058 = " "
  273.     GetUser
  274.     If (ReadLine(PCBDat(), 130) > U_Sec) STRING019 = "■"
  275.     If (ReadLine(PCBDat(), 121) > U_Sec) STRING020 = "■"
  276.     If (ReadLine(PCBDat(), 123) > U_Sec) STRING021 = "■"
  277.     If (ReadLine(PCBDat(), 125) > U_Sec) STRING022 = "■"
  278.     If (ReadLine(PCBDat(), 131) > U_Sec) STRING023 = "■"
  279.     If (ReadLine(PCBDat(), 138) > U_Sec) STRING024 = "■"
  280.     If (ReadLine(PCBDat(), 145) > U_Sec) STRING025 = "■"
  281.     If (ReadLine(PCBDat(), 137) > U_Sec) STRING026 = "■"
  282.     If (ReadLine(PCBDat(), 122) > U_Sec) STRING027 = "■"
  283.     If (ReadLine(PCBDat(), 136) > U_Sec) STRING028 = "■"
  284.     If (ReadLine(PCBDat(), 124) > U_Sec) STRING029 = "■"
  285.     If (ReadLine(PCBDat(), 153) > U_Sec) STRING030 = "■"
  286.     If (ReadLine(PCBDat(), 141) > U_Sec) STRING031 = "■"
  287.     If (ReadLine(PCBDat(), 126) > U_Sec) STRING032 = "■"
  288.     If (ReadLine(PCBDat(), 132) > U_Sec) STRING033 = "■"
  289.     If (ReadLine(PCBDat(), 134) > U_Sec) STRING034 = "■"
  290.     If (ReadLine(PCBDat(), 140) > U_Sec) STRING035 = "■"
  291.     If (ReadLine(PCBDat(), 146) > U_Sec) STRING036 = "■"
  292.     If (ReadLine(PCBDat(), 139) > U_Sec) STRING037 = "■"
  293.     If (ReadLine(PCBDat(), 128) > U_Sec) STRING038 = "■"
  294.     If (ReadLine(PCBDat(), 129) > U_Sec) STRING039 = "■"
  295.     If (ReadLine(PCBDat(), 133) > U_Sec) STRING040 = "■"
  296.     If (ReadLine(PCBDat(), 135) > U_Sec) STRING041 = "■"
  297.     If (ReadLine(PCBDat(), 142) > U_Sec) STRING042 = "■"
  298.     If (ReadLine(PCBDat(), 143) > U_Sec) STRING043 = "■"
  299.     If (ReadLine(PCBDat(), 144) > U_Sec) STRING044 = "■"
  300.     If (ReadLine(PCBDat(), 147) > U_Sec) STRING045 = "■"
  301.     If (ReadLine(PCBDat(), 151) > U_Sec) STRING046 = "■"
  302.     If (ReadLine(PCBDat(), 152) > U_Sec) STRING047 = "■"
  303.     If (ReadLine(PCBDat(), 148) > U_Sec) STRING048 = "■"
  304.     If (ReadLine(PCBDat(), 185) > U_Sec) STRING049 = "■"
  305.     FOpen 1, STRING064, 0, 0
  306.     FGet 1, STRING059
  307.     FGet 1, INTEGER007
  308.     FGet 1, INTEGER006
  309.     FGet 1, STRING005
  310.     FGet 1, INTEGER001
  311.     FGet 1, STRING009
  312.     FGet 1, STRING013
  313.     FGet 1, INTEGER002
  314.     FGet 1, STRING010
  315.     FGet 1, STRING014
  316.     FGet 1, INTEGER003
  317.     FGet 1, STRING011
  318.     FGet 1, STRING015
  319.     FClose 1
  320.     STRING012 = "Y"
  321.     If (INTEGER001 >= 1) Goto LABEL004
  322.     STRING012 = "N"
  323.     Goto LABEL005
  324.     :LABEL004
  325.     STRING006 = " "
  326.     STRING007 = " "
  327.     STRING008 = " "
  328.     If (ReadLine(STRING064, 5) > U_Sec) STRING006 = "■"
  329.     If (ReadLine(STRING064, 8) > U_Sec) STRING007 = "■"
  330.     If (ReadLine(STRING064, 11) > U_Sec) STRING008 = "■"
  331.     If (Len(STRING009) + Len(STRING013) == 19) STRING016 = ""
  332.     If (Len(STRING009) + Len(STRING013) == 18) STRING016 = " "
  333.     If (Len(STRING009) + Len(STRING013) == 17) STRING016 = "  "
  334.     If (Len(STRING009) + Len(STRING013) == 16) STRING016 = "   "
  335.     If (Len(STRING009) + Len(STRING013) == 15) STRING016 = "    "
  336.     If (Len(STRING009) + Len(STRING013) == 14) STRING016 = "     "
  337.     If (Len(STRING009) + Len(STRING013) == 13) STRING016 = "      "
  338.     If (Len(STRING009) + Len(STRING013) == 12) STRING016 = "       "
  339.     If (Len(STRING009) + Len(STRING013) == 11) STRING016 = "        "
  340.     If (Len(STRING009) + Len(STRING013) == 10) STRING016 = "         "
  341.     If (Len(STRING009) + Len(STRING013) == 9) STRING016 = "          "
  342.     If (Len(STRING009) + Len(STRING013) == 8) STRING016 = "           "
  343.     If (Len(STRING009) + Len(STRING013) == 7) STRING016 = "            "
  344.     If (Len(STRING009) + Len(STRING013) == 6) STRING016 = "             "
  345.     If (Len(STRING009) + Len(STRING013) == 5) STRING016 = "              "
  346.     If (Len(STRING009) + Len(STRING013) == 4) STRING016 = "               "
  347.     If (Len(STRING009) + Len(STRING013) == 3) STRING016 = "                "
  348.     If (Len(STRING009) + Len(STRING013) == 2) STRING016 = "                 "
  349.     If (Len(STRING009) + Len(STRING013) == 1) STRING016 = "                  "
  350.     If (Len(STRING009) + Len(STRING013) == 0) STRING016 = "                   "
  351.     If (Len(STRING010) + Len(STRING014) == 19) STRING017 = ""
  352.     If (Len(STRING010) + Len(STRING014) == 18) STRING017 = " "
  353.     If (Len(STRING010) + Len(STRING014) == 17) STRING017 = "  "
  354.     If (Len(STRING010) + Len(STRING014) == 16) STRING017 = "   "
  355.     If (Len(STRING010) + Len(STRING014) == 15) STRING017 = "    "
  356.     If (Len(STRING010) + Len(STRING014) == 14) STRING017 = "     "
  357.     If (Len(STRING010) + Len(STRING014) == 13) STRING017 = "      "
  358.     If (Len(STRING010) + Len(STRING014) == 12) STRING017 = "       "
  359.     If (Len(STRING010) + Len(STRING014) == 11) STRING017 = "        "
  360.     If (Len(STRING010) + Len(STRING014) == 10) STRING017 = "         "
  361.     If (Len(STRING010) + Len(STRING014) == 9) STRING017 = "          "
  362.     If (Len(STRING010) + Len(STRING014) == 8) STRING017 = "           "
  363.     If (Len(STRING010) + Len(STRING014) == 7) STRING017 = "            "
  364.     If (Len(STRING010) + Len(STRING014) == 6) STRING017 = "             "
  365.     If (Len(STRING010) + Len(STRING014) == 5) STRING017 = "              "
  366.     If (Len(STRING010) + Len(STRING014) == 4) STRING017 = "               "
  367.     If (Len(STRING010) + Len(STRING014) == 3) STRING017 = "                "
  368.     If (Len(STRING010) + Len(STRING014) == 2) STRING017 = "                 "
  369.     If (Len(STRING010) + Len(STRING014) == 1) STRING017 = "                  "
  370.     If (Len(STRING010) + Len(STRING014) == 0) STRING017 = "                   "
  371.     If (Len(STRING011) + Len(STRING015) == 19) STRING018 = ""
  372.     If (Len(STRING011) + Len(STRING015) == 18) STRING018 = " "
  373.     If (Len(STRING011) + Len(STRING015) == 17) STRING018 = "  "
  374.     If (Len(STRING011) + Len(STRING015) == 16) STRING018 = "   "
  375.     If (Len(STRING011) + Len(STRING015) == 15) STRING018 = "    "
  376.     If (Len(STRING011) + Len(STRING015) == 14) STRING018 = "     "
  377.     If (Len(STRING011) + Len(STRING015) == 13) STRING018 = "      "
  378.     If (Len(STRING011) + Len(STRING015) == 12) STRING018 = "       "
  379.     If (Len(STRING011) + Len(STRING015) == 11) STRING018 = "        "
  380.     If (Len(STRING011) + Len(STRING015) == 10) STRING018 = "         "
  381.     If (Len(STRING011) + Len(STRING015) == 9) STRING018 = "          "
  382.     If (Len(STRING011) + Len(STRING015) == 8) STRING018 = "           "
  383.     If (Len(STRING011) + Len(STRING015) == 7) STRING018 = "            "
  384.     If (Len(STRING011) + Len(STRING015) == 6) STRING018 = "             "
  385.     If (Len(STRING011) + Len(STRING015) == 5) STRING018 = "              "
  386.     If (Len(STRING011) + Len(STRING015) == 4) STRING018 = "               "
  387.     If (Len(STRING011) + Len(STRING015) == 3) STRING018 = "                "
  388.     If (Len(STRING011) + Len(STRING015) == 2) STRING018 = "                 "
  389.     If (Len(STRING011) + Len(STRING015) == 1) STRING018 = "                  "
  390.     If (Len(STRING011) + Len(STRING015) == 0) STRING018 = "                   "
  391.     :LABEL005
  392.     Cls
  393.     If (STRING070 == "Y") Then
  394.         PrintLn "@X5D ┌───────────────────────────────────────────────────────────────────────────@X50┐ @X07"
  395.         PrintLn "@X5D │ @X5B@SYSDATE@             @X5F", STRING060, STRING059, " @X5B@POS:69@", STRING001, " @X50│ @X07"
  396.         PrintLn "@X5D └@X50───────────────────────────────────────────────────────────────────────────┘ @X07"
  397.     Else
  398.         PrintLn "@X5D ┌───────────────────────────────────────────────────────────────────────────@X50┐ @X07"
  399.         PrintLn "@X5D │ @X5B@SYSDATE@                      @X5FPro-Menu v", STRING073, " @X5B@POS:69@", STRING001, " @X50│ @X07"
  400.         PrintLn "@X5D └@X50───────────────────────────────────────────────────────────────────────────┘ @X07"
  401.     Endif
  402.     PrintLn "@X5A       ■ @X5BMeans the Command is unavailable at your current security level       @X07"
  403.     PrintLn "@X5D ┌───────────────────────@X50┐ @X5D┌───────────────────────@X50┐ @X5D┌───────────────────────@X50┐ @X07"
  404.     PrintLn "@X5D │@X5A", STRING019, " @X5BJ @X5EJoin a Conference  @X50│ @X5D│@X5A", STRING029, " @X5BD @X5EDownload a File    @X50│ @X5D│@X5A", STRING039, " @X5BI @X5EInitial Logon Scrn @X50│ @X07"
  405.     PrintLn "@X5D │@X5A", STRING020, " @X5BA @X5EAbandon Conference @X50│ @X5D│@X5A", STRING030, "@X5BDB @X5EDownload In Batch  @X50│ @X5D│@X5A", STRING040, " @X5BM @X5EMode Graphics      @X50│ @X07"
  406.     PrintLn "@X5D │@X5A", STRING021, " @X5BC @X5EComment To SysOp   @X50│ @X5D│@X5A", STRING031, " @X5BU @X5EUpload a File      @X50│ @X5D│@X5A", STRING041, " @X5BO @X5EOperator Page      @X50│ @X07"
  407.     PrintLn "@X5D │@X5A", STRING022, " @X5BE @X5EEnter a Message    @X50│ @X5D│@X5A", STRING030, "@X5BUB @X5EUpload In Batch    @X50│ @X5D│@X5A", STRING042, " @X5BV @X5EView Your Settings @X50│ @X07"
  408.     PrintLn "@X5D │@X5A", STRING023, " @X5BK @X5EKill a Message     @X50│ @X5D│@X5A", STRING032, " @X5BF @X5EFile Directories   @X50│ @X5D│@X5A", STRING043, " @X5BW @X5EWrite Settings     @X50│ @X07"
  409.     PrintLn "@X5D │@X5A", STRING024, " @X5BR @X5ERead Messages      @X50│ @X5D│@X5A", STRING033, " @X5BL @X5ELocate a Filespec  @X50│ @X5D│@X5A", STRING044, " @X5BX @X5EeXpert Mode Toggle @X50│ @X07"
  410.     PrintLn "@X5D │@X5A", STRING025, " @X5BY @X5EYour Messages      @X50│ @X5D│@X5A", STRING034, " @X5BN @X5ENew Files Scan     @X50│ @X5D│@X5A", STRING045, " @X5BOPEN @X5Ea @X5BDOOR          @X50│ @X07"
  411.     PrintLn "@X5D │@X5A", STRING026, " @X5BQ @X5EQuick Msg Search   @X50│ @X5D│@X5A", STRING035, " @X5BT @X5ETransfer Protocol  @X50│ @X5D│@X5A", STRING046, " @X5BUSERS @X5EListing        @X50│ @X07"
  412.     PrintLn "@X5D │@X5A", STRING027, " @X5BB @X5EBulletin Menu      @X50│ @X5D│@X5A", STRING036, " @X5BZ @X5EZippy Files Scan   @X50│ @X5D│@X5A", STRING047, " @X5BWHO  @X5EElse Is Online  @X50│ @X07"
  413.     PrintLn "@X5D │@X5A", STRING028, " @X5BP @X5EPage Screen Length @X50│ @X5D│@X5A", STRING037, " @X5BS @X5EScript Question'r  @X50│ @X5D│@X5A", STRING048, " @X5BCHAT @X5EWith a User     @X50│ @X07"
  414.     PrintLn "@X5D │@X5A  @X5BG @X5EGoodbye / Logoff   @X50│ @X5D│@X5A", STRING038, " @X5BH @X5EHelp With Cmds     @X50│ @X5D│@X5A", STRING049, " @X5BTEST @X5EFile Integrity  @X50│ @X07"
  415.     If ((STRING012 == "Y") && (STRING070 == "Y")) PrintLn "@X5D │@X5A", STRING006, " @X5B", STRING009, " @X5E", STRING013, STRING016, " @X50│ @X5D│@X5A", STRING007, " @X5B", STRING010, " @X5E", STRING014, STRING017, " @X50│ @X5D│@X5A", STRING008, " @X5B", STRING011, " @X5E", STRING015, STRING018, " @X50│ @X07"
  416.     PrintLn "@X5D └@X50───────────────────────┘ @X5D└@X50───────────────────────┘ @X5D└@X50───────────────────────┘ @X07"
  417.     If (Exist(STRING005) && (STRING070 == "Y")) DispFile STRING005, 4 + 2 + 1
  418.     End
  419.     :LABEL006
  420.     Cls
  421.     PrintLn 
  422.     PrintLn "                       @X5D┌──────────────────────────────@X50┐@X07"
  423.     PrintLn "                       @X5D│        @X5APro-Menu  v", STRING073, "       @X50│@X07"
  424.     PrintLn "                       @X5D│                              @X50│@X07"
  425.     PrintLn "                       @X5D│      @X5BAborting Operation      @X50│@X07"
  426.     PrintLn "                       @X5D│                              @X50│@X07"
  427.     PrintLn "                       @X5D│  @X5BInvalid Registration Code!  @X50│@X07"
  428.     PrintLn "                       @X5D└@X50──────────────────────────────┘@X07"
  429.     Beep
  430.     Delay 182
  431.     End
  432.  
  433. ;------------------------------------------------------------------------------
  434. ;
  435. ; Usage report (before postprocessing)
  436. ;
  437. ; ■ Statements used :
  438. ;
  439. ;    3       End
  440. ;    2       Cls
  441. ;    15      Goto 
  442. ;    240     Let 
  443. ;    30      PrintLn 
  444. ;    183     If 
  445. ;    1       DispFile 
  446. ;    2       FOpen 
  447. ;    2       FClose 
  448. ;    16      FGet 
  449. ;    1       GetUser
  450. ;    1       Delay 
  451. ;    1       Tokenize 
  452. ;    2       GetToken 
  453. ;    1       Beep
  454. ;
  455. ;
  456. ; ■ Functions used :
  457. ;
  458. ;    76      +
  459. ;    147     ==
  460. ;    35      >
  461. ;    1       >=
  462. ;    5       !
  463. ;    2       &&
  464. ;    150     Len(
  465. ;    4       Left()
  466. ;    1       Right()
  467. ;    1       Time()
  468. ;    1       Hour()
  469. ;    3       String()
  470. ;    31      PCBDat()
  471. ;    1       PPEPath()
  472. ;    34      ReadLine()
  473. ;    2       Exist()
  474. ;    2       S2I()
  475. ;    14      PPEName()
  476. ;
  477. ;------------------------------------------------------------------------------
  478. ;
  479. ; Analysis flags : d
  480. ;
  481. ; d - Access PCBOARD.DAT ■ 2
  482. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  483. ;     for many PPE so they can find various informations on the system
  484. ;     (system paths, max number of lines in messages, ...) but it may also
  485. ;     be a way to gather vital informations.
  486. ;     ■ Search for : PCBDAT()
  487. ;
  488. ;------------------------------------------------------------------------------
  489. ;
  490. ; Postprocessing report
  491. ;
  492. ;    0       For/Next
  493. ;    0       While/EndWhile
  494. ;    4       If/Then or If/Then/Else
  495. ;    0       Select Case
  496. ;
  497. ;------------------------------------------------------------------------------
  498. ;                 AEGiS Corp - Break the routines, code against the machines!
  499. ;------------------------------------------------------------------------------
  500.