home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1997 January / CD_shareware_1-97.iso / DOS / COMUNICA / BPC-SD.ZIP / SD.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-04-08  |  25.5 KB  |  1,875 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.     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.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     String   TSTRING001(999)
  39.     String   TSTRING002(999)
  40.     String   TSTRING003(999)
  41.     String   TSTRING004(999)
  42.     String   STRING005
  43.     String   TSTRING006(999)
  44.     String   STRING007
  45.     String   TSTRING008(999)
  46.     String   STRING009
  47.     String   STRING010
  48.     String   TSTRING011(999)
  49.     String   STRING012
  50.     String   STRING013
  51.     String   STRING014
  52.     String   STRING015
  53.     String   STRING016
  54.     String   STRING017
  55.     String   STRING018
  56.     String   STRING019
  57.     String   STRING020
  58.     String   STRING021
  59.     String   STRING022
  60.     String   STRING023
  61.     String   STRING024
  62.     String   STRING025
  63.     String   STRING026
  64.     String   STRING027
  65.     String   STRING028
  66.     String   STRING029
  67.     String   STRING030
  68.     String   STRING031
  69.     String   STRING032
  70.     String   STRING033
  71.     String   STRING034
  72.     String   STRING035
  73.     String   STRING036
  74.     String   STRING037
  75.     String   STRING038
  76.     String   STRING039
  77.     String   STRING040
  78.  
  79. ;------------------------------------------------------------------------------
  80.  
  81.     Color 8
  82.     Cls
  83.     STRING016 = PPEPath() + "sd##"
  84.     STRING027 = "@X0F·@X08───@X07───@X0F───────@X07───@X08───@X0F·@X08─@X07──@X0F──@X07──@X08────@X0F·@X08─@X07──@X0F──@X07──@X08─@X0F·@X08─────@X0F·@X08──@X0F·@X08──────@X0F···"
  85.     STRING026 = "@X08└@X0F·@X08──── @X09(c)@X0D @X091995@X0D @X09by@X0D @X09Master@X0D @X09Death@X0D @X09... @X08──@X07──@X0F──@X07──@X0F──@X07──@X08────@X0F··"
  86.     PrintLn ""
  87.     PrintLn "@X01sy@X09SO@X0FP @X01do@X09WNLOA@X0FD @X01v@X09.2.@X0F0 @X01(@X09c@X0F) @X01'@X099@X0F5 @X01b@X09y @X01=@X09tM@X0FD= @X01- b@X09P@X0FC"
  88.     STRING028 = ReadLine(PPEPath() + "sd.cfg", 1)
  89.     If (Len(STRING028) > 1) Then
  90.         Goto LABEL001
  91.     Endif
  92.     Goto LABEL006
  93.     :LABEL001
  94.     PrintLn ""
  95.     PrintLn "@X08th@X05IS  @X08pr@X05OGRAM  @X08i@X05S @X08f@X05OR @X08pr@X05IVATE @X08us@X05AGE @X08on@X05LY!"
  96.     PrintLn "@X08i@X05N @X08or@X05DER @X08t@X05O @X08co@X05NTINUTE @X08en@X05TER @X08t@X05HE @X08pa@X05SSCODE!"
  97.     PrintLn ""
  98.     PrintLn "@X01P@X09as@X0FS @X08[··································]"
  99.     INTEGER017 = GetY()
  100.     INTEGER018 = 7
  101.     INTEGER017 = INTEGER017 - 1
  102.     AnsiPos INTEGER018, INTEGER017
  103.     Print ""
  104.     :LABEL002
  105.     STRING005 = Inkey()
  106.     If (STRING005 == Chr(13)) Then
  107.         Goto LABEL005
  108.     Endif
  109.     If (STRING005 == Chr(8)) Then
  110.         Goto LABEL004
  111.     Endif
  112.     If (STRING005 <> "") Then
  113.         Goto LABEL003
  114.     Endif
  115.     Goto LABEL002
  116.     :LABEL003
  117.     If (Len(STRING005) > 1) Then
  118.         Goto LABEL002
  119.     Endif
  120.     If (INTEGER018 > 40) Then
  121.         Goto LABEL002
  122.     Endif
  123.     Color 15
  124.     AnsiPos INTEGER018, INTEGER017
  125.     MPrint "∙"
  126.     Color 15
  127.     AnsiPos INTEGER018, INTEGER017
  128.     SPrint STRING005
  129.     INTEGER018 = GetX()
  130.     STRING029 = STRING029 + STRING005
  131.     STRING005 = ""
  132.     Goto LABEL002
  133.     :LABEL004
  134.     If (INTEGER018 < 8) Then
  135.         STRING005 = ""
  136.         Goto LABEL002
  137.     Endif
  138.     AnsiPos INTEGER018, INTEGER017
  139.     Color 9
  140.     Color 8
  141.     Print Chr(8) + "·"
  142.     INTEGER018 = GetX()
  143.     INTEGER018 = INTEGER018 - 1
  144.     AnsiPos INTEGER018, INTEGER017
  145.     Print ""
  146.     STRING029 = Left(STRING029, Len(STRING029) - 1)
  147.     STRING005 = ""
  148.     Goto LABEL002
  149.     :LABEL005
  150.     If (Len(STRING029) < 1) Then
  151.         Goto LABEL002
  152.     Endif
  153.     If (STRING029 == STRING028) Then
  154.         Goto LABEL006
  155.     Endif
  156.     PrintLn ""
  157.     PrintLn ""
  158.     PrintLn STRING027
  159.     PrintLn STRING026
  160.     End
  161.     :LABEL006
  162.     Shell 1, STRING009, "dir /o c:\ >" + PPEPath() + "sd_.tmp", ""
  163.     Gosub LABEL007
  164.     Goto LABEL010
  165.     :LABEL007
  166.     Color 8
  167.     Cls
  168.     AnsiPos 1, 1
  169.     Print "@X1B╔════════════╤══════@X3F @X30SYSOP DOWNLOAD (c) '95 by Master Death @X1B══════════════════╗"
  170.     AnsiPos 1, 2
  171.     Print "║    @X1EName    @X1B│    @X1EName    @X1B│    @X1EName    @X1B│    @X1EName    @X1B│    @X1EName    @X1B│    @X1EName    @X1B║"
  172.     AnsiPos 1, 3
  173.     Print "║            │            │            │            │            │            ║"
  174.     AnsiPos 1, 4
  175.     Print "║            │            │            │            │            │            ║"
  176.     AnsiPos 1, 5
  177.     Print "║            │            │            │            │            │            ║"
  178.     AnsiPos 1, 6
  179.     Print "║            │            │            │            │            │            ║"
  180.     AnsiPos 1, 7
  181.     Print "║            │            │            │            │            │            ║"
  182.     AnsiPos 1, 8
  183.     Print "║            │            │            │            │            │            ║"
  184.     AnsiPos 1, 9
  185.     Print "║            │            │            │            │            │            ║"
  186.     AnsiPos 1, 10
  187.     Print "║            │            │            │            │            │            ║"
  188.     AnsiPos 1, 11
  189.     Print "║            │            │            │            │            │            ║"
  190.     AnsiPos 1, 12
  191.     Print "║            │            │            │            │            │            ║"
  192.     AnsiPos 1, 13
  193.     Print "║            │            │            │            │            │            ║"
  194.     AnsiPos 1, 14
  195.     Print "║            │            │            │            │            │            ║"
  196.     AnsiPos 1, 15
  197.     Print "║            │            │            │            │            │            ║"
  198.     AnsiPos 1, 16
  199.     Print "║            │            │            │            │            │            ║"
  200.     AnsiPos 1, 17
  201.     Print "║            │            │            │            │            │            ║"
  202.     AnsiPos 1, 18
  203.     Print "╟────────────┴────────────┴────────────┴────────────┴────────────┴────────────╢"
  204.     AnsiPos 1, 19
  205.     Print "║                                                                             ║"
  206.     AnsiPos 1, 20
  207.     Print "╚═════════════════════════════════════════════════════════════════════════════╝"
  208.     AnsiPos 1, 21
  209.     Print "@X13  @X1C[@X1BTAB@X1C] @X13Change Drive @X1B/ @X1C[@X1BQ@X1C][@X1BZ@X1C][@X1BA@X1C][@X1BS@X1C] @X13Move Bar @X1B/ @X1C[@X1BENTER@X1C] @X13Run / @X1C[@X1BSPACE@X1C] @X13flag  "
  210.     Return
  211.     :LABEL008
  212.     AnsiPos 1, 1
  213.     SPrintLn "╔════════════╤══════ SYSOP DOWNLOAD (c) '95 by Master Death ══════════════════╗"
  214.     SPrintLn "║    Name    │    Name    │    Name    │    Name    │    Name    │    Name    ║"
  215.     SPrintLn "║            │            │            │            │            │            ║"
  216.     SPrintLn "║            │            │            │            │            │            ║"
  217.     SPrintLn "║            │            │            │            │            │            ║"
  218.     SPrintLn "║            │            │            │            │            │            ║"
  219.     SPrintLn "║            │            │            │            │            │            ║"
  220.     SPrintLn "║            │            │            │            │            │            ║"
  221.     SPrintLn "║            │            │            │            │            │            ║"
  222.     SPrintLn "║            │            │            │            │            │            ║"
  223.     SPrintLn "║            │            │            │            │            │            ║"
  224.     SPrintLn "║            │            │            │            │            │            ║"
  225.     SPrintLn "║            │            │            │            │            │            ║"
  226.     SPrintLn "║            │            │            │            │            │            ║"
  227.     SPrintLn "║            │            │            │            │            │            ║"
  228.     SPrintLn "║            │            │            │            │            │            ║"
  229.     SPrintLn "║            │            │            │            │            │            ║"
  230.     SPrintLn "╟────────────┴────────────┴────────────┴────────────┴────────────┴────────────╢"
  231.     SPrintLn "║                                                                             ║"
  232.     SPrintLn "╚═════════════════════════════════════════════════════════════════════════════╝"
  233.     SPrintLn "  [TAB] Change Drive / [ DQ][ DZ][ DA][ DS] Move Bar / [ENTER] Run / [SPACE] flag  "
  234.     Return
  235.     Gosub LABEL007
  236.     :LABEL009
  237.     Gosub LABEL008
  238.     :LABEL010
  239.     INTEGER005 = 1
  240.     For INTEGER001 = 7 To 997
  241.         STRING010 = ReadLine(PPEPath() + "sd_.tmp", 4)
  242.         STRING010 = Right(STRING010, Len(STRING010) - 14)
  243.         STRING024 = ReadLine(PPEPath() + "sd.cfg", 2)
  244.         STRING025 = ReadLine(PPEPath() + "sd.cfg", 3)
  245.         INTEGER015 = STRING024
  246.         INTEGER016 = STRING025
  247.         STRING023 = Right(STRING010, 1)
  248.         If (STRING023 == "\") Then
  249.             STRING010 = Left(STRING010, Len(STRING010) - 1)
  250.         Endif
  251.         TSTRING001(INTEGER005) = ReadLine(PPEPath() + "sd_.tmp", INTEGER001)
  252.         If (Len(TSTRING001(INTEGER005)) < 1) Then
  253.             Break
  254.         Endif
  255.         STRING007 = Left(TSTRING001(INTEGER005), 18)
  256.         STRING007 = Right(STRING007, 5)
  257.         If (STRING007 == "<DIR>") Then
  258.             TSTRING002(INTEGER005) = "SUB-DIR "
  259.             STRING007 = Left(TSTRING001(INTEGER005), 2)
  260.             If (STRING007 == "..") Then
  261.                 TSTRING002(INTEGER005) = "UP--DIR "
  262.             Endif
  263.         Else
  264.             TSTRING002(INTEGER005) = Left(TSTRING001(INTEGER005), INTEGER015)
  265.             TSTRING002(INTEGER005) = Right(TSTRING002(INTEGER005), 10)
  266.             Gosub LABEL017
  267.         Endif
  268.         TSTRING003(INTEGER005) = Left(TSTRING001(INTEGER005), INTEGER016)
  269.         TSTRING003(INTEGER005) = Right(TSTRING003(INTEGER005), 8)
  270.         TSTRING004(INTEGER005) = Right(TSTRING001(INTEGER005), 5)
  271.         TSTRING001(INTEGER005) = Left(TSTRING001(INTEGER005), 12)
  272.         If ((TSTRING002(INTEGER005) == "SUB-DIR ") || (TSTRING002(INTEGER005) == "UP--DIR ")) Then
  273.             TSTRING006(INTEGER005) = Upper(TSTRING001(INTEGER005))
  274.             TSTRING001(INTEGER005) = Upper(TSTRING001(INTEGER005))
  275.         Else
  276.             TSTRING006(INTEGER005) = Right(TSTRING001(INTEGER005), 3)
  277.             If (TSTRING006(INTEGER005) == "   ") Then
  278.                 INTEGER002 = InStr(TSTRING001(INTEGER005), " ")
  279.                 TSTRING006(INTEGER005) = Left(TSTRING001(INTEGER005), INTEGER002 - 1)
  280.                 TSTRING001(INTEGER005) = Lower(TSTRING001(INTEGER005))
  281.             Else
  282.                 INTEGER002 = InStr(TSTRING001(INTEGER005), " ")
  283.                 TSTRING006(INTEGER005) = Left(TSTRING001(INTEGER005), INTEGER002 - 1) + "." + TSTRING006(INTEGER005)
  284.                 TSTRING006(INTEGER005) = Lower(TSTRING006(INTEGER005))
  285.                 TSTRING001(INTEGER005) = Lower(TSTRING001(INTEGER005))
  286.             Endif
  287.         Endif
  288.         TSTRING006(INTEGER005) = Left(TSTRING006(INTEGER005), 12)
  289.         INTEGER005 = INTEGER005 + 1
  290.     Next
  291.     INTEGER013 = 1
  292.     INTEGER004 = INTEGER005 - 3
  293.     INTEGER005 = FileInf(PPEPath() + "sd###", 1)
  294.     If (INTEGER005 == 1) Then
  295.         Goto LABEL011
  296.     Endif
  297.     Goto LABEL013
  298.     :LABEL011
  299.     For INTEGER001 = 1 To 999
  300.         STRING012 = ReadLine(PPEPath() + "sd###", INTEGER001)
  301.         If (STRING012 == "-FINAL-") Then
  302.             Goto LABEL013
  303.         Endif
  304.         If (STRING012 == "=" + STRING010) Then
  305.             Goto LABEL012
  306.         Endif
  307.     Next
  308.     Goto LABEL013
  309.     :LABEL012
  310.     FCloseAll
  311.     For INTEGER002 = INTEGER001 + 1 To 999
  312.         STRING012 = ReadLine(PPEPath() + "sd###", INTEGER002)
  313.         If (STRING012 == "-END-") Then
  314.             Break
  315.         Endif
  316.         INTEGER005 = InStr(STRING012, "■")
  317.         If (INTEGER005 > 1) Then
  318.             STRING013 = Left(STRING012, INTEGER005 - 1)
  319.             STRING014 = Right(STRING012, Len(STRING012) - INTEGER005)
  320.             INTEGER005 = STRING013
  321.             TSTRING008(STRING013) = STRING014
  322.         Endif
  323.     Next
  324.     :LABEL013
  325.     INTEGER002 = 1
  326.     INTEGER005 = 1
  327.     TSTRING001(INTEGER004 + 1) = ""
  328.     TSTRING001(INTEGER004 + 2) = ""
  329.     TSTRING001(INTEGER004 + 3) = ""
  330.     If (INTEGER004 <= 90) Then
  331.         INTEGER010 = INTEGER004
  332.         INTEGER012 = 1
  333.     Endif
  334.     If ((INTEGER004 >= 91) && (INTEGER004 <= 180)) Then
  335.         INTEGER010 = INTEGER004 - 90
  336.         INTEGER012 = 2
  337.     Endif
  338.     If ((INTEGER004 >= 181) && (INTEGER004 <= 270)) Then
  339.         INTEGER010 = INTEGER004 - 180
  340.         INTEGER012 = 3
  341.     Endif
  342.     If ((INTEGER004 >= 271) && (INTEGER004 <= 360)) Then
  343.         INTEGER010 = INTEGER004 - 270
  344.         INTEGER012 = 4
  345.     Endif
  346.     If ((INTEGER004 >= 361) && (INTEGER004 <= 450)) Then
  347.         INTEGER010 = INTEGER004 - 360
  348.         INTEGER012 = 5
  349.     Endif
  350.     If ((INTEGER004 >= 451) && (INTEGER004 <= 540)) Then
  351.         INTEGER010 = INTEGER004 - 450
  352.         INTEGER012 = 6
  353.     Endif
  354.     If ((INTEGER004 >= 541) && (INTEGER004 <= 630)) Then
  355.         INTEGER010 = INTEGER004 - 540
  356.         INTEGER012 = 7
  357.     Endif
  358.     If ((INTEGER004 >= 631) && (INTEGER004 <= 720)) Then
  359.         INTEGER010 = INTEGER004 - 630
  360.         INTEGER012 = 8
  361.     Endif
  362.     If ((INTEGER004 >= 721) && (INTEGER004 <= 810)) Then
  363.         INTEGER010 = INTEGER004 - 720
  364.         INTEGER012 = 9
  365.     Endif
  366.     If ((INTEGER004 >= 811) && (INTEGER004 <= 900)) Then
  367.         INTEGER010 = INTEGER004 - 810
  368.         INTEGER012 = 10
  369.     Endif
  370.     If ((INTEGER004 >= 901) && (INTEGER004 <= 990)) Then
  371.         INTEGER010 = INTEGER004 - 900
  372.         INTEGER012 = 11
  373.     Endif
  374.     If ((INTEGER010 >= 1) && (INTEGER010 <= 15)) Then
  375.         INTEGER011 = 2
  376.     Endif
  377.     If ((INTEGER010 >= 16) && (INTEGER010 <= 30)) Then
  378.         INTEGER011 = 15
  379.     Endif
  380.     If ((INTEGER010 >= 31) && (INTEGER010 <= 45)) Then
  381.         INTEGER011 = 28
  382.     Endif
  383.     If ((INTEGER010 >= 46) && (INTEGER010 <= 60)) Then
  384.         INTEGER011 = 41
  385.     Endif
  386.     If ((INTEGER010 >= 61) && (INTEGER010 <= 75)) Then
  387.         INTEGER011 = 54
  388.     Endif
  389.     If ((INTEGER010 >= 76) && (INTEGER010 <= 90)) Then
  390.         INTEGER011 = 67
  391.     Endif
  392.     INTEGER005 = 1
  393.     Gosub LABEL018
  394.     INTEGER005 = 1
  395.     INTEGER001 = 3
  396.     INTEGER006 = 1
  397.     INTEGER009 = 1
  398.     AnsiPos 2, INTEGER001
  399.     Color 63
  400.     Print TSTRING001(INTEGER005)
  401.     Gosub LABEL021
  402.     :LABEL014
  403.     STRING005 = Inkey()
  404.     If ((STRING005 == Chr(13)) && (TSTRING002(INTEGER005) == "SUB-DIR ")) Then
  405.         Goto LABEL022
  406.     Endif
  407.     If ((STRING005 == Chr(13)) && (TSTRING002(INTEGER005) == "UP--DIR ")) Then
  408.         Goto LABEL022
  409.     Endif
  410.     If (STRING005 == "UP") Then
  411.         Goto LABEL015
  412.     Endif
  413.     If (STRING005 == "DOWN") Then
  414.         Goto LABEL016
  415.     Endif
  416.     If (STRING005 == "LEFT") Then
  417.         Goto LABEL020
  418.     Endif
  419.     If (STRING005 == "RIGHT") Then
  420.         Goto LABEL019
  421.     Endif
  422.     If ((STRING005 == Chr(32)) && (Len(TSTRING008(INTEGER005)) > 1)) Then
  423.         If ((TSTRING002(INTEGER005) == "SUB-DIR ") || (TSTRING002(INTEGER005) == "UP--DIR ")) Then
  424.             Goto LABEL014
  425.         Endif
  426.         AnsiPos INTEGER007, INTEGER001
  427.         Color 63
  428.         Print TSTRING001(INTEGER005)
  429.         TSTRING008(INTEGER005) = ""
  430.         STRING015 = 1
  431.         Gosub LABEL021
  432.         STRING005 = ""
  433.     Endif
  434.     If ((STRING005 == Chr(32)) && (Len(TSTRING008(INTEGER005)) < 1)) Then
  435.         If ((TSTRING002(INTEGER005) == "SUB-DIR ") || (TSTRING002(INTEGER005) == "UP--DIR ")) Then
  436.             Goto LABEL014
  437.         Endif
  438.         AnsiPos INTEGER007, INTEGER001
  439.         Color 62
  440.         Print TSTRING001(INTEGER005)
  441.         TSTRING008(INTEGER005) = TSTRING006(INTEGER005)
  442.         STRING015 = 1
  443.         Gosub LABEL021
  444.         STRING005 = ""
  445.     Endif
  446.     If (STRING005 == Chr(9)) Then
  447.         STRING017 = ScrText(1, 3, 100, 1)
  448.         STRING018 = ScrText(1, 4, 100, 1)
  449.         STRING019 = ScrText(1, 5, 100, 1)
  450.         STRING020 = ScrText(1, 6, 100, 1)
  451.         STRING021 = ScrText(1, 7, 100, 1)
  452.         STRING022 = ScrText(1, 8, 100, 1)
  453.     Else
  454.         If (STRING005 == Chr(27)) Then
  455.             Color 8
  456.             Cls
  457.             INTEGER014 = 1
  458.         Else
  459.             Goto LABEL014
  460.             :LABEL015
  461.             If (INTEGER005 == 1) Then
  462.                 Goto LABEL014
  463.             Endif
  464.             If ((INTEGER009 == 1) && (INTEGER004 > 89)) Then
  465.                 INTEGER008 = INTEGER005
  466.                 INTEGER005 = INTEGER005 - 90
  467.                 INTEGER001 = 3
  468.                 Gosub LABEL018
  469.                 INTEGER005 = INTEGER008
  470.                 INTEGER005 = INTEGER005 - 1
  471.                 INTEGER009 = 90
  472.                 INTEGER001 = 17
  473.                 AnsiPos 67, INTEGER001
  474.                 Color 63
  475.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  476.                     Color 62
  477.                 Endif
  478.                 Print TSTRING001(INTEGER005)
  479.                 Gosub LABEL021
  480.                 INTEGER007 = 67
  481.                 INTEGER013 = INTEGER013 - 1
  482.                 Goto LABEL014
  483.             Endif
  484.             If (INTEGER009 == 16) Then
  485.                 AnsiPos 15, INTEGER001
  486.                 Color 31
  487.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  488.                     Color 30
  489.                 Endif
  490.                 Print TSTRING001(INTEGER005)
  491.                 INTEGER001 = 17
  492.                 INTEGER005 = INTEGER005 - 1
  493.                 AnsiPos 2, INTEGER001
  494.                 Color 63
  495.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  496.                     Color 62
  497.                 Endif
  498.                 Print TSTRING001(INTEGER005)
  499.                 INTEGER009 = INTEGER009 - 1
  500.                 Gosub LABEL021
  501.                 INTEGER007 = 2
  502.                 Goto LABEL014
  503.             Endif
  504.             If (INTEGER009 == 31) Then
  505.                 AnsiPos 28, INTEGER001
  506.                 Color 31
  507.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  508.                     Color 30
  509.                 Endif
  510.                 Print TSTRING001(INTEGER005)
  511.                 INTEGER001 = 17
  512.                 INTEGER005 = INTEGER005 - 1
  513.                 AnsiPos 15, INTEGER001
  514.                 Color 63
  515.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  516.                     Color 62
  517.                 Endif
  518.                 Print TSTRING001(INTEGER005)
  519.                 INTEGER009 = INTEGER009 - 1
  520.                 Gosub LABEL021
  521.                 INTEGER007 = 15
  522.                 Goto LABEL014
  523.             Endif
  524.             If (INTEGER009 == 46) Then
  525.                 AnsiPos 41, INTEGER001
  526.                 Color 31
  527.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  528.                     Color 30
  529.                 Endif
  530.                 Print TSTRING001(INTEGER005)
  531.                 INTEGER001 = 17
  532.                 INTEGER005 = INTEGER005 - 1
  533.                 AnsiPos 28, INTEGER001
  534.                 Color 63
  535.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  536.                     Color 62
  537.                 Endif
  538.                 Print TSTRING001(INTEGER005)
  539.                 INTEGER009 = INTEGER009 - 1
  540.                 Gosub LABEL021
  541.                 INTEGER007 = 28
  542.                 Goto LABEL014
  543.             Endif
  544.             If (INTEGER009 == 61) Then
  545.                 AnsiPos 54, INTEGER001
  546.                 Color 31
  547.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  548.                     Color 30
  549.                 Endif
  550.                 Print TSTRING001(INTEGER005)
  551.                 INTEGER001 = 17
  552.                 INTEGER005 = INTEGER005 - 1
  553.                 AnsiPos 41, INTEGER001
  554.                 Color 63
  555.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  556.                     Color 62
  557.                 Endif
  558.                 Print TSTRING001(INTEGER005)
  559.                 INTEGER009 = INTEGER009 - 1
  560.                 Gosub LABEL021
  561.                 INTEGER007 = 41
  562.                 Goto LABEL014
  563.             Endif
  564.             If (INTEGER009 == 76) Then
  565.                 AnsiPos 67, INTEGER001
  566.                 Color 31
  567.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  568.                     Color 30
  569.                 Endif
  570.                 Print TSTRING001(INTEGER005)
  571.                 INTEGER001 = 17
  572.                 INTEGER005 = INTEGER005 - 1
  573.                 AnsiPos 54, INTEGER001
  574.                 Color 63
  575.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  576.                     Color 62
  577.                 Endif
  578.                 Print TSTRING001(INTEGER005)
  579.                 INTEGER009 = INTEGER009 - 1
  580.                 Gosub LABEL021
  581.                 INTEGER007 = 54
  582.                 Goto LABEL014
  583.             Endif
  584.             If ((INTEGER009 < 16) && (INTEGER009 >= 1)) Then
  585.                 AnsiPos 2, INTEGER001
  586.                 Color 31
  587.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  588.                     Color 30
  589.                 Endif
  590.                 Print TSTRING001(INTEGER005)
  591.                 INTEGER001 = INTEGER001 - 1
  592.                 INTEGER005 = INTEGER005 - 1
  593.                 AnsiPos 2, INTEGER001
  594.                 Color 63
  595.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  596.                     Color 62
  597.                 Endif
  598.                 Print TSTRING001(INTEGER005)
  599.                 INTEGER009 = INTEGER009 - 1
  600.                 INTEGER007 = 2
  601.                 Gosub LABEL021
  602.                 Goto LABEL014
  603.             Endif
  604.             If ((INTEGER009 < 31) && (INTEGER009 >= 16)) Then
  605.                 AnsiPos 15, INTEGER001
  606.                 Color 31
  607.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  608.                     Color 30
  609.                 Endif
  610.                 Print TSTRING001(INTEGER005)
  611.                 INTEGER001 = INTEGER001 - 1
  612.                 INTEGER005 = INTEGER005 - 1
  613.                 AnsiPos 15, INTEGER001
  614.                 Color 63
  615.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  616.                     Color 62
  617.                 Endif
  618.                 Print TSTRING001(INTEGER005)
  619.                 INTEGER009 = INTEGER009 - 1
  620.                 INTEGER007 = 15
  621.                 Gosub LABEL021
  622.                 Goto LABEL014
  623.             Endif
  624.             If ((INTEGER009 < 46) && (INTEGER009 >= 31)) Then
  625.                 AnsiPos 28, INTEGER001
  626.                 Color 31
  627.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  628.                     Color 30
  629.                 Endif
  630.                 Print TSTRING001(INTEGER005)
  631.                 INTEGER001 = INTEGER001 - 1
  632.                 INTEGER005 = INTEGER005 - 1
  633.                 AnsiPos 28, INTEGER001
  634.                 Color 63
  635.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  636.                     Color 62
  637.                 Endif
  638.                 Print TSTRING001(INTEGER005)
  639.                 INTEGER009 = INTEGER009 - 1
  640.                 INTEGER007 = 28
  641.                 Gosub LABEL021
  642.                 Goto LABEL014
  643.             Endif
  644.             If ((INTEGER009 < 61) && (INTEGER009 >= 46)) Then
  645.                 AnsiPos 41, INTEGER001
  646.                 Color 31
  647.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  648.                     Color 30
  649.                 Endif
  650.                 Print TSTRING001(INTEGER005)
  651.                 INTEGER001 = INTEGER001 - 1
  652.                 INTEGER005 = INTEGER005 - 1
  653.                 AnsiPos 41, INTEGER001
  654.                 Color 63
  655.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  656.                     Color 62
  657.                 Endif
  658.                 Print TSTRING001(INTEGER005)
  659.                 INTEGER009 = INTEGER009 - 1
  660.                 INTEGER007 = 41
  661.                 Gosub LABEL021
  662.                 Goto LABEL014
  663.             Endif
  664.             If ((INTEGER009 < 76) && (INTEGER009 >= 61)) Then
  665.                 AnsiPos 54, INTEGER001
  666.                 Color 31
  667.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  668.                     Color 30
  669.                 Endif
  670.                 Print TSTRING001(INTEGER005)
  671.                 INTEGER001 = INTEGER001 - 1
  672.                 INTEGER005 = INTEGER005 - 1
  673.                 AnsiPos 54, INTEGER001
  674.                 Color 63
  675.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  676.                     Color 62
  677.                 Endif
  678.                 Print TSTRING001(INTEGER005)
  679.                 INTEGER009 = INTEGER009 - 1
  680.                 INTEGER007 = 54
  681.                 Gosub LABEL021
  682.                 Goto LABEL014
  683.             Endif
  684.             If ((INTEGER009 < 91) && (INTEGER009 >= 76)) Then
  685.                 AnsiPos 67, INTEGER001
  686.                 Color 31
  687.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  688.                     Color 30
  689.                 Endif
  690.                 Print TSTRING001(INTEGER005)
  691.                 INTEGER001 = INTEGER001 - 1
  692.                 INTEGER005 = INTEGER005 - 1
  693.                 AnsiPos 67, INTEGER001
  694.                 Color 63
  695.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  696.                     Color 62
  697.                 Endif
  698.                 Print TSTRING001(INTEGER005)
  699.                 INTEGER009 = INTEGER009 - 1
  700.                 INTEGER007 = 67
  701.                 Gosub LABEL021
  702.                 Goto LABEL014
  703.             Endif
  704.             Goto LABEL014
  705.             :LABEL016
  706.             If ((INTEGER009 > 89) && (INTEGER004 > 89)) Then
  707.                 INTEGER005 = INTEGER005 + 1
  708.                 INTEGER008 = INTEGER005
  709.                 INTEGER001 = 3
  710.                 Gosub LABEL018
  711.                 INTEGER001 = 3
  712.                 INTEGER005 = INTEGER008
  713.                 INTEGER001 = 3
  714.                 AnsiPos 2, INTEGER001
  715.                 Color 63
  716.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  717.                     Color 62
  718.                 Endif
  719.                 Print TSTRING001(INTEGER005)
  720.                 STRING005 = ""
  721.                 INTEGER009 = 1
  722.                 Gosub LABEL021
  723.                 INTEGER007 = 2
  724.                 INTEGER013 = INTEGER013 + 1
  725.                 Goto LABEL014
  726.             Endif
  727.             If (INTEGER005 == INTEGER004) Then
  728.                 Goto LABEL014
  729.             Endif
  730.             If (INTEGER009 == 15) Then
  731.                 AnsiPos 2, INTEGER001
  732.                 Color 31
  733.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  734.                     Color 30
  735.                 Endif
  736.                 Print TSTRING001(INTEGER005)
  737.                 INTEGER001 = 3
  738.                 INTEGER005 = INTEGER005 + 1
  739.                 AnsiPos 15, INTEGER001
  740.                 Color 63
  741.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  742.                     Color 62
  743.                 Endif
  744.                 Print TSTRING001(INTEGER005)
  745.                 INTEGER009 = INTEGER009 + 1
  746.                 Gosub LABEL021
  747.                 INTEGER007 = 15
  748.                 Goto LABEL014
  749.             Endif
  750.             If (INTEGER009 == 30) Then
  751.                 AnsiPos 15, INTEGER001
  752.                 Color 31
  753.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  754.                     Color 30
  755.                 Endif
  756.                 Print TSTRING001(INTEGER005)
  757.                 INTEGER001 = 3
  758.                 INTEGER005 = INTEGER005 + 1
  759.                 AnsiPos 28, INTEGER001
  760.                 Color 63
  761.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  762.                     Color 62
  763.                 Endif
  764.                 Print TSTRING001(INTEGER005)
  765.                 INTEGER009 = INTEGER009 + 1
  766.                 Gosub LABEL021
  767.                 INTEGER007 = 28
  768.                 Goto LABEL014
  769.             Endif
  770.             If (INTEGER009 == 45) Then
  771.                 AnsiPos 28, INTEGER001
  772.                 Color 31
  773.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  774.                     Color 30
  775.                 Endif
  776.                 Print TSTRING001(INTEGER005)
  777.                 INTEGER001 = 3
  778.                 INTEGER005 = INTEGER005 + 1
  779.                 AnsiPos 41, INTEGER001
  780.                 Color 63
  781.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  782.                     Color 62
  783.                 Endif
  784.                 Print TSTRING001(INTEGER005)
  785.                 INTEGER009 = INTEGER009 + 1
  786.                 Gosub LABEL021
  787.                 INTEGER007 = 41
  788.                 Goto LABEL014
  789.             Endif
  790.             If (INTEGER009 == 60) Then
  791.                 AnsiPos 41, INTEGER001
  792.                 Color 31
  793.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  794.                     Color 30
  795.                 Endif
  796.                 Print TSTRING001(INTEGER005)
  797.                 INTEGER001 = 3
  798.                 INTEGER005 = INTEGER005 + 1
  799.                 AnsiPos 54, INTEGER001
  800.                 Color 63
  801.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  802.                     Color 62
  803.                 Endif
  804.                 Print TSTRING001(INTEGER005)
  805.                 INTEGER009 = INTEGER009 + 1
  806.                 Gosub LABEL021
  807.                 INTEGER007 = 54
  808.                 Goto LABEL014
  809.             Endif
  810.             If (INTEGER009 == 75) Then
  811.                 AnsiPos 54, INTEGER001
  812.                 Color 31
  813.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  814.                     Color 30
  815.                 Endif
  816.                 Print TSTRING001(INTEGER005)
  817.                 INTEGER001 = 3
  818.                 INTEGER005 = INTEGER005 + 1
  819.                 AnsiPos 67, INTEGER001
  820.                 Color 63
  821.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  822.                     Color 62
  823.                 Endif
  824.                 Print TSTRING001(INTEGER005)
  825.                 INTEGER009 = INTEGER009 + 1
  826.                 Gosub LABEL021
  827.                 INTEGER007 = 67
  828.                 Goto LABEL014
  829.             Endif
  830.             If ((INTEGER009 < 16) && (INTEGER009 >= 1)) Then
  831.                 AnsiPos 2, INTEGER001
  832.                 Color 31
  833.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  834.                     Color 30
  835.                 Endif
  836.                 Print TSTRING001(INTEGER005)
  837.                 INTEGER001 = INTEGER001 + 1
  838.                 INTEGER005 = INTEGER005 + 1
  839.                 AnsiPos 2, INTEGER001
  840.                 Color 63
  841.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  842.                     Color 62
  843.                 Endif
  844.                 Print TSTRING001(INTEGER005)
  845.                 INTEGER009 = INTEGER009 + 1
  846.                 INTEGER007 = 2
  847.                 Gosub LABEL021
  848.                 Goto LABEL014
  849.             Endif
  850.             If ((INTEGER009 < 31) && (INTEGER009 >= 16)) Then
  851.                 AnsiPos 15, INTEGER001
  852.                 Color 31
  853.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  854.                     Color 30
  855.                 Endif
  856.                 Print TSTRING001(INTEGER005)
  857.                 INTEGER001 = INTEGER001 + 1
  858.                 INTEGER005 = INTEGER005 + 1
  859.                 AnsiPos 15, INTEGER001
  860.                 Color 63
  861.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  862.                     Color 62
  863.                 Endif
  864.                 Print TSTRING001(INTEGER005)
  865.                 INTEGER009 = INTEGER009 + 1
  866.                 INTEGER007 = 15
  867.                 Gosub LABEL021
  868.                 Goto LABEL014
  869.             Endif
  870.             If ((INTEGER009 < 46) && (INTEGER009 >= 31)) Then
  871.                 AnsiPos 28, INTEGER001
  872.                 Color 31
  873.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  874.                     Color 30
  875.                 Endif
  876.                 Print TSTRING001(INTEGER005)
  877.                 INTEGER001 = INTEGER001 + 1
  878.                 INTEGER005 = INTEGER005 + 1
  879.                 AnsiPos 28, INTEGER001
  880.                 Color 63
  881.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  882.                     Color 62
  883.                 Endif
  884.                 Print TSTRING001(INTEGER005)
  885.                 INTEGER009 = INTEGER009 + 1
  886.                 INTEGER007 = 28
  887.                 Gosub LABEL021
  888.                 Goto LABEL014
  889.             Endif
  890.             If ((INTEGER009 < 61) && (INTEGER009 >= 46)) Then
  891.                 AnsiPos 41, INTEGER001
  892.                 Color 31
  893.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  894.                     Color 30
  895.                 Endif
  896.                 Print TSTRING001(INTEGER005)
  897.                 INTEGER001 = INTEGER001 + 1
  898.                 INTEGER005 = INTEGER005 + 1
  899.                 AnsiPos 41, INTEGER001
  900.                 Color 63
  901.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  902.                     Color 62
  903.                 Endif
  904.                 Print TSTRING001(INTEGER005)
  905.                 INTEGER009 = INTEGER009 + 1
  906.                 INTEGER007 = 41
  907.                 Gosub LABEL021
  908.                 Goto LABEL014
  909.             Endif
  910.             If ((INTEGER009 < 76) && (INTEGER009 >= 61)) Then
  911.                 AnsiPos 54, INTEGER001
  912.                 Color 31
  913.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  914.                     Color 30
  915.                 Endif
  916.                 Print TSTRING001(INTEGER005)
  917.                 INTEGER001 = INTEGER001 + 1
  918.                 INTEGER005 = INTEGER005 + 1
  919.                 AnsiPos 54, INTEGER001
  920.                 Color 63
  921.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  922.                     Color 62
  923.                 Endif
  924.                 Print TSTRING001(INTEGER005)
  925.                 INTEGER009 = INTEGER009 + 1
  926.                 INTEGER007 = 54
  927.                 Gosub LABEL021
  928.                 Goto LABEL014
  929.             Endif
  930.             If ((INTEGER009 < 91) && (INTEGER009 >= 76)) Then
  931.                 AnsiPos 67, INTEGER001
  932.                 Color 31
  933.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  934.                     Color 30
  935.                 Endif
  936.                 Print TSTRING001(INTEGER005)
  937.                 INTEGER001 = INTEGER001 + 1
  938.                 INTEGER005 = INTEGER005 + 1
  939.                 AnsiPos 67, INTEGER001
  940.                 Color 63
  941.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  942.                     Color 62
  943.                 Endif
  944.                 Print TSTRING001(INTEGER005)
  945.                 INTEGER009 = INTEGER009 + 1
  946.                 INTEGER007 = 67
  947.                 Gosub LABEL021
  948.                 Goto LABEL014
  949.             Endif
  950.             Goto LABEL014
  951.             :LABEL017
  952.             Return
  953.             For INTEGER003 = 1 To 999
  954.                 INTEGER002 = InStr(TSTRING002(INTEGER005), " ")
  955.                 If (INTEGER002 == 1) Then
  956.                     TSTRING002(INTEGER005) = Right(TSTRING002(INTEGER005), Len(TSTRING002(INTEGER005)) - 1)
  957.                     Continue
  958.                 Endif
  959.                 Return
  960.             Next
  961.             :LABEL018
  962.             For INTEGER001 = 3 To 17
  963.                 AnsiPos 2, INTEGER001
  964.                 Color 17
  965.                 Print TSTRING001(INTEGER005)
  966.                 If (Len(TSTRING001(INTEGER005)) < 1) Then
  967.                     Color 17
  968.                     AnsiPos 2, INTEGER001
  969.                     Print TSTRING001(1)
  970.                 Else
  971.                     Color 31
  972.                     If (Len(TSTRING008(INTEGER005)) > 1) Then
  973.                         Color 30
  974.                     Endif
  975.                     AnsiPos 2, INTEGER001
  976.                     Print TSTRING001(INTEGER005)
  977.                 Endif
  978.                 AnsiPos 15, INTEGER001
  979.                 Print TSTRING001(INTEGER005 + 15)
  980.                 If (Len(TSTRING001(INTEGER005 + 15)) < 1) Then
  981.                     Color 17
  982.                     AnsiPos 15, INTEGER001
  983.                     Print TSTRING001(1)
  984.                 Else
  985.                     Color 31
  986.                     If (Len(TSTRING008(INTEGER005 + 15)) > 1) Then
  987.                         Color 30
  988.                     Endif
  989.                     AnsiPos 15, INTEGER001
  990.                     Print TSTRING001(INTEGER005 + 15)
  991.                 Endif
  992.                 AnsiPos 28, INTEGER001
  993.                 Print TSTRING001(INTEGER005 + 30)
  994.                 If (Len(TSTRING001(INTEGER005 + 30)) < 1) Then
  995.                     Color 17
  996.                     AnsiPos 28, INTEGER001
  997.                     Print TSTRING001(1)
  998.                 Else
  999.                     Color 31
  1000.                     If (Len(TSTRING008(INTEGER005 + 30)) > 1) Then
  1001.                         Color 30
  1002.                     Endif
  1003.                     AnsiPos 28, INTEGER001
  1004.                     Print TSTRING001(INTEGER005 + 30)
  1005.                 Endif
  1006.                 AnsiPos 41, INTEGER001
  1007.                 Print TSTRING001(INTEGER005 + 45)
  1008.                 If (Len(TSTRING001(INTEGER005 + 45)) < 1) Then
  1009.                     Color 17
  1010.                     AnsiPos 41, INTEGER001
  1011.                     Print TSTRING001(1)
  1012.                 Else
  1013.                     Color 31
  1014.                     If (Len(TSTRING008(INTEGER005 + 45)) > 1) Then
  1015.                         Color 30
  1016.                     Endif
  1017.                     AnsiPos 41, INTEGER001
  1018.                     Print TSTRING001(INTEGER005 + 45)
  1019.                 Endif
  1020.                 AnsiPos 54, INTEGER001
  1021.                 Print TSTRING001(INTEGER005 + 60)
  1022.                 If (Len(TSTRING001(INTEGER005 + 60)) < 1) Then
  1023.                     Color 17
  1024.                     AnsiPos 54, INTEGER001
  1025.                     Print TSTRING001(1)
  1026.                 Else
  1027.                     Color 31
  1028.                     If (Len(TSTRING008(INTEGER005 + 60)) > 1) Then
  1029.                         Color 30
  1030.                     Endif
  1031.                     AnsiPos 54, INTEGER001
  1032.                     Print TSTRING001(INTEGER005 + 60)
  1033.                 Endif
  1034.                 AnsiPos 67, INTEGER001
  1035.                 Print TSTRING001(INTEGER005 + 75)
  1036.                 If (Len(TSTRING001(INTEGER005 + 75)) < 1) Then
  1037.                     Color 17
  1038.                     AnsiPos 67, INTEGER001
  1039.                     Print TSTRING001(1)
  1040.                 Else
  1041.                     Color 31
  1042.                     If (Len(TSTRING008(INTEGER005 + 75)) > 1) Then
  1043.                         Color 30
  1044.                     Endif
  1045.                     AnsiPos 67, INTEGER001
  1046.                     Print TSTRING001(INTEGER005 + 75)
  1047.                 Endif
  1048.                 INTEGER005 = INTEGER005 + 1
  1049.             Next
  1050.             Return
  1051.             :LABEL019
  1052.             If (((INTEGER009 == INTEGER010) && (INTEGER005 == INTEGER004)) && (INTEGER011 == INTEGER007)) Then
  1053.                 Goto LABEL014
  1054.             Endif
  1055.             If ((INTEGER011 == INTEGER007) && (INTEGER013 == INTEGER012)) Then
  1056.                 Goto LABEL014
  1057.             Endif
  1058.             If (((INTEGER009 < 16) && (INTEGER009 >= 1)) && (INTEGER004 >= 15)) Then
  1059.                 INTEGER008 = 15
  1060.                 AnsiPos 2, INTEGER001
  1061.                 Color 31
  1062.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1063.                     Color 30
  1064.                 Endif
  1065.                 Print TSTRING001(INTEGER005)
  1066.                 INTEGER009 = INTEGER009 + 15
  1067.                 INTEGER005 = INTEGER005 + 15
  1068.                 If (INTEGER005 > INTEGER004) Then
  1069.                     INTEGER005 = INTEGER004
  1070.                     INTEGER009 = INTEGER010
  1071.                     INTEGER001 = INTEGER009 - 13
  1072.                 Endif
  1073.                 AnsiPos 15, INTEGER001
  1074.                 Color 63
  1075.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1076.                     Color 62
  1077.                 Endif
  1078.                 Print TSTRING001(INTEGER005)
  1079.                 INTEGER007 = 15
  1080.                 Gosub LABEL021
  1081.                 Goto LABEL014
  1082.             Endif
  1083.             If (((INTEGER009 < 31) && (INTEGER009 >= 16)) && (INTEGER004 >= 30)) Then
  1084.                 INTEGER008 = 30
  1085.                 AnsiPos 15, INTEGER001
  1086.                 Color 31
  1087.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1088.                     Color 30
  1089.                 Endif
  1090.                 Print TSTRING001(INTEGER005)
  1091.                 INTEGER009 = INTEGER009 + 15
  1092.                 INTEGER005 = INTEGER005 + 15
  1093.                 If (INTEGER005 > INTEGER004) Then
  1094.                     INTEGER005 = INTEGER004
  1095.                     INTEGER009 = INTEGER010
  1096.                     INTEGER001 = INTEGER009 - 28
  1097.                 Endif
  1098.                 AnsiPos 28, INTEGER001
  1099.                 Color 63
  1100.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1101.                     Color 62
  1102.                 Endif
  1103.                 Print TSTRING001(INTEGER005)
  1104.                 INTEGER007 = 28
  1105.                 Gosub LABEL021
  1106.                 Goto LABEL014
  1107.             Endif
  1108.             If (((INTEGER009 < 46) && (INTEGER009 >= 31)) && (INTEGER004 >= 45)) Then
  1109.                 INTEGER008 = 45
  1110.                 AnsiPos 28, INTEGER001
  1111.                 Color 31
  1112.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1113.                     Color 30
  1114.                 Endif
  1115.                 Print TSTRING001(INTEGER005)
  1116.                 INTEGER009 = INTEGER009 + 15
  1117.                 INTEGER005 = INTEGER005 + 15
  1118.                 If (INTEGER005 > INTEGER004) Then
  1119.                     INTEGER005 = INTEGER004
  1120.                     INTEGER009 = INTEGER010
  1121.                     INTEGER001 = INTEGER009 - 43
  1122.                 Endif
  1123.                 AnsiPos 41, INTEGER001
  1124.                 Color 63
  1125.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1126.                     Color 62
  1127.                 Endif
  1128.                 Print TSTRING001(INTEGER005)
  1129.                 INTEGER007 = 41
  1130.                 Gosub LABEL021
  1131.                 Goto LABEL014
  1132.             Endif
  1133.             If (((INTEGER009 < 61) && (INTEGER009 >= 46)) && (INTEGER004 >= 60)) Then
  1134.                 INTEGER008 = 60
  1135.                 AnsiPos 41, INTEGER001
  1136.                 Color 31
  1137.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1138.                     Color 30
  1139.                 Endif
  1140.                 Print TSTRING001(INTEGER005)
  1141.                 INTEGER009 = INTEGER009 + 15
  1142.                 INTEGER005 = INTEGER005 + 15
  1143.                 If (INTEGER005 > INTEGER004) Then
  1144.                     INTEGER005 = INTEGER004
  1145.                     INTEGER009 = INTEGER010
  1146.                     INTEGER001 = INTEGER009 - 58
  1147.                 Endif
  1148.                 AnsiPos 54, INTEGER001
  1149.                 Color 63
  1150.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1151.                     Color 62
  1152.                 Endif
  1153.                 Print TSTRING001(INTEGER005)
  1154.                 INTEGER007 = 54
  1155.                 Gosub LABEL021
  1156.                 Goto LABEL014
  1157.             Endif
  1158.             If (((INTEGER009 < 76) && (INTEGER009 >= 61)) && (INTEGER004 >= 75)) Then
  1159.                 INTEGER008 = 75
  1160.                 AnsiPos 54, INTEGER001
  1161.                 Color 31
  1162.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1163.                     Color 30
  1164.                 Endif
  1165.                 Print TSTRING001(INTEGER005)
  1166.                 INTEGER009 = INTEGER009 + 15
  1167.                 INTEGER005 = INTEGER005 + 15
  1168.                 If (INTEGER005 > INTEGER004) Then
  1169.                     INTEGER005 = INTEGER004
  1170.                     INTEGER009 = INTEGER010
  1171.                     INTEGER001 = INTEGER009 - 73
  1172.                 Endif
  1173.                 AnsiPos 67, INTEGER001
  1174.                 Color 63
  1175.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1176.                     Color 62
  1177.                 Endif
  1178.                 Print TSTRING001(INTEGER005)
  1179.                 INTEGER007 = 67
  1180.                 Gosub LABEL021
  1181.                 Goto LABEL014
  1182.             Endif
  1183.             Goto LABEL014
  1184.             :LABEL020
  1185.             If ((INTEGER009 < 31) && (INTEGER009 >= 16)) Then
  1186.                 AnsiPos 15, INTEGER001
  1187.                 Color 31
  1188.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1189.                     Color 30
  1190.                 Endif
  1191.                 Print TSTRING001(INTEGER005)
  1192.                 INTEGER005 = INTEGER005 - 15
  1193.                 AnsiPos 2, INTEGER001
  1194.                 Color 63
  1195.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1196.                     Color 62
  1197.                 Endif
  1198.                 Print TSTRING001(INTEGER005)
  1199.                 INTEGER009 = INTEGER009 - 15
  1200.                 INTEGER007 = 2
  1201.                 Gosub LABEL021
  1202.                 Goto LABEL014
  1203.             Endif
  1204.             If ((INTEGER009 < 46) && (INTEGER009 >= 31)) Then
  1205.                 AnsiPos 28, INTEGER001
  1206.                 Color 31
  1207.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1208.                     Color 30
  1209.                 Endif
  1210.                 Print TSTRING001(INTEGER005)
  1211.                 INTEGER005 = INTEGER005 - 15
  1212.                 AnsiPos 15, INTEGER001
  1213.                 Color 63
  1214.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1215.                     Color 62
  1216.                 Endif
  1217.                 Print TSTRING001(INTEGER005)
  1218.                 INTEGER009 = INTEGER009 - 15
  1219.                 INTEGER007 = 15
  1220.                 Gosub LABEL021
  1221.                 Goto LABEL014
  1222.             Endif
  1223.             If ((INTEGER009 < 61) && (INTEGER009 >= 46)) Then
  1224.                 AnsiPos 41, INTEGER001
  1225.                 Color 31
  1226.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1227.                     Color 30
  1228.                 Endif
  1229.                 Print TSTRING001(INTEGER005)
  1230.                 INTEGER005 = INTEGER005 - 15
  1231.                 AnsiPos 28, INTEGER001
  1232.                 Color 63
  1233.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1234.                     Color 62
  1235.                 Endif
  1236.                 Print TSTRING001(INTEGER005)
  1237.                 INTEGER009 = INTEGER009 - 15
  1238.                 INTEGER007 = 28
  1239.                 Gosub LABEL021
  1240.                 Goto LABEL014
  1241.             Endif
  1242.             If ((INTEGER009 < 76) && (INTEGER009 >= 61)) Then
  1243.                 AnsiPos 54, INTEGER001
  1244.                 Color 31
  1245.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1246.                     Color 30
  1247.                 Endif
  1248.                 Print TSTRING001(INTEGER005)
  1249.                 INTEGER005 = INTEGER005 - 15
  1250.                 AnsiPos 41, INTEGER001
  1251.                 Color 63
  1252.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1253.                     Color 62
  1254.                 Endif
  1255.                 Print TSTRING001(INTEGER005)
  1256.                 INTEGER009 = INTEGER009 - 15
  1257.                 INTEGER007 = 41
  1258.                 Gosub LABEL021
  1259.                 Goto LABEL014
  1260.             Endif
  1261.             If ((INTEGER009 < 91) && (INTEGER009 >= 76)) Then
  1262.                 AnsiPos 67, INTEGER001
  1263.                 Color 31
  1264.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1265.                     Color 30
  1266.                 Endif
  1267.                 Print TSTRING001(INTEGER005)
  1268.                 INTEGER005 = INTEGER005 - 15
  1269.                 AnsiPos 54, INTEGER001
  1270.                 Color 63
  1271.                 If (Len(TSTRING008(INTEGER005)) > 1) Then
  1272.                     Color 62
  1273.                 Endif
  1274.                 Print TSTRING001(INTEGER005)
  1275.                 INTEGER009 = INTEGER009 - 15
  1276.                 INTEGER007 = 54
  1277.                 Gosub LABEL021
  1278.                 Goto LABEL014
  1279.             Endif
  1280.             Goto LABEL014
  1281.             :LABEL021
  1282.             AnsiPos 2, 19
  1283.             Color 31
  1284.             Print TSTRING006(INTEGER005)
  1285.             AnsiPos 16, 19
  1286.             Print TSTRING002(INTEGER005)
  1287.             AnsiPos 28, 19
  1288.             Print TSTRING003(INTEGER005)
  1289.             AnsiPos 38, 19
  1290.             Print TSTRING004(INTEGER005)
  1291.             AnsiPos 2, 2
  1292.             Color 17
  1293.             Print "█"
  1294.             AnsiPos 2, 2
  1295.             Print ""
  1296.             Return
  1297.             :LABEL022
  1298.             Shell 1, STRING009, "dir /o " + STRING010 + "\" + TSTRING006(INTEGER005) + ">" + PPEPath() + "sd_.tmp", ""
  1299.         Endif
  1300.         :LABEL023
  1301.         FCloseAll
  1302.         INTEGER005 = 1
  1303.         INTEGER008 = 1
  1304.         If (STRING015 == 1) Then
  1305.             Goto LABEL024
  1306.         Endif
  1307.         Goto LABEL028
  1308.         :LABEL024
  1309.         INTEGER005 = 1
  1310.         INTEGER008 = 1
  1311.         INTEGER005 = FileInf(PPEPath() + "sd###", 1)
  1312.         If (INTEGER005 == 1) Then
  1313.             INTEGER008 = 1
  1314.         Else
  1315.             FCreate 1, PPEPath() + "sd###", 2, 0
  1316.             Goto LABEL027
  1317.         Endif
  1318.         :LABEL025
  1319.         For INTEGER001 = INTEGER008 To 999
  1320.             TSTRING011(INTEGER001) = ReadLine(PPEPath() + "sd###", INTEGER001)
  1321.             If (TSTRING011(INTEGER001) == "-FINAL-") Then
  1322.                 Goto LABEL026
  1323.             Endif
  1324.             If (TSTRING011(INTEGER001) == "=" + STRING010) Then
  1325.                 Break
  1326.             Endif
  1327.         Next
  1328.         TSTRING011(INTEGER001) = "  "
  1329.         INTEGER008 = INTEGER008 + 1
  1330.         For INTEGER008 = INTEGER008 To 999
  1331.             STRING012 = ReadLine(PPEPath() + "sd###", INTEGER008)
  1332.             If (STRING012 == "-END-") Then
  1333.                 INTEGER008 = INTEGER008 + 1
  1334.                 Goto LABEL025
  1335.             Endif
  1336.         Next
  1337.         :LABEL026
  1338.         FCloseAll
  1339.         Delete PPEPath() + "sd###"
  1340.         FCreate 1, PPEPath() + "sd###", 2, 0
  1341.         For INTEGER001 = 1 To 999
  1342.             If (TSTRING011(INTEGER001) == "-FINAL-") Then
  1343.                 Break
  1344.             Endif
  1345.             FPutLn 1, TSTRING011(INTEGER001)
  1346.         Next
  1347.         :LABEL027
  1348.         FPutLn 1, "=" + STRING010
  1349.         For INTEGER001 = 1 To 999
  1350.             If (Len(TSTRING008(INTEGER001)) < 1) Then
  1351.                 Continue
  1352.             Endif
  1353.             FPut 1, INTEGER001
  1354.             FPut 1, "■"
  1355.             FPutLn 1, TSTRING008(INTEGER001)
  1356.         Next
  1357.         FPutLn 1, "-END-"
  1358.         FPutLn 1, "-FINAL-"
  1359.         FCloseAll
  1360.         :LABEL028
  1361.         STRING015 = 8
  1362.         FCloseAll
  1363.         FPutLn 1, "■■■"
  1364.         FCloseAll
  1365.         Redim TSTRING008, 1
  1366.         Redim TSTRING008, 999
  1367.         Redim TSTRING001, 1
  1368.         Redim TSTRING001, 999
  1369.         Redim TSTRING002, 1
  1370.         Redim TSTRING002, 999
  1371.         Redim TSTRING003, 1
  1372.         Redim TSTRING003, 999
  1373.         Redim TSTRING004, 1
  1374.         Redim TSTRING004, 999
  1375.         Redim TSTRING006, 1
  1376.         Redim TSTRING006, 999
  1377.         If (INTEGER014 == 1) Then
  1378.             Goto LABEL034
  1379.         Endif
  1380.         Goto LABEL009
  1381.     Endif
  1382.     STRING030 = "@X70                                                       "
  1383.     STRING031 = "   ╔═══ Drive letter ══════════════════════════════╗   "
  1384.     STRING032 = "   ║ Choose drive:                                 ║   "
  1385.     STRING033 = "   ║   A   B   C   D   E   F   G   H   I   J   K   ║   "
  1386.     STRING034 = "   ╚═══════════════════════════════════════════════╝   "
  1387.     STRING035 = "                                                       "
  1388.     AnsiPos 14, 3
  1389.     Print STRING030
  1390.     AnsiPos 14, 4
  1391.     Print STRING031
  1392.     AnsiPos 14, 5
  1393.     Print STRING032
  1394.     AnsiPos 14, 6
  1395.     Print STRING033
  1396.     AnsiPos 14, 7
  1397.     Print STRING034
  1398.     AnsiPos 14, 8
  1399.     Print STRING035
  1400.     AnsiPos 20, 6
  1401.     Color 48
  1402.     Print " A "
  1403.     INTEGER019 = 1
  1404.     Gosub LABEL029
  1405.     Goto LABEL030
  1406.     :LABEL029
  1407.     AnsiPos 2, 2
  1408.     Color 17
  1409.     Print "█"
  1410.     AnsiPos 2, 2
  1411.     Print ""
  1412.     Return
  1413.     :LABEL030
  1414.     STRING005 = Inkey()
  1415.     If (STRING005 == "LEFT") Then
  1416.         Goto LABEL032
  1417.     Endif
  1418.     If (STRING005 == "RIGHT") Then
  1419.         Goto LABEL031
  1420.     Endif
  1421.     If (STRING005 == Chr(13)) Then
  1422.         Goto LABEL033
  1423.     Endif
  1424.     If (STRING005 == Chr(27)) Then
  1425.         AnsiPos 1, 3
  1426.         Print STRING017
  1427.         AnsiPos 1, 4
  1428.         Print STRING018
  1429.         AnsiPos 1, 5
  1430.         Print STRING019
  1431.         AnsiPos 1, 6
  1432.         Print STRING020
  1433.         AnsiPos 1, 7
  1434.         Print STRING021
  1435.         AnsiPos 1, 8
  1436.         Print STRING022
  1437.         Gosub LABEL021
  1438.         Goto LABEL014
  1439.     Endif
  1440.     Goto LABEL030
  1441.     :LABEL031
  1442.     If (INTEGER019 == 11) Then
  1443.         AnsiPos 60, 6
  1444.         Color 112
  1445.         Print " K "
  1446.         INTEGER019 = 1
  1447.         AnsiPos 20, 6
  1448.         Color 48
  1449.         Print " A "
  1450.         Gosub LABEL029
  1451.         Goto LABEL030
  1452.     Endif
  1453.     If (INTEGER019 == 1) Then
  1454.         AnsiPos 20, 6
  1455.         Color 112
  1456.         Print " A "
  1457.         INTEGER019 = 2
  1458.         AnsiPos 24, 6
  1459.         Color 48
  1460.         Print " B "
  1461.         Gosub LABEL029
  1462.         Goto LABEL030
  1463.     Endif
  1464.     If (INTEGER019 == 2) Then
  1465.         AnsiPos 24, 6
  1466.         Color 112
  1467.         Print " B "
  1468.         INTEGER019 = 3
  1469.         AnsiPos 28, 6
  1470.         Color 48
  1471.         Print " C "
  1472.         Gosub LABEL029
  1473.         Goto LABEL030
  1474.     Endif
  1475.     If (INTEGER019 == 3) Then
  1476.         AnsiPos 28, 6
  1477.         Color 112
  1478.         Print " C "
  1479.         INTEGER019 = 4
  1480.         AnsiPos 32, 6
  1481.         Color 48
  1482.         Print " D "
  1483.         Gosub LABEL029
  1484.         Goto LABEL030
  1485.     Endif
  1486.     If (INTEGER019 == 4) Then
  1487.         AnsiPos 32, 6
  1488.         Color 112
  1489.         Print " D "
  1490.         INTEGER019 = 5
  1491.         AnsiPos 36, 6
  1492.         Color 48
  1493.         Print " E "
  1494.         Gosub LABEL029
  1495.         Goto LABEL030
  1496.     Endif
  1497.     If (INTEGER019 == 5) Then
  1498.         AnsiPos 36, 6
  1499.         Color 112
  1500.         Print " E "
  1501.         INTEGER019 = 6
  1502.         AnsiPos 40, 6
  1503.         Color 48
  1504.         Print " F "
  1505.         Gosub LABEL029
  1506.         Goto LABEL030
  1507.     Endif
  1508.     If (INTEGER019 == 6) Then
  1509.         AnsiPos 40, 6
  1510.         Color 112
  1511.         Print " F "
  1512.         INTEGER019 = 7
  1513.         AnsiPos 44, 6
  1514.         Color 48
  1515.         Print " G "
  1516.         Gosub LABEL029
  1517.         Goto LABEL030
  1518.     Endif
  1519.     If (INTEGER019 == 7) Then
  1520.         AnsiPos 44, 6
  1521.         Color 112
  1522.         Print " G "
  1523.         INTEGER019 = 8
  1524.         AnsiPos 48, 6
  1525.         Color 48
  1526.         Print " H "
  1527.         Gosub LABEL029
  1528.         Goto LABEL030
  1529.     Endif
  1530.     If (INTEGER019 == 8) Then
  1531.         AnsiPos 48, 6
  1532.         Color 112
  1533.         Print " H "
  1534.         INTEGER019 = 9
  1535.         AnsiPos 52, 6
  1536.         Color 48
  1537.         Print " I "
  1538.         Gosub LABEL029
  1539.         Goto LABEL030
  1540.     Endif
  1541.     If (INTEGER019 == 9) Then
  1542.         AnsiPos 52, 6
  1543.         Color 112
  1544.         Print " I "
  1545.         INTEGER019 = 10
  1546.         AnsiPos 56, 6
  1547.         Color 48
  1548.         Print " J "
  1549.         Gosub LABEL029
  1550.         Goto LABEL030
  1551.     Endif
  1552.     If (INTEGER019 == 10) Then
  1553.         AnsiPos 56, 6
  1554.         Color 112
  1555.         Print " J "
  1556.         INTEGER019 = 11
  1557.         AnsiPos 60, 6
  1558.         Color 48
  1559.         Print " K "
  1560.         Gosub LABEL029
  1561.         Goto LABEL030
  1562.     Endif
  1563.     Goto LABEL030
  1564.     :LABEL032
  1565.     If (INTEGER019 == 1) Then
  1566.         AnsiPos 20, 6
  1567.         Color 112
  1568.         Print " A "
  1569.         INTEGER019 = 11
  1570.         AnsiPos 60, 6
  1571.         Color 48
  1572.         Print " K "
  1573.         Gosub LABEL029
  1574.         Goto LABEL030
  1575.     Endif
  1576.     If (INTEGER019 == 2) Then
  1577.         AnsiPos 24, 6
  1578.         Color 112
  1579.         Print " B "
  1580.         INTEGER019 = 1
  1581.         AnsiPos 20, 6
  1582.         Color 48
  1583.         Print " A "
  1584.         Gosub LABEL029
  1585.         Goto LABEL030
  1586.     Endif
  1587.     If (INTEGER019 == 3) Then
  1588.         AnsiPos 28, 6
  1589.         Color 112
  1590.         Print " C "
  1591.         INTEGER019 = 2
  1592.         AnsiPos 24, 6
  1593.         Color 48
  1594.         Print " B "
  1595.         Gosub LABEL029
  1596.         Goto LABEL030
  1597.     Endif
  1598.     If (INTEGER019 == 4) Then
  1599.         AnsiPos 32, 6
  1600.         Color 112
  1601.         Print " D "
  1602.         INTEGER019 = 3
  1603.         AnsiPos 28, 6
  1604.         Color 48
  1605.         Print " C "
  1606.         Gosub LABEL029
  1607.         Goto LABEL030
  1608.     Endif
  1609.     If (INTEGER019 == 5) Then
  1610.         AnsiPos 36, 6
  1611.         Color 112
  1612.         Print " E "
  1613.         INTEGER019 = 4
  1614.         AnsiPos 32, 6
  1615.         Color 48
  1616.         Print " D "
  1617.         Gosub LABEL029
  1618.         Goto LABEL030
  1619.     Endif
  1620.     If (INTEGER019 == 6) Then
  1621.         AnsiPos 40, 6
  1622.         Color 112
  1623.         Print " F "
  1624.         INTEGER019 = 5
  1625.         AnsiPos 36, 6
  1626.         Color 48
  1627.         Print " E "
  1628.         Gosub LABEL029
  1629.         Goto LABEL030
  1630.     Endif
  1631.     If (INTEGER019 == 7) Then
  1632.         AnsiPos 44, 6
  1633.         Color 112
  1634.         Print " G "
  1635.         INTEGER019 = 6
  1636.         AnsiPos 40, 6
  1637.         Color 48
  1638.         Print " F "
  1639.         Gosub LABEL029
  1640.         Goto LABEL030
  1641.     Endif
  1642.     If (INTEGER019 == 8) Then
  1643.         AnsiPos 48, 6
  1644.         Color 112
  1645.         Print " H "
  1646.         INTEGER019 = 7
  1647.         AnsiPos 44, 6
  1648.         Color 48
  1649.         Print " G "
  1650.         Gosub LABEL029
  1651.         Goto LABEL030
  1652.     Endif
  1653.     If (INTEGER019 == 9) Then
  1654.         AnsiPos 52, 6
  1655.         Color 112
  1656.         Print " I "
  1657.         INTEGER019 = 8
  1658.         AnsiPos 48, 6
  1659.         Color 48
  1660.         Print " H "
  1661.         Gosub LABEL029
  1662.         Goto LABEL030
  1663.     Endif
  1664.     If (INTEGER019 == 10) Then
  1665.         AnsiPos 56, 6
  1666.         Color 112
  1667.         Print " J "
  1668.         INTEGER019 = 9
  1669.         AnsiPos 52, 6
  1670.         Color 48
  1671.         Print " I "
  1672.         Gosub LABEL029
  1673.         Goto LABEL030
  1674.     Endif
  1675.     If (INTEGER019 == 11) Then
  1676.         AnsiPos 60, 6
  1677.         Color 112
  1678.         Print " K "
  1679.         INTEGER019 = 10
  1680.         AnsiPos 56, 6
  1681.         Color 48
  1682.         Print " J "
  1683.         Gosub LABEL029
  1684.         Goto LABEL030
  1685.     Endif
  1686.     Goto LABEL030
  1687.     :LABEL033
  1688.     If (INTEGER019 == 1) Then
  1689.         STRING036 = "A"
  1690.     Endif
  1691.     If (INTEGER019 == 2) Then
  1692.         STRING036 = "B"
  1693.     Endif
  1694.     If (INTEGER019 == 3) Then
  1695.         STRING036 = "C"
  1696.     Endif
  1697.     If (INTEGER019 == 4) Then
  1698.         STRING036 = "D"
  1699.     Endif
  1700.     If (INTEGER019 == 5) Then
  1701.         STRING036 = "E"
  1702.     Endif
  1703.     If (INTEGER019 == 6) Then
  1704.         STRING036 = "F"
  1705.     Endif
  1706.     If (INTEGER019 == 7) Then
  1707.         STRING036 = "G"
  1708.     Endif
  1709.     If (INTEGER019 == 8) Then
  1710.         STRING036 = "H"
  1711.     Endif
  1712.     If (INTEGER019 == 9) Then
  1713.         STRING036 = "I"
  1714.     Endif
  1715.     If (INTEGER019 == 10) Then
  1716.         STRING036 = "J"
  1717.     Endif
  1718.     If (INTEGER019 == 11) Then
  1719.         STRING036 = "K"
  1720.     Endif
  1721.     Shell 1, STRING009, "dir /o " + STRING036 + ":" + ">" + PPEPath() + "sd_.tmp", ""
  1722.     AnsiPos 1, 3
  1723.     Print STRING017
  1724.     AnsiPos 1, 4
  1725.     Print STRING018
  1726.     AnsiPos 1, 5
  1727.     Print STRING019
  1728.     AnsiPos 1, 6
  1729.     Print STRING020
  1730.     AnsiPos 1, 7
  1731.     Print STRING021
  1732.     AnsiPos 1, 8
  1733.     Print STRING022
  1734.     Goto LABEL023
  1735.     :LABEL034
  1736.     FCloseAll
  1737.     INTEGER005 = Exist(PPEPath() + "sd###")
  1738.     INTEGER008 = 1
  1739.     If (INTEGER005 == 1) Then
  1740.         Goto LABEL035
  1741.     Endif
  1742.     PrintLn STRING027
  1743.     PrintLn STRING026
  1744.     PrintLn ""
  1745.     Delete PPEPath() + "sd###"
  1746.     Delete PPEPath() + "sd_.tmp"
  1747.     End
  1748.     :LABEL035
  1749.     For INTEGER001 = INTEGER008 To 999
  1750.         STRING012 = ReadLine(PPEPath() + "sd###", INTEGER001)
  1751.         If (STRING012 == "-FINAL-") Then
  1752.             Goto LABEL037
  1753.         Endif
  1754.         STRING037 = Left(STRING012, 1)
  1755.         If (STRING037 == "=") Then
  1756.             STRING012 = Right(STRING012, Len(STRING012) - 1)
  1757.             Goto LABEL036
  1758.         Endif
  1759.     Next
  1760.     Goto LABEL037
  1761.     :LABEL036
  1762.     For INTEGER008 = INTEGER008 + 1 To 999
  1763.         STRING038 = ReadLine(PPEPath() + "sd###", INTEGER008)
  1764.         If (STRING038 == "-END-") Then
  1765.             INTEGER008 = INTEGER008 + 1
  1766.             Goto LABEL035
  1767.         Endif
  1768.         INTEGER005 = InStr(STRING038, "■")
  1769.         If (INTEGER005 > 1) Then
  1770.             STRING039 = Right(STRING038, Len(STRING038) - INTEGER005)
  1771.             STRING040 = STRING012 + "\" + STRING039
  1772.             Flag STRING040
  1773.         Endif
  1774.     Next
  1775.     :LABEL037
  1776.     Delete PPEPath() + "sd###"
  1777.     Delete PPEPath() + "sd_.tmp"
  1778.     PrintLn STRING027
  1779.     PrintLn STRING026
  1780.     PrintLn ""
  1781.     End
  1782.  
  1783. ;------------------------------------------------------------------------------
  1784. ;
  1785. ; Usage report (before postprocessing)
  1786. ;
  1787. ; ■ Statements used :
  1788. ;
  1789. ;    3       End
  1790. ;    3       Cls
  1791. ;    209     Color 
  1792. ;    374     Goto 
  1793. ;    356     Let 
  1794. ;    182     Print 
  1795. ;    17      PrintLn 
  1796. ;    232     If 
  1797. ;    2       FCreate 
  1798. ;    2       FPut 
  1799. ;    6       FPutLn 
  1800. ;    5       Delete 
  1801. ;    68      Gosub 
  1802. ;    7       Return
  1803. ;    3       Shell 
  1804. ;    185     AnsiPos 
  1805. ;    1       SPrint 
  1806. ;    21      SPrintLn 
  1807. ;    1       MPrint 
  1808. ;    12      Redim 
  1809. ;    1       Flag 
  1810. ;    7       FCloseAll
  1811. ;
  1812. ;
  1813. ; ■ Functions used :
  1814. ;
  1815. ;    125     +
  1816. ;    69      -
  1817. ;    96      ==
  1818. ;    1       <>
  1819. ;    44      <
  1820. ;    28      <=
  1821. ;    86      >
  1822. ;    65      >=
  1823. ;    232     !
  1824. ;    74      &&
  1825. ;    14      ||
  1826. ;    92      Len(
  1827. ;    3       Lower()
  1828. ;    2       Upper()
  1829. ;    12      Left()
  1830. ;    11      Right()
  1831. ;    11      Chr()
  1832. ;    5       InStr()
  1833. ;    3       Inkey()
  1834. ;    25      PPEPath()
  1835. ;    11      ReadLine()
  1836. ;    1       Exist()
  1837. ;    2       GetX()
  1838. ;    1       GetY()
  1839. ;    2       FileInf()
  1840. ;    6       ScrText()
  1841. ;
  1842. ;------------------------------------------------------------------------------
  1843. ;
  1844. ; Analysis flags : MSf
  1845. ;
  1846. ; M - Send text to modem only ■ 4
  1847. ;     Some informations are sent only to the modem, not to the local
  1848. ;     screen, this is a well known way to make stealth backdoors, Check!
  1849. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  1850. ;
  1851. ; S - Shell to DOS ■ 5
  1852. ;     This may be normal if the PPE need to execute an external command,
  1853. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  1854. ;     or usefull (sorting, maintenance,...). Check!
  1855. ;     ■ Search for : SHELL
  1856. ;
  1857. ; f - Flag files for download ■ 3
  1858. ;     This may be normal if a PPE needs to send some files, but since
  1859. ;     this statement allows flagging of any file on the hard disk, you
  1860. ;     have to be carefull. Check!
  1861. ;     ■ Search for : FLAG
  1862. ;
  1863. ;------------------------------------------------------------------------------
  1864. ;
  1865. ; Postprocessing report
  1866. ;
  1867. ;    11      For/Next
  1868. ;    0       While/EndWhile
  1869. ;    221     If/Then or If/Then/Else
  1870. ;    0       Select Case
  1871. ;
  1872. ;------------------------------------------------------------------------------
  1873. ;                 AEGiS Corp - Break the routines, code against the machines!
  1874. ;------------------------------------------------------------------------------
  1875.