home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / STL-TG10.ZIP / UPDATE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-10-30  |  12KB  |  519 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     DWord    TDWORD001(500)
  26.     Date     DATE001
  27.     Date     DATE002
  28.     Integer  INTEGER001
  29.     Integer  TINTEGER002(500)
  30.     Integer  TINTEGER003(500)
  31.     Integer  INTEGER004
  32.     Integer  INTEGER005
  33.     Integer  INTEGER006
  34.     Integer  INTEGER007
  35.     Integer  INTEGER008
  36.     Integer  INTEGER009
  37.     Integer  INTEGER010
  38.     Integer  INTEGER011
  39.     String   TSTRING001(500)
  40.     String   TSTRING002(500)
  41.     String   TSTRING003(500)
  42.     String   TSTRING004(500)
  43.     String   TSTRING005(100)
  44.     String   STRING006
  45.     String   STRING007
  46.     String   STRING008
  47.     String   STRING009
  48.     String   STRING010
  49.     String   STRING011
  50.     String   STRING012
  51.     String   STRING013
  52.     String   TSTRING014(500)
  53.     String   TSTRING015(500)
  54.     String   TSTRING016(100)
  55.     String   STRING017
  56.     String   STRING018
  57.     String   STRING019
  58.     Time     TIME001
  59.     Time     TIME002
  60.     Time     TIME003
  61.     Time     TTIME004(10)
  62.     Time     TIME005
  63.  
  64. ;------------------------------------------------------------------------------
  65.  
  66.     PrintLn "@X0F■@X08─────( @X0BT@X03he @X0BG@X03reatest @X0BL@X03ist @X0BC@X03ompiler @X0Bv@X031.o @X08)─────@X0F■"
  67.     INTEGER001 = FileInf(ReadLine(PCBDat(), 29), 4) / 400
  68.     STRING008 = "@X0F.@X08"
  69.     STRING009 = PPEPath() + "GREATEST.LST"
  70.     STRING010 = PPEPath() + "GREATEST.NOT"
  71.     STRING011 = PPEPath() + "GREATEST.CNF"
  72.     STRING012 = PPEPath() + "GREATEST.TIM"
  73.     STRING013 = PPEPath() + "DOWNLOAD.LST"
  74.     DATE002 = Date()
  75.     TIME002 = Time()
  76.     BOOLEAN003 = FileInf(STRING010, 1)
  77.     If (BOOLEAN003) Goto LABEL001
  78.     FOpen 1, STRING010, 1, 3
  79.     FClose 1
  80.     :LABEL001
  81.     FOpen 1, STRING011, 0, 3
  82.     FGet 1, STRING017
  83.     STRING019 = Mid(STRING017, 1, 20)
  84.     FGet 1, STRING017
  85.     FGet 1, STRING017
  86.     STRING018 = Mid(STRING017, 1, 1)
  87.     FGet 1, STRING017
  88.     INTEGER005 = S2I(Mid(STRING017, 1, 1), 10)
  89.     If (INTEGER005 > 1) Then
  90.         BOOLEAN002 = 1
  91.     Else
  92.         BOOLEAN002 = 0
  93.         Delete STRING012
  94.     Endif
  95.     FGet 1, STRING017
  96.     If (STRING017 == "YES") Then
  97.         BOOLEAN005 = 1
  98.     Endif
  99.     FClose 1
  100.     If (BOOLEAN002) Then
  101.         Gosub LABEL010
  102.     Endif
  103.     If (BOOLEAN005) Then
  104.         DtrOff
  105.         CdChkOff
  106.     Endif
  107.     PrintLn "  @X0BI@X03t's @X0Bt@X03ime @X0Bf@X03or @X0Ba n@X03ew @X0Bu@X03pdate, @X0Bh@X03ew @X0Bh@X03ew."
  108.     Print "  @X0BR@X03EADiNG @X0BN@X03OTES@X08........................."
  109.     Gosub LABEL007
  110.     PrintLn "@X09D@X07ONE!"
  111.     Print "  @X0BR@X03EADiNG @X0BU@X03SERS@X08........................."
  112.     Gosub LABEL002
  113.     PrintLn "@X09D@X07ONE!"
  114.     Print "  @X0BS@X03ORTiNG @X0BU@X03SERS@X08........................."
  115.     Gosub LABEL003
  116.     PrintLn "@X09D@X07ONE!"
  117.     Print "  @X0BA@X03TTACHiNG @X0BN@X03OTES@X08......................."
  118.     Gosub LABEL004
  119.     PrintLn "@X09D@X07ONE!"
  120.     Print "  @X0BC@X03LEANiNG @X0BL@X03iST@X08........................."
  121.     Gosub LABEL005
  122.     PrintLn "@X09D@X07ONE!"
  123.     Print "  @X0BS@X03AViNG @X0BL@X03iST@X08..........................."
  124.     Gosub LABEL006
  125.     PrintLn "@X09D@X07ONE!"
  126.     PrintLn "  @X0BT@X03he @X0Bn@X03ew @X0Bl@X03ist @X0Bi@X03s @X0Bg@X03enerated."
  127.     PrintLn "@X0F■@X08────────( @X0BC@X03oded @X0Bb@X03y @X08P@X07f@X0Fezz@X07y@X08O @X0B\ @X08s@X07T@X0F¡@X07L@X08e )─────────@X0F■"
  128.     End
  129.     :LABEL002
  130.     INTEGER007 = 0
  131.     For INTEGER006 = 1 To INTEGER001
  132.         GetAltUser INTEGER006
  133.         TDWORD001(INTEGER007) = U_Bul()
  134.         TSTRING001(INTEGER007) = U_Name()
  135.         TINTEGER003(INTEGER007) = U_Logons()
  136.         If (INTEGER007 < 10) Then
  137.             TSTRING005(INTEGER007) = INTEGER007
  138.             TSTRING005(INTEGER007) = STRING018 + TSTRING005(INTEGER007)
  139.         ElseIf (INTEGER007 == 100) Then
  140.             TSTRING005(INTEGER007) = STRING018 + STRING018
  141.         Else
  142.             TSTRING005(INTEGER007) = INTEGER007
  143.         Endif
  144.         If (TDWORD001(INTEGER007) <> 0) Then
  145.             Inc INTEGER007
  146.         Endif
  147.     Next
  148.     If (INTEGER007 > 100) Then
  149.         INTEGER007 = 100
  150.     Endif
  151.     Return
  152.     :LABEL003
  153.     Sort TDWORD001, TINTEGER002
  154.     For INTEGER006 = 500 To 500 - INTEGER001 Step -1
  155.         TSTRING003(500 - INTEGER006) = TDWORD001(TINTEGER002(INTEGER006))
  156.         TSTRING002(500 - INTEGER006) = TSTRING001(TINTEGER002(INTEGER006))
  157.         TSTRING004(500 - INTEGER006) = TINTEGER003(TINTEGER002(INTEGER006))
  158.     Next
  159.     Return
  160.     :LABEL004
  161.     For INTEGER006 = 1 To INTEGER007
  162.         For INTEGER010 = 1 To INTEGER009
  163.             If (TSTRING002(INTEGER006 - 1) == TSTRING015(INTEGER010)) Then
  164.                 TSTRING016(INTEGER006) = TSTRING014(INTEGER010)
  165.             Endif
  166.         Next
  167.     Next
  168.     Return
  169.     :LABEL005
  170.     For INTEGER006 = 1 To INTEGER007
  171.         TSTRING003(INTEGER006 - 1) = Replace(TSTRING003(INTEGER006 - 1), "0", STRING018)
  172.         TSTRING004(INTEGER006 - 1) = Replace(TSTRING004(INTEGER006 - 1), "0", STRING018)
  173.         TSTRING005(INTEGER006) = Replace(TSTRING005(INTEGER006), "0", STRING018)
  174.         STRING006 = TSTRING003(INTEGER006 - 1)
  175.         INTEGER008 = Len(STRING006)
  176.         STRING007 = ""
  177.         If (INTEGER008 > 9) Then
  178.             STRING007 = "@X09" + Left(STRING006, 1) + STRING008 + Mid(STRING006, 2, 3) + STRING008 + Mid(STRING006, 5, 3) + STRING008 + Right(STRING006, 3)
  179.             TSTRING003(INTEGER006 - 1) = STRING007
  180.         ElseIf (INTEGER008 > 6) Then
  181.             STRING007 = "@X09" + Left(STRING006, 1) + "@X08" + Mid(STRING006, 2, INTEGER008 - 7) + STRING008 + Mid(STRING006, INTEGER008 - 5, 3) + STRING008 + Right(STRING006, 3)
  182.             TSTRING003(INTEGER006 - 1) = STRING007
  183.         ElseIf (INTEGER008 > 3) Then
  184.             STRING007 = "@X09" + Left(STRING006, 1) + "@X08" + Mid(STRING006, 2, INTEGER008 - 4) + STRING008 + Right(STRING006, 3)
  185.             TSTRING003(INTEGER006 - 1) = STRING007
  186.         Else
  187.             STRING007 = "@X09" + Left(STRING006, 1) + "@X08" + Right(STRING006, INTEGER008 - 1)
  188.             TSTRING003(INTEGER006 - 1) = STRING007
  189.         Endif
  190.         STRING006 = TSTRING002(INTEGER006 - 1)
  191.         INTEGER008 = Len(STRING006)
  192.         STRING007 = "@X0B" + Left(STRING006, 1) + "@X03" + Mid(STRING006, 2, 1) + "@X08" + Right(STRING006, INTEGER008 - 2)
  193.         TSTRING002(INTEGER006 - 1) = STRING007
  194.         STRING006 = TSTRING004(INTEGER006 - 1)
  195.         INTEGER008 = Len(STRING006)
  196.         STRING007 = "@X09" + Left(STRING006, 1) + "@X08" + Right(STRING006, INTEGER008 - 1)
  197.         TSTRING004(INTEGER006 - 1) = STRING007
  198.         TSTRING005(INTEGER006) = "@X09" + Left(TSTRING005(INTEGER006), 1) + "@X08" + Right(TSTRING005(INTEGER006), 1)
  199.     Next
  200.     Return
  201.     :LABEL006
  202.     Delete STRING009
  203.     FOpen 1, STRING009, 1, 3
  204.     FPutLn 1, TIME002
  205.     FPutLn 1, DATE002
  206.     FPutLn 1, INTEGER007
  207.     For INTEGER006 = 1 To INTEGER007
  208.         FPutLn 1, TSTRING002(INTEGER006 - 1)
  209.         FPutLn 1, TSTRING016(INTEGER006)
  210.         FPutLn 1, TSTRING003(INTEGER006 - 1)
  211.         FPutLn 1, TSTRING004(INTEGER006 - 1)
  212.         FPutLn 1, TSTRING005(INTEGER006)
  213.     Next
  214.     FClose 1
  215.     STRING013 = PPEPath() + "DOWNLOAD.LST"
  216.     Delete STRING013
  217.     FOpen 1, STRING013, 1, 3
  218.     FPutLn 1, ""
  219.     FPutLn 1, "■■▀■▀▀■▀▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀▀■▀▀■▀■■"
  220.     FPutLn 1, " ██     ██              ▄█▀▀██                      ██                   ██"
  221.     FPutLn 1, " █▓▀▀█▓ ██▀▀█▄ ▄█▀▀█▄   █▓     ▄█▀▀██ ▄█▀▀█▄ ▄█▀▀█▄ ██▀▀██ ▄█▀▀█▄ ▄█▀▀█▄ ██▀▀██"
  222.     FPutLn 1, " ▒▒     █▓  █▓ █▓▀▀▀    ▒▒ ▒▒▄ █▓     █▓▀▀▀   ▄▄▄█▓ █▓     █▓▀▀▀  █▓▄▄▄  █▓"
  223.     FPutLn 1, " ▒░  ▒░ ▓▒  ▓▒ ▓▒  ▓▒   ▒░  ▒░ ▓▒     ▓▒  ▓▒ ▓▒  ▓▒ ▓▒  ▓▒ ▓▒  ▓▒     ▓▒ ▓▒  ▓▒"
  224.     FPutLn 1, " ░░▄▄░░ ▒░  ▒░ ▒░▄■▒░   ░░▄▄░░ ▒░ ¡Pf ▒░▄■▒░ ▒░▄■▒░ ▒░▄■▒░ ▒░▄■▒░ ▒░▄■▒░ ▒░▄■▒░"
  225.     FPutLn 1, "■■▄■▄▄■▄▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄▄■▄▄■▄■■"
  226.     FPutLn 1, ""
  227.     FPutLn 1, "                        ·─-/( THE GREATEST v1.o PPE! )\──·"
  228.     FPutLn 1, ""
  229.     FPutLn 1, "           ·─-/( CODE BY: PFEZZYO <> ANSi BY: GANGSTAR, PFEZZYO )\──·"
  230.     FPutLn 1, ""
  231.     FPutLn 1, "         ·─-/( A STiLE PRODUCTiON FOR YOUR ENTERTAINMENT iN 1994! )\──·"
  232.     FPutLn 1, ""
  233.     FPutLn 1, " The Greatest v1.o - Generated list for download. This one was compiled for you"
  234.     FPutLn 1, " so you could leech it, I dont know what you want it for but here it is anyway!"
  235.     FPutLn 1, ""
  236.     FPut 1, "          THiS iS THE GREATEST UPLOADERS ON ["
  237.     FPut 1, STRING019
  238.     FPutLn 1, "]"
  239.     FPutLn 1, "■░■▀■▀▀■▀▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀▀■▀▀■▀■░■"
  240.     FPutLn 1, " ░  ■NO■ ■NAME■               ■BYTES■        ■NOTE■                  ■CALLS■  ░"
  241.     FPutLn 1, " ░ ────────────────────────────────────────────────────────────────────────── ░"
  242.     For INTEGER006 = 1 To INTEGER007
  243.         FPut 1, " ░   "
  244.         FPut 1, StripAtx(TSTRING005(INTEGER006))
  245.         FPut 1, "  "
  246.         FPut 1, Mid(StripAtx(TSTRING002(INTEGER006 - 1)), 1, 21)
  247.         FPut 1, Mid(StripAtx(TSTRING003(INTEGER006 - 1)), 1, 15)
  248.         FPut 1, Mid(TSTRING016(INTEGER006), 1, 24)
  249.         FPut 1, Mid(StripAtx(TSTRING004(INTEGER006 - 1)), 1, 9)
  250.         FPutLn 1, "░"
  251.     Next
  252.     FPutLn 1, " ░ ────────────────────────────────────────────────────────────────────────── ░"
  253.     FPutLn 1, "■░■▄■▄▄■▄▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄▄■▄▄■▄■░■"
  254.     FPutLn 1, ""
  255.     FPutLn 1, ""
  256.     FPutLn 1, ""
  257.     FPutLn 1, "■■▀■▀▀■▀▀▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀▀▀■▀▀■▀■■"
  258.     FPutLn 1, "               ▄▓█▀▀▀█▓▄  ██▓█        ██▓█ ██▓█         ▄▓█▀▀▀█▓▄"
  259.     FPutLn 1, "  ▄▄▄▄▄▄▄▄▄▄▄ ▐█▒█ ▄ █▒█▌ ██▒█ ▄▄▄▄▄▄ ▀▀▀▀ ██▒█ ▄▄▄▄▄▄ ▐█▒█ ▄ █▒█▌ ▄▄▄▄▄▄▄▄▄▄▄"
  260.     FPutLn 1, "  █▓▓▒▒░░▒▒▓▓ ██░█ ▓ █░██ ██░█ ▓▓▒▒░░ ██░█ ██░█ ▓▓▒▒░░ ██░█ ▓ █░██ ░▒▒▓▓▒▒░░▒█"
  261.     FPutLn 1, "  █▓▒▒░░▒▒▓▓▒ ██░█ ▒ █░██ ██░█ ▓▒▒░░▒ ██░█ ██░█ ▓▒▒░░▒ ██░█ ▒ █░██ ▒▒▓▓▒▒░░▒▒█"
  262.     FPutLn 1, "  █▒▒░░▒▒▓▓▒▒ ██░█▄▄▄▄▄▄  ██░█▄▄▄▄▄▄▄ ██░█ ██░█ ▒▒░░▒▒ ██░█▄▄▄█░██ ▒▓▓▒▒░░▒▒▓█"
  263.     FPutLn 1, "  █▒░░▒▒▓▓▒▒░  ▀▀▀▀▀▀█░██ ██░█▀▀ ▄▄▄▄ ██░█ ██░█ ▒ ▄▄▄▄ ██░█▀▀▀▀▀▀  ▓▓▒▒░░▒▒▓▓█"
  264.     FPutLn 1, "  █░░▒▒▓▓▒▒░░ ██░█ ░ █░██ ██░█ ░ █░██ ██░█ ██░█ ░ █░██ ██░█ ░ █░██ ▓▒▒░░▒▒▓▓▒█"
  265.     FPutLn 1, "  ▀▀▀▀▀▀▀▀▀▀▀ ▐█▒█ ▀ █▒█▌ ▐█▒█ ▀ █▒█▌ ██▒█ ▐█▒█ ▀ █▒█▌ ▐█▒█ ▀ █▒█▌ ▀▀▀▀▀▀▀▀▀▀▀"
  266.     FPutLn 1, "               ▀▓█▄▄▄█▓▀   ▀▓█▄▄▄█▓▀  ██▓█  ▀▓█▄▄▄█▓▀   ▀▓█▄▄▄█▓▀   ¡PfezzyO¡"
  267.     FPutLn 1, ""
  268.     FPutLn 1, "             ·─-/( STiLE PRODUCTiONS 1994 - THE CREATiVE TEAM )\──·"
  269.     FPutLn 1, ""
  270.     FPutLn 1, "                          ·─-/( PERSONAL GREETINGS )\──·"
  271.     FPutLn 1, ""
  272.     FPutLn 1, "     DALE, STEED, THE JUDGE, LES MANLEY, CRUGER, PHYRO, THE MEANMAN, ViPER"
  273.     FPutLn 1, "          SWAYZE, CATONICA AND ALL STiLE COOPERATiNG DUDES & HOMEBOYS."
  274.     FPutLn 1, ""
  275.     FPutLn 1, "                           ·─-/( GROUPY GREETINGS )\──·"
  276.     FPutLn 1, ""
  277.     FPutLn 1, "             PWA, REBELS, GODS, ACiD, iCE, BLADE, DARK FORCE, FAiC"
  278.     FPutLn 1, ""
  279.     FPutLn 1, "                                 ·─-/( iNFO )\──·"
  280.     FPutLn 1, ""
  281.     FPutLn 1, "        IF YOU WANT SOM ART OR PPE'S FOR YOUR BOARD OR VGA ARTS ETC, JUST"
  282.     FPutLn 1, "      CONTACT US ON ANY OF OUR BOARDS, THEY ARE ALL NAMED IN OUR .NFO FiLE!"
  283.     FPutLn 1, "■■▄■▄▄■▄▄▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄▄▄■▄▄■▄■■"
  284.     FClose 1
  285.     Return
  286.     :LABEL007
  287.     FOpen 1, STRING010, 0, 3
  288.     INTEGER009 = 0
  289.     :LABEL008
  290.     If (BOOLEAN001) Goto LABEL009
  291.     Inc INTEGER009
  292.     FGet 1, TSTRING015(INTEGER009)
  293.     FGet 1, TSTRING014(INTEGER009)
  294.     If (TSTRING015(INTEGER009) == "") Then
  295.         BOOLEAN001 = 1
  296.     Endif
  297.     Goto LABEL008
  298.     :LABEL009
  299.     FClose 1
  300.     Return
  301.     :LABEL010
  302.     BOOLEAN003 = FileInf(STRING012, 1)
  303.     If (BOOLEAN003) Then
  304.         FOpen 1, STRING012, 0, 3
  305.         FGet 1, STRING017
  306.         INTEGER004 = S2I(Mid(STRING017, 1, 1), 10)
  307.         FClose 1
  308.         If (INTEGER004 <> INTEGER005) Then
  309.             BOOLEAN003 = 0
  310.         Endif
  311.     Endif
  312.     If (BOOLEAN003) Goto LABEL011
  313.     Delete STRING012
  314.     FOpen 1, STRING012, 1, 3
  315.     FPutLn 1, INTEGER005
  316.     If (INTEGER005 == 2) Then
  317.         FPutLn 1, "00.00.00"
  318.         FPutLn 1, "12.00.00"
  319.     Endif
  320.     If (INTEGER005 == 3) Then
  321.         FPutLn 1, "00.00.00"
  322.         FPutLn 1, "08.00.00"
  323.         FPutLn 1, "16.00.00"
  324.     Endif
  325.     If (INTEGER005 == 4) Then
  326.         FPutLn 1, "00.00.00"
  327.         FPutLn 1, "06.00.00"
  328.         FPutLn 1, "12.00.00"
  329.         FPutLn 1, "18.00.00"
  330.     Endif
  331.     If (INTEGER005 == 5) Then
  332.         FPutLn 1, "00.00.00"
  333.         FPutLn 1, "05.00.00"
  334.         FPutLn 1, "12.00.00"
  335.         FPutLn 1, "17.00.00"
  336.         FPutLn 1, "22.00.00"
  337.     Endif
  338.     If (INTEGER005 == 6) Then
  339.         FPutLn 1, "00.00.00"
  340.         FPutLn 1, "04.00.00"
  341.         FPutLn 1, "08.00.00"
  342.         FPutLn 1, "12.00.00"
  343.         FPutLn 1, "16.00.00"
  344.         FPutLn 1, "20.00.00"
  345.     Endif
  346.     If (INTEGER005 == 7) Then
  347.         FPutLn 1, "00.00.00"
  348.         FPutLn 1, "04.00.00"
  349.         FPutLn 1, "08.00.00"
  350.         FPutLn 1, "12.00.00"
  351.         FPutLn 1, "18.00.00"
  352.         FPutLn 1, "20.00.00"
  353.         FPutLn 1, "22.00.00"
  354.     Endif
  355.     If (INTEGER005 == 8) Then
  356.         FPutLn 1, "00.00.00"
  357.         FPutLn 1, "03.00.00"
  358.         FPutLn 1, "06.00.00"
  359.         FPutLn 1, "09.00.00"
  360.         FPutLn 1, "12.00.00"
  361.         FPutLn 1, "15.00.00"
  362.         FPutLn 1, "18.00.00"
  363.         FPutLn 1, "21.00.00"
  364.     Endif
  365.     If (INTEGER005 == 9) Then
  366.         FPutLn 1, "00.00.00"
  367.         FPutLn 1, "02.00.00"
  368.         FPutLn 1, "04.00.00"
  369.         FPutLn 1, "12.00.00"
  370.         FPutLn 1, "14.00.00"
  371.         FPutLn 1, "16.00.00"
  372.         FPutLn 1, "18.00.00"
  373.         FPutLn 1, "20.00.00"
  374.         FPutLn 1, "22.00.00"
  375.     Endif
  376.     FClose 1
  377.     Goto LABEL015
  378.     :LABEL011
  379.     BOOLEAN004 = FileInf(STRING009, 1)
  380.     If (BOOLEAN004) Goto LABEL012
  381.     Goto LABEL015
  382.     :LABEL012
  383.     FOpen 1, STRING009, 0, 3
  384.     FGet 1, TIME003
  385.     FGet 1, DATE001
  386.     FClose 1
  387.     FOpen 1, STRING012, 0, 3
  388.     FGet 1, STRING017
  389.     For INTEGER011 = 1 To INTEGER004
  390.         FGet 1, TTIME004(INTEGER011)
  391.     Next
  392.     FClose 1
  393.     BOOLEAN006 = 0
  394.     For INTEGER011 = INTEGER004 To 1 Step -1
  395.         If (TIME002 > TTIME004(INTEGER011)) Then
  396.             BOOLEAN006 = 1
  397.             TIME005 = TTIME004(INTEGER011)
  398.             If (INTEGER011 == INTEGER004) Then
  399.                 TIME001 = TTIME004(1)
  400.                 Goto LABEL013
  401.             Endif
  402.             TIME001 = TTIME004(INTEGER011 + 1)
  403.             :LABEL013
  404.             INTEGER011 = 1
  405.         Endif
  406.     Next
  407.     If (BOOLEAN006) Goto LABEL014
  408.     TIME001 = TTIME004(1)
  409.     :LABEL014
  410.     If ((TIME003 < TIME005) || (DATE001 <> DATE002)) Then
  411.         Goto LABEL015
  412.     Else
  413.         Print "  @X0BL@X03ast @X0Bu@X03pdate @X0Bw@X03as @X0Ba@X03t@X08.................@X09"
  414.         PrintLn TIME003
  415.         Print "  @X0BN@X03ext @X0Bu@X03pdate @X0Bw@X03ill @X0Bo@X03ccur @X0Ba@X03fter@X08.......@X09"
  416.         PrintLn TIME001
  417.         Print "  @X0BC@X03urrent @X0Bt@X03ime @X0Bi@X03s@X08....................@X09"
  418.         PrintLn TIME002
  419.         PrintLn "@X0F■@X08─────────( @X0BC@X03oded @X0Bb@X03y @X08P@X07f@X0Fezz@X07y@X08O @X0B\ @X08s@X07T@X0F¡@X07L@X08e )────────@X0F■"
  420.         End
  421.     Endif
  422.     :LABEL015
  423.     Return
  424.  
  425. ;------------------------------------------------------------------------------
  426. ;
  427. ; Usage report (before postprocessing)
  428. ;
  429. ; ■ Statements used :
  430. ;
  431. ;    2       End
  432. ;    61      Goto 
  433. ;    84      Let 
  434. ;    9       Print 
  435. ;    14      PrintLn 
  436. ;    40      If 
  437. ;    9       FOpen 
  438. ;    9       FClose 
  439. ;    12      FGet 
  440. ;    9       FPut 
  441. ;    108     FPutLn 
  442. ;    4       Delete 
  443. ;    7       Gosub 
  444. ;    7       Return
  445. ;    1       DtrOff
  446. ;    1       CdChkOff
  447. ;    2       Inc 
  448. ;    1       GetAltUser 
  449. ;    1       Sort 
  450. ;
  451. ;
  452. ; ■ Functions used :
  453. ;
  454. ;    6       -
  455. ;    1       /
  456. ;    51      +
  457. ;    31      -
  458. ;    13      ==
  459. ;    3       <>
  460. ;    11      <
  461. ;    9       <=
  462. ;    6       >
  463. ;    18      >=
  464. ;    40      !
  465. ;    18      &&
  466. ;    10      ||
  467. ;    3       Len(
  468. ;    14      Mid()
  469. ;    7       Left()
  470. ;    7       Right()
  471. ;    1       Date()
  472. ;    1       Time()
  473. ;    1       U_Name()
  474. ;    1       U_Logons()
  475. ;    1       U_Bul()
  476. ;    4       StripAtx()
  477. ;    3       Replace()
  478. ;    1       PCBDat()
  479. ;    6       PPEPath()
  480. ;    1       ReadLine()
  481. ;    2       S2I()
  482. ;    4       FileInf()
  483. ;
  484. ;------------------------------------------------------------------------------
  485. ;
  486. ; Analysis flags : RBd
  487. ;
  488. ; R - Read user ■ 5
  489. ;     User records are read, this may signify that someone wants to get
  490. ;     various informations about a user (for example his password), but
  491. ;     this may also be normal for a program accessing user records (for
  492. ;     example a User Editor)
  493. ;     ■ Search for : GETALTUSER
  494. ;
  495. ; B - Brute hangup ■ 1
  496. ;     Program hangup without notification. This may be a good way to
  497. ;     disconnect a user, but if used randomly, may be very nasty
  498. ;     ■ Search for : HANGUP, DTROFF
  499. ;
  500. ; d - Access PCBOARD.DAT ■ 2
  501. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  502. ;     for many PPE so they can find various informations on the system
  503. ;     (system paths, max number of lines in messages, ...) but it may also
  504. ;     be a way to gather vital informations.
  505. ;     ■ Search for : PCBDAT()
  506. ;
  507. ;------------------------------------------------------------------------------
  508. ;
  509. ; Postprocessing report
  510. ;
  511. ;    9       For/Next
  512. ;    0       While/EndWhile
  513. ;    26      If/Then or If/Then/Else
  514. ;    0       Select Case
  515. ;
  516. ;------------------------------------------------------------------------------
  517. ;                 AEGiS Corp - Break the routines, code against the machines!
  518. ;------------------------------------------------------------------------------
  519.