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