home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / STL-TG10.ZIP / GREATEST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-10-30  |  30KB  |  1,210 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.     Boolean  BOOLEAN007
  26.     DWord    DWORD001
  27.     DWord    DWORD002
  28.     Date     DATE001
  29.     Date     DATE002
  30.     Integer  INTEGER001
  31.     Integer  INTEGER002
  32.     Integer  INTEGER003
  33.     Integer  INTEGER004
  34.     Integer  INTEGER005
  35.     Integer  INTEGER006
  36.     Integer  INTEGER007
  37.     Integer  INTEGER008
  38.     Integer  INTEGER009
  39.     Integer  INTEGER010
  40.     Integer  INTEGER011
  41.     Integer  INTEGER012
  42.     Integer  INTEGER013
  43.     Integer  INTEGER014
  44.     Integer  INTEGER015
  45.     Integer  INTEGER016
  46.     Integer  INTEGER017
  47.     String   TSTRING001(100)
  48.     String   TSTRING002(100)
  49.     String   TSTRING003(100)
  50.     String   TSTRING004(100)
  51.     String   STRING005
  52.     String   STRING006
  53.     String   STRING007
  54.     String   TSTRING008(100)
  55.     String   STRING009
  56.     String   STRING010
  57.     String   STRING011
  58.     String   STRING012
  59.     String   STRING013
  60.     String   STRING014
  61.     String   TSTRING015(100)
  62.     String   TSTRING016(100)
  63.     String   STRING017
  64.     String   STRING018
  65.     String   STRING019
  66.     String   STRING020
  67.     String   STRING021
  68.     String   STRING022
  69.     String   STRING023
  70.     String   STRING024
  71.     String   STRING025
  72.     String   STRING026
  73.     String   STRING027
  74.     String   STRING028
  75.     BigStr   BIGSTR001
  76.  
  77. ;------------------------------------------------------------------------------
  78.  
  79.     GetUser
  80.     BOOLEAN006 = 0
  81.     BOOLEAN004 = 0
  82.     BOOLEAN003 = 0
  83.     INTEGER005 = U_Sec
  84.     STRING014 = U_Name()
  85.     INTEGER015 = STRING014
  86.     STRING006 = PPEPath()
  87.     BIGSTR001 = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  88.     BIGSTR001 = BIGSTR001 + " 1234567890½!#%&/()=?`£${[]}\+^~'*,.;:-_<>|"
  89.     BIGSTR001 = BIGSTR001 + "ÇüéâäåçêëèïîìÄÅÉæÆôöòûùÿ֢ܣ¥₧ƒáíóúñѪº¿⌐¬½¼¡«»░▒▓│┤╡╢╖╕╣║╗╝╜╛"
  90.     BIGSTR001 = BIGSTR001 + "┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²■"
  91.     STRING028 = STRING006 + "GREATEST.NOT"
  92.     BOOLEAN007 = FileInf(STRING028, 1)
  93.     If (BOOLEAN007) Goto LABEL001
  94.     FOpen 1, STRING028, 1, 3
  95.     FClose 1
  96.     :LABEL001
  97.     STRING005 = STRING006 + "GREATEST.LST"
  98.     If (FileInf(STRING005, 1)) Goto LABEL002
  99.     Cls
  100.     PrintLn "@X0BS@X03orry, @X0Bn@X03o @X0Bl@X03ist @X0Be@X03xists. @X0BR@X03un @X0BU@X03PDATE.PPE @X0Bf@X03irst."
  101.     End
  102.     :LABEL002
  103.     STRING005 = STRING006 + "GREATEST.CNF"
  104.     FOpen 1, STRING005, 0, 3
  105.     FGet 1, STRING012
  106.     If (Len(STRING012) > 20) Then
  107.         STRING012 = Mid(STRING012, 1, 20)
  108.     Endif
  109.     FGet 1, INTEGER004
  110.     FClose 1
  111.     Gosub LABEL013
  112.     Gosub LABEL030
  113.     If (BOOLEAN004) Goto LABEL003
  114.     Gosub LABEL051
  115.     :LABEL003
  116.     If (BOOLEAN004) Goto LABEL004
  117.     Gosub LABEL014
  118.     :LABEL004
  119.     Gosub LABEL038
  120.     Gosub LABEL037
  121.     INTEGER010 = 1
  122.     INTEGER013 = 1
  123.     Gosub LABEL031
  124.     :LABEL005
  125.     Select Case (INTEGER013)
  126.         Case 1
  127.             Gosub LABEL029
  128.             INTEGER013 = 2
  129.             Delay 25
  130.         Case 2
  131.             Gosub LABEL027
  132.             Delay 15
  133.             INTEGER013 = 3
  134.         Case 3
  135.             Gosub LABEL028
  136.             INTEGER013 = 1
  137.             Delay 35
  138.     End Select
  139.     STRING011 = Inkey()
  140.     STRING011 = Upper(STRING011)
  141.     If (STRING011 == Chr(13)) Then
  142.         Goto LABEL008
  143.     Endif
  144.     If ((STRING011 == "Z") || (STRING011 == "DOWN")) Then
  145.         If (INTEGER010 + 19 <= INTEGER006) Then
  146.             INTEGER010 = INTEGER010 + 10
  147.             Gosub LABEL031
  148.             Goto LABEL006
  149.         Endif
  150.         If (INTEGER010 + 9 < INTEGER006) Then
  151.             INTEGER010 = INTEGER006 - 9
  152.             Gosub LABEL031
  153.         Endif
  154.     Endif
  155.     :LABEL006
  156.     If ((STRING011 == "A") || (STRING011 == "UP")) Then
  157.         If (INTEGER010 > 10) Then
  158.             INTEGER010 = INTEGER010 - 10
  159.             Gosub LABEL031
  160.             Goto LABEL007
  161.         Endif
  162.         INTEGER010 = 1
  163.         Gosub LABEL031
  164.     Endif
  165.     :LABEL007
  166.     If (STRING011 == "C") Then
  167.         Gosub LABEL022
  168.         Gosub LABEL023
  169.         Gosub LABEL037
  170.         Gosub LABEL031
  171.     Endif
  172.     If (STRING011 == "I") Then
  173.         Gosub LABEL043
  174.         Gosub LABEL038
  175.         Gosub LABEL037
  176.         Gosub LABEL031
  177.     Endif
  178.     If (STRING011 == "F") Then
  179.         Gosub LABEL019
  180.         If (BOOLEAN005) Then
  181.             Gosub LABEL031
  182.             Gosub LABEL032
  183.         Endif
  184.     Endif
  185.     If ((STRING011 == "D") && !BOOLEAN006) Then
  186.         Flag STRING006 + "DOWNLOAD.LST"
  187.         BOOLEAN006 = 1
  188.         Gosub LABEL046
  189.     Endif
  190.     If ((STRING011 == "E") && ((INTEGER005 >= INTEGER004) || (STRING014 == "PFEZZYO"))) Then
  191.         Gosub LABEL009
  192.         Gosub LABEL037
  193.         Gosub LABEL031
  194.     Endif
  195.     If (STRING011 == "J") Then
  196.         Gosub LABEL049
  197.         Gosub LABEL037
  198.         Gosub LABEL031
  199.     Endif
  200.     Goto LABEL005
  201.     :LABEL008
  202.     Cls
  203.     End
  204.     :LABEL009
  205.     Gosub LABEL022
  206.     AnsiPos 22, 9
  207.     Print "@X0BH@X03andle? @X07[@X08·························@X07]"
  208.     :LABEL010
  209.     STRING022 = ""
  210.     AnsiPos 31, 9
  211.     InputStr "_", STRING022, 9, 25, BIGSTR001, 8
  212.     INTEGER007 = U_RecNum(STRING022)
  213.     If (STRING022 == "") Then
  214.         Goto LABEL012
  215.     Endif
  216.     If (INTEGER007 == -1) Then
  217.         AnsiPos 31, 9
  218.         Color 8
  219.         Print "·························"
  220.         AnsiPos 32, 9
  221.         Color 8
  222.         Print "NOT EVEN ON THIS BOARD!"
  223.         Delay 1
  224.         AnsiPos 32, 9
  225.         Color 7
  226.         Print "NOT EVEN ON THIS BOARD!"
  227.         Delay 1
  228.         AnsiPos 32, 9
  229.         Color 15
  230.         Print "NOT EVEN ON THIS BOARD!"
  231.         Delay 1
  232.         AnsiPos 32, 9
  233.         Color 7
  234.         Print "NOT EVEN ON THIS BOARD!"
  235.         Delay 1
  236.         AnsiPos 32, 9
  237.         Color 8
  238.         Print "NOT EVEN ON THIS BOARD!"
  239.         Delay 1
  240.         AnsiPos 32, 9
  241.         Color 7
  242.         Print "NOT EVEN ON THIS BOARD!"
  243.         Delay 1
  244.         AnsiPos 32, 9
  245.         Color 15
  246.         Print "NOT EVEN ON THIS BOARD!"
  247.         Delay 1
  248.         AnsiPos 32, 9
  249.         Color 7
  250.         Print "NOT EVEN ON THIS BOARD!"
  251.         Delay 1
  252.         AnsiPos 32, 9
  253.         Color 8
  254.         Print "NOT EVEN ON THIS BOARD!"
  255.         Delay 1
  256.         AnsiPos 31, 9
  257.         Print "·························"
  258.         Goto LABEL010
  259.     Endif
  260.     AnsiPos 6, 9
  261.     Print "@X08■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■"
  262.     AnsiPos 6, 10
  263.     Print "@X08▌░  @X0BH@X03andle                                                          @X08░▐"
  264.     AnsiPos 6, 11
  265.     Print "@X08|▒                                                                  ▒|"
  266.     AnsiPos 6, 12
  267.     Print "@X08:▓  @X0BN@X03ote                        @X0BB@X03oardnote                           @X08▓:"
  268.     AnsiPos 6, 13
  269.     Print "@X08 █                                                                  █"
  270.     AnsiPos 6, 14
  271.     Print "@X08∙█  @X0BU@X03ser @X0BD@X03L @X0Bb@X03ytes                  @X0BU@X03ser @X0Bw@X03as @X0Bl@X03ast @X0Bo@X03n                 @X08█∙"
  272.     AnsiPos 6, 15
  273.     Print "@X08:▓  @X0BU@X03ser @X0BD@X03L @X0Bf@X03iles                  @X0BU@X03ser @X0Bl@X03atest @X0Bs@X03can                 @X08▓:"
  274.     AnsiPos 6, 16
  275.     Print "@X08|▒  @X0BU@X03ser @X0BU@X03L @X0Bb@X03ytes                  @X0BU@X03ser @X0Bs@X03ecuritylevel               @X08▒|"
  276.     AnsiPos 6, 17
  277.     Print "@X08▌░  @X0BU@X03ser @X0BU@X03L @X0Bf@X03iles                  @X0BU@X03ser @X0Bt@X03ransfer @X0Bp@X03rotocol           @X08░▐"
  278.     AnsiPos 6, 18
  279.     Print "@X08■░■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■"
  280.     AnsiPos 28, 20
  281.     Print "@X0BS@X03mash @X07[@X0FENTER@X07] @X0Bt@X03o @X0Bc@X03ontinue."
  282.     GetAltUser INTEGER007
  283.     STRING024 = U_Name()
  284.     STRING025 = U_City
  285.     DATE001 = U_LDate()
  286.     DATE002 = U_LDir()
  287.     STRING026 = U_Trans
  288.     DWORD001 = U_Bul()
  289.     DWORD002 = U_Bdl()
  290.     INTEGER001 = U_Ful()
  291.     INTEGER002 = U_Fdl()
  292.     INTEGER003 = U_Sec
  293.     For INTEGER007 = 1 To INTEGER006
  294.         STRING022 = StripAtx(TSTRING002(INTEGER007))
  295.         If (STRING022 == STRING024) Then
  296.             STRING027 = TSTRING001(INTEGER007)
  297.         Endif
  298.     Next
  299.     Color 9
  300.     AnsiPos 17, 10
  301.     Print STRING024
  302.     AnsiPos 15, 12
  303.     Print STRING027
  304.     AnsiPos 48, 12
  305.     Print STRING025
  306.     AnsiPos 24, 14
  307.     Print DWORD002
  308.     AnsiPos 24, 15
  309.     Print INTEGER002
  310.     AnsiPos 24, 16
  311.     Print DWORD001
  312.     AnsiPos 24, 17
  313.     Print INTEGER001
  314.     AnsiPos 58, 14
  315.     Print DATE001
  316.     AnsiPos 58, 15
  317.     Print DATE002
  318.     AnsiPos 60, 16
  319.     Print INTEGER003
  320.     AnsiPos 64, 17
  321.     Print STRING026
  322.     BOOLEAN001 = 0
  323.     :LABEL011
  324.     If (BOOLEAN001) Goto LABEL012
  325.     STRING018 = ""
  326.     STRING018 = Inkey()
  327.     If (STRING018 == Chr(13)) Then
  328.         BOOLEAN001 = 1
  329.     Endif
  330.     Goto LABEL011
  331.     :LABEL012
  332.     Return
  333.     :LABEL013
  334.     STRING020 = I2S(INTEGER004, 10)
  335.     STRING021 = I2S(INTEGER005, 10)
  336.     INTEGER007 = Len(STRING020)
  337.     STRING023 = ""
  338.     For INTEGER008 = 1 To INTEGER007
  339.         STRING022 = Mid(STRING020, INTEGER008, 1)
  340.         If (STRING022 == "0") Then
  341.             STRING022 = "o"
  342.         Endif
  343.         STRING023 = STRING023 + STRING022
  344.     Next
  345.     STRING020 = STRING023
  346.     INTEGER007 = Len(STRING021)
  347.     STRING023 = ""
  348.     For INTEGER008 = 1 To INTEGER007
  349.         STRING022 = Mid(STRING021, INTEGER008, 1)
  350.         If (STRING022 == "0") Then
  351.             STRING022 = "o"
  352.         Endif
  353.         STRING023 = STRING023 + STRING022
  354.     Next
  355.     STRING021 = STRING023
  356.     Return
  357.     :LABEL014
  358.     Cls
  359.     INTEGER017 = 20
  360.     INTEGER016 = 11
  361.     STRING019 = "Here is another STiLE PPE production..."
  362.     Gosub LABEL018
  363.     INTEGER017 = 24
  364.     INTEGER016 = 11
  365.     STRING019 = "...called The Greatest v1.o..."
  366.     Gosub LABEL018
  367.     INTEGER017 = 13
  368.     INTEGER016 = 11
  369.     STRING019 = "...coded by PfezzyO and ansi'ed by Gangstar & PfezzyO."
  370.     Gosub LABEL018
  371.     INTEGER017 = 16
  372.     INTEGER016 = 11
  373.     STRING019 = "It shows the 1oo best uploaders on this board."
  374.     Gosub LABEL018
  375.     INTEGER017 = 15
  376.     INTEGER016 = 11
  377.     STRING019 = "First of all, we wan't you to answer a question."
  378.     Gosub LABEL018
  379.     Delay 5
  380.     AnsiPos 10, 10
  381.     Print "@X0BP@X03lease @X0Be@X03nter @X0By@X03our @X0Bw@X03anted @X0Bn@X03ote @X0Bi@X03n @X0Bt@X03his @X0BP@X03PE, @X0Bi@X03t @X0Bd@X03oesn't @X0Bh@X03ave @X0Bt@X03o @X0Bb@X03e"
  382.     AnsiPos 11, 11
  383.     Print "@X0Bt@X03he @X0Bs@X03ame @X0Ba@X03s @X0By@X03our @X0Bl@X03ocation/@X0Bn@X03ote @X0Bo@X03n @X0Bt@X03his @X0Bb@X03oard. @X0BU@X03p @X0Bt@X03o @X0B2@X032 @X0Bc@X03hars."
  384.     AnsiPos 28, 13
  385.     Print "@X07[@X08······················@X07]"
  386.     :LABEL015
  387.     STRING013 = ""
  388.     AnsiPos 29, 13
  389.     InputStr "_", STRING013, 9, 22, BIGSTR001, 8192
  390.     If (STRING013 == "") Then
  391.         AnsiPos 31, 13
  392.         Delay 1
  393.         Color 8
  394.         Print "MUST BE SOMETHING!"
  395.         AnsiPos 31, 13
  396.         Delay 1
  397.         Color 7
  398.         Print "MUST BE SOMETHING!"
  399.         AnsiPos 31, 13
  400.         Delay 1
  401.         Color 15
  402.         Print "MUST BE SOMETHING!"
  403.         AnsiPos 31, 13
  404.         Delay 1
  405.         Color 7
  406.         Print "MUST BE SOMETHING!"
  407.         AnsiPos 31, 13
  408.         Delay 1
  409.         Color 8
  410.         Print "MUST BE SOMETHING!"
  411.         AnsiPos 31, 13
  412.         Delay 1
  413.         Color 7
  414.         Print "MUST BE SOMETHING!"
  415.         AnsiPos 31, 13
  416.         Delay 1
  417.         Color 15
  418.         Print "MUST BE SOMETHING!"
  419.         AnsiPos 31, 13
  420.         Delay 1
  421.         Color 7
  422.         Print "MUST BE SOMETHING!"
  423.         AnsiPos 31, 13
  424.         Delay 1
  425.         Color 8
  426.         Print "MUST BE SOMETHING!"
  427.         AnsiPos 29, 13
  428.         Delay 1
  429.         Color 8
  430.         Print "@X08····················"
  431.         Goto LABEL015
  432.     Endif
  433.     STRING005 = STRING006 + "GREATEST.NOT"
  434.     FAppend 1, STRING005, 1, 3
  435.     FPutLn 1, STRING014
  436.     FPutLn 1, STRING013
  437.     FClose 1
  438.     For INTEGER007 = 1 To INTEGER006
  439.         If (StripAtx(TSTRING002(INTEGER007)) == STRING014) Then
  440.             TSTRING001(INTEGER007) = STRING013
  441.         Endif
  442.     Next
  443.     Cls
  444.     INTEGER017 = 32
  445.     INTEGER016 = 11
  446.     STRING019 = "Ok, here we go..."
  447.     Gosub LABEL018
  448.     Cls
  449.     AnsiPos 11, 5
  450.     Print "                             @X0B▄▄"
  451.     AnsiPos 11, 6
  452.     Print "@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ @X3B████@X08 ▄▄▄▄ @X0B█@X3B██@X0B█ @X3B████@X0E @X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  453.     AnsiPos 11, 7
  454.     Print "@X08█@X7F███▓▒░@X07██▀▀▀▀▀▀▀█ @X3B████@X03 @X07█@X7F░▒▓@X0F▌@X0B▐@X3B██@X0B▌ @X3B████@X0E @X7F▒▓█▓▒░@X07▀▀▀▀▀▀▀████@X7F░▒▓█@X08█"
  455.     AnsiPos 11, 8
  456.     Print "@X08█@X7F██▓▒░@X07██ @X0B▄█@X3B▓@X03▀@X3B░@X38░@X08▄  @X3B███▓@X0E @X7F░▒▓█@X0F▌ @X0B▀▀  @X3B███▓@X0E @X7F▓█▓▒░@X03 @X0B▄█@X3B▓@X03▀@X3B░@X38░@X08▄ @X07██@X7F░▒▓██@X08█"
  457.     AnsiPos 11, 9
  458.     Print "@X08█@X7F█▓▒░@X07██▌@X0B▐█@X3B▓▒@X0E @X38░▒▓@X08▌ @X3B██▓▒@X08 @X7F▒▓█@X0F█ @X3B██▓▒@X0E @X3B██▓▒@X0E @X7F█▓▒░@X07▌@X0B▐█@X3B▓▒@X0E @X38░▒▓@X08▌@X07▐@X7F░▒▓███@X08█"
  459.     AnsiPos 11, 10
  460.     Print "@X08▀▀▀▀▀▀▀ @X0B█@X3B▓▒░@X0E @X03▀@X08▀▀▀ @X3B█▓▒░@X08 ▀▀▀▀ @X3B█▓▒░@X0E @X3B█▓▒░@X0E @X08▀▀▀▀ @X0B█@X3B▓▒░@X0E @X38▒▓█▓@X0E @X08▀▀▀▀▀▀▀"
  461.     AnsiPos 11, 11
  462.     Print "         @X03▀▀▀@X08▀@X38▓█▓@X03▄ @X3B▓▒░@X38░@X03▀▀@X08▀▀  @X3B▓▒░@X38░@X0E @X3B▓▒░@X38░@X0E @X08¡Pf! @X3B▓▒░@X38░@X03▀@X08▀▀▀"
  463.     AnsiPos 11, 12
  464.     Print "        @X3B▒░@X38░▒@X0E @X38█▓▒░@X0E @X3B▒░@X38░▒@X0E @X38█▓▒░@X0E @X3B▒░@X38░▒@X0E @X3B▒░@X38░▒@X0E @X38█▓▒░@X0E @X3B▒░@X38░▒@X0E @X38█▓▒░"
  465.     AnsiPos 11, 13
  466.     Print "@X0F        @X03▐@X38░▒▓@X0E @X38▓▒░@X03▌ ▐@X38░▒▓@X0E @X38▓▒░@X03▌ @X3B░@X38░▒▓@X0E @X03▐@X38░▒▓@X0E @X38▓▒░@X03▌ ▐@X38░▒▓@X0E @X38▓▒░@X03▌"
  467.     AnsiPos 11, 14
  468.     Print "@X03         ▀@X38▓█@X08▄@X38▒░@X03▀   ▀@X38▓█@X08▄@X38▒░@X03▀  @X38░▒▓█@X0E  @X03▀@X38▓█@X08▄@X38▒░@X03▀   ▀@X38▓█@X08▄@X38▒░@X03▀"
  469.     AnsiPos 11, 15
  470.     Print ""
  471.     AnsiPos 11, 16
  472.     Print "           @X0Fs@X07T@X08¡@X0FLe @X0BP@X03roductions @X0B1@X03994 - @X0BJ@X03ust @X0Bf@X03or @X0Bf@X03un!"
  473.     AnsiPos 11, 18
  474.     Print "                   @X07(@X0BA@X03ny @X0Bk@X03ey @X0Bt@X03o @X0Bc@X03ontinue@X07)"
  475.     BOOLEAN001 = 0
  476.     :LABEL016
  477.     If (BOOLEAN001) Goto LABEL017
  478.     STRING018 = ""
  479.     STRING018 = Inkey()
  480.     If (STRING018 <> "") Then
  481.         BOOLEAN001 = 1
  482.     Endif
  483.     Goto LABEL016
  484.     :LABEL017
  485.     Return
  486.     :LABEL018
  487.     AnsiPos INTEGER017, INTEGER016
  488.     Delay 5
  489.     Color 8
  490.     Print STRING019
  491.     AnsiPos INTEGER017, INTEGER016
  492.     Delay 2
  493.     Color 7
  494.     Print STRING019
  495.     AnsiPos INTEGER017, INTEGER016
  496.     Delay 2
  497.     Color 15
  498.     Print STRING019
  499.     AnsiPos INTEGER017, INTEGER016
  500.     Delay 50
  501.     Color 7
  502.     Print STRING019
  503.     AnsiPos INTEGER017, INTEGER016
  504.     Delay 2
  505.     Color 8
  506.     Print STRING019
  507.     AnsiPos INTEGER017, INTEGER016
  508.     Delay 2
  509.     Color 0
  510.     Print STRING019
  511.     Return
  512.     :LABEL019
  513.     Gosub LABEL050
  514.     AnsiPos 9, 21
  515.     Print "@X0BP@X03lease @X0Be@X03nter @X0Bt@X03he @X0Bn@X03ame @X0Bof @X0Bt@X03he @X0Bu@X03ser @X0Bt@X03o @X0Bb@X03e @X0Bf@X03ound, @X07[@X0FENTER@X07] @X0Bt@X03o @X0Ba@X03bort."
  516.     :LABEL020
  517.     BOOLEAN005 = 0
  518.     STRING009 = ""
  519.     AnsiPos 26, 22
  520.     Print "@X07[@X08·························@X07]"
  521.     AnsiPos 27, 22
  522.     InputStr "_", STRING009, 9, 25, BIGSTR001, 8
  523.     INTEGER007 = U_RecNum(STRING009)
  524.     If (STRING009 == "") Then
  525.         Goto LABEL021
  526.     Endif
  527.     If (INTEGER007 == -1) Then
  528.         AnsiPos 27, 22
  529.         Color 8
  530.         Print "·NOT EVEN ON THIS BOARD!·"
  531.         Delay 1
  532.         AnsiPos 28, 22
  533.         Color 7
  534.         Print "NOT EVEN ON THIS BOARD!"
  535.         Delay 1
  536.         AnsiPos 28, 22
  537.         Color 15
  538.         Print "NOT EVEN ON THIS BOARD!"
  539.         Delay 1
  540.         AnsiPos 28, 22
  541.         Color 7
  542.         Print "NOT EVEN ON THIS BOARD!"
  543.         Delay 1
  544.         AnsiPos 28, 22
  545.         Color 8
  546.         Print "NOT EVEN ON THIS BOARD!"
  547.         Delay 1
  548.         AnsiPos 28, 22
  549.         Color 7
  550.         Print "NOT EVEN ON THIS BOARD!"
  551.         Delay 1
  552.         AnsiPos 28, 22
  553.         Color 15
  554.         Print "NOT EVEN ON THIS BOARD!"
  555.         Delay 1
  556.         AnsiPos 28, 22
  557.         Color 7
  558.         Print "NOT EVEN ON THIS BOARD!"
  559.         Delay 1
  560.         AnsiPos 28, 22
  561.         Color 8
  562.         Print "NOT EVEN ON THIS BOARD!"
  563.         Delay 1
  564.         AnsiPos 27, 22
  565.         Print "·························"
  566.         Goto LABEL020
  567.     Endif
  568.     For INTEGER007 = 1 To 100
  569.         If (STRING009 == StripAtx(TSTRING002(INTEGER007))) Then
  570.             BOOLEAN005 = 1
  571.             INTEGER008 = INTEGER007
  572.         Endif
  573.     Next
  574.     If (BOOLEAN005) Then
  575.         INTEGER010 = INTEGER008
  576.     Else
  577.         AnsiPos 27, 22
  578.         Color 8
  579.         Print "·NOT ON THE LIST, NO UL!·"
  580.         Delay 1
  581.         AnsiPos 28, 22
  582.         Color 7
  583.         Print "NOT ON THE LIST, NO UL!"
  584.         Delay 1
  585.         AnsiPos 28, 22
  586.         Color 15
  587.         Print "NOT ON THE LIST, NO UL!"
  588.         Delay 1
  589.         AnsiPos 28, 22
  590.         Color 7
  591.         Print "NOT ON THE LIST, NO UL!"
  592.         Delay 1
  593.         AnsiPos 28, 22
  594.         Color 8
  595.         Print "NOT ON THE LIST, NO UL!"
  596.         Delay 1
  597.         AnsiPos 28, 22
  598.         Color 7
  599.         Print "NOT ON THE LIST, NO UL!"
  600.         Delay 1
  601.         AnsiPos 28, 22
  602.         Color 15
  603.         Print "NOT ON THE LIST, NO UL!"
  604.         Delay 1
  605.         AnsiPos 28, 22
  606.         Color 7
  607.         Print "NOT ON THE LIST, NO UL!"
  608.         Delay 1
  609.         AnsiPos 28, 22
  610.         Color 8
  611.         Print "NOT ON THE LIST, NO UL!"
  612.         Delay 1
  613.         AnsiPos 27, 22
  614.         Print "·························"
  615.         Goto LABEL020
  616.     Endif
  617.     :LABEL021
  618.     Gosub LABEL046
  619.     Return
  620.     :LABEL022
  621.     For INTEGER007 = 8 To 23
  622.         AnsiPos 1, INTEGER007
  623.         ClrEol
  624.     Next
  625.     Return
  626.     :LABEL023
  627.     AnsiPos 6, 9
  628.     Print "@X08∙■░■▀▀▀▀▀@X07▀@X08▀@X07▀▀@X08▀@X07▀▀▀@X0F▀@X07▀@X0F▀▀@X07▀@X0F▀▀▀@X07▀@X0F▀▀@X07▀@X0F▀@X07▀▀@X0F▀@X07▀▀▀@X08▀@X07▀▀@X08▀@X07▀▀@X08▀▀@X07▀@X08▀▀▀@X07▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■∙"
  629.     AnsiPos 6, 10
  630.     Print "@X08  ▒  @X3B█▓@X0B▀@X3B█▓@X0E @X3B█▓@X0B▀@X3B█▓@X03 @X3B█▓@X0B▄▄  @X3B█▓@X0B▀@X3B█▓@X0E  @X3B█▓@X0B▀@X3B█▓@X0E @X3B█▓@X0B▄▄  @X3B█▓@X0B▀@X3B█▓@X0E @X3B█▓@X0B▀@X3B█▓@X0E @X3B█▓@X0B▀@X3B█▓@X0E @X3B█▓@X0B▀@X3B█▓@X0E  @X08▒"
  631.     AnsiPos 6, 11
  632.     Print "@X08  ▓  @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X03 @X3B▓▒@X0E    @X3B▓▒@X0E @X3B▓▒@X0E  @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X03 @X3B▓▒@X0E @X0B▀▀ @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X0E @X3B▓▒@X0E  @X08▓"
  633.     AnsiPos 6, 12
  634.     Print "@X08  ▓  @X3B▒░@X0E @X3B▒░@X0E @X3B▒░@X03 @X3B▒░@X03 @X3B▒░@X03    @X3B▒░@X03▀▀   @X3B▒░@X0E    @X3B▒░@X03 @X3B▒░@X0E @X03▄@X3B░@X03▀@X3B▒░@X0E @X3B▒░@X0E @X3B▒░@X0E  @X03▀▀@X3B▒░@X0E @X3B▒░@X03▀▀   @X08▓"
  635.     AnsiPos 6, 13
  636.     Print "@X08  ▒  @X3B░@X03█ @X3B░@X03█ @X3B░@X03█▄@X3B░@X03█ @X3B░@X03█▄██ @X3B░@X03█▄@X3B░@X03█  @X3B░@X03█▄@X3B░@X03█ @X3B░@X03█ @X3B░@X03█ @X3B░@X03█▄@X3B░@X03█ @X3B░@X03█ @X3B░@X03█ @X3B░@X03█▄@X3B░@X03█ @X3B░@X03█▄@X3B░@X03█  @X08▒"
  637.     AnsiPos 6, 14
  638.     Print "@X08∙■░■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄@X08▄@X07▄▄@X08▄@X07▄▄▄@X0F▄@X07▄@X0F▄▄@X07▄@X0F▄▄▄@X07▄@X0F▄▄@X07▄@X0F▄@X07▄▄@X0F▄@X07▄▄▄@X08▄@X07▄▄@X08▄@X07▄▄@X08▄▄@X07▄@X08▄▄▄@X07▄@X08▄▄▄▄▄■░■∙"
  639.     AnsiPos 13, 16
  640.     Print "@X0BP@X03lease @X0Be@X03nter @X0By@X03our @X0Bn@X03ew @X0Bn@X03ote, @X0Bw@X03ith @X0Ba m@X03aximum @X0Bo@X03f @X0B2@X032 @X0Bc@X03hars."
  641.     AnsiPos 23, 18
  642.     Print "@X0BO@X03ld @X07[@X08                      @X07]"
  643.     AnsiPos 28, 18
  644.     Color 9
  645.     Print TSTRING001(INTEGER015)
  646.     AnsiPos 23, 19
  647.     Print "@X0BN@X03ew @X07[@X08······················@X07]"
  648.     AnsiPos 28, 19
  649.     InputStr "_", STRING013, 9, 22, BIGSTR001, 8192
  650.     If (STRING013 <> "") Then
  651.         BOOLEAN002 = 0
  652.         STRING005 = STRING006 + "GREATEST.NOT"
  653.         FOpen 1, STRING005, 0, 3
  654.         FDefIn 1
  655.         INTEGER007 = 1
  656.         :LABEL024
  657.         If (BOOLEAN002) Goto LABEL026
  658.         STRING009 = ""
  659.         STRING010 = ""
  660.         FGet 1, STRING009
  661.         FGet 1, STRING010
  662.         If (STRING009 == "") Then
  663.             BOOLEAN002 = 1
  664.             Goto LABEL025
  665.         Endif
  666.         If (STRING009 <> STRING014) Then
  667.             TSTRING015(INTEGER007) = STRING009
  668.             TSTRING016(INTEGER007) = STRING010
  669.             Inc INTEGER007
  670.         Endif
  671.         :LABEL025
  672.         Goto LABEL024
  673.         :LABEL026
  674.         FClose 1
  675.         STRING005 = STRING006 + "GREATEST.NOT"
  676.         Delete STRING005
  677.         FOpen 5, STRING005, 2, 0
  678.         FDefOut 5
  679.         For INTEGER008 = 1 To INTEGER007 - 1
  680.             FDPutLn TSTRING015(INTEGER008)
  681.             FDPutLn TSTRING016(INTEGER008)
  682.         Next
  683.         FDPutLn STRING014
  684.         FDPutLn STRING013
  685.         FClose 5
  686.     Endif
  687.     AnsiPos 13, 21
  688.     Print "@X0BY@X03our @X0Bn@X03ew @X0Bn@X03ote @X0Bw@X03ill @X0Ba@X03ppear @X0Ba@X03fter @X0Bn@X03ext @X0Bu@X03pdate @X0Bo@X03f @X0Bt@X03he @X0Bl@X03ist."
  689.     Delay 45
  690.     Return
  691.     :LABEL027
  692.     AnsiPos 4, 23
  693.     Print "                                                                        "
  694.     AnsiPos 4, 23
  695.     Print "             @X0FT@X07H@X08E @X0FG@X07R@X08EATEST @X0Fv@X071@X08.o @X0BC@X03oded @X0Bb@X03y @X09PfezzyO @X07\ @X09STiLE^94@X07!"
  696.     Delay 6
  697.     AnsiPos 44, 23
  698.     Print "@X07P@X09fezzyO @X07\ @X09STiLE^9@X074"
  699.     Delay 1
  700.     AnsiPos 44, 23
  701.     Print "@X09@X0FP@X07f@X09ezzyO @X07\ @X09STiLE^@X079@X0F4"
  702.     Delay 1
  703.     AnsiPos 44, 23
  704.     Print "@X09@X07P@X0Ff@X07e@X09zzyO @X07\ @X09STiLE@X07^@X0F9@X074"
  705.     Delay 1
  706.     AnsiPos 44, 23
  707.     Print "@X09P@X07f@X0Fe@X07z@X09zyO @X07\ @X09STiL@X07E@X0F^@X079@X094"
  708.     Delay 1
  709.     AnsiPos 44, 23
  710.     Print "@X09Pf@X07e@X0Fz@X07z@X09yO @X07\ @X09STi@X07L@X0FE@X07^@X0994"
  711.     Delay 1
  712.     AnsiPos 44, 23
  713.     Print "@X09Pfe@X07z@X0Fz@X07y@X09O @X07\ @X09ST@X07i@X0FL@X07E@X09^94"
  714.     Delay 1
  715.     AnsiPos 44, 23
  716.     Print "@X09Pfez@X07z@X0Fy@X07O @X07\ @X09S@X07T@X0Fi@X07L@X09E^94"
  717.     Delay 1
  718.     AnsiPos 44, 23
  719.     Print "@X09Pfezz@X07y@X0FO @X07\ S@X0FT@X07i@X09LE^94"
  720.     Delay 1
  721.     AnsiPos 44, 23
  722.     Print "@X09Pfezzy@X07O @X07\ @X0FS@X07T@X09iLE^94"
  723.     Delay 1
  724.     AnsiPos 44, 23
  725.     Print "@X09PfezzyO @X07\ S@X09TiLE^94"
  726.     Delay 1
  727.     AnsiPos 44, 23
  728.     Print "@X09PfezzyO @X07\ @X09STiLE^94"
  729.     Return
  730.     :LABEL028
  731.     AnsiPos 4, 23
  732.     Print "                                                                         "
  733.     AnsiPos 12, 23
  734.     Print "@X0Fs@X07T@X08¡@X07L@X0Fe @X0BP@X03roductions @X0B1@X03994 @X07- @X0BT@X03he @X0BC@X03reative @X0BT@X03eam @X07- @X0BJ@X03ust @X0Bf@X03or @X0Bf@X03un!"
  735.     Return
  736.     :LABEL029
  737.     INTEGER014 = 0
  738.     If (Len(STRING012) > 18) Then
  739.         INTEGER014 = 0
  740.     ElseIf (Len(STRING012) > 16) Then
  741.         INTEGER014 = 1
  742.     ElseIf (Len(STRING012) > 14) Then
  743.         INTEGER014 = 2
  744.     ElseIf (Len(STRING012) > 12) Then
  745.         INTEGER014 = 3
  746.     ElseIf (Len(STRING012) > 10) Then
  747.         INTEGER014 = 4
  748.     ElseIf (Len(STRING012) > 8) Then
  749.         INTEGER014 = 5
  750.     ElseIf (Len(STRING012) > 6) Then
  751.         INTEGER014 = 6
  752.     ElseIf (Len(STRING012) > 4) Then
  753.         INTEGER014 = 7
  754.     ElseIf (Len(STRING012) > 2) Then
  755.         INTEGER014 = 8
  756.     ElseIf (Len(STRING012) > 0) Then
  757.         INTEGER014 = 9
  758.     Endif
  759.     AnsiPos 4, 23
  760.     Print "                                                                          "
  761.     AnsiPos 4 + INTEGER014, 23
  762.     Print "  @X0BT@X03his @X0Bis @X0Bt@X03he @X0Bg@X03reatest @X0Bo@X03n "
  763.     Color 9
  764.     Print STRING012
  765.     Print "@X08, @X0Ba@X03re @X0By@X03ou @X0Bo@X03ne @X0Bo@X03f @X0Bt@X03he @X0Bb@X03est?"
  766.     Delay 1
  767.     AnsiPos 30 + INTEGER014, 23
  768.     Color 1
  769.     Print STRING012
  770.     Delay 1
  771.     AnsiPos 30 + INTEGER014, 23
  772.     Color 8
  773.     Print STRING012
  774.     Delay 1
  775.     AnsiPos 30 + INTEGER014, 23
  776.     Color 9
  777.     Print STRING012
  778.     Delay 1
  779.     AnsiPos 30 + INTEGER014, 23
  780.     Color 7
  781.     Print STRING012
  782.     Delay 1
  783.     AnsiPos 30 + INTEGER014, 23
  784.     Color 11
  785.     Print STRING012
  786.     Delay 1
  787.     AnsiPos 30 + INTEGER014, 23
  788.     Color 15
  789.     Print STRING012
  790.     Return
  791.     :LABEL030
  792.     STRING005 = STRING006 + "GREATEST.LST"
  793.     FOpen 1, STRING005, 0, 3
  794.     FGet 1, STRING007
  795.     FGet 1, STRING007
  796.     FGet 1, STRING007
  797.     INTEGER006 = S2I(STRING007, 10)
  798.     For INTEGER007 = 1 To INTEGER006
  799.         FGet 1, TSTRING002(INTEGER007)
  800.         FGet 1, TSTRING001(INTEGER007)
  801.         FGet 1, TSTRING003(INTEGER007)
  802.         FGet 1, TSTRING004(INTEGER007)
  803.         FGet 1, TSTRING008(INTEGER007)
  804.         If (StripAtx(TSTRING002(INTEGER007)) == STRING014) Then
  805.             INTEGER015 = INTEGER007
  806.             If (TSTRING001(INTEGER007) <> "") Then
  807.                 BOOLEAN004 = 1
  808.             Endif
  809.         Endif
  810.     Next
  811.     FClose 1
  812.     Return
  813.     :LABEL031
  814.     INTEGER009 = 0
  815.     For INTEGER007 = INTEGER010 To INTEGER010 + 9
  816.         Inc INTEGER009
  817.         AnsiPos 4, INTEGER009 + 9
  818.         Print "  "
  819.         AnsiPos 4, INTEGER009 + 9
  820.         Print TSTRING008(INTEGER007)
  821.     Next
  822.     INTEGER009 = 0
  823.     For INTEGER007 = INTEGER010 To INTEGER010 + 9
  824.         Inc INTEGER009
  825.         Gosub LABEL033
  826.     Next
  827.     INTEGER009 = 0
  828.     For INTEGER007 = INTEGER010 To INTEGER010 + 9
  829.         Inc INTEGER009
  830.         Gosub LABEL034
  831.     Next
  832.     INTEGER009 = 0
  833.     For INTEGER007 = INTEGER010 To INTEGER010 + 9
  834.         Inc INTEGER009
  835.         Gosub LABEL035
  836.     Next
  837.     INTEGER009 = 0
  838.     For INTEGER007 = INTEGER010 To INTEGER010 + 9
  839.         Inc INTEGER009
  840.         Gosub LABEL036
  841.     Next
  842.     Return
  843.     :LABEL032
  844.     STRING017 = StripAtx(TSTRING002(INTEGER008))
  845.     AnsiPos 9, 10
  846.     Delay 1
  847.     Color 1
  848.     Print STRING017
  849.     AnsiPos 9, 10
  850.     Delay 1
  851.     Color 8
  852.     Print STRING017
  853.     AnsiPos 9, 10
  854.     Delay 1
  855.     Color 9
  856.     Print STRING017
  857.     AnsiPos 9, 10
  858.     Delay 1
  859.     Color 7
  860.     Print STRING017
  861.     AnsiPos 9, 10
  862.     Delay 1
  863.     Color 11
  864.     Print STRING017
  865.     AnsiPos 9, 10
  866.     Delay 1
  867.     Color 15
  868.     Print STRING017
  869.     Return
  870.     :LABEL033
  871.     AnsiPos 9, INTEGER009 + 9
  872.     Print "                    "
  873.     AnsiPos 9, INTEGER009 + 9
  874.     Print TSTRING002(INTEGER007)
  875.     Return
  876.     :LABEL034
  877.     INTEGER011 = 13 - Len(StripAtx(TSTRING003(INTEGER007)))
  878.     AnsiPos 32, INTEGER009 + 9
  879.     Print "             "
  880.     AnsiPos 32 + INTEGER011, INTEGER009 + 9
  881.     Print TSTRING003(INTEGER007)
  882.     Return
  883.     :LABEL035
  884.     AnsiPos 48, INTEGER009 + 9
  885.     Print "                      "
  886.     Color 9
  887.     AnsiPos 48, INTEGER009 + 9
  888.     Print TSTRING001(INTEGER007)
  889.     Return
  890.     :LABEL036
  891.     INTEGER011 = 5 - Len(StripAtx(TSTRING004(INTEGER007)))
  892.     AnsiPos 73, INTEGER009 + 9
  893.     Print "     "
  894.     AnsiPos 73 + INTEGER011, INTEGER009 + 9
  895.     Print TSTRING004(INTEGER007)
  896.     Return
  897.     :LABEL037
  898.     AnsiPos 1, 8
  899.     Print " @X09─-@X0F∩@X08o@X09─-      ─-@X0FH@X08A∩DLE@X09─-          ─-@X0Fß@X08YTES@X09─-            ─-@X0F∩@X08oTE@X09─-        ─-@X0FC@X08ALLS@X09─- "
  900.     AnsiPos 1, 9
  901.     Print "@X08■░■▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀■░■"
  902.     AnsiPos 1, 10
  903.     Print "@X08▌░    ░                      ░               ░                        ░       ░▐"
  904.     AnsiPos 1, 11
  905.     Print "@X08|░    ░                      ░               ░                        ░       ░|"
  906.     AnsiPos 1, 12
  907.     Print "@X08:▒    ▒                      ▒               ▒                        ▒       ▒:"
  908.     AnsiPos 1, 13
  909.     Print "@X08∙▓    ▓                      ▓               ▓                        ▓       ▓∙"
  910.     AnsiPos 1, 14
  911.     Print "@X08 █    █                      █               █                        █       █ "
  912.     AnsiPos 1, 15
  913.     Print "@X08 █    █                      █               █                        █       █ "
  914.     AnsiPos 1, 16
  915.     Print "@X08∙▓    ▓                      ▓               ▓                        ▓       ▓∙"
  916.     AnsiPos 1, 17
  917.     Print "@X08:▒    ▒                      ▒               ▒                        ▒       ▒:"
  918.     AnsiPos 1, 18
  919.     Print "@X08|░    ░                      ░               ░                        ░       ░|"
  920.     AnsiPos 1, 19
  921.     Print "@X08▌░    ░                      ░               ░                        ░       ░▐"
  922.     AnsiPos 1, 20
  923.     Print "@X08■░■▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄■░■"
  924.     Gosub LABEL046
  925.     Return
  926.     :LABEL038
  927.     Cls
  928.     INTEGER012 = Random(3)
  929.     Select Case (INTEGER012)
  930.         Case 0
  931.             Goto LABEL039
  932.         Case 1
  933.             Goto LABEL040
  934.         Case 2
  935.             Goto LABEL041
  936.     End Select
  937.     :LABEL039
  938.     AnsiPos 1, 1
  939.     Print "@X08■■▀■▀▀■▀▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀▀■▀▀■▀■■"
  940.     AnsiPos 1, 2
  941.     Print "@X08 @X0F██     @X19██@X07              @X0F▄@X7F█@X0F▀▀@X7F██@X07                      @X19██@X07                   @X19██@X07"
  942.     AnsiPos 1, 3
  943.     Print "@X07 @X0F█@X7F▓@X0F▀▀@X7F█▓@X07 @X19██@X09▀▀@X19█@X09▄ ▄@X19█@X09▀▀@X19█@X09▄   @X7F█▓@X07     @X09▄@X19█@X09▀▀@X19██@X07 @X09▄@X19█@X09▀▀"
  944.     Print "@X19█@X09▄ ▄@X19█@X09▀▀@X19█@X09▄ @X19██@X09▀▀@X19██@X07 @X09▄@X19█@X09▀▀@X19█@X09▄ ▄@X19█@X09▀▀@X19█@X09▄ @X19██@X09▀▀@X19██"
  945.     AnsiPos 1, 4
  946.     Print "@X07 @X7F▒▒@X07     @X19█▓@X07  @X19█▓@X07 @X19█▓@X09▀▀▀    @X7F▒▒@X07 @X7F▒▒@X07▄ @X19█▓@X07     @X19█▓@X09▀▀▀   ▄▄▄@X19█▓@X07 @X19█▓@X09     @X19█▓@X09▀▀▀  @X19█▓@X09▄▄▄  @X19█▓"
  947.     AnsiPos 1, 5
  948.     Print "@X07 @X7F▒░@X07  @X7F▒░@X07 @X19▓▒@X07  @X19▓▒@X07 @X19▓▒@X07  @X19▓▒@X07   @X7F▒░@X07  @X7F▒░@X07 @X19▓▒@X07     @X19▓▒@X07  @X19▓▒@X07 @X19▓▒"
  949.     Print "@X07  @X19▓▒@X07 @X19▓▒@X07  @X19▓▒@X07 @X19▓▒@X07  @X19▓▒@X07     @X19▓▒@X07 @X19▓▒@X07  @X19▓▒"
  950.     AnsiPos 1, 6
  951.     Print "@X07 @X7F░░@X07▄▄@X7F░░@X07 @X19▒░@X07  @X19▒░@X07 @X19▒░@X01▄■@X19▒░@X07   @X7F░░@X07▄▄@X7F░░@X07 @X19▒░@X07     "
  952.     Print "@X19▒░@X01▄■@X19▒░@X07 @X19▒░@X01▄■@X19▒░@X07 @X19▒░@X01▄■@X19▒░@X07 @X19▒░@X01▄■@X19▒░@X07 @X19▒░@X01▄■@X19▒░@X07 @X19▒░@X01▄■@X19▒░"
  953.     AnsiPos 1, 7
  954.     Print "@X08■■▄■▄▄■▄▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄▄■▄▄■▄■■"
  955.     Goto LABEL042
  956.     :LABEL040
  957.     AnsiPos 1, 1
  958.     Print "@X08■■▀■▀▀■▀▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀▀■▀▀■▀■■"
  959.     AnsiPos 1, 2
  960.     Print "@X08     @X09▄@X19█@X09▀▀@X19██@X09▄  ▄@X19█@X09▀▀@X19██@X09▄  ▄@X19█@X09▀▀@X19██@X09▄  ▄@X19█@X09▀▀@X19██@X09▄  @X19██@X09▄▄▄▄   ▄@X19█@X09▀▀@X19██@X09▄  ▄@X19█@X09▀▀@X19██@X09▄▄▄@X19██@X09▄▄▄▄"
  961.     AnsiPos 1, 3
  962.     Print "@X09    ▐@X19▓@X09█  @X19▓@X09█@X19▓@X07 @X09▐@X19▓@X09█  █@X19▓▓@X07 @X09▐@X19▓▓@X07  @X19▓@X09█@X19▓@X07 @X09▐@X19▓▓@X07  @X09█@X19▓▓@X07 @X09▐@X19▓@X09█      ▐█@X19▓@X07  @X09█@X19▓▓@X07 @X09▐@X19▓@X09█      ▐█@X19▓"
  963.     AnsiPos 1, 4
  964.     Print "@X0E    @X19▓▒▓@X07      @X19▓▒▓@X07      @X19▓▒▓@X09▀▀▀▀   ▄▄▄▄@X19▓▓▒@X07 @X19▓▒▓@X07  @X19▓▓▒@X07 @X19▓▓▒@X09▀▀▀▀   ▀▀▀▀@X19▓▓@X09▄ @X19▓▒▓@X07  @X19▒▓▓"
  965.     AnsiPos 1, 5
  966.     Print "@X0E    @X19▒▒░@X07 @X19▒▒▒@X01▄ @X19▒░▒@X07      @X19▒▒░@X07  @X19▒░▒@X07 @X19▒▒▒@X07  @X19▒░▒@X07 @X19▒▒░@X07  @X19▒▒░@X07 @X19▒▒░@X07  @X01▄@X19░▒@X01▀@X19░▒@X01▄  @X19▒░▒@X07 @X19▒▒░@X07  @X19░▒▒"
  967.     AnsiPos 1, 6
  968.     Print "@X0E    @X01▀@X19░░@X01▄▄@X19░░@X01▀ @X19░░░@X07      @X01▀@X19░░@X01▄▄@X19░░@X01▀ ▀@X19░░@X01▄▄@X19░░░@X07 @X01▀@X19░░@X01▄▄@X19░░@X01▀ ▀@X19░░@X01▄▄@X19░░@X01▀ ▀@X19░░@X01▄▄@X19░░@X01▀ ▀@X19░░@X01▄▄@X19░░@X01▀"
  969.     AnsiPos 1, 7
  970.     Print "@X08■■▄■▄▄■▄▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄▄■▄▄■▄■■"
  971.     Goto LABEL042
  972.     :LABEL041
  973.     AnsiPos 1, 1
  974.     Print "@X08■■▀■▀▀■▀▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀▀■▀▀■▀■■"
  975.     AnsiPos 1, 2
  976.     Print " @X3B██@X0E     @X19██@X0E     @X09▄@X19█@X09▀▀@X19█@X09▄   @X0B▄@X3B█@X0B▀▀@X3B█@X0B▄ @X09▄@X19█@X09▀▀█▄ ▄@X19█@X09▀▀@X19█@X09▄ ▄@X19█@X09▀▀@X19█@X09▄ @X19██@X0E     @X09▄@X19█@X09▀▀@X19█@X09▄ ▄@X19█@X09▀▀█▄ @X19██"
  977.     AnsiPos 1, 3
  978.     Print "@X09 @X3B█▓@X0B▀▀   @X19█▓@X09▄▄▄  @X19█▓@X0E  @X19█▓@X0E   @X3B█▓@X0E  @X3B█▓@X0E @X19█▓@X0E  @X09█@X19▓@X0E @X19█▓@X0E  @X19█▓@X0E @X09▀▀  @X19█▓@X0E @X19█▓@X09▀▀   @X19█▓@X0E  @X19█▓@X0E @X19█▓@X0E  @X09▀▀ @X19█▓@X09▀▀"
  979.     AnsiPos 1, 4
  980.     Print " @X3B▓▒@X0E     @X19▓▒@X0E  @X19▓▒@X0E @X19▓▒@X09▀▀▀     @X0B▀▀▀@X3B▓▒@X0E @X19▓▒@X0E     @X19▓▒@X09▀▀▀  ▄@X19▓@X09▀▀@X19▓▒@X0E @X19▓▒@X0E     @X19▓▒@X09▀▀▀   ▀▀▀@X19▓@X09▄ @X19▓▒"
  981.     AnsiPos 1, 5
  982.     Print "@X09 @X3B▒░@X0E  @X3B▒░@X0E @X19▒░@X0E  @X19▒░@X0E @X19▒░@X0E  @X19▒░@X01   @X3B▒░@X0E  @X3B▒░@X0E @X19▒░@X0E     @X19▒░@X0E  @X19▒░@X0E @X19▒░@X0E  @X19▒░@X0E @X19▒░@X0E  @X19▒░@X0E @X19▒░@X0E  @X19▒░@X0E @X19▒░@X0E  @X19▒░@X0E @X19▒░@X0E  @X19▒░"
  983.     AnsiPos 1, 6
  984.     Print "@X09 @X3B░@X03█▄▄@X3B░@X03█ @X19░@X01█  @X19░@X01█ @X19░@X01█▄▄@X19░@X01█   @X3B░@X03█▄▄@X3B░@X03█ @X19░@X01█     @X19░@X01█▄▄@X19░@X01█ @X19░@X01█▄▄@X19░@X01█ @X19░@X01█▄▄@X19░@X01█ @X19░@X01█▄▄@X19░@X01█ @X19░@X01█▄▄@X19░@X01█ @X19░@X01█▄▄@X19░@X01█"
  985.     AnsiPos 1, 7
  986.     Print "@X08■■▄■▄▄■▄▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄▄■▄▄■▄■■"
  987.     :LABEL042
  988.     Return
  989.     :LABEL043
  990.     Cls
  991.     AnsiPos 1, 1
  992.     Print "@X0E            @X03▄@X38░░@X03▀▀@X3B░@X03▄       @X0B▄▄▄▄      ▀@X3B▓▒░@X38░▒░@X0E       @X0B▄@X03▄▄▄           ▄@X38░░@X03▀▀@X3B░@X03▄"
  993.     AnsiPos 1, 2
  994.     Print "@X03           @X38░▒@X03▀   @X3B▓▒░@X0E     @X3B█▓▓@X0B▀         ▀@X3B▒░@X38░▒ @X0E     @X3B▓▒░@X03▀           @X38░▒@X03▀   @X3B▓▒░"
  995.     AnsiPos 1, 3
  996.     Print "@X0E          @X38░▒@X03▌   @X0B▐@X3B▓█▒@X03▌   @X3B░░@X03▀             @X3B▒░@X38░░@X03▌   @X3B░░@X03▀            @X38░▒@X03▀   @X0B▐@X3B▓█▒@X0B▌"
  997.     AnsiPos 1, 4
  998.     Print "@X0B         @X38░░▒@X0E    @X0B▀@X3B█▓▓▒@X0E  @X3B░@X38░@X03▌               @X3B░@X38░▒@X0E   @X3B░@X38░@X03▌            @X3B░@X38░@X03▌    @X0B▀@X3B█▓█▓"
  999.     AnsiPos 1, 5
  1000.     Print "@X0E        @X03▐@X38░▒▓@X0E      @X0B▀@X3B▓▒@X0E @X03▐@X38░▒@X0E               @X03▐@X3B░@X38▒@X0E   @X03▐@X38░▒@X0E            @X03▐@X38░▒@X0E       @X0B▀@X3B▓█@X0B"
  1001.     AnsiPos 1, 6
  1002.     Print "@X0E       @X0B▄ @X38▒▓▒@X0E        @X0B▀ @X38░▒@X08▌               @X3B░@X38▒@X08▌   @X38░▒@X08▌            @X38░▒@X08▌         @X0B▀"
  1003.     AnsiPos 1, 7
  1004.     Print "@X0B     ▄@X3B█▓@X0E  @X03▀▀▀▀▀@X38░▒@X03▄   ▐@X38▒▓@X08▌▀@X03▀@X0B▀▀▀         @X3B░@X38░▒@X0E   @X03▐@X38▒▒@X08▌           @X03▐@X38▒▓@X08▌▀@X03▀@X0B▀▀▀"
  1005.     AnsiPos 1, 8
  1006.     Print "@X0B   ▄@X3B▓▓▓█@X0E       @X38▓▒▒@X03▌  @X38▒▒▓█@X0E             @X3B░▒@X38░@X03▌   @X38░▒▓█@X0E     @X0B▄     @X38▒▓▓█"
  1007.     AnsiPos 1, 9
  1008.     Print "@X0E  @X0B▐@X3B▓▓▓▒▓@X0B▌     @X08▄@X38▓▒░░@X0E  @X38░▒▓▓@X08▌     @X3B▓@X0B▄    @X03▐@X3B▒█▓░@X0E   @X3B @X38▒▒█@X08▌    @X3B█▓@X0B▄   @X38░▒▓█@X08▌     @X3B█@X0B▄"
  1009.     AnsiPos 1, 10
  1010.     Print "@X0B  @X3B░▒▓▒▒▓█@X0B▄   @X08▄@X38▓▒░░@X03▌  ▐@X38░▒▓█@X08▄   @X0B▄@X3B█▓█@X0B▄  @X3B▒▓██▓▒@X0E  @X03▐@X38░▒▓█@X08▄  @X0B▄@X3B▓█▓▓@X0B▄ @X03▐@X38░▒▓█@X08▄gas@X0B▄@X3B▓█▓@X0B▄"
  1011.     AnsiPos 1, 11
  1012.     Print "@X0B   @X3B░▒░▒▒▓▓██@X0B▄▄▄@X03▄@X3B░ @X0E    @X38░ @X03▄@X0B▄▄▄▄█@X3B▓▓▒▒▓@X0B▌ @X3B░▓▓███▒@X0B▄ @X38░ @X03▄@X0B▄▄▄█@X3B▓▓▓▒▒░@X03▌ @X38░ @X03▄@X0B▄▄▄█@X3B▓██▓▒▒░@X03▄"
  1013.     AnsiPos 1, 12
  1014.     Print "@X03    @X3B░░░▓▒▒▓▒▓▒░░@X38░@X0E      @X38░ @X3B░▒▓▒▓▒▒░▒░░@X0E @X03▐@X3B░▓▓▓@X0B█@X3B▓@X0E   @X38░ @X3B░▓▒▓▓▓▒░░░ @X0E  @X38░ @X3B░▓▒▓█▓▒▓▒░ @X03▌"
  1015.     AnsiPos 1, 13
  1016.     Print "@X03     ▀@X33 @X3B░▒░░ ░ @X38▒@X03▀        ▀@X33 @X3B░░▒░▒░░@X03█▀   @X33 @X3B░▓▒░@X0E     @X03▀@X33 @X3B░░▒░░░ @X03█▀    ▀@X33 @X3B░░▒░░░░ @X03█▀"
  1017.     AnsiPos 1, 14
  1018.     Print "@X03        ▀▀▀▀▀             ▀▀▀▀▀▀       @X33 @X3B░░@X0E        @X03▀▀▀▀▀▀         ▀▀▀▀▀▀▀"
  1019.     AnsiPos 1, 15
  1020.     Print "                                        @X03▀"
  1021.     AnsiPos 1, 16
  1022.     Print "@X08T@X07h@X08e G@X07r@X0Feate@X07s@X08t v@X071.@X08o   @X03@X0BC@X03ode: @X08P@X07f@X0Fezz@X07y@X08O@X0B\@X08s@X07T@X0F¡@X07L@X08e"
  1023.     Print "   @X0B/╡@X03nsi: @X08P@X07f@X0Fezz@X07y@X08O@X0B\@X08s@X07T@X0F¡@X07L@X08e @X0B& @X08G@X07a@X0Fngst@X07a@X08r@X0B\@X08s@X07T@X0F¡@X07L@X08e"
  1024.     AnsiPos 1, 17
  1025.     Print "@X08■▀■▀▀■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■▀▀■▀■"
  1026.     AnsiPos 1, 18
  1027.     Print "@X08  [@X0B┘@X08] @X07Smash Enter to continue.              @X08[@X0BC@X08] @X07Change your note."
  1028.     AnsiPos 1, 19
  1029.     Print "@X07 @X08[@X0B@X08/@X0B@X08] @X07Scroll the uploder list up & down.    @X08[@X0BF@X08] @X07Find user in upload list."
  1030.     AnsiPos 1, 20
  1031.     Print "   @X08[@X0BD@X08] @X07Flag UL list for download.            @X08[@X0BJ@X08] @X07Jump to position in list."
  1032.     AnsiPos 1, 21
  1033.     Print "@X07   @X08[@X0BE@X08] @X07Extra info on a user."
  1034.     AnsiPos 1, 22
  1035.     Print "@X07  @X07(@X03It takes a security level of @X0B"
  1036.     Print STRING020
  1037.     Print " @X03to use the @X08[@X0BE@X08] @X03command, your sec is @X0B"
  1038.     Print STRING021
  1039.     Print "@X03.@X07)"
  1040.     AnsiPos 1, 23
  1041.     Print "@X08■▄■▄▄■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■▄▄■▄■"
  1042.     BOOLEAN001 = 0
  1043.     :LABEL044
  1044.     If (BOOLEAN001) Goto LABEL045
  1045.     STRING018 = ""
  1046.     STRING018 = Inkey()
  1047.     If (STRING018 == Chr(13)) Then
  1048.         BOOLEAN001 = 1
  1049.     Endif
  1050.     Goto LABEL044
  1051.     :LABEL045
  1052.     Return
  1053.     :LABEL046
  1054.     AnsiPos 1, 21
  1055.     Print "@X08 ░  @X07[@X0F@X07\@X0F@X07] @X01M@X08OVE @X01U@X08P\@X01D@X08OW∩ @X09 @X07[@X0FENTER@X07] @X01C@X08O∩Ti∩UE @X09 @X07[@X0FC@X07] @X01@X01C@X08HA∩GE @X01∩@X08OTE @X09 @X07[@X0FE@X07] @X01E@X08XTRA @X01i@X08NFO  ░ "
  1056.     AnsiPos 1, 22
  1057.     Print "@X08 ░   @X07[@X0FF@X07] @X01@X01F@X08i∩D @X01U@X08SEΓ @X09 @X07[@X0FJ@X07] @X01J@X08UMP @X01T@X08O @X01P@X08OSiTiO∩ @X09 @X07[@X0FI@X07] @X01i@X08∩FO @X09 "
  1058.     If (BOOLEAN006) Goto LABEL047
  1059.     Print "@X07[@X0FD@X07] @X01F@X08LAG @X01L@X08iST @X01F@X08OΓ @X01D@X08L   ░ "
  1060.     Goto LABEL048
  1061.     :LABEL047
  1062.     Print "@X09T@X07HE @X09L@X07iST @X09i@X07S @X09F@X07LAGGED!   @X08░ "
  1063.     :LABEL048
  1064.     AnsiPos 1, 23
  1065.     Print "@X08 ■                                                                            ■"
  1066.     Return
  1067.     :LABEL049
  1068.     Gosub LABEL050
  1069.     AnsiPos 9, 21
  1070.     Print "@X0BP@X03lease @X0Be@X03nter @X0Bt@X03he @X0Bp@X03osition @X0Bi@X03n @X0Bt@X03he @X0Bl@X03ist @X0Bt@X03hat @X0By@X03ou @X0Bw@X03ant @X0Bt@X03o @X0Bj@X03ump @X0Bt@X03o."
  1071.     AnsiPos 38, 22
  1072.     Print "@X07[@X08···@X07]"
  1073.     AnsiPos 39, 22
  1074.     InputStr "_", INTEGER009, 9, 25, Mask_Num(), 8192
  1075.     If (INTEGER009 < INTEGER006 + 1) Then
  1076.         INTEGER010 = INTEGER009
  1077.     Else
  1078.         AnsiPos 28, 23
  1079.         Print "@X0BS@X03orry, @X0Bn@X03ot @X0Ba v@X03alid @X0Bp@X03osition."
  1080.         Delay 20
  1081.     Endif
  1082.     Return
  1083.     :LABEL050
  1084.     AnsiPos 3, 21
  1085.     Print "                                                                           "
  1086.     AnsiPos 3, 22
  1087.     Print "                                                                           "
  1088.     AnsiPos 3, 23
  1089.     Print "                                                                           "
  1090.     Return
  1091.     :LABEL051
  1092.     STRING005 = STRING006 + "GREATEST.NOT"
  1093.     BOOLEAN002 = 0
  1094.     FOpen 1, STRING005, 0, 3
  1095.     :LABEL052
  1096.     If (BOOLEAN002) Goto LABEL053
  1097.     FGet 1, STRING022
  1098.     FGet 1, STRING023
  1099.     If (STRING022 == STRING014) Then
  1100.         BOOLEAN004 = 1
  1101.         BOOLEAN002 = 1
  1102.     Endif
  1103.     If (STRING022 == "") Then
  1104.         BOOLEAN002 = 1
  1105.     Endif
  1106.     Goto LABEL052
  1107.     :LABEL053
  1108.     FClose 1
  1109.     Return
  1110.  
  1111. ;------------------------------------------------------------------------------
  1112. ;
  1113. ; Usage report (before postprocessing)
  1114. ;
  1115. ; ■ Statements used :
  1116. ;
  1117. ;    2       End
  1118. ;    7       Cls
  1119. ;    1       ClrEol
  1120. ;    60      Color 
  1121. ;    125     Goto 
  1122. ;    160     Let 
  1123. ;    216     Print 
  1124. ;    1       PrintLn 
  1125. ;    75      If 
  1126. ;    6       FOpen 
  1127. ;    1       FAppend 
  1128. ;    7       FClose 
  1129. ;    14      FGet 
  1130. ;    2       FPutLn 
  1131. ;    1       GetUser
  1132. ;    1       Delete 
  1133. ;    5       InputStr 
  1134. ;    47      Gosub 
  1135. ;    24      Return
  1136. ;    72      Delay 
  1137. ;    6       Inc 
  1138. ;    210     AnsiPos 
  1139. ;    1       FDefIn 
  1140. ;    1       FDefOut 
  1141. ;    4       FDPutLn 
  1142. ;    1       Flag 
  1143. ;    1       GetAltUser 
  1144. ;
  1145. ;
  1146. ; ■ Functions used :
  1147. ;
  1148. ;    2       -
  1149. ;    60      +
  1150. ;    6       -
  1151. ;    34      ==
  1152. ;    4       <>
  1153. ;    15      <
  1154. ;    14      <=
  1155. ;    12      >
  1156. ;    27      >=
  1157. ;    76      !
  1158. ;    28      &&
  1159. ;    16      ||
  1160. ;    15      Len(
  1161. ;    1       Upper()
  1162. ;    3       Mid()
  1163. ;    3       Chr()
  1164. ;    1       Random()
  1165. ;    2       U_Name()
  1166. ;    1       U_LDate()
  1167. ;    1       U_LDir()
  1168. ;    1       U_Ful()
  1169. ;    1       U_Fdl()
  1170. ;    1       U_Bdl()
  1171. ;    1       U_Bul()
  1172. ;    7       StripAtx()
  1173. ;    4       Inkey()
  1174. ;    1       Mask_Num()
  1175. ;    1       PPEPath()
  1176. ;    2       I2S()
  1177. ;    1       S2I()
  1178. ;    2       FileInf()
  1179. ;    2       U_RecNum()
  1180. ;
  1181. ;------------------------------------------------------------------------------
  1182. ;
  1183. ; Analysis flags : Rf
  1184. ;
  1185. ; R - Read user ■ 5
  1186. ;     User records are read, this may signify that someone wants to get
  1187. ;     various informations about a user (for example his password), but
  1188. ;     this may also be normal for a program accessing user records (for
  1189. ;     example a User Editor)
  1190. ;     ■ Search for : GETALTUSER
  1191. ;
  1192. ; f - Flag files for download ■ 3
  1193. ;     This may be normal if a PPE needs to send some files, but since
  1194. ;     this statement allows flagging of any file on the hard disk, you
  1195. ;     have to be carefull. Check!
  1196. ;     ■ Search for : FLAG
  1197. ;
  1198. ;------------------------------------------------------------------------------
  1199. ;
  1200. ; Postprocessing report
  1201. ;
  1202. ;    13      For/Next
  1203. ;    0       While/EndWhile
  1204. ;    46      If/Then or If/Then/Else
  1205. ;    2       Select Case
  1206. ;
  1207. ;------------------------------------------------------------------------------
  1208. ;                 AEGiS Corp - Break the routines, code against the machines!
  1209. ;------------------------------------------------------------------------------
  1210.