CLASE DEL DIA MARTES 17 DE MAYO 2011

PROGRAMA PARA CAMBIAR FONDO DE PANTALLA

CODIGO DEL PROGRAMA
---------------------------------------------------------------------

opcion = 0
CLEAR
@ 5,5 say "1 AZUL"
@ 6,5 SAY "2 NEGRO"
@ 7,5 SAY "3 ROJO"
@ 8,5 SAY "4 VERDE"
@ 9,5 SAY "5 MAGNETA"
@ 10,5 SAY "6 SALIR"
@ 11,5 SAY "INGRESE UNA OPCION" GET opcion RANGE 1,6
READ
DO case
 CASE opcion = 1

 SET COLOR TO N+/B
 DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 2
 SET COLOR TO W/N
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 3
 SET COLOR TO N/r
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 4
 SET COLOR TO N/g
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 5
 SET COLOR TO N/rb
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 6

 CLOSE all
 ENDCASE