home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / cw_mm_33.zip / MAINMENU.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-01  |  22KB  |  577 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.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     String   STRING001
  31.     String   STRING002
  32.     String   STRING003
  33.     String   STRING004
  34.     String   STRING005
  35.     String   STRING006
  36.     String   STRING007
  37.     String   STRING008
  38.     String   STRING009
  39.     String   STRING010
  40.     String   STRING011
  41.     String   STRING012
  42.     String   STRING013
  43.     String   STRING014
  44.     String   STRING015
  45.     String   STRING016
  46.     String   STRING017
  47.     String   STRING018
  48.     String   STRING019
  49.     String   STRING020
  50.     String   STRING021
  51.     String   STRING022
  52.     String   STRING023
  53.     String   STRING024
  54.     String   STRING025
  55.     String   STRING026
  56.     String   STRING027
  57.     String   STRING028
  58.     String   STRING029
  59.     String   STRING030
  60.     String   STRING031
  61.     String   STRING032
  62.     String   STRING033
  63.     String   STRING034
  64.     String   STRING035
  65.     String   STRING036
  66.     String   STRING037
  67.     String   STRING038
  68.     String   STRING039
  69.     String   STRING040
  70.     String   STRING041
  71.     String   STRING042
  72.     String   STRING043
  73.     String   STRING044
  74.     String   STRING045
  75.     String   STRING046
  76.     String   STRING047
  77.     String   STRING048
  78.     String   STRING049
  79.     String   STRING050
  80.     String   STRING051
  81.     String   STRING052
  82.     String   STRING053
  83.     String   STRING054
  84.     String   STRING055
  85.     String   STRING056
  86.     String   STRING057
  87.     String   STRING058
  88.     String   STRING059
  89.     String   STRING060
  90.     String   STRING061
  91.     String   STRING062
  92.     String   STRING063
  93.     String   STRING064
  94.     String   STRING065
  95.     String   STRING066
  96.     String   STRING067
  97.     String   STRING068
  98.     String   STRING069
  99.     String   STRING070
  100.     String   STRING071
  101.     String   STRING072
  102.     String   STRING073
  103.     String   STRING074
  104.     String   STRING075
  105.     String   STRING076
  106.     String   STRING077
  107.     String   STRING078
  108.     String   STRING079
  109.     String   STRING080
  110.     String   STRING081
  111.     String   STRING082
  112.     Time     TIME001
  113.  
  114. ;------------------------------------------------------------------------------
  115.  
  116.     INTEGER006 = 36
  117.     STRING072 = PPEPath() + PPEName() + ".CNF"
  118.     STRING080 = 35110
  119.     STRING078 = "N"
  120.     STRING082 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  121.     If (PPEName() == "BBSLISTR") STRING079 = 48239
  122.     If (PPEName() == "BIRTHDAY") STRING079 = 58111
  123.     If (PPEName() == "CONFJOIN") STRING079 = 27233
  124.     If (PPEName() == "DOORMENU") STRING079 = 27233
  125.     If (PPEName() == "FILEMENU") STRING079 = 27233
  126.     If (PPEName() == "MAINMENU") STRING079 = 27233
  127.     If (PPEName() == "HOWHEARD") STRING079 = 18744
  128.     If (PPEName() == "NEWUSERS") STRING079 = 18744
  129.     If (PPEName() == "MSGQUEST") STRING079 = 10183
  130.     If (PPEName() == "PRO-VOTE") STRING079 = 30147
  131.     If (PPEName() == "REMINDME") STRING079 = 34515
  132.     If (PPEName() == "SPEEDLIM") STRING079 = 62956
  133.     If (PPEName() == "SUBSCRIP") STRING079 = 22239
  134.     If (PPEName() == "TIMEZONE") STRING079 = 38271
  135.     If (PPEName() == "USERNEWS") STRING079 = 51818
  136.     If (PPEName() == "WELCOMAT") STRING079 = 40621
  137.     If (Exist(STRING072)) Then
  138.         FOpen 1, STRING072, 0, 0
  139.         FGet 1, STRING067
  140.         FGet 1, INTEGER009
  141.         FGet 1, INTEGER008
  142.         FClose 1
  143.     Else
  144.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  145.         End
  146.     Endif
  147.     Tokenize STRING067
  148.     GetToken STRING076
  149.     GetToken STRING077
  150.     If ((INTEGER009 == 0) || (INTEGER008 == 79228)) Then
  151.         STRING078 = "N"
  152.         Goto LABEL004
  153.     Else
  154.         Goto LABEL001
  155.     Endif
  156.     :LABEL001
  157.     STRING081 = "N"
  158.     If (INTEGER008 == 52888) STRING081 = "Y"
  159.     If (INTEGER008 == 103750) STRING081 = "Y"
  160.     If (INTEGER008 == 77670) STRING081 = "Y"
  161.     If (INTEGER008 == 32139) STRING081 = "Y"
  162.     If (INTEGER008 == 40700) STRING081 = "Y"
  163.     If (INTEGER008 == 49190) STRING081 = "Y"
  164.     If (INTEGER008 == 50402) STRING081 = "Y"
  165.     If (INTEGER008 == 58961) STRING081 = "Y"
  166.     If (INTEGER008 == 67450) STRING081 = "Y"
  167.     If (INTEGER008 == 80838) STRING081 = "Y"
  168.     If (INTEGER008 == 103175) STRING081 = "Y"
  169.     If (INTEGER008 == 67270) STRING081 = "Y"
  170.     If (INTEGER008 == 55461) STRING081 = "Y"
  171.     If (INTEGER008 == 64023) STRING081 = "Y"
  172.     If (INTEGER008 == 72512) STRING081 = "Y"
  173.     If (INTEGER008 == 85900) STRING081 = "Y"
  174.     If (INTEGER008 == 63607) STRING081 = "Y"
  175.     If (INTEGER008 == 72098) STRING081 = "Y"
  176.     If (INTEGER008 == 80845) STRING081 = "Y"
  177.     If (INTEGER008 == 14372) STRING081 = "Y"
  178.     If (INTEGER008 == 22932) STRING081 = "Y"
  179.     If (INTEGER008 == 31421) STRING081 = "Y"
  180.     If (INTEGER008 == 44809) STRING081 = "Y"
  181.     If (INTEGER008 == 67145) STRING081 = "Y"
  182.     If (INTEGER008 == 67813) STRING081 = "Y"
  183.     If (STRING081 == "Y") STRING078 = "N"
  184.     If (STRING081 == "Y") Goto LABEL004
  185.     If ((INTEGER009 == 0) || (INTEGER008 == 79228)) Then
  186.         STRING078 = "N"
  187.         Goto LABEL004
  188.     Else
  189.         Goto LABEL002
  190.     Endif
  191.     :LABEL002
  192.     STRING073 = Left(STRING076, 1)
  193.     STRING074 = Left(STRING077, 2)
  194.     STRING075 = STRING073 + STRING074
  195.     If (STRING073 == "A") INTEGER010 = 1934
  196.     If (STRING073 == "B") INTEGER010 = 2859
  197.     If (STRING073 == "C") INTEGER010 = 3743
  198.     If (STRING073 == "D") INTEGER010 = 4660
  199.     If (STRING073 == "E") INTEGER010 = 5534
  200.     If (STRING073 == "F") INTEGER010 = 6471
  201.     If (STRING073 == "G") INTEGER010 = 7325
  202.     If (STRING073 == "H") INTEGER010 = 8287
  203.     If (STRING073 == "I") INTEGER010 = 9119
  204.     If (STRING073 == "J") INTEGER010 = 1096
  205.     If (STRING073 == "K") INTEGER010 = 2928
  206.     If (STRING073 == "L") INTEGER010 = 3885
  207.     If (STRING073 == "M") INTEGER010 = 4737
  208.     If (STRING073 == "N") INTEGER010 = 5674
  209.     If (STRING073 == "O") INTEGER010 = 6546
  210.     If (STRING073 == "P") INTEGER010 = 7463
  211.     If (STRING073 == "Q") INTEGER010 = 8355
  212.     If (STRING073 == "R") INTEGER010 = 9242
  213.     If (STRING073 == "S") INTEGER010 = 1164
  214.     If (STRING073 == "T") INTEGER010 = 2031
  215.     If (STRING073 == "U") INTEGER010 = 3973
  216.     If (STRING073 == "V") INTEGER010 = 4820
  217.     If (STRING073 == "W") INTEGER010 = 5782
  218.     If (STRING073 == "X") INTEGER010 = 6619
  219.     If (STRING073 == "Y") INTEGER010 = 7591
  220.     If (STRING073 == "Z") INTEGER010 = 8408
  221.     INTEGER007 = S2I(STRING075, INTEGER006) + INTEGER009 + STRING079 + INTEGER010
  222.     INTEGER011 = S2I(STRING075, INTEGER006) + INTEGER009 + STRING080 + INTEGER010
  223.     If (INTEGER008 == INTEGER007) Goto LABEL003
  224.     If (INTEGER008 == INTEGER011) Goto LABEL003
  225.     Goto LABEL007
  226.     :LABEL003
  227.     STRING078 = "Y"
  228.     If (Len(INTEGER009) == 1) STRING069 = "000"
  229.     If (Len(INTEGER009) == 2) STRING069 = "00"
  230.     If (Len(INTEGER009) == 3) STRING069 = "0"
  231.     If (Len(INTEGER009) == 4) STRING069 = ""
  232.     STRING070 = INTEGER009
  233.     STRING071 = STRING069 + STRING070
  234.     If (Len(STRING067) == 30) STRING068 = ""
  235.     If (Len(STRING067) == 29) STRING068 = ""
  236.     If (Len(STRING067) == 28) STRING068 = " "
  237.     If (Len(STRING067) == 27) STRING068 = " "
  238.     If (Len(STRING067) == 26) STRING068 = "  "
  239.     If (Len(STRING067) == 25) STRING068 = "  "
  240.     If (Len(STRING067) == 24) STRING068 = "   "
  241.     If (Len(STRING067) == 23) STRING068 = "   "
  242.     If (Len(STRING067) == 22) STRING068 = "    "
  243.     If (Len(STRING067) == 21) STRING068 = "    "
  244.     If (Len(STRING067) == 20) STRING068 = "     "
  245.     If (Len(STRING067) == 19) STRING068 = "     "
  246.     If (Len(STRING067) == 18) STRING068 = "      "
  247.     If (Len(STRING067) == 17) STRING068 = "      "
  248.     If (Len(STRING067) == 16) STRING068 = "       "
  249.     If (Len(STRING067) == 15) STRING068 = "       "
  250.     If (Len(STRING067) == 14) STRING068 = "        "
  251.     If (Len(STRING067) == 13) STRING068 = "        "
  252.     If (Len(STRING067) == 12) STRING068 = "         "
  253.     If (Len(STRING067) == 11) STRING068 = "         "
  254.     If (Len(STRING067) == 10) STRING068 = "          "
  255.     If (Len(STRING067) == 9) STRING068 = "          "
  256.     If (Len(STRING067) == 8) STRING068 = "           "
  257.     If (Len(STRING067) == 7) STRING068 = "           "
  258.     If (Len(STRING067) == 6) STRING068 = "            "
  259.     If (Len(STRING067) == 5) STRING068 = "            "
  260.     :LABEL004
  261.     STRING013 = "3.3 "
  262.     TIME001 = Time()
  263.     STRING008 = Left(String(TIME001), 5)
  264.     STRING009 = Right(String(STRING008), 2)
  265.     STRING010 = Left(String(STRING008), 2)
  266.     If (Hour(TIME001) > 11) Then
  267.         STRING011 = "PM"
  268.     Else
  269.         STRING011 = "AM"
  270.     Endif
  271.     If (STRING010 == "01") STRING010 = " 1"
  272.     If (STRING010 == "02") STRING010 = " 2"
  273.     If (STRING010 == "03") STRING010 = " 3"
  274.     If (STRING010 == "04") STRING010 = " 4"
  275.     If (STRING010 == "05") STRING010 = " 5"
  276.     If (STRING010 == "06") STRING010 = " 6"
  277.     If (STRING010 == "07") STRING010 = " 7"
  278.     If (STRING010 == "08") STRING010 = " 8"
  279.     If (STRING010 == "09") STRING010 = " 9"
  280.     If (STRING010 == "13") STRING010 = " 1"
  281.     If (STRING010 == "14") STRING010 = " 2"
  282.     If (STRING010 == "15") STRING010 = " 3"
  283.     If (STRING010 == "16") STRING010 = " 4"
  284.     If (STRING010 == "17") STRING010 = " 5"
  285.     If (STRING010 == "18") STRING010 = " 6"
  286.     If (STRING010 == "19") STRING010 = " 7"
  287.     If (STRING010 == "20") STRING010 = " 8"
  288.     If (STRING010 == "21") STRING010 = " 9"
  289.     If (STRING010 == "22") STRING010 = "10"
  290.     If (STRING010 == "23") STRING010 = "11"
  291.     STRING008 = STRING010 + ":" + STRING009 + " " + STRING011
  292.     STRING027 = " "
  293.     STRING028 = " "
  294.     STRING029 = " "
  295.     STRING030 = " "
  296.     STRING031 = " "
  297.     STRING032 = " "
  298.     STRING033 = " "
  299.     STRING034 = " "
  300.     STRING035 = " "
  301.     STRING036 = " "
  302.     STRING037 = " "
  303.     STRING038 = " "
  304.     STRING039 = " "
  305.     STRING040 = " "
  306.     STRING041 = " "
  307.     STRING042 = " "
  308.     STRING043 = " "
  309.     STRING044 = " "
  310.     STRING045 = " "
  311.     STRING046 = " "
  312.     STRING047 = " "
  313.     STRING048 = " "
  314.     STRING049 = " "
  315.     STRING050 = " "
  316.     STRING051 = " "
  317.     STRING052 = " "
  318.     STRING053 = " "
  319.     STRING054 = " "
  320.     STRING055 = " "
  321.     STRING056 = " "
  322.     STRING057 = " "
  323.     STRING058 = " "
  324.     STRING059 = " "
  325.     STRING060 = " "
  326.     STRING061 = " "
  327.     STRING062 = " "
  328.     STRING063 = " "
  329.     STRING064 = " "
  330.     STRING065 = " "
  331.     STRING066 = " "
  332.     GetUser
  333.     If (ReadLine(PCBDat(), 130) > U_Sec) STRING027 = "■"
  334.     If (ReadLine(PCBDat(), 121) > U_Sec) STRING028 = "■"
  335.     If (ReadLine(PCBDat(), 123) > U_Sec) STRING029 = "■"
  336.     If (ReadLine(PCBDat(), 125) > U_Sec) STRING030 = "■"
  337.     If (ReadLine(PCBDat(), 131) > U_Sec) STRING031 = "■"
  338.     If (ReadLine(PCBDat(), 138) > U_Sec) STRING032 = "■"
  339.     If (ReadLine(PCBDat(), 145) > U_Sec) STRING033 = "■"
  340.     If (ReadLine(PCBDat(), 137) > U_Sec) STRING034 = "■"
  341.     If (ReadLine(PCBDat(), 122) > U_Sec) STRING035 = "■"
  342.     If (ReadLine(PCBDat(), 136) > U_Sec) STRING036 = "■"
  343.     If (ReadLine(PCBDat(), 124) > U_Sec) STRING037 = "■"
  344.     If (ReadLine(PCBDat(), 153) > U_Sec) STRING038 = "■"
  345.     If (ReadLine(PCBDat(), 141) > U_Sec) STRING039 = "■"
  346.     If (ReadLine(PCBDat(), 126) > U_Sec) STRING040 = "■"
  347.     If (ReadLine(PCBDat(), 132) > U_Sec) STRING041 = "■"
  348.     If (ReadLine(PCBDat(), 134) > U_Sec) STRING042 = "■"
  349.     If (ReadLine(PCBDat(), 140) > U_Sec) STRING043 = "■"
  350.     If (ReadLine(PCBDat(), 146) > U_Sec) STRING044 = "■"
  351.     If (ReadLine(PCBDat(), 139) > U_Sec) STRING045 = "■"
  352.     If (ReadLine(PCBDat(), 128) > U_Sec) STRING046 = "■"
  353.     If (ReadLine(PCBDat(), 129) > U_Sec) STRING047 = "■"
  354.     If (ReadLine(PCBDat(), 133) > U_Sec) STRING048 = "■"
  355.     If (ReadLine(PCBDat(), 135) > U_Sec) STRING049 = "■"
  356.     If (ReadLine(PCBDat(), 142) > U_Sec) STRING050 = "■"
  357.     If (ReadLine(PCBDat(), 143) > U_Sec) STRING051 = "■"
  358.     If (ReadLine(PCBDat(), 144) > U_Sec) STRING052 = "■"
  359.     If (ReadLine(PCBDat(), 147) > U_Sec) STRING053 = "■"
  360.     If (ReadLine(PCBDat(), 151) > U_Sec) STRING054 = "■"
  361.     If (ReadLine(PCBDat(), 152) > U_Sec) STRING055 = "■"
  362.     If (ReadLine(PCBDat(), 148) > U_Sec) STRING056 = "■"
  363.     If (ReadLine(PCBDat(), 185) > U_Sec) STRING057 = "■"
  364.     FOpen 1, STRING072, 0, 0
  365.     FGet 1, STRING067
  366.     FGet 1, INTEGER009
  367.     FGet 1, INTEGER008
  368.     FGet 1, STRING012
  369.     FGet 1, INTEGER004
  370.     FGet 1, INTEGER001
  371.     FGet 1, STRING017
  372.     FGet 1, STRING021
  373.     FGet 1, INTEGER002
  374.     FGet 1, STRING018
  375.     FGet 1, STRING022
  376.     FGet 1, INTEGER003
  377.     FGet 1, STRING019
  378.     FGet 1, STRING023
  379.     FClose 1
  380.     STRING001 = PPEPath() + "MAINMENU." + String(Random(INTEGER004))
  381.     FOpen 1, STRING001, 0, 0
  382.     FGet 1, INTEGER005
  383.     FGet 1, STRING002
  384.     FGet 1, INTEGER005
  385.     FGet 1, STRING003
  386.     FGet 1, INTEGER005
  387.     FGet 1, STRING004
  388.     FGet 1, INTEGER005
  389.     FGet 1, STRING005
  390.     FGet 1, INTEGER005
  391.     FGet 1, STRING006
  392.     FGet 1, INTEGER005
  393.     FGet 1, STRING007
  394.     FClose 1
  395.     STRING020 = "Y"
  396.     If (INTEGER001 >= 1) Goto LABEL005
  397.     STRING020 = "N"
  398.     Goto LABEL006
  399.     :LABEL005
  400.     STRING014 = " "
  401.     STRING015 = " "
  402.     STRING016 = " "
  403.     If (ReadLine(STRING072, 6) > U_Sec) STRING014 = "■"
  404.     If (ReadLine(STRING072, 9) > U_Sec) STRING015 = "■"
  405.     If (ReadLine(STRING072, 12) > U_Sec) STRING016 = "■"
  406.     If (Len(STRING017) + Len(STRING021) == 19) STRING024 = ""
  407.     If (Len(STRING017) + Len(STRING021) == 18) STRING024 = " "
  408.     If (Len(STRING017) + Len(STRING021) == 17) STRING024 = "  "
  409.     If (Len(STRING017) + Len(STRING021) == 16) STRING024 = "   "
  410.     If (Len(STRING017) + Len(STRING021) == 15) STRING024 = "    "
  411.     If (Len(STRING017) + Len(STRING021) == 14) STRING024 = "     "
  412.     If (Len(STRING017) + Len(STRING021) == 13) STRING024 = "      "
  413.     If (Len(STRING017) + Len(STRING021) == 12) STRING024 = "       "
  414.     If (Len(STRING017) + Len(STRING021) == 11) STRING024 = "        "
  415.     If (Len(STRING017) + Len(STRING021) == 10) STRING024 = "         "
  416.     If (Len(STRING017) + Len(STRING021) == 9) STRING024 = "          "
  417.     If (Len(STRING017) + Len(STRING021) == 8) STRING024 = "           "
  418.     If (Len(STRING017) + Len(STRING021) == 7) STRING024 = "            "
  419.     If (Len(STRING017) + Len(STRING021) == 6) STRING024 = "             "
  420.     If (Len(STRING017) + Len(STRING021) == 5) STRING024 = "              "
  421.     If (Len(STRING017) + Len(STRING021) == 4) STRING024 = "               "
  422.     If (Len(STRING017) + Len(STRING021) == 3) STRING024 = "                "
  423.     If (Len(STRING017) + Len(STRING021) == 2) STRING024 = "                 "
  424.     If (Len(STRING017) + Len(STRING021) == 1) STRING024 = "                  "
  425.     If (Len(STRING017) + Len(STRING021) == 0) STRING024 = "                   "
  426.     If (Len(STRING018) + Len(STRING022) == 19) STRING025 = ""
  427.     If (Len(STRING018) + Len(STRING022) == 18) STRING025 = " "
  428.     If (Len(STRING018) + Len(STRING022) == 17) STRING025 = "  "
  429.     If (Len(STRING018) + Len(STRING022) == 16) STRING025 = "   "
  430.     If (Len(STRING018) + Len(STRING022) == 15) STRING025 = "    "
  431.     If (Len(STRING018) + Len(STRING022) == 14) STRING025 = "     "
  432.     If (Len(STRING018) + Len(STRING022) == 13) STRING025 = "      "
  433.     If (Len(STRING018) + Len(STRING022) == 12) STRING025 = "       "
  434.     If (Len(STRING018) + Len(STRING022) == 11) STRING025 = "        "
  435.     If (Len(STRING018) + Len(STRING022) == 10) STRING025 = "         "
  436.     If (Len(STRING018) + Len(STRING022) == 9) STRING025 = "          "
  437.     If (Len(STRING018) + Len(STRING022) == 8) STRING025 = "           "
  438.     If (Len(STRING018) + Len(STRING022) == 7) STRING025 = "            "
  439.     If (Len(STRING018) + Len(STRING022) == 6) STRING025 = "             "
  440.     If (Len(STRING018) + Len(STRING022) == 5) STRING025 = "              "
  441.     If (Len(STRING018) + Len(STRING022) == 4) STRING025 = "               "
  442.     If (Len(STRING018) + Len(STRING022) == 3) STRING025 = "                "
  443.     If (Len(STRING018) + Len(STRING022) == 2) STRING025 = "                 "
  444.     If (Len(STRING018) + Len(STRING022) == 1) STRING025 = "                  "
  445.     If (Len(STRING018) + Len(STRING022) == 0) STRING025 = "                   "
  446.     If (Len(STRING019) + Len(STRING023) == 19) STRING026 = ""
  447.     If (Len(STRING019) + Len(STRING023) == 18) STRING026 = " "
  448.     If (Len(STRING019) + Len(STRING023) == 17) STRING026 = "  "
  449.     If (Len(STRING019) + Len(STRING023) == 16) STRING026 = "   "
  450.     If (Len(STRING019) + Len(STRING023) == 15) STRING026 = "    "
  451.     If (Len(STRING019) + Len(STRING023) == 14) STRING026 = "     "
  452.     If (Len(STRING019) + Len(STRING023) == 13) STRING026 = "      "
  453.     If (Len(STRING019) + Len(STRING023) == 12) STRING026 = "       "
  454.     If (Len(STRING019) + Len(STRING023) == 11) STRING026 = "        "
  455.     If (Len(STRING019) + Len(STRING023) == 10) STRING026 = "         "
  456.     If (Len(STRING019) + Len(STRING023) == 9) STRING026 = "          "
  457.     If (Len(STRING019) + Len(STRING023) == 8) STRING026 = "           "
  458.     If (Len(STRING019) + Len(STRING023) == 7) STRING026 = "            "
  459.     If (Len(STRING019) + Len(STRING023) == 6) STRING026 = "             "
  460.     If (Len(STRING019) + Len(STRING023) == 5) STRING026 = "              "
  461.     If (Len(STRING019) + Len(STRING023) == 4) STRING026 = "               "
  462.     If (Len(STRING019) + Len(STRING023) == 3) STRING026 = "                "
  463.     If (Len(STRING019) + Len(STRING023) == 2) STRING026 = "                 "
  464.     If (Len(STRING019) + Len(STRING023) == 1) STRING026 = "                  "
  465.     If (Len(STRING019) + Len(STRING023) == 0) STRING026 = "                   "
  466.     :LABEL006
  467.     Cls
  468.     If (STRING078 == "Y") Then
  469.         PrintLn STRING002, " ┌───────────────────────────────────────────────────────────────────────────", STRING003, "┐ @X07"
  470.         PrintLn STRING002, " │ ", STRING004, "@SYSDATE@             ", STRING005, STRING068, STRING067, " ", STRING004, "@POS:69@", STRING008, " ", STRING003, "│ @X07"
  471.         PrintLn STRING002, " └", STRING003, "───────────────────────────────────────────────────────────────────────────┘ @X07"
  472.     Else
  473.         PrintLn STRING002, " ┌───────────────────────────────────────────────────────────────────────────", STRING003, "┐ @X07"
  474.         PrintLn STRING002, " │ ", STRING004, "@SYSDATE@    <", STRING082, ">    ", STRING005, "MainMenu v", STRING013, " ", STRING004, "@POS:69@", STRING008, " ", STRING003, "│ @X07"
  475.         PrintLn STRING002, " └", STRING003, "───────────────────────────────────────────────────────────────────────────┘ @X07"
  476.     Endif
  477.     PrintLn STRING002, "       ■ ", STRING004, "Means the Command is unavailable at your current security level       @X07"
  478.     PrintLn STRING002, " ┌───────────────────────", STRING003, "┐ ", STRING002, "┌───────────────────────", STRING003, "┐ ", STRING002, "┌───────────────────────", STRING003, "┐ @X07"
  479.     PrintLn STRING002, " │", STRING006, STRING027, " J ", STRING007, "Join a Conference  ", STRING003, "│ ", STRING002, "│", STRING006, STRING037, " D ", STRING007, "Download a File    ", STRING003, "│ ", STRING002, "│", STRING006, STRING047, " I ", STRING007, "Initial Logon Scrn ", STRING003, "│ @X07"
  480.     PrintLn STRING002, " │", STRING006, STRING028, " A ", STRING007, "Abandon Conference ", STRING003, "│ ", STRING002, "│", STRING006, STRING038, "DB ", STRING007, "Download In Batch  ", STRING003, "│ ", STRING002, "│", STRING006, STRING048, " M ", STRING007, "Mode Graphics      ", STRING003, "│ @X07"
  481.     PrintLn STRING002, " │", STRING006, STRING029, " C ", STRING007, "Comment To SysOp   ", STRING003, "│ ", STRING002, "│", STRING006, STRING039, " U ", STRING007, "Upload a File      ", STRING003, "│ ", STRING002, "│", STRING006, STRING049, " O ", STRING007, "Operator Page      ", STRING003, "│ @X07"
  482.     PrintLn STRING002, " │", STRING006, STRING030, " E ", STRING007, "Enter a Message    ", STRING003, "│ ", STRING002, "│", STRING006, STRING038, "UB ", STRING007, "Upload In Batch    ", STRING003, "│ ", STRING002, "│", STRING006, STRING050, " V ", STRING007, "View Your Settings ", STRING003, "│ @X07"
  483.     PrintLn STRING002, " │", STRING006, STRING031, " K ", STRING007, "Kill a Message     ", STRING003, "│ ", STRING002, "│", STRING006, STRING040, " F ", STRING007, "File Directories   ", STRING003, "│ ", STRING002, "│", STRING006, STRING051, " W ", STRING007, "Write Settings     ", STRING003, "│ @X07"
  484.     PrintLn STRING002, " │", STRING006, STRING032, " R ", STRING007, "Read Messages      ", STRING003, "│ ", STRING002, "│", STRING006, STRING041, " L ", STRING007, "Locate a Filespec  ", STRING003, "│ ", STRING002, "│", STRING006, STRING052, " X ", STRING007, "eXpert Mode Toggle ", STRING003, "│ @X07"
  485.     PrintLn STRING002, " │", STRING006, STRING033, " Y ", STRING007, "Your Messages      ", STRING003, "│ ", STRING002, "│", STRING006, STRING042, " N ", STRING007, "New Files Scan     ", STRING003, "│ ", STRING002, "│", STRING006, STRING053, " OPEN ", STRING007, "a DOOR          ", STRING003, "│ @X07"
  486.     PrintLn STRING002, " │", STRING006, STRING034, " Q ", STRING007, "Quick Msg Search   ", STRING003, "│ ", STRING002, "│", STRING006, STRING043, " T ", STRING007, "Transfer Protocol  ", STRING003, "│ ", STRING002, "│", STRING006, STRING054, " USERS ", STRING007, "Listing        ", STRING003, "│ @X07"
  487.     PrintLn STRING002, " │", STRING006, STRING035, " B ", STRING007, "Bulletin Menu      ", STRING003, "│ ", STRING002, "│", STRING006, STRING044, " Z ", STRING007, "Zippy Files Scan   ", STRING003, "│ ", STRING002, "│", STRING006, STRING055, " WHO  ", STRING007, "Else Is Online  ", STRING003, "│ @X07"
  488.     PrintLn STRING002, " │", STRING006, STRING036, " P ", STRING007, "Page Screen Length ", STRING003, "│ ", STRING002, "│", STRING006, STRING045, " S ", STRING007, "Script Question'r  ", STRING003, "│ ", STRING002, "│", STRING006, STRING056, " CHAT ", STRING007, "With a User     ", STRING003, "│ @X07"
  489.     PrintLn STRING002, " │", STRING006, "  G ", STRING007, "Goodbye / Logoff   ", STRING003, "│ ", STRING002, "│", STRING006, STRING046, " H ", STRING007, "Help With Cmds     ", STRING003, "│ ", STRING002, "│", STRING006, STRING057, " TEST ", STRING007, "File Integrity  ", STRING003, "│ @X07"
  490.     If ((STRING020 == "Y") && (STRING078 == "Y")) PrintLn STRING002, " │", STRING006, STRING014, " ", STRING017, " ", STRING007, STRING021, STRING024, " ", STRING003, "│ ", STRING002, "│", STRING006, STRING015, " ", STRING018, " ", STRING007, STRING022, STRING025, " ", STRING003, "│ ", STRING002, "│", STRING006, STRING016, " ", STRING019, " ", STRING007, STRING023, STRING026, " ", STRING003, "│ @X07"
  491.     PrintLn STRING002, " └", STRING003, "───────────────────────┘ ", STRING002, "└", STRING003, "───────────────────────┘ ", STRING002, "└", STRING003, "───────────────────────┘ @X07"
  492.     If (Exist(STRING012) && (STRING078 == "Y")) DispFile STRING012, 4 + 2 + 1
  493.     End
  494.     :LABEL007
  495.     Cls
  496.     PrintLn 
  497.     PrintLn "                       @X5D┌──────────────────────────────@X50┐@X07"
  498.     PrintLn "                       @X5D│        @X5AMainMenu  v", STRING013, "       @X50│@X07"
  499.     PrintLn "                       @X5D│                              @X50│@X07"
  500.     PrintLn "                       @X5D│      @X5BAborting Operation      @X50│@X07"
  501.     PrintLn "                       @X5D│                              @X50│@X07"
  502.     PrintLn "                       @X5D│  @X5BInvalid Registration Code!  @X50│@X07"
  503.     PrintLn "                       @X5D└@X50──────────────────────────────┘@X07"
  504.     Beep
  505.     Delay 182
  506.     End
  507.  
  508. ;------------------------------------------------------------------------------
  509. ;
  510. ; Usage report (before postprocessing)
  511. ;
  512. ; ■ Statements used :
  513. ;
  514. ;    3       End
  515. ;    2       Cls
  516. ;    20      Goto 
  517. ;    282     Let 
  518. ;    30      PrintLn 
  519. ;    223     If 
  520. ;    1       DispFile 
  521. ;    3       FOpen 
  522. ;    3       FClose 
  523. ;    29      FGet 
  524. ;    1       GetUser
  525. ;    1       Delay 
  526. ;    1       Tokenize 
  527. ;    2       GetToken 
  528. ;    1       Beep
  529. ;
  530. ;
  531. ; ■ Functions used :
  532. ;
  533. ;    89      +
  534. ;    189     ==
  535. ;    35      >
  536. ;    1       >=
  537. ;    6       !
  538. ;    2       &&
  539. ;    2       ||
  540. ;    150     Len(
  541. ;    4       Left()
  542. ;    1       Right()
  543. ;    1       Random()
  544. ;    1       Time()
  545. ;    1       Hour()
  546. ;    4       String()
  547. ;    31      PCBDat()
  548. ;    2       PPEPath()
  549. ;    34      ReadLine()
  550. ;    2       Exist()
  551. ;    2       S2I()
  552. ;    17      PPEName()
  553. ;
  554. ;------------------------------------------------------------------------------
  555. ;
  556. ; Analysis flags : d
  557. ;
  558. ; d - Access PCBOARD.DAT ■ 2
  559. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  560. ;     for many PPE so they can find various informations on the system
  561. ;     (system paths, max number of lines in messages, ...) but it may also
  562. ;     be a way to gather vital informations.
  563. ;     ■ Search for : PCBDAT()
  564. ;
  565. ;------------------------------------------------------------------------------
  566. ;
  567. ; Postprocessing report
  568. ;
  569. ;    0       For/Next
  570. ;    0       While/EndWhile
  571. ;    5       If/Then or If/Then/Else
  572. ;    0       Select Case
  573. ;
  574. ;------------------------------------------------------------------------------
  575. ;                 AEGiS Corp - Break the routines, code against the machines!
  576. ;------------------------------------------------------------------------------
  577.