home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CW_PPP10.ZIP / TIMEZONE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-09-09  |  11KB  |  460 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.     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.     Integer  INTEGER017
  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.     Time     TIME001
  52.     Time     TIME002
  53.     Time     TIME003
  54.     Time     TIME004
  55.     Time     TIME005
  56.  
  57. ;------------------------------------------------------------------------------
  58.  
  59.     FOpen 1, PPEPath() + "TIMEZONE.CNF", 0, 0
  60.     FGet 1, STRING003
  61.     FGet 1, INTEGER009
  62.     FGet 1, INTEGER007
  63.     FGet 1, STRING007
  64.     FGet 1, INTEGER001
  65.     FGet 1, TIME004
  66.     FGet 1, TIME005
  67.     FGet 1, INTEGER002
  68.     Tokenize STRING003
  69.     GetToken STRING014
  70.     GetToken STRING015
  71.     GetUser
  72.     INTEGER003 = MinLeft()
  73.     INTEGER002 = INTEGER002 - 1
  74.     STRING002 = Left(U_Notes(INTEGER002), 11)
  75.     STRING005 = Left(U_Notes(INTEGER002), 6)
  76.     TIME001 = Left(STRING002, 5)
  77.     TIME002 = Right(STRING002, 5)
  78.     STRING006 = "2.1"
  79.     TIME003 = Time()
  80.     INTEGER005 = 36
  81.     INTEGER008 = 38271
  82.     If (INTEGER009 == 0) Then
  83.         STRING016 = "N"
  84.         Goto LABEL002
  85.     Else
  86.         Goto LABEL001
  87.     Endif
  88.     :LABEL001
  89.     STRING011 = Left(STRING014, 1)
  90.     STRING012 = Left(STRING015, 2)
  91.     STRING013 = STRING011 + STRING012
  92.     If (STRING011 == "A") INTEGER010 = 1934
  93.     If (STRING011 == "B") INTEGER010 = 2859
  94.     If (STRING011 == "C") INTEGER010 = 3743
  95.     If (STRING011 == "D") INTEGER010 = 4660
  96.     If (STRING011 == "E") INTEGER010 = 5534
  97.     If (STRING011 == "F") INTEGER010 = 6471
  98.     If (STRING011 == "G") INTEGER010 = 7325
  99.     If (STRING011 == "H") INTEGER010 = 8287
  100.     If (STRING011 == "I") INTEGER010 = 9119
  101.     If (STRING011 == "J") INTEGER010 = 1096
  102.     If (STRING011 == "K") INTEGER010 = 2928
  103.     If (STRING011 == "L") INTEGER010 = 3885
  104.     If (STRING011 == "M") INTEGER010 = 4737
  105.     If (STRING011 == "N") INTEGER010 = 5674
  106.     If (STRING011 == "O") INTEGER010 = 6546
  107.     If (STRING011 == "P") INTEGER010 = 7463
  108.     If (STRING011 == "Q") INTEGER010 = 8355
  109.     If (STRING011 == "R") INTEGER010 = 9242
  110.     If (STRING011 == "S") INTEGER010 = 1164
  111.     If (STRING011 == "T") INTEGER010 = 2031
  112.     If (STRING011 == "U") INTEGER010 = 3973
  113.     If (STRING011 == "V") INTEGER010 = 4820
  114.     If (STRING011 == "W") INTEGER010 = 5782
  115.     If (STRING011 == "X") INTEGER010 = 6619
  116.     If (STRING011 == "Y") INTEGER010 = 7591
  117.     If (STRING011 == "Z") INTEGER010 = 8408
  118.     INTEGER006 = S2I(STRING013, INTEGER005) + INTEGER009 + INTEGER008 + INTEGER010
  119.     If (INTEGER007 == INTEGER006) Then
  120.         If (Len(INTEGER009) == 1) STRING008 = "000"
  121.         If (Len(INTEGER009) == 2) STRING008 = "00"
  122.         If (Len(INTEGER009) == 3) STRING008 = "0"
  123.         If (Len(INTEGER009) == 4) STRING008 = ""
  124.         STRING009 = INTEGER009
  125.         STRING010 = STRING008 + STRING009
  126.         If (Len(STRING003) == 30) STRING004 = ""
  127.         If (Len(STRING003) == 29) STRING004 = ""
  128.         If (Len(STRING003) == 28) STRING004 = " "
  129.         If (Len(STRING003) == 27) STRING004 = " "
  130.         If (Len(STRING003) == 26) STRING004 = "  "
  131.         If (Len(STRING003) == 25) STRING004 = "  "
  132.         If (Len(STRING003) == 24) STRING004 = "   "
  133.         If (Len(STRING003) == 23) STRING004 = "   "
  134.         If (Len(STRING003) == 22) STRING004 = "    "
  135.         If (Len(STRING003) == 21) STRING004 = "    "
  136.         If (Len(STRING003) == 20) STRING004 = "     "
  137.         If (Len(STRING003) == 19) STRING004 = "     "
  138.         If (Len(STRING003) == 18) STRING004 = "      "
  139.         If (Len(STRING003) == 17) STRING004 = "      "
  140.         If (Len(STRING003) == 16) STRING004 = "       "
  141.         If (Len(STRING003) == 15) STRING004 = "       "
  142.         If (Len(STRING003) == 14) STRING004 = "        "
  143.         If (Len(STRING003) == 13) STRING004 = "        "
  144.         If (Len(STRING003) == 12) STRING004 = "         "
  145.         If (Len(STRING003) == 11) STRING004 = "         "
  146.         If (Len(STRING003) == 10) STRING004 = "          "
  147.         If (Len(STRING003) == 9) STRING004 = "          "
  148.         If (Len(STRING003) == 8) STRING004 = "           "
  149.         If (Len(STRING003) == 7) STRING004 = "           "
  150.         If (Len(STRING003) == 6) STRING004 = "            "
  151.         If (Len(STRING003) == 5) STRING004 = "            "
  152.         :LABEL002
  153.         If (TIME004 > TIME005) Goto LABEL003
  154.         If ((TIME003 > TIME004) && (TIME003 < TIME005)) Goto LABEL004
  155.         Goto LABEL015
  156.         :LABEL003
  157.         If ((TIME003 > TIME004) || (TIME003 < TIME005)) Goto LABEL004
  158.         Goto LABEL015
  159.         :LABEL004
  160.         If (U_Sec >= INTEGER001) Goto LABEL018
  161.         If (STRING005 == "EXEMPT") Goto LABEL021
  162.         If ((TIME001 == "00:00:00") && (TIME002 == "00:00:00")) Goto LABEL006
  163.         If (TIME001 > TIME002) Goto LABEL009
  164.         Goto LABEL008
  165.         Cls
  166.         PrintLn 
  167.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  168.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  169.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  170.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  171.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  172.         PrintLn "                       @X50│  @XD1                            @X5D│@X0D"
  173.         PrintLn "                       @X50│     @XD1Sorry  Access Denied     @X5D│@X0D"
  174.         If (STRING016 == "N") Then
  175.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  176.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  177.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  178.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  179.             Delay 182
  180.             Goto LABEL005
  181.         Endif
  182.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  183.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  184.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  185.         Delay 45
  186.         :LABEL005
  187.         End
  188.         :LABEL006
  189.         Cls
  190.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  191.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  192.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  193.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  194.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  195.         PrintLn "                       @X50│  @X51No Time Slot Found For You  @X5D│@X0D"
  196.         PrintLn "                       @X50│     @XD1Sorry  Access Denied     @X5D│@X0D"
  197.         If (STRING016 == "N") Then
  198.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  199.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  200.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  201.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  202.             Delay 182
  203.             Goto LABEL007
  204.         Endif
  205.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  206.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  207.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  208.         Delay 45
  209.         :LABEL007
  210.         Bye
  211.         End
  212.         :LABEL008
  213.         If ((TIME003 > TIME001) && (TIME003 < TIME002)) Goto LABEL012
  214.         Goto LABEL010
  215.         :LABEL009
  216.         If ((TIME003 > TIME001) || (TIME003 < TIME002)) Goto LABEL012
  217.         :LABEL010
  218.         Cls
  219.         PrintLn 
  220.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  221.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  222.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  223.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  224.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  225.         PrintLn "                       @X50│     @X51Called At Wrong Time     @X5D│@X0D"
  226.         PrintLn "                       @X50│     @XD1Sorry  Access Denied     @X5D│@X0D"
  227.         If (STRING016 == "N") Then
  228.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  229.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  230.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  231.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  232.             Delay 182
  233.             Goto LABEL011
  234.         Endif
  235.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  236.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  237.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  238.         Delay 45
  239.         :LABEL011
  240.         Bye
  241.         End
  242.         :LABEL012
  243.         Cls
  244.         PrintLn 
  245.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  246.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  247.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  248.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  249.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  250.         PrintLn "                       @X50│    @X51Called At Correct Time    @X5D│@X0D"
  251.         PrintLn "                       @X50│        @XD1Access Granted        @X5D│@X0D"
  252.         If (STRING016 == "N") Then
  253.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  254.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  255.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  256.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  257.             Delay 182
  258.             Goto LABEL013
  259.         Endif
  260.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  261.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  262.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  263.         Delay 45
  264.         :LABEL013
  265.         INTEGER011 = Hour(TIME003)
  266.         INTEGER013 = Min(TIME003)
  267.         INTEGER015 = INTEGER011 * 60 + INTEGER013
  268.         INTEGER012 = Hour(TIME002)
  269.         INTEGER014 = Min(TIME002)
  270.         INTEGER016 = INTEGER012 * 60 + INTEGER014
  271.         INTEGER017 = INTEGER016 - INTEGER015
  272.         If ((STRING007 == "B") && (INTEGER003 > INTEGER017)) Then
  273.             AdjTime -INTEGER003
  274.             AdjTime INTEGER017
  275.             Goto LABEL014
  276.         Endif
  277.         AdjTime 0
  278.         :LABEL014
  279.         End
  280.         :LABEL015
  281.         Cls
  282.         PrintLn 
  283.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  284.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  285.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  286.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  287.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  288.         PrintLn "                       @X50│      @X51TimeZone Disabled!      @X5D│@X0D"
  289.         PrintLn "                       @X50│        @XD1Access Granted        @X5D│@X0D"
  290.         If (STRING016 == "N") Then
  291.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  292.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  293.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  294.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  295.             Delay 182
  296.             Goto LABEL016
  297.         Endif
  298.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  299.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  300.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  301.         Delay 45
  302.         :LABEL016
  303.         INTEGER011 = Hour(TIME003)
  304.         INTEGER013 = Min(TIME003)
  305.         INTEGER015 = INTEGER011 * 60 + INTEGER013
  306.         INTEGER012 = Hour(TIME004)
  307.         INTEGER014 = Min(TIME004)
  308.         INTEGER004 = INTEGER012 * 60 + INTEGER014
  309.         INTEGER017 = INTEGER004 - INTEGER015
  310.         If ((STRING007 == "B") && (INTEGER003 > INTEGER017)) Then
  311.             AdjTime -INTEGER003
  312.             AdjTime INTEGER017
  313.             Goto LABEL017
  314.         Endif
  315.         AdjTime 0
  316.         :LABEL017
  317.         End
  318.         :LABEL018
  319.         Cls
  320.         PrintLn 
  321.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  322.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  323.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  324.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  325.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  326.         PrintLn "                       @X50│    @X51Exempt Security Level!    @X5D│@X07"
  327.         PrintLn "                       @X50│        @XD1Access Granted        @X5D│@X07"
  328.         If (STRING016 == "N") Then
  329.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  330.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  331.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  332.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  333.             Delay 182
  334.             Goto LABEL019
  335.         Endif
  336.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  337.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  338.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  339.         Delay 45
  340.         :LABEL019
  341.         INTEGER011 = Hour(TIME003)
  342.         INTEGER013 = Min(TIME003)
  343.         INTEGER015 = INTEGER011 * 60 + INTEGER013
  344.         INTEGER012 = Hour(TIME004)
  345.         INTEGER014 = Min(TIME004)
  346.         INTEGER004 = INTEGER012 * 60 + INTEGER014
  347.         INTEGER017 = INTEGER004 - INTEGER015
  348.         If ((STRING007 == "B") && (INTEGER003 > INTEGER017)) Then
  349.             AdjTime -INTEGER003
  350.             AdjTime INTEGER017
  351.             Goto LABEL020
  352.         Endif
  353.         AdjTime 0
  354.         :LABEL020
  355.         End
  356.         :LABEL021
  357.         Cls
  358.         PrintLn 
  359.         PrintLn "                       @X50┌──────────────────────────────@X5D┐@X0D"
  360.         PrintLn "                       @X50│        @X5ATimeZone  v", STRING006, "        @X5D│@X0D"
  361.         PrintLn "                       @X50│  @X5BEnabled From@X5E ", Left(String(TIME004), 5), " - ", Left(String(TIME005), 5), "  @X5D│@X0D"
  362.         PrintLn "                       @X50│  @X5BThe Current Time Is:@X5E ", Left(String(TIME003), 5), "  @X5D│@X0D"
  363.         PrintLn "                       @X50│  @X5BYour Zone Is@X5E ", Left(String(TIME001), 5), " - ", Left(String(TIME002), 5), "  @X5D│@X0D"
  364.         PrintLn "                       @X50│      @X51Exempt Flag Is Set      @X5D│@X07"
  365.         PrintLn "                       @X50│        @XD1Access Granted        @X5D│@X07"
  366.         If (STRING016 == "N") Then
  367.             PrintLn "                       @X50│         @X51UNREGISTERED         @X5D│@X07"
  368.             PrintLn "                       @X50│   @X5BRegistration is only $10   @X5D│@X07"
  369.             PrintLn "                       @X50│@X5BPlease help support shareware.@X5D│@X07"
  370.             PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  371.             Delay 182
  372.             Goto LABEL022
  373.         Endif
  374.         PrintLn "                       @X50│          @X5BReg # ", STRING010, "    @POS:55@@X5D│@X07"
  375.         PrintLn "                       @X50│@X5B", STRING004, STRING003, "@POS:55@@X5D│@X07"
  376.         PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  377.         Delay 45
  378.         :LABEL022
  379.         End
  380.     Endif
  381.     Cls
  382.     PrintLn 
  383.     PrintLn "                       @X50┌──────────────────────────────@X5D┐@X07"
  384.     PrintLn "                       @X50│        @X5BTimeZone  v", STRING006, "        @X5D│@X07"
  385.     PrintLn "                       @X50│                              @X5D│@X07"
  386.     PrintLn "                       @X50│      @X5BAborting Operation      @X5D│@X07"
  387.     PrintLn "                       @X50│                              @X5D│@X07"
  388.     PrintLn "                       @X50│  @X5BInvalid Registration Code!  @X5D│@X07"
  389.     PrintLn "                       @X50└@X5D──────────────────────────────┘@X07"
  390.     Delay 182
  391.     End
  392.  
  393. ;------------------------------------------------------------------------------
  394. ;
  395. ; Usage report (before postprocessing)
  396. ;
  397. ; ■ Statements used :
  398. ;
  399. ;    8       End
  400. ;    8       Cls
  401. ;    40      Goto 
  402. ;    94      Let 
  403. ;    112     PrintLn 
  404. ;    77      If 
  405. ;    1       FOpen 
  406. ;    8       FGet 
  407. ;    1       GetUser
  408. ;    9       AdjTime 
  409. ;    15      Delay 
  410. ;    1       Tokenize 
  411. ;    2       GetToken 
  412. ;    2       Bye
  413. ;
  414. ;
  415. ; ■ Functions used :
  416. ;
  417. ;    3       -
  418. ;    6       *
  419. ;    12      +
  420. ;    4       -
  421. ;    71      ==
  422. ;    4       <
  423. ;    9       >
  424. ;    1       >=
  425. ;    12      !
  426. ;    6       &&
  427. ;    2       ||
  428. ;    30      Len(
  429. ;    40      Left()
  430. ;    1       Right()
  431. ;    1       Time()
  432. ;    6       Hour()
  433. ;    6       Min()
  434. ;    35      String()
  435. ;    1       PPEPath()
  436. ;    1       MinLeft()
  437. ;    1       S2I()
  438. ;
  439. ;------------------------------------------------------------------------------
  440. ;
  441. ; Analysis flags : A
  442. ;
  443. ; A - Adjust online time remaining ■ 5
  444. ;     Program modify the amount of online time remaining, this may
  445. ;     be a way to bypass time limits
  446. ;     ■ Search for : ADJTIME
  447. ;
  448. ;------------------------------------------------------------------------------
  449. ;
  450. ; Postprocessing report
  451. ;
  452. ;    0       For/Next
  453. ;    0       While/EndWhile
  454. ;    12      If/Then or If/Then/Else
  455. ;    0       Select Case
  456. ;
  457. ;------------------------------------------------------------------------------
  458. ;                 AEGiS Corp - Break the routines, code against the machines!
  459. ;------------------------------------------------------------------------------
  460.