home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / TAB15.ZIP / TAB.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-01  |  21KB  |  1,030 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.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     String   STRING001
  36.     String   STRING002
  37.     String   STRING003
  38.     String   STRING004
  39.     String   STRING005
  40.     String   STRING006
  41.     String   STRING007
  42.     String   STRING008
  43.     String   STRING009
  44.     String   STRING010
  45.     String   STRING011
  46.     String   STRING012
  47.     String   STRING013
  48.     String   STRING014
  49.     String   STRING015
  50.     String   STRING016
  51.     String   STRING017
  52.     String   STRING018
  53.     String   STRING019
  54.     String   STRING020
  55.     String   STRING021
  56.     String   STRING022
  57.     String   STRING023
  58.     String   STRING024
  59.     String   STRING025
  60.     String   STRING026
  61.     String   STRING027
  62.     String   STRING028
  63.     String   STRING029
  64.     String   STRING030
  65.     String   STRING031
  66.     String   STRING032
  67.     String   STRING033
  68.     String   STRING034
  69.     String   STRING035
  70.     String   STRING036
  71.     String   STRING037
  72.     String   STRING038
  73.     String   STRING039
  74.     String   STRING040
  75.     String   STRING041
  76.     String   STRING042
  77.     String   STRING043
  78.     String   STRING044
  79.     String   STRING045
  80.     String   STRING046
  81.     String   TSTRING047(1000)
  82.     String   STRING048
  83.     String   STRING049
  84.     String   STRING050
  85.     String   STRING051
  86.     String   STRING052
  87.     String   STRING053
  88.     String   STRING054
  89.     String   STRING055
  90.     String   STRING056
  91.     String   STRING057
  92.     String   STRING058
  93.     String   STRING059
  94.     String   STRING060
  95.     String   STRING061
  96.     String   STRING062
  97.     String   STRING063
  98.     String   STRING064
  99.  
  100. ;------------------------------------------------------------------------------
  101.  
  102.     STRING001 = "1.5  (February 1, 1994)"
  103.     INTEGER001 = 34365
  104.     INTEGER002 = 21220
  105.     INTEGER003 = INTEGER001 + 90
  106.     INTEGER005 = 1
  107.     STRING002 = Chr(85) + Chr(78) + Chr(82) + Chr(69) + Chr(71) + Chr(73) + Chr(83) + Chr(84) + Chr(69) + Chr(82) + Chr(69) + Chr(68)
  108.     INTEGER015 = 1
  109.     INTEGER009 = 1
  110.     INTEGER016 = 1
  111.     STRING048 = Chr(13)
  112.     STRING054 = 256
  113.     STRING056 = "RIMSHQ1234567890"
  114.     STRING057 = "N"
  115.     STRING059 = "RAEDHQ"
  116.     STRING060 = "N"
  117.     STRING062 = "RVAHQ"
  118.     STRING063 = "N"
  119.     GetUser
  120.     STRING049 = GetToken()
  121.     STRING049 = Upper(Trim(STRING049, " "))
  122.     If (INTEGER005 <> 0) Then
  123.         INTEGER006 = FileInf(PPEPath() + PPEName() + ".PPE", 2)
  124.         INTEGER004 = Date()
  125.         If (Len(Trim(STRING002, " ")) <> 12) Goto LABEL008
  126.         If (INTEGER004 > INTEGER003) Goto LABEL009
  127.         If (INTEGER004 + 3 == INTEGER003) Then
  128.             Newline
  129.             PrintLn "@X0CThis copy of TAB expires in @X8C3@X0C days!@X07"
  130.             Log "──── This copy of TAB expires in 3 days", 1
  131.             Log "──── Call Whitewater Systems - 312-743-4912 to", 1
  132.             Log "──── obtain a newer version", 1
  133.         ElseIf (INTEGER004 == INTEGER003) Then
  134.             Newline
  135.             PrintLn "@X0CThis copy of TAB expires after today!@X07"
  136.             Log "──── This copy of TAB expires after today!", 1
  137.             Log "──── Call Whitewater Systems - 312-743-4912 to", 1
  138.             Log "──── obtain a newer version", 1
  139.         Endif
  140.         If (INTEGER001 <> 0) Then
  141.             If (INTEGER006 <> INTEGER001) Then
  142.             Else
  143.             Endif
  144.             If (FileInf(PPEPath() + PPEName() + ".PPE", 4) <> INTEGER002) Then
  145.             Else
  146.             Endif
  147.             Gosub LABEL003
  148.             If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Goto LABEL001
  149.             FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  150.             FClose 1
  151.             :LABEL001
  152.             Gosub LABEL002
  153.             If (INTEGER016 <> 0) Then
  154.                 Newline
  155.                 PrintLn "@X07[@X0CThis version of TAB is " + STRING002 + "@X07]"
  156.                 PrintLn "@X07[@X0ACall Whitewater Systems to register - 312-743-4912@X07]"
  157.                 Log "(" + STRING002 + " version of TAB)", 0
  158.                 Delay 6 * 18.2
  159.             Endif
  160.             Newline
  161.             If (STRING049 == "MAINT") Then
  162.                 If (Exist(STRING006)) DispFile STRING006, 4
  163.                 Gosub LABEL018
  164.                 Gosub LABEL019
  165.             Endif
  166.             If (STRING049 == "INTERNET") Gosub LABEL011
  167.             If (STRING049 == "INFO") Gosub LABEL010
  168.             Goto LABEL027
  169.             :LABEL002
  170.             STRING064 = ""
  171.             STRING064 = Chr(52) + String(Len(STRING004) - 2)
  172.             STRING064 = STRING064 + "7" + String(Len(STRING004) - 9)
  173.             STRING064 = STRING064 + "1" + String(Len(STRING004) - 6)
  174.             STRING064 = STRING064 + Chr(45) + Chr(50) + String(Len(STRING003) - 5) + Chr(49)
  175.             If (Trim(STRING004, " ") <> Trim(Mid(ReadLine(PCBDat(), 94), 1, Len(STRING004)), " ")) Then
  176.                 INTEGER016 = 1
  177.             ElseIf (STRING005 <> STRING064) Then
  178.                 INTEGER016 = 1
  179.             ElseIf (STRING005 == STRING064) Then
  180.                 INTEGER016 = 0
  181.             Endif
  182.             Return
  183.             :LABEL003
  184.             INTEGER007 = 0
  185.             If (Exist(PPEPath() + "TAB.CFG")) Then
  186.                 FOpen 1, PPEPath() + "TAB.CFG", 0, 0
  187.                 FGet 1, STRING003
  188.                 FGet 1, STRING004
  189.                 FGet 1, STRING005
  190.                 FGet 1, STRING006
  191.                 FGet 1, STRING007
  192.                 FGet 1, STRING008
  193.                 FGet 1, STRING009
  194.                 FGet 1, STRING010
  195.                 FGet 1, STRING011
  196.                 FGet 1, STRING012
  197.                 FGet 1, STRING013
  198.                 FGet 1, STRING014
  199.                 FGet 1, STRING015
  200.                 FGet 1, STRING016
  201.                 FGet 1, STRING017
  202.                 FGet 1, STRING018
  203.                 FGet 1, STRING019
  204.                 FClose 1
  205.                 STRING003 = Upper(Trim(STRING003, " "))
  206.                 STRING006 = RTrim(PPEPath(), "\") + "\" + Upper(Trim(STRING006, " "))
  207.                 STRING007 = RTrim(PPEPath(), "\") + "\" + Upper(Trim(STRING007, " "))
  208.                 STRING008 = RTrim(PPEPath(), "\") + "\" + Upper(Trim(STRING008, " "))
  209.                 STRING009 = RTrim(PPEPath(), "\") + "\" + Upper(Trim(STRING009, " "))
  210.                 STRING010 = RTrim(Upper(Trim(STRING010, " ")), "\")
  211.                 STRING012 = Upper(Trim(STRING012, " "))
  212.             Else
  213.                 Newlines 2
  214.                 PrintLn "@X0CConfiguration file not found! Please Notify Sysop!"
  215.                 Newlines 2
  216.                 Wait
  217.                 KbdStuff STRING048
  218.                 Log "Error: *TAB* TAB.CFG Configuration file not found!", 0
  219.                 Goto LABEL027
  220.             Endif
  221.             If ((STRING014 == 1) || (INTEGER016 == 1)) Log "*TAB* Executed at " + Left(Time(), 5) , 0
  222.             If (Exist(STRING009)) Then
  223.                 FOpen 1, STRING009, 0, 0
  224.                 FGet 1, STRING020
  225.                 FGet 1, STRING021
  226.                 FGet 1, STRING022
  227.                 FGet 1, STRING023
  228.                 FGet 1, STRING024
  229.                 FGet 1, STRING025
  230.                 FGet 1, STRING026
  231.                 FGet 1, STRING027
  232.                 FGet 1, STRING028
  233.                 FGet 1, STRING029
  234.                 FGet 1, STRING030
  235.                 FGet 1, STRING031
  236.                 FGet 1, STRING032
  237.                 FGet 1, STRING033
  238.                 FGet 1, STRING034
  239.                 FGet 1, STRING035
  240.                 FGet 1, STRING036
  241.                 FClose 1
  242.             Else
  243.                 Newlines 2
  244.                 PrintLn "@X0CConfiguration file not found! Please Notify Sysop!"
  245.                 Newlines 2
  246.                 Wait
  247.                 KbdStuff STRING048
  248.                 Log "Error: *TAB* " + STRING009 + " not found!", 0
  249.                 Goto LABEL027
  250.             Endif
  251.             INTEGER014 = 0
  252.             If (Exist(PPEPath() + "TAB.DAT")) Then
  253.                 FOpen 1, PPEPath() + "TAB.DAT", 0, 0
  254.                 INTEGER008 = 1
  255.                 :LABEL004
  256.                 If (Ferr(1)) Goto LABEL005
  257.                 STRING053 = ""
  258.                 FGet 1, STRING053
  259.                 If (Upper(Trim(STRING053, " ")) == Upper(Trim(U_Name(), " "))) Then
  260.                     INTEGER014 = INTEGER008
  261.                 Endif
  262.                 Inc INTEGER008
  263.                 Goto LABEL004
  264.                 :LABEL005
  265.                 INTEGER008 = INTEGER008 - 1
  266.                 FClose 1
  267.                 If (INTEGER014 == 0) Then
  268.                     INTEGER014 = INTEGER008
  269.                     FAppend 1, PPEPath() + "TAB.DAT", 2, 3
  270.                     FPutLn 1, Upper(Trim(U_Name(), " "))
  271.                     FClose 1
  272.                     STRING037 = Upper(Trim(U_Name(), " "))
  273.                     STRING038 = String(U_RecNum(STRING037))
  274.                     STRING039 = "1"
  275.                     STRING040 = "1"
  276.                     STRING041 = "-1"
  277.                     STRING042 = "-1"
  278.                     STRING043 = "-1"
  279.                     STRING044 = "-1"
  280.                     STRING045 = "-1"
  281.                     STRING046 = "-1"
  282.                     INTEGER007 = 0
  283.                     If (Exist(STRING010 + "\" + String(INTEGER014) + ".DAT")) Delete STRING010 + "\" + INTEGER014 + ".DAT"
  284.                     If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Delete STRING010 + "\" + INTEGER014 + ".INT"
  285.                     FCreate 1, STRING010 + "\" + String(INTEGER014) + ".DAT", 1, 0
  286.                     FPutLn 1, STRING037
  287.                     FPutLn 1, STRING038
  288.                     FPutLn 1, STRING039
  289.                     FPutLn 1, STRING040
  290.                     FPutLn 1, STRING041
  291.                     FPutLn 1, STRING042
  292.                     FPutLn 1, STRING043
  293.                     FPutLn 1, STRING044
  294.                     FPutLn 1, STRING045
  295.                     FPutLn 1, STRING046
  296.                     FClose 1
  297.                     FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  298.                     FClose 1
  299.                 ElseIf (INTEGER014 <> 0) Then
  300.                     If (Exist(STRING010 + "\" + String(INTEGER014) + ".DAT")) Then
  301.                         FOpen 1, STRING010 + "\" + String(INTEGER014) + ".DAT", 0, 0
  302.                         FGet 1, STRING037
  303.                         FGet 1, STRING038
  304.                         FGet 1, STRING039
  305.                         FGet 1, STRING040
  306.                         FGet 1, STRING041
  307.                         FGet 1, STRING042
  308.                         FGet 1, STRING043
  309.                         FGet 1, STRING044
  310.                         FGet 1, STRING045
  311.                         FGet 1, STRING046
  312.                         FClose 1
  313.                         If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Then
  314.                             FOpen 1, STRING010 + "\" + String(INTEGER014) + ".INT", 0, 0
  315.                             INTEGER008 = 1
  316.                             While (!Ferr(1) || (INTEGER008 <= STRING016)) Do
  317.                                 FGet 1, TSTRING047(INTEGER008)
  318.                                 If (Trim(TSTRING047(INTEGER008), " ") <> "") Then
  319.                                     INTEGER007 = INTEGER008
  320.                                 Endif
  321.                                 Inc INTEGER008
  322.                             EndWhile
  323.                             FClose 1
  324.                             Goto LABEL006
  325.                         Endif
  326.                         FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  327.                         FClose 1
  328.                         :LABEL006
  329.                         Goto LABEL007
  330.                     Endif
  331.                     STRING037 = Upper(Trim(U_Name(), " "))
  332.                     STRING038 = String(U_RecNum(STRING037))
  333.                     STRING039 = "1"
  334.                     STRING040 = "1"
  335.                     STRING041 = "-1"
  336.                     STRING042 = "-1"
  337.                     STRING043 = "-1"
  338.                     STRING044 = "-1"
  339.                     STRING045 = "-1"
  340.                     STRING046 = "-1"
  341.                     INTEGER007 = 0
  342.                     If (Exist(STRING010 + "\" + String(INTEGER014) + ".DAT")) Delete STRING010 + "\" + INTEGER014 + ".DAT"
  343.                     If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Delete STRING010 + "\" + INTEGER014 + ".INT"
  344.                     FCreate 1, STRING010 + "\" + String(INTEGER014) + ".DAT", 1, 0
  345.                     FPutLn 1, STRING037
  346.                     FPutLn 1, STRING038
  347.                     FPutLn 1, STRING039
  348.                     FPutLn 1, STRING040
  349.                     FPutLn 1, STRING041
  350.                     FPutLn 1, STRING042
  351.                     FPutLn 1, STRING043
  352.                     FPutLn 1, STRING044
  353.                     FPutLn 1, STRING045
  354.                     FPutLn 1, STRING046
  355.                     FClose 1
  356.                     FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  357.                     FClose 1
  358.                 Endif
  359.                 :LABEL007
  360.             Else
  361.                 If ((STRING014 == 1) || (INTEGER016 == 1)) Log "Creating a new data file (TAB.DAT)", 0
  362.                 FCreate 1, PPEPath() + "TAB.DAT", 1, 0
  363.                 INTEGER014 = 1
  364.                 FPutLn 1, Upper(Trim(U_Name(), " "))
  365.                 FClose 1
  366.                 STRING037 = Upper(Trim(U_Name(), " "))
  367.                 STRING038 = String(U_RecNum(STRING037))
  368.                 STRING039 = "1"
  369.                 STRING040 = "1"
  370.                 STRING041 = "-1"
  371.                 STRING042 = "-1"
  372.                 STRING043 = "-1"
  373.                 STRING044 = "-1"
  374.                 STRING045 = "-1"
  375.                 STRING046 = "-1"
  376.                 If (Exist(STRING010 + "\" + String(INTEGER014) + ".DAT")) Delete STRING010 + "\" + INTEGER014 + ".DAT"
  377.                 If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Delete STRING010 + "\" + INTEGER014 + ".INT"
  378.                 FCreate 1, STRING010 + "\" + String(INTEGER014) + ".DAT", 1, 0
  379.                 FPutLn 1, STRING037
  380.                 FPutLn 1, STRING038
  381.                 FPutLn 1, STRING039
  382.                 FPutLn 1, STRING040
  383.                 FPutLn 1, STRING041
  384.                 FPutLn 1, STRING042
  385.                 FPutLn 1, STRING043
  386.                 FPutLn 1, STRING044
  387.                 FPutLn 1, STRING045
  388.                 FPutLn 1, STRING046
  389.                 FClose 1
  390.                 FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  391.                 FClose 1
  392.             Endif
  393.             Return
  394.         Endif
  395.     Endif
  396.     :LABEL008
  397.     Cls
  398.     Beep
  399.     Newlines 2
  400.     PrintLn "@X07[@X0CTAB is (c) Copyrighted Software by Whitewater Technologies, Inc.@X07]"
  401.     PrintLn "@X07[@X0FWhitewater Systems - 312-743-4912@X07]"
  402.     Newline
  403.     PrintLn "@X07[@X0CTAB's authentic seal has been altered!@X07]"
  404.     PrintLn "@X07[@X07Please call Whitewater Systems and download the newest release@X07]"
  405.     Log "*TAB* Seal has been ALTERED", 0
  406.     Newline
  407.     Goto LABEL027
  408.     :LABEL009
  409.     Newline
  410.     PrintLn "@X07[@X0CThis version of TAB has expired@X07]"
  411.     PrintLn "@X07[@X07Please tell the Sysop to obtain a newer version@X07]"
  412.     Newline
  413.     Log "TAB This copy of TAB has EXPIRED!", 1
  414.     Log "TAB Call Whitewater Systems to obtain a newer version", 1
  415.     Goto LABEL027
  416.     :LABEL010
  417.     If ((STRING014 == 1) || (INTEGER016 == 1)) Log "(TAB INFO) Information Viewed", 0
  418.     Newline
  419.     If (Exist(STRING008)) DispFile STRING008, 4
  420.     PrintLn " @X08[@X0C■@X08] @X07TAB Version: v" + STRING001
  421.     PrintLn " @X08[@X0C■@X08] @X07Your TAB User Record # is: @X0A" + String(INTEGER014) + "@X07"
  422.     Print " @X08[@X071@X08] @X07You can store a maximum of @X0A" + STRING016 + "@X07 "
  423.     If (Len(STRING016) < 2) PrintLn "entry in your address book"
  424.     If (Len(STRING016) >= 2) PrintLn "entries in your address book"
  425.     If (INTEGER007 == 0) PrintLn " @X08[@X072@X08] @X07Your address book is currently empty"
  426.     If (INTEGER007 == 1) PrintLn " @X08[@X072@X08] @X07You currently have @X0A" + String(INTEGER007) + "@X07 entry in your address book"
  427.     If (INTEGER007 > 1) PrintLn " @X08[@X072@X08] @X07You currently have @X0A" + String(INTEGER007) + "@X07 entries in your address book"
  428.     If (STRING039 == "1") PrintLn " @X08[@X073@X08] @X07Auto Record Mode is @X0AON@X07"
  429.     If (STRING039 == "0") PrintLn " @X08[@X073@X08] @X07Auto Record Mode is @X0AOFF@X07"
  430.     PrintLn " @X08[@X074@X08] @X07Addresses/Names entered will automatically be recorded if the"
  431.     PrintLn "     @X07length is greater than @X0A" + STRING015 + "@X07 characters and Auto-Record is ON"
  432.     If (STRING040 == "1") PrintLn " @X08[@X075@X08] @X07Descriptions will be displayed when viewing your address book"
  433.     If (STRING040 == "0") PrintLn " @X08[@X075@X08] @X07Descriptions will @X0Anot@X07 be displayed when viewing your address book"
  434.     If (INTEGER016 == 0) PrintLn " @X08[@X076@X08] @X07TAB is Registered to @X0F" + Mid(STRING004, 1, 50) + "@X07"
  435.     If (INTEGER016 == 1) PrintLn " @X08[@X076@X08] @X07This version of TAB is @X0C" + STRING002 + "@X07"
  436.     If (CurSec() >= SysopSec()) Then
  437.         Newline
  438.         More
  439.         PrintLn "@X08[@X0CSysop Info Area - " + PPEName() + ".CFG@X08]@X07"
  440.         Newline
  441.         PrintLn " @X0FSysop Name@X08 ·············@X07: @X07" + STRING003
  442.         PrintLn " @X0FBBS Name@X08 ···············@X07: @X07" + STRING004
  443.         PrintLn " @X0FWelcome filename@X08 ·······@X07: @X07" + STRING006
  444.         PrintLn " @X0FHeader filename@X08 ········@X07: @X07" + STRING007
  445.         PrintLn " @X0FInfo Header filename@X08 ···@X07: @X07" + STRING008
  446.         PrintLn " @X0FTAB Text filename@X08 ······@X07: @X07" + STRING009
  447.         PrintLn " @X0FUser Data Path@X08 ·········@X07: @X07" + STRING010
  448.         PrintLn " @X0FLowSec to access TAB@X08 ···@X07: @X07" + STRING011
  449.         PrintLn " @X0FHighSec to access TAB@X08 ··@X07: @X07" + STRING012
  450.         Print " @X0FLog user actions@X08 ·······@X07: @X07"
  451.         If (STRING014 == 1) PrintLn "YES"
  452.         If (STRING014 == 0) PrintLn "NO"
  453.         PrintLn " @X0FMin. Stored Addr. Length@X07: @X07" + STRING015
  454.         Newline
  455.         More
  456.         PrintLn " @X08[@X0CSysop Info Area - Prompt file @X0F" + STRING009 + "@X08]@X07"
  457.         Newline
  458.         PrintLn " @X08[@X071@X08]  @X07" + STRING020
  459.         PrintLn " @X08[@X072@X08]  @X07" + STRING021
  460.         PrintLn " @X08[@X073@X08]  @X07" + STRING022
  461.         PrintLn " @X08[@X074@X08]  @X07" + STRING023
  462.         PrintLn " @X08[@X075@X08]  @X07" + STRING024
  463.         PrintLn " @X08[@X076@X08]  @X07" + STRING025
  464.         PrintLn " @X08[@X077@X08]  @X07" + STRING026
  465.         PrintLn " @X08[@X078@X08]  @X07" + STRING027
  466.         PrintLn " @X08[@X079@X08]  @X07" + STRING028
  467.         PrintLn " @X08[@X0710@X08] @X07" + STRING029
  468.         PrintLn " @X08[@X0711@X08] @X07" + STRING030
  469.         PrintLn " @X08[@X0712@X08] @X07" + STRING031
  470.         PrintLn " @X08[@X0713@X08] @X07" + STRING032
  471.         PrintLn " @X08[@X0714@X08] @X07" + STRING033
  472.         PrintLn " @X08[@X0715@X08] @X07" + STRING034
  473.         PrintLn " @X08[@X0716@X08] @X07" + STRING035
  474.         PrintLn " @X08[@X0717@X08] @X07" + STRING036
  475.     Endif
  476.     Newline
  477.     Wait
  478.     Return
  479.     :LABEL011
  480.     STRING050 = ""
  481.     STRING051 = ""
  482.     If (CurSec() < STRING011) Then
  483.         Gosub LABEL017
  484.     ElseIf (STRING012 <> "NONE") Then
  485.         If (((CurSec() <= STRING012) && (CurSec() >= STRING011)) || (CurSec() >= SysopSec())) Then
  486.             If (Exist(PPEPath() + "PREENTER")) DispFile PPEPath() + "PREENTER", 4
  487.             If (Exist(PPEPath() + "ENTER")) DispFile PPEPath() + "ENTER", 4
  488.             If (INTEGER007 == 0) Gosub LABEL015
  489.             If (INTEGER007 > 0) Gosub LABEL012
  490.         Endif
  491.     ElseIf (STRING012 == "NONE") Then
  492.         If (CurSec() >= STRING011) Then
  493.             If (Exist(PPEPath() + "PREENTER")) DispFile PPEPath() + "PREENTER", 4
  494.             If (Exist(PPEPath() + "ENTER")) DispFile PPEPath() + "ENTER", 4
  495.             If (INTEGER007 == 0) Gosub LABEL015
  496.             If (INTEGER007 > 0) Gosub LABEL012
  497.         Endif
  498.     Endif
  499.     Return
  500.     :LABEL012
  501.     STRING050 = ""
  502.     INTEGER015 = 1
  503.     InputStr STRING020, STRING050, 7, 120, Mask_Ascii(), 32
  504.     STRING050 = Trim(STRING050, " ")
  505.     INTEGER008 = 1
  506.     If (Mid(STRING050, 1, 1) <> "/") Then
  507.         For INTEGER008 = 1 To INTEGER007
  508.             If (Upper(Trim(Mid(TSTRING047(INTEGER008), 1, 45), " ")) == Upper(STRING050)) Then
  509.                 INTEGER015 = 0
  510.             Endif
  511.         Next
  512.         If (((INTEGER015 == 1) && (Len(STRING050) >= STRING015)) && (STRING039 == "1")) Then
  513.             FAppend 1, STRING010 + "\" + String(INTEGER014) + ".INT", 2, 3
  514.             FPutLn 1, STRING050
  515.             FClose 1
  516.         Endif
  517.     Endif
  518.     If (STRING050 == "") Then
  519.         INTEGER009 = 1
  520.         Gosub LABEL018
  521.         Gosub LABEL019
  522.     ElseIf (STRING050 <> "") Then
  523.         Goto LABEL013
  524.     Endif
  525.     Return
  526.     :LABEL013
  527.     STRING050 = Trim(STRING050, " ")
  528.     If (Mid(STRING050, 1, 1) == "/") Then
  529.         If (Trim(Mid(TSTRING047(Trim(Mid(STRING050, 2, 15), " ")), 1, 45), " ") == "") Then
  530.             INTEGER008 = 1
  531.             INTEGER009 = 1
  532.             PrintLn "@X0CRecord #@X0F" + Trim(Mid(STRING050, 2, 15), " ") + "@X0C not found.@X07"
  533.             Newline
  534.             Goto LABEL012
  535.         Else
  536.             STRING050 = Trim(Mid(TSTRING047(Mid(STRING050, 2, 10)), 1, 45), " ")
  537.         Endif
  538.     Else
  539.         STRING050 = Trim(STRING050, " ")
  540.     Endif
  541.     PrintLn STRING020 + "? @X07" + Trim(STRING050, " ")
  542.     STRING051 = ""
  543.     INTEGER013 = GetY()
  544.     InputStr STRING022, STRING051, 7, 52, Mask_Ascii(), STRING054 + 2 + 8
  545.     STRING051 = Trim(STRING051, " ")
  546.     If (STRING051 <> "") Then
  547.         AnsiPos 1, INTEGER013 - 2
  548.         PrintLn "@CLREOL@"
  549.         PrintLn "@CLREOL@"
  550.         PrintLn "@CLREOL@"
  551.         KbdStuff "E" + STRING048 + Trim(STRING050, " ") + STRING048 + STRING051 + STRING048
  552.     ElseIf (STRING051 == "") Then
  553.         Newline
  554.         If ((STRING014 == 1) || (INTEGER016 == 1)) Then
  555.             DispText 404 + "@CLREOL@", 256 + 32768
  556.             Goto LABEL014
  557.         Endif
  558.         DispText 404 + "@CLREOL@", 256
  559.     Endif
  560.     :LABEL014
  561.     Goto LABEL027
  562.     :LABEL015
  563.     InputStr STRING021, STRING050, 7, 120, Mask_Ascii(), STRING054 + 32
  564.     STRING050 = Trim(STRING050, " ")
  565.     If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Goto LABEL016
  566.     FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  567.     FClose 1
  568.     :LABEL016
  569.     If (((STRING050 <> "") && (Len(STRING050) >= STRING015)) && (INTEGER007 < STRING016)) Then
  570.         FAppend 1, STRING010 + "\" + String(INTEGER014) + ".INT", 2, 3
  571.         FPutLn 1, STRING050
  572.         FClose 1
  573.         KbdStuff "E" + STRING048 + STRING050 + STRING048
  574.     ElseIf ((STRING050 <> "") && (Len(STRING050) < STRING015)) Then
  575.         KbdStuff "E" + STRING048 + STRING050 + STRING048
  576.     ElseIf (STRING050 == "") Then
  577.         DispText 404 + "@CLREOL@", 256 + 32768
  578.     Endif
  579.     Return
  580.     :LABEL017
  581.     KbdStuff "E" + STRING048
  582.     Return
  583.     :LABEL018
  584.     INTEGER011 = 1
  585.     StartDisp 1
  586.     Cls
  587.     If (Exist(STRING007)) DispFile STRING007, 1
  588.     While ((INTEGER011 <> 0) && (Trim(Mid(TSTRING047(INTEGER011), 1, 45), " ") <> "")) Do
  589.         INTEGER012 = GetX()
  590.         INTEGER013 = GetY()
  591.         Select Case (STRING040)
  592.             Case "1"
  593.                 For INTEGER011 = INTEGER013 To 22
  594.                     STRING053 = Space(4 - Len(String(INTEGER009))) + String(INTEGER009)
  595.                     If (Trim(TSTRING047(INTEGER009), " ") <> "") Then
  596.                         OpText STRING053
  597.                         STRING053 = Trim(Mid(TSTRING047(INTEGER009), 1, 36), " ") + Space(37 - Len(Trim(Mid(TSTRING047(INTEGER009), 1, 36), " "))) + Space(31 - Len(Trim(Mid(TSTRING047(INTEGER009), 50, 30), " "))) + "@X0A" + Trim(Mid(TSTRING047(INTEGER009), 50, 30), " ")
  598.                         PrintLn "@X08 [@X0F@OPTEXT:4@@X08]@X07 - @X0E" + STRING053 + "@X07"
  599.                     Endif
  600.                     Inc INTEGER009
  601.                 Next
  602.             Case "0"
  603.                 For INTEGER011 = INTEGER013 To 22
  604.                     STRING053 = Space(4 - Len(String(INTEGER009))) + String(INTEGER009)
  605.                     If (Trim(TSTRING047(INTEGER009), " ") <> "") Then
  606.                         OpText STRING053
  607.                         STRING053 = Trim(Mid(TSTRING047(INTEGER009), 1, 45), " ")
  608.                         PrintLn "@X08 [@X0F@OPTEXT:4@@X08]@X07 - @X0E" + STRING053 + "@X07"
  609.                     Endif
  610.                     Inc INTEGER009
  611.                 Next
  612.         End Select
  613.         If (INTEGER009 <= INTEGER007) Then
  614.             STRING055 = STRING056 + STRING057
  615.             STRING058 = STRING059 + STRING060
  616.             STRING061 = STRING062 + STRING063
  617.         ElseIf (INTEGER009 > INTEGER007) Then
  618.             STRING055 = STRING056
  619.             STRING058 = STRING059
  620.             STRING061 = STRING062
  621.         Endif
  622.         INTEGER011 = 0
  623.     EndWhile
  624.     If (INTEGER007 == 0) Then
  625.         Newline
  626.         Color 10
  627.         PrintLn "             There are currently no records in your address book."
  628.         Color 7
  629.         PrintLn "              To add - Enter the MODIFY menu and type 'A <Enter>'"
  630.         Newline
  631.         STRING055 = STRING056
  632.         STRING058 = STRING059
  633.         STRING061 = STRING062
  634.     Endif
  635.     Newline
  636.     Return
  637.     :LABEL019
  638.     STRING050 = ""
  639.     InputStr STRING023, STRING050, 7, Len(String(INTEGER007)), STRING055, STRING054 + 128 + 2 + 8 + 32
  640.     STRING050 = Trim(STRING050, " ")
  641.     Select Case (STRING050)
  642.         Case "N"
  643.             Gosub LABEL018
  644.             Goto LABEL019
  645.         Case "I"
  646.             Gosub LABEL010
  647.             Goto LABEL019
  648.         Case "R"
  649.             INTEGER009 = 1
  650.             Gosub LABEL018
  651.             Goto LABEL019
  652.         Case "M"
  653.             INTEGER009 = 1
  654.             Gosub LABEL018
  655.             INTEGER009 = 1
  656.             Goto LABEL021
  657.         Case "S"
  658.             INTEGER009 = 1
  659.             Gosub LABEL018
  660.             INTEGER009 = 1
  661.             Goto LABEL026
  662.         Case "H"
  663.             INTEGER009 = 1
  664.             If (Exist(PPEPath() + STRING017)) Then
  665.                 StartDisp 2
  666.                 DispFile PPEPath() + STRING017, 1
  667.                 StartDisp 1
  668.             Else
  669.                 Newline
  670.                 PrintLn "@X0CMain HELP file missing - Please notify Sysop!"
  671.                 Newline
  672.                 Wait
  673.             Endif
  674.             Gosub LABEL018
  675.             INTEGER009 = 1
  676.             Goto LABEL019
  677.         Case "Q"
  678.             Goto LABEL027
  679.         Case ||, "6", ||, tñ⌠, tñ⌠
  680.             Newline
  681.             If (Trim(Mid(TSTRING047(STRING050), 1, 45), " ") == "") Then
  682.                 INTEGER009 = 1
  683.                 Gosub LABEL018
  684.                 Goto LABEL019
  685.                 Goto LABEL020
  686.             Endif
  687.             STRING050 = "/" + STRING050
  688.             Goto LABEL013
  689.     End Select
  690.     :LABEL020
  691.     Return
  692.     :LABEL021
  693.     STRING050 = ""
  694.     InputStr STRING024, STRING050, 7, 1, STRING058, STRING054 + 128 + 2 + 8 + 32
  695.     STRING050 = Trim(STRING050, " ")
  696.     Select Case (STRING050)
  697.         Case "Q"
  698.             INTEGER009 = 1
  699.             Gosub LABEL018
  700.             Goto LABEL019
  701.         Case "H"
  702.             INTEGER009 = 1
  703.             If (Exist(PPEPath() + STRING019)) Then
  704.                 StartDisp 2
  705.                 DispFile PPEPath() + STRING019, 1
  706.                 StartDisp 1
  707.             Else
  708.                 Newline
  709.                 PrintLn "@X0CModify HELP file missing - Please notify Sysop!"
  710.                 Newline
  711.                 Wait
  712.             Endif
  713.             Gosub LABEL018
  714.             INTEGER009 = 1
  715.             Goto LABEL021
  716.         Case "R", ""
  717.             INTEGER009 = 1
  718.             Gosub LABEL018
  719.             Goto LABEL021
  720.         Case "N"
  721.             Gosub LABEL018
  722.             Goto LABEL021
  723.         Case "A"
  724.             Gosub LABEL022
  725.             Goto LABEL021
  726.         Case "E"
  727.             Gosub LABEL024
  728.             Goto LABEL021
  729.         Case "D"
  730.             Gosub LABEL025
  731.             Goto LABEL021
  732.     End Select
  733.     Return
  734.     :LABEL022
  735.     STRING050 = ""
  736.     InputStr STRING025, STRING050, 7, 45, Mask_Ascii(), 2
  737.     STRING050 = Trim(STRING050, " ")
  738.     INTEGER010 = 1
  739.     For INTEGER010 = 1 To INTEGER007
  740.         If (Upper(Trim(Mid(TSTRING047(INTEGER010), 1, 45), " ")) == Upper(STRING050)) Then
  741.             Newline
  742.             Newline
  743.             PrintLn "@X0F" + STRING050 + "@X0C already exists in your address book."
  744.             STRING050 = ""
  745.             Newline
  746.             Wait
  747.         Endif
  748.     Next
  749.     If (STRING050 <> "") Then
  750.         STRING051 = ""
  751.         InputStr STRING026, STRING051, 7, 65, Mask_Ascii(), STRING054 + 128 + 2
  752.         STRING051 = Trim(STRING051, " ")
  753.         If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Goto LABEL023
  754.         FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  755.         FClose 1
  756.         :LABEL023
  757.         FAppend 1, STRING010 + "\" + String(INTEGER014) + ".INT", 2, 3
  758.         FPutLn 1, STRING050 + Space(49 - Len(STRING050)) + STRING051
  759.         FClose 1
  760.         Gosub LABEL003
  761.     Endif
  762.     INTEGER009 = 1
  763.     Gosub LABEL018
  764.     INTEGER009 = 1
  765.     Return
  766.     :LABEL024
  767.     STRING053 = ""
  768.     STRING050 = ""
  769.     InputStr STRING027, STRING050, 7, Len(String(INTEGER007)), Mask_Num() + "Q", 2 + 32 + 8
  770.     STRING050 = Trim(STRING050, " ")
  771.     STRING053 = STRING050
  772.     If (STRING050 > INTEGER007) Then
  773.         Newlines 2
  774.         PrintLn "@X0CRecord #@X0F" + STRING050 + "@X0C does not exist."
  775.         Newline
  776.         Wait
  777.         STRING050 = "Q"
  778.     Endif
  779.     If ((STRING050 <> "Q") && (STRING050 <> "")) Then
  780.         STRING053 = Trim(Mid(TSTRING047(STRING050), 1, 45), " ")
  781.         STRING052 = Trim(Mid(TSTRING047(STRING050), 1, 45), " ")
  782.         STRING051 = Trim(Mid(TSTRING047(STRING050), 50, 75), " ")
  783.         InputStr STRING025, STRING053, 7, 45, Mask_Ascii(), 4 + 256 + 2
  784.         If (STRING053 == "") Then
  785.             STRING053 = STRING052
  786.             PrintLn "@X0CEntry not changed. If you would like to delete this entry, select option 'D'.@X07"
  787.         Endif
  788.         InputStr STRING026, STRING051, 7, 65, Mask_Ascii(), STRING054 + 4 + 2
  789.         TSTRING047(STRING050) = Trim(STRING053, " ") + Space(49 - Len(STRING053)) + Trim(STRING051, " ")
  790.         INTEGER009 = 1
  791.         If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Delete STRING010 + "\" + INTEGER014 + ".INT"
  792.         FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  793.         For INTEGER008 = 1 To INTEGER007
  794.             FPutLn 1, TSTRING047(INTEGER008)
  795.         Next
  796.         FClose 1
  797.         Gosub LABEL003
  798.     Endif
  799.     INTEGER009 = 1
  800.     Gosub LABEL018
  801.     INTEGER009 = 1
  802.     Return
  803.     :LABEL025
  804.     STRING050 = ""
  805.     InputStr STRING028, STRING050, 7, Len(String(INTEGER007)), Mask_Num() + "Q", 2 + 8
  806.     STRING050 = Trim(STRING050, " ")
  807.     If (STRING050 > INTEGER007) Then
  808.         PrintLn "@X0CRecord #@X0F" + STRING050 + "@X0C does not exist."
  809.         Newline
  810.         Wait
  811.         STRING050 = "Q"
  812.     Endif
  813.     If ((STRING050 <> "Q") && (STRING050 <> "")) Then
  814.         STRING051 = "Y"
  815.         OpText STRING050
  816.         InputStr STRING029, STRING051, 7, 1, "YNyn", 128 + 256 + 4 + 2 + 8
  817.         STRING051 = Trim(STRING051, " ")
  818.         If (STRING051 == "Y") Then
  819.             TSTRING047(STRING050) = ""
  820.             INTEGER009 = 1
  821.             If (Exist(STRING010 + "\" + String(INTEGER014) + ".INT")) Delete STRING010 + "\" + INTEGER014 + ".INT"
  822.             FCreate 1, STRING010 + "\" + String(INTEGER014) + ".INT", 1, 0
  823.             For INTEGER008 = 1 To INTEGER007
  824.                 If (Trim(TSTRING047(INTEGER008), " ") <> "") FPutLn 1, TSTRING047(INTEGER008)
  825.             Next
  826.             FClose 1
  827.             Gosub LABEL003
  828.         Endif
  829.     Endif
  830.     INTEGER009 = 1
  831.     Gosub LABEL018
  832.     INTEGER009 = 1
  833.     Return
  834.     :LABEL026
  835.     STRING050 = ""
  836.     InputStr STRING032, STRING050, 7, 1, STRING061, STRING054 + 128 + 2 + 8 + 32
  837.     STRING050 = Trim(STRING050, " ")
  838.     Select Case (STRING050)
  839.         Case "Q"
  840.             INTEGER009 = 1
  841.             Gosub LABEL018
  842.             Goto LABEL019
  843.         Case "H"
  844.             INTEGER009 = 1
  845.             If (Exist(PPEPath() + STRING019)) Then
  846.                 StartDisp 2
  847.                 DispFile PPEPath() + STRING019, 1
  848.                 StartDisp 1
  849.             Else
  850.                 Newline
  851.                 PrintLn "@X0CSetup HELP file missing - Please notify Sysop!"
  852.                 Newline
  853.                 Wait
  854.             Endif
  855.             Gosub LABEL018
  856.             INTEGER009 = 1
  857.             Goto LABEL026
  858.         Case "R", ""
  859.             INTEGER009 = 1
  860.             Gosub LABEL018
  861.             Goto LABEL026
  862.         Case "V"
  863.             Select Case (STRING040)
  864.                 Case "1"
  865.                     Newline
  866.                     PrintLn STRING034
  867.                     Newline
  868.                     STRING040 = "0"
  869.                 Case "0"
  870.                     Newline
  871.                     PrintLn STRING033
  872.                     Newline
  873.                     STRING040 = "1"
  874.             End Select
  875.         Case "A"
  876.             Select Case (STRING039)
  877.                 Case "1"
  878.                     Newline
  879.                     PrintLn STRING036
  880.                     Newline
  881.                     STRING039 = "0"
  882.                 Case "0"
  883.                     Newline
  884.                     PrintLn STRING035
  885.                     Newline
  886.                     STRING039 = "1"
  887.             End Select
  888.         Case "N"
  889.             Gosub LABEL018
  890.             Goto LABEL026
  891.     End Select
  892.     If ((STRING050 == "V") || (STRING050 == "A")) Then
  893.         If (Exist(STRING010 + "\" + String(INTEGER014) + ".DAT")) Delete STRING010 + "\" + INTEGER014 + ".DAT"
  894.         FCreate 1, STRING010 + "\" + String(INTEGER014) + ".DAT", 1, 0
  895.         FPutLn 1, STRING037
  896.         FPutLn 1, STRING038
  897.         FPutLn 1, STRING039
  898.         FPutLn 1, STRING040
  899.         FPutLn 1, STRING041
  900.         FPutLn 1, STRING042
  901.         FPutLn 1, STRING043
  902.         FPutLn 1, STRING044
  903.         FPutLn 1, STRING045
  904.         FPutLn 1, STRING046
  905.         FClose 1
  906.         Wait
  907.         INTEGER009 = 1
  908.         Gosub LABEL018
  909.         INTEGER009 = 1
  910.         Goto LABEL026
  911.     Endif
  912.     Return
  913.     :LABEL027
  914.     If ((STRING014 == 1) || (INTEGER016 == 1)) Log "*TAB* Ended at " + Left(Time(), 5) , 0
  915.     StartDisp 2
  916.     End
  917.  
  918. ;------------------------------------------------------------------------------
  919. ;
  920. ; Usage report (before postprocessing)
  921. ;
  922. ; ■ Statements used :
  923. ;
  924. ;    1       End
  925. ;    2       Cls
  926. ;    2       More
  927. ;    10      Wait
  928. ;    2       Color 
  929. ;    182     Goto 
  930. ;    183     Let 
  931. ;    2       Print 
  932. ;    78      PrintLn 
  933. ;    138     If 
  934. ;    10      DispFile 
  935. ;    14      FCreate 
  936. ;    5       FOpen 
  937. ;    4       FAppend 
  938. ;    23      FClose 
  939. ;    46      FGet 
  940. ;    47      FPutLn 
  941. ;    8       StartDisp 
  942. ;    1       GetUser
  943. ;    9       Delete 
  944. ;    16      Log 
  945. ;    13      InputStr 
  946. ;    38      Gosub 
  947. ;    14      Return
  948. ;    1       Delay 
  949. ;    4       Inc 
  950. ;    39      Newline
  951. ;    6       Newlines 
  952. ;    3       DispText 
  953. ;    1       Beep
  954. ;    6       KbdStuff 
  955. ;    3       OpText 
  956. ;    1       AnsiPos 
  957. ;
  958. ;
  959. ; ■ Functions used :
  960. ;
  961. ;    1       *
  962. ;    312     +
  963. ;    12      -
  964. ;    75      ==
  965. ;    26      <>
  966. ;    10      <
  967. ;    9       <=
  968. ;    7       >
  969. ;    19      >=
  970. ;    97      !
  971. ;    21      &&
  972. ;    24      ||
  973. ;    20      Len(
  974. ;    19      Upper()
  975. ;    22      Mid()
  976. ;    2       Left()
  977. ;    6       Space()
  978. ;    2       Ferr()
  979. ;    17      Chr()
  980. ;    5       RTrim()
  981. ;    55      Trim()
  982. ;    1       Date()
  983. ;    2       Time()
  984. ;    6       U_Name()
  985. ;    49      String()
  986. ;    2       Mask_Num()
  987. ;    7       Mask_Ascii()
  988. ;    1       PCBDat()
  989. ;    26      PPEPath()
  990. ;    1       ReadLine()
  991. ;    2       SysopSec()
  992. ;    6       CurSec()
  993. ;    1       GetToken()
  994. ;    27      Exist()
  995. ;    1       GetX()
  996. ;    2       GetY()
  997. ;    2       FileInf()
  998. ;    3       PPEName()
  999. ;    3       U_RecNum()
  1000. ;
  1001. ;------------------------------------------------------------------------------
  1002. ;
  1003. ; Analysis flags : ds
  1004. ;
  1005. ; d - Access PCBOARD.DAT ■ 2
  1006. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1007. ;     for many PPE so they can find various informations on the system
  1008. ;     (system paths, max number of lines in messages, ...) but it may also
  1009. ;     be a way to gather vital informations.
  1010. ;     ■ Search for : PCBDAT()
  1011. ;
  1012. ; s - Sysop level access ■ 5
  1013. ;     Program is reading the sysop access level, this may be normal
  1014. ;     but still it is very suspect. It is the best way to give a user
  1015. ;     all priviledges. Check!
  1016. ;     ■ Search for : SYSOPSEC()
  1017. ;
  1018. ;------------------------------------------------------------------------------
  1019. ;
  1020. ; Postprocessing report
  1021. ;
  1022. ;    6       For/Next
  1023. ;    2       While/EndWhile
  1024. ;    57      If/Then or If/Then/Else
  1025. ;    6       Select Case
  1026. ;
  1027. ;------------------------------------------------------------------------------
  1028. ;                 AEGiS Corp - Break the routines, code against the machines!
  1029. ;------------------------------------------------------------------------------
  1030.