home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TIMZON11.ZIP / TIMEZONE.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-08-05  |  8KB  |  597 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.     String   STRING032
  52.     String   STRING033
  53.     String   STRING034
  54.     String   STRING035
  55.     String   STRING036
  56.     String   STRING037
  57.     String   STRING038
  58.     String   STRING039
  59.     String   STRING040
  60.     String   STRING041
  61.     String   STRING042
  62.     String   STRING043
  63.     String   STRING044
  64.     String   STRING045
  65.     String   STRING046
  66.     String   STRING047
  67.     String   STRING048
  68.     String   STRING049
  69.     String   STRING050
  70.     String   STRING051
  71.     String   STRING052
  72.     String   STRING053
  73.     String   STRING054
  74.     String   STRING055
  75.     String   STRING056
  76.     String   STRING057
  77.     String   STRING058
  78.     String   STRING059
  79.     String   STRING060
  80.     String   STRING061
  81.     String   STRING062
  82.     String   STRING063
  83.     String   STRING064
  84.     String   STRING065
  85.     String   STRING066
  86.     String   STRING067
  87.     String   STRING068
  88.     String   STRING069
  89.     String   STRING070
  90.     String   STRING071
  91.     String   STRING072
  92.     String   STRING073
  93.     String   STRING074
  94.     String   STRING075
  95.     String   STRING076
  96.     String   STRING077
  97.     String   STRING078
  98.     String   STRING079
  99.     String   STRING080
  100.     String   STRING081
  101.     String   STRING082
  102.     String   STRING083
  103.     String   STRING084
  104.     String   STRING085
  105.     String   STRING086
  106.     String   STRING087
  107.     String   STRING088
  108.     String   STRING089
  109.     String   STRING090
  110.     String   STRING091
  111.     String   STRING092
  112.     String   STRING093
  113.     Time     TIME001
  114.     Time     TIME002
  115.     Time     TIME003
  116.     Time     TIME004
  117.     Time     TIME005
  118.  
  119. ;------------------------------------------------------------------------------
  120.  
  121.     STRING001 = "Watkins"
  122.     STRING002 = "Cliff"
  123.     STRING003 = "1.1"
  124.     FOpen 1, PPEPath() + "TIMEZONE.CNF", 0, 0
  125.     FGet 1, INTEGER001
  126.     FGet 1, TIME004
  127.     FGet 1, TIME005
  128.     FGet 1, STRING004
  129.     FGet 1, STRING034
  130.     FGet 1, STRING064
  131.     FGet 1, STRING005
  132.     FGet 1, STRING035
  133.     FGet 1, STRING065
  134.     FGet 1, STRING006
  135.     FGet 1, STRING036
  136.     FGet 1, STRING066
  137.     FGet 1, STRING007
  138.     FGet 1, STRING037
  139.     FGet 1, STRING067
  140.     FGet 1, STRING008
  141.     FGet 1, STRING038
  142.     FGet 1, STRING068
  143.     FGet 1, STRING009
  144.     FGet 1, STRING039
  145.     FGet 1, STRING069
  146.     FGet 1, STRING010
  147.     FGet 1, STRING040
  148.     FGet 1, STRING070
  149.     FGet 1, STRING011
  150.     FGet 1, STRING041
  151.     FGet 1, STRING071
  152.     FGet 1, STRING012
  153.     FGet 1, STRING042
  154.     FGet 1, STRING072
  155.     FGet 1, STRING013
  156.     FGet 1, STRING043
  157.     FGet 1, STRING073
  158.     FGet 1, STRING014
  159.     FGet 1, STRING044
  160.     FGet 1, STRING074
  161.     FGet 1, STRING015
  162.     FGet 1, STRING045
  163.     FGet 1, STRING075
  164.     FGet 1, STRING016
  165.     FGet 1, STRING046
  166.     FGet 1, STRING076
  167.     FGet 1, STRING017
  168.     FGet 1, STRING047
  169.     FGet 1, STRING077
  170.     FGet 1, STRING018
  171.     FGet 1, STRING048
  172.     FGet 1, STRING078
  173.     FGet 1, STRING019
  174.     FGet 1, STRING049
  175.     FGet 1, STRING079
  176.     FGet 1, STRING020
  177.     FGet 1, STRING050
  178.     FGet 1, STRING080
  179.     FGet 1, STRING021
  180.     FGet 1, STRING051
  181.     FGet 1, STRING081
  182.     FGet 1, STRING022
  183.     FGet 1, STRING052
  184.     FGet 1, STRING082
  185.     FGet 1, STRING023
  186.     FGet 1, STRING053
  187.     FGet 1, STRING083
  188.     FGet 1, STRING024
  189.     FGet 1, STRING054
  190.     FGet 1, STRING084
  191.     FGet 1, STRING025
  192.     FGet 1, STRING055
  193.     FGet 1, STRING085
  194.     FGet 1, STRING026
  195.     FGet 1, STRING056
  196.     FGet 1, STRING086
  197.     FGet 1, STRING027
  198.     FGet 1, STRING057
  199.     FGet 1, STRING087
  200.     FGet 1, STRING028
  201.     FGet 1, STRING058
  202.     FGet 1, STRING088
  203.     FGet 1, STRING029
  204.     FGet 1, STRING059
  205.     FGet 1, STRING089
  206.     FGet 1, STRING030
  207.     FGet 1, STRING060
  208.     FGet 1, STRING090
  209.     FGet 1, STRING031
  210.     FGet 1, STRING061
  211.     FGet 1, STRING091
  212.     FGet 1, STRING032
  213.     FGet 1, STRING062
  214.     FGet 1, STRING092
  215.     FGet 1, STRING033
  216.     FGet 1, STRING063
  217.     FGet 1, STRING093
  218.     FClose 1
  219.     If (STRING001 == "Watkins") Then
  220.         If (STRING002 == "Cliff") Then
  221.             TIME003 = Time()
  222.             GetUser
  223.             If (TIME004 > TIME005) Goto LABEL001
  224.             If ((TIME003 > TIME004) && (TIME003 < TIME005)) Goto LABEL002
  225.             Goto LABEL008
  226.             :LABEL001
  227.             If ((TIME003 > TIME004) || (TIME003 < TIME005)) Goto LABEL002
  228.             Goto LABEL008
  229.             :LABEL002
  230.             If (U_Sec >= INTEGER001) Goto LABEL009
  231.             If (U_Name() == Upper(STRING004)) Then
  232.                 TIME001 = STRING034
  233.                 TIME002 = STRING064
  234.                 If (STRING034 > STRING064) Goto LABEL005
  235.                 Goto LABEL004
  236.             Endif
  237.             If (U_Name() == Upper(STRING005)) Then
  238.                 TIME001 = STRING035
  239.                 TIME002 = STRING065
  240.                 If (STRING035 > STRING065) Goto LABEL005
  241.                 Goto LABEL004
  242.             Endif
  243.             If (U_Name() == Upper(STRING006)) Then
  244.                 TIME001 = STRING036
  245.                 TIME002 = STRING066
  246.                 If (STRING036 > STRING066) Goto LABEL005
  247.                 Goto LABEL004
  248.             Endif
  249.             If (U_Name() == Upper(STRING007)) Then
  250.                 TIME001 = STRING037
  251.                 TIME002 = STRING067
  252.                 If (STRING037 > STRING067) Goto LABEL005
  253.                 Goto LABEL004
  254.             Endif
  255.             If (U_Name() == Upper(STRING008)) Then
  256.                 TIME001 = STRING038
  257.                 TIME002 = STRING068
  258.                 If (STRING038 > STRING068) Goto LABEL005
  259.                 Goto LABEL004
  260.             Endif
  261.             If (U_Name() == Upper(STRING009)) Then
  262.                 TIME001 = STRING039
  263.                 TIME002 = STRING069
  264.                 If (STRING039 > STRING069) Goto LABEL005
  265.                 Goto LABEL004
  266.             Endif
  267.             If (U_Name() == Upper(STRING010)) Then
  268.                 TIME001 = STRING040
  269.                 TIME002 = STRING070
  270.                 If (STRING040 > STRING070) Goto LABEL005
  271.                 Goto LABEL004
  272.             Endif
  273.             If (U_Name() == Upper(STRING011)) Then
  274.                 TIME001 = STRING041
  275.                 TIME002 = STRING071
  276.                 If (STRING041 > STRING071) Goto LABEL005
  277.                 Goto LABEL004
  278.             Endif
  279.             If (U_Name() == Upper(STRING012)) Then
  280.                 TIME001 = STRING042
  281.                 TIME002 = STRING072
  282.                 If (STRING042 > STRING072) Goto LABEL005
  283.                 Goto LABEL004
  284.             Endif
  285.             If (U_Name() == Upper(STRING013)) Then
  286.                 TIME001 = STRING043
  287.                 TIME002 = STRING073
  288.                 If (STRING043 > STRING073) Goto LABEL005
  289.                 Goto LABEL004
  290.             Endif
  291.             If (U_Name() == Upper(STRING014)) Then
  292.                 TIME001 = STRING044
  293.                 TIME002 = STRING074
  294.                 If (STRING044 > STRING074) Goto LABEL005
  295.                 Goto LABEL004
  296.             Endif
  297.             If (U_Name() == Upper(STRING015)) Then
  298.                 TIME001 = STRING045
  299.                 TIME002 = STRING075
  300.                 If (STRING045 > STRING075) Goto LABEL005
  301.                 Goto LABEL004
  302.             Endif
  303.             If (U_Name() == Upper(STRING016)) Then
  304.                 TIME001 = STRING046
  305.                 TIME002 = STRING076
  306.                 If (STRING046 > STRING076) Goto LABEL005
  307.                 Goto LABEL004
  308.             Endif
  309.             If (U_Name() == Upper(STRING017)) Then
  310.                 TIME001 = STRING047
  311.                 TIME002 = STRING077
  312.                 If (STRING047 > STRING077) Goto LABEL005
  313.                 Goto LABEL004
  314.             Endif
  315.             If (U_Name() == Upper(STRING018)) Then
  316.                 TIME001 = STRING048
  317.                 TIME002 = STRING078
  318.                 If (STRING048 > STRING078) Goto LABEL005
  319.                 Goto LABEL004
  320.             Endif
  321.             If (U_Name() == Upper(STRING019)) Then
  322.                 TIME001 = STRING049
  323.                 TIME002 = STRING079
  324.                 If (STRING049 > STRING079) Goto LABEL005
  325.                 Goto LABEL004
  326.             Endif
  327.             If (U_Name() == Upper(STRING020)) Then
  328.                 TIME001 = STRING050
  329.                 TIME002 = STRING080
  330.                 If (STRING050 > STRING080) Goto LABEL005
  331.                 Goto LABEL004
  332.             Endif
  333.             If (U_Name() == Upper(STRING021)) Then
  334.                 TIME001 = STRING051
  335.                 TIME002 = STRING081
  336.                 If (STRING051 > STRING081) Goto LABEL005
  337.                 Goto LABEL004
  338.             Endif
  339.             If (U_Name() == Upper(STRING022)) Then
  340.                 TIME001 = STRING052
  341.                 TIME002 = STRING082
  342.                 If (STRING052 > STRING082) Goto LABEL005
  343.                 Goto LABEL004
  344.             Endif
  345.             If (U_Name() == Upper(STRING023)) Then
  346.                 TIME001 = STRING053
  347.                 TIME002 = STRING083
  348.                 If (STRING053 > STRING083) Goto LABEL005
  349.                 Goto LABEL004
  350.             Endif
  351.             If (U_Name() == Upper(STRING024)) Then
  352.                 TIME001 = STRING054
  353.                 TIME002 = STRING084
  354.                 If (STRING054 > STRING084) Goto LABEL005
  355.                 Goto LABEL004
  356.             Endif
  357.             If (U_Name() == Upper(STRING025)) Then
  358.                 TIME001 = STRING055
  359.                 TIME002 = STRING085
  360.                 If (STRING055 > STRING085) Goto LABEL005
  361.                 Goto LABEL004
  362.             Endif
  363.             If (U_Name() == Upper(STRING026)) Then
  364.                 TIME001 = STRING056
  365.                 TIME002 = STRING086
  366.                 If (STRING056 > STRING086) Goto LABEL005
  367.                 Goto LABEL004
  368.             Endif
  369.             If (U_Name() == Upper(STRING027)) Then
  370.                 TIME001 = STRING057
  371.                 TIME002 = STRING087
  372.                 If (STRING057 > STRING087) Goto LABEL005
  373.                 Goto LABEL004
  374.             Endif
  375.             If (U_Name() == Upper(STRING028)) Then
  376.                 TIME001 = STRING058
  377.                 TIME002 = STRING088
  378.                 If (STRING058 > STRING088) Goto LABEL005
  379.                 Goto LABEL004
  380.             Endif
  381.             If (U_Name() == Upper(STRING029)) Then
  382.                 TIME001 = STRING059
  383.                 TIME002 = STRING089
  384.                 If (STRING059 > STRING089) Goto LABEL005
  385.                 Goto LABEL004
  386.             Endif
  387.             If (U_Name() == Upper(STRING030)) Then
  388.                 TIME001 = STRING060
  389.                 TIME002 = STRING090
  390.                 If (STRING060 > STRING090) Goto LABEL005
  391.                 Goto LABEL004
  392.             Endif
  393.             If (U_Name() == Upper(STRING031)) Then
  394.                 TIME001 = STRING061
  395.                 TIME002 = STRING091
  396.                 If (STRING061 > STRING091) Goto LABEL005
  397.                 Goto LABEL004
  398.             Endif
  399.             If (U_Name() == Upper(STRING032)) Then
  400.                 TIME001 = STRING062
  401.                 TIME002 = STRING092
  402.                 If (STRING062 > STRING092) Goto LABEL005
  403.                 Goto LABEL004
  404.             Endif
  405.             If (U_Name() == Upper(STRING033)) Then
  406.                 TIME001 = STRING063
  407.                 TIME002 = STRING093
  408.                 If (STRING063 > STRING093) Goto LABEL005
  409.                 Goto LABEL004
  410.             Endif
  411.             Goto LABEL003
  412.             Cls
  413.             PrintLn 
  414.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  415.             PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  416.             PrintLn "                       @X50│    @X5B(c) 1993 ", STRING002, " ", STRING001, "    @X5D│@X07"
  417.             PrintLn "                       @X50│                              @X5D│@X07"
  418.             PrintLn "                       @X50│      @X5FTimeZone In Effect      @X5D│@X07"
  419.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME004) + "  @X5FTo @X5E" + String(TIME005) + "  @X5D│@X07"
  420.             PrintLn "                       @X50│                              @X5D│@X07"
  421.             PrintLn "                       @X50│   @X5FCurrent time is @X5E" + String(TIME003) + "   @X5D│@X07"
  422.             PrintLn "                       @X50│                              @X5D│@X07"
  423.             PrintLn "                       @X50│    @X5BExempt Security Level!    @X5D│@X07"
  424.             PrintLn "                       @X50│                              @X5D│@X07"
  425.             PrintLn "                       @X50│        @X5BAccess Granted        @X5D│@X07"
  426.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  427.             PrintLn 
  428.             Delay 45
  429.             End
  430.             :LABEL003
  431.             Cls
  432.             PrintLn 
  433.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  434.             PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  435.             PrintLn "                       @X50│    @X5B(c) 1993 ", STRING002, " ", STRING001, "    @X5D│@X07"
  436.             PrintLn "                       @X50│                              @X5D│@X07"
  437.             PrintLn "                       @X50│      @X5FTimeZone In Effect      @X5D│@X07"
  438.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME004) + "  @X5FTo @X5E" + String(TIME005) + "  @X5D│@X07"
  439.             PrintLn "                       @X50│                              @X5D│@X07"
  440.             PrintLn "                       @X50│   @X5FCurrent time is @X5E" + String(TIME003) + "   @X5D│@X07"
  441.             PrintLn "                       @X50│                              @X5D│@X07"
  442.             PrintLn "                       @X50│     @XDBSorry, Access Denied     @X5D│@X07"
  443.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  444.             PrintLn 
  445.             Delay 45
  446.             Bye
  447.             End
  448.             :LABEL004
  449.             If ((TIME003 > TIME001) && (TIME003 < TIME002)) Goto LABEL007
  450.             Goto LABEL006
  451.             :LABEL005
  452.             If ((TIME003 > TIME001) || (TIME003 < TIME002)) Goto LABEL007
  453.             :LABEL006
  454.             Cls
  455.             PrintLn 
  456.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  457.             PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  458.             PrintLn "                       @X50│    @X5B(c) 1993 ", STRING002, " ", STRING001, "    @X5D│@X07"
  459.             PrintLn "                       @X50│                              @X5D│@X07"
  460.             PrintLn "                       @X50│      @X5FTimeZone In Effect      @X5D│@X07"
  461.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME004) + "  @X5FTo @X5E" + String(TIME005) + "  @X5D│@X07"
  462.             PrintLn "                       @X50│                              @X5D│@X07"
  463.             PrintLn "                       @X50│       @X5FYour timeslot is       @X5D│@X07"
  464.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME001) + "  @X5FTo @X5E" + String(TIME002) + "  @X5D│@X07"
  465.             PrintLn "                       @X50│                              @X5D│@X07"
  466.             PrintLn "                       @X50│   @X5FCurrent time is @X5E" + String(TIME003) + "   @X5D│@X07"
  467.             PrintLn "                       @X50│                              @X5D│@X07"
  468.             PrintLn "                       @X50│     @XDBSorry, Access Denied     @X5D│@X07"
  469.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  470.             PrintLn 
  471.             Delay 45
  472.             Bye
  473.             End
  474.             :LABEL007
  475.             Cls
  476.             PrintLn 
  477.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  478.             PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  479.             PrintLn "                       @X50│    @X5B(c) 1993 ", STRING002, " ", STRING001, "    @X5D│@X07"
  480.             PrintLn "                       @X50│                              @X5D│@X07"
  481.             PrintLn "                       @X50│      @X5FTimeZone In Effect      @X5D│@X07"
  482.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME004) + "  @X5FTo @X5E" + String(TIME005) + "  @X5D│@X07"
  483.             PrintLn "                       @X50│                              @X5D│@X07"
  484.             PrintLn "                       @X50│       @X5FYour timeslot is       @X5D│@X07"
  485.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME001) + "  @X5FTo @X5E" + String(TIME002) + "  @X5D│@X07"
  486.             PrintLn "                       @X50│                              @X5D│@X07"
  487.             PrintLn "                       @X50│   @X5FCurrent time is @X5E" + String(TIME003) + "   @X5D│@X07"
  488.             PrintLn "                       @X50│                              @X5D│@X07"
  489.             PrintLn "                       @X50│        @XDBAccess Granted        @X5D│@X07"
  490.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  491.             PrintLn 
  492.             Delay 45
  493.             End
  494.             :LABEL008
  495.             Cls
  496.             PrintLn 
  497.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  498.             PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  499.             PrintLn "                       @X50│    @X5B(c) 1993 ", STRING002, " ", STRING001, "    @X5D│@X07"
  500.             PrintLn "                       @X50│                              @X5D│@X07"
  501.             PrintLn "                       @X50│      @X5FTimeZone In Effect      @X5D│@X07"
  502.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME004) + "  @X5FTo @X5E" + String(TIME005) + "  @X5D│@X07"
  503.             PrintLn "                       @X50│                              @X5D│@X07"
  504.             PrintLn "                       @X50│   @X5FCurrent time is @X5E" + String(TIME003) + "   @X5D│@X07"
  505.             PrintLn "                       @X50│                              @X5D│@X07"
  506.             PrintLn "                       @X50│      @X5BTimeZone Bypassed!      @X5D│@X07"
  507.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  508.             PrintLn 
  509.             Delay 45
  510.             End
  511.             :LABEL009
  512.             Cls
  513.             PrintLn 
  514.             PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  515.             PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  516.             PrintLn "                       @X50│    @X5B(c) 1993 ", STRING002, " ", STRING001, "    @X5D│@X07"
  517.             PrintLn "                       @X50│                              @X5D│@X07"
  518.             PrintLn "                       @X50│      @X5FTimeZone In Effect      @X5D│@X07"
  519.             PrintLn "                       @X50│  @X5FFrom @X5E" + String(TIME004) + "  @X5FTo @X5E" + String(TIME005) + "  @X5D│@X07"
  520.             PrintLn "                       @X50│                              @X5D│@X07"
  521.             PrintLn "                       @X50│   @X5FCurrent time is @X5E" + String(TIME003) + "   @X5D│@X07"
  522.             PrintLn "                       @X50│                              @X5D│@X07"
  523.             PrintLn "                       @X50│    @X5BExempt Security Level!    @X5D│@X07"
  524.             PrintLn "                       @X50│                              @X5D│@X07"
  525.             PrintLn "                       @X50│        @X5BAccess Granted        @X5D│@X07"
  526.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  527.             PrintLn 
  528.             Delay 45
  529.             End
  530.         Endif
  531.     Endif
  532.     Cls
  533.     PrintLn 
  534.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  535.     PrintLn "                       @X50│        @X5BTimeZone  v", STRING003, "        @X5D│@X07"
  536.     PrintLn "                       @X50│                              @X5D│@X07"
  537.     PrintLn "                       @X50│      @XDCHas Been Altered!!      @X5D│@X07"
  538.     PrintLn "                       @X50│                              @X5D│@X07"
  539.     PrintLn "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  540.     PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  541.     PrintLn 
  542.     Delay 45
  543.     End
  544.  
  545. ;------------------------------------------------------------------------------
  546. ;
  547. ; Usage report (before postprocessing)
  548. ;
  549. ; ■ Statements used :
  550. ;
  551. ;    7       End
  552. ;    7       Cls
  553. ;    104     Goto 
  554. ;    64      Let 
  555. ;    97      PrintLn 
  556. ;    68      If 
  557. ;    1       FOpen 
  558. ;    1       FClose 
  559. ;    93      FGet 
  560. ;    1       GetUser
  561. ;    7       Delay 
  562. ;    2       Bye
  563. ;
  564. ;
  565. ; ■ Functions used :
  566. ;
  567. ;    45      +
  568. ;    32      ==
  569. ;    4       <
  570. ;    35      >
  571. ;    1       >=
  572. ;    32      !
  573. ;    2       &&
  574. ;    2       ||
  575. ;    30      Upper()
  576. ;    1       Time()
  577. ;    30      U_Name()
  578. ;    22      String()
  579. ;    1       PPEPath()
  580. ;
  581. ;------------------------------------------------------------------------------
  582. ;
  583. ; Analysis flags : No flag
  584. ;
  585. ;------------------------------------------------------------------------------
  586. ;
  587. ; Postprocessing report
  588. ;
  589. ;    0       For/Next
  590. ;    0       While/EndWhile
  591. ;    32      If/Then or If/Then/Else
  592. ;    0       Select Case
  593. ;
  594. ;------------------------------------------------------------------------------
  595. ;                 AEGiS Corp - Break the routines, code against the machines!
  596. ;------------------------------------------------------------------------------
  597.