'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                 
'     Determina lo que hay que escribir en los ficheros de
'     proceso por lotes de MS-DOS (*.BAT) para que usando el
'     controlador ANSI.SYS se pueda escribir en colores o
'     cambiar los colores de la pantalla de MS-DOS
'
'
CLS
COLOR 10: LOCATE 2, 10: PRINT "TRADUCTOR BASIC-ANSI.SYS"
 LOCATE 4, 10: PRINT "Û" + STRING$(51, 223) + "Û"
 LOCATE 5, 10: PRINT "Û T = Texto a presentar                             Û"
 LOCATE 6, 10: PRINT "Û P = Color de letra o primer plano                 Û"
 LOCATE 7, 10: PRINT "Û F = Color de fondo                                Û"
 LOCATE 8, 10: PRINT "Û S = Presentar secuencia de escape y salir         Û"
 LOCATE 9, 10: PRINT "Û" + STRING$(51, 196) + "Û"
LOCATE 10, 10: PRINT "Û  ELIJE OPCION PARA FORMAR LA SECUENCIA DE ESCAPE  Û"
LOCATE 11, 10: PRINT "Û" + STRING$(51, 220) + "Û"

VIEW PRINT 15 TO 25
COLOR 7
DO
   DO
      KBD$ = UCASE$(INKEY$)
   LOOP WHILE KBD$ = ""
   SELECT CASE KBD$
      CASE "I": I = 1
      CASE "D": D = 1
      CASE "P"
         SOUND 3000, .7
         INPUT "Color de primer plano: ", pp
         IF pp < 0 OR pp > 7 THEN
            pp = 0
            BEEP
         END IF
         SELECT CASE pp
            CASE 0: CP = 30: N = 0
            CASE 1: CP = 34: N = 0
            CASE 2: CP = 33: N = 0
            CASE 3: CP = 36: N = 0
            CASE 4: CP = 31: N = 0
            CASE 5: CP = 35: N = 0
            CASE 6: CP = 33: N = 0
            CASE 7: CP = 37: N = 0
            CASE 8: CP = 30: N = 1
            CASE 9: CP = 34: N = 1
            CASE 10: CP = 33: N = 1
            CASE 11: CP = 36: N = 1
            CASE 12: CP = 31: N = 1
            CASE 13: CP = 35: N = 1
            CASE 14: CP = 33: N = 1
            CASE 15: CP = 37: N = 1
         END SELECT
      CASE "F"
         SOUND 3000, .7
         INPUT "Color de fondo: ", ff
         IF ff < 0 OR ff > 7 THEN
            ff = 0
            BEEP
         END IF
         SELECT CASE ff
            CASE 0: CF = 40
            CASE 1: CF = 44
            CASE 2: CF = 42
            CASE 3: CF = 46
            CASE 4: CF = 41
            CASE 5: CF = 45
            CASE 6: CF = 43
            CASE 7: CF = 47
         END SELECT
      CASE "T"
         SOUND 3000, .7
         LINE INPUT "Texto a presentar: ", text$
   END SELECT
LOOP UNTIL KBD$ = "S"
VIEW PRINT
CLS
COLOR 10
LOCATE 6: PRINT "-Secuencia de escape-"
COLOR 7: LOCATE 8, 5: PRINT "ECHO "; CHR$(27); "["; MID$(STR$(CP), 2, 2); ";"; MID$(STR$(CF), 2, 2); "m "; text$
COLOR 10
LOCATE 13: PRINT "-Resultado obtenido-"
LOCATE 15, 5: COLOR pp, ff: PRINT text$

COLOR 10, 0: LOCATE 23, 50: PRINT "Pulsa una tecla para salir"
COLOR 0, 0