Código de FoxPro/Visual FoxPro - BABILONIA CYBER II01.

CLEAR

&&

ACTIVATE SCREEN

*CLEAR

*@ 15,5 FILL TO 22,145 COLOR GR+/B

@ 15,50 FILL TO 22,130 COLOR GR+/B

SET HOURS TO  24 && FORMATO DE LA HORA

SET CLOCK TO 2,187 && POSICION DONDE IMPRIME LA HORA

STORE DATETIME() TO TTT45

*STORE DATE( ) TO gdDayNum

&& RUTINE DE CONVERSION DE DIAS

STORE DATE( ) TO gdDayNum

DO case

CASE DOW(gddaynum)=1

STORE 'DOMINGO'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE DOW(gddaynum)=2

STORE 'LUNES'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE DOW(gddaynum)=3

STORE 'MARTES'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE DOW(gddaynum)=4

STORE 'MIERCOLES'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE DOW(gddaynum)=5

STORE 'JUEVES'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255  

CASE DOW(gddaynum)=6

STORE 'VIERNES'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE DOW(gddaynum)=7

STORE 'SABADO'TO cv

*@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

ENDCASE

*? CDOW(gdDayNum)

tToday = DATE( )

 *@ 4,5 SAY 'HOY ES' FONT 'ARIAL ',13 COLOR RGB(0,0,128)

 *@ 4,24SAY TTODAY FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

 FF= YEAR(DATE( ))

*@ 4,52 SAY FF  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255  RESPONSABLE DEL AÑO   48 

&& RUTINA DE CONVERSION DE NOMBRE DE MESES

CLOSE ALL

CLOSE TABLES ALL && Cierra todas las tablas abiertas

CLOSE DATABASES ALL && Cierra todas las bases de datos abiertas

USE FLECHA.DBF

*@7,75 say FLECHA BITMAP SIZE 4,7 ISOMETRIC

SET COLOR OF SCHEME 1 TO , , RGB(255,255,255,0,0,255)

SET READBORDER ON && PONE COLOCA BORDE A LAS VARIABLES

SET ECHO OFF &&ON

SET TALK OFF&&ON && Determina si Visual FoxPro muestra los resultados de los comandos.

SET STATUS OFF && Muestra o quita la barra de estado basada en caracteres

SET TALK OFF&&ON && Determina si Visual FoxPro muestra los resultados de los comandos.

SET SAFETY OFF && Determina si Visual FoxPro muestra o no un cuadro de diálogo antes de sobrescribir un archivo existente.

SET HELP OFF && Activa o desactiva la Ayuda en pantalla de Visual FoxPro o especifica un archivo de Ayuda.

SET DATE DMY && AMERICANmm/dd/yyANSIyy.mm.ddBRITISH/FRENCHdd/mm/yyGERMANdd.mm.yyITALIANdd-mm-yyJAPANyy/mm/ddTAIWANyy/mm/ddUSAmm-dd-yyMDYmm/dd/yyDMYdd/mm/yyYMDyy/mm/dd

             &&SHORT Short date format determined by the Windows Control Panel short date setting.LONGLong date format determined by the Windows Control Panel long date setting.

SET CENTURY ON && Acomoda el formato del año a cuatro digitos AAAA

SET ESCAPE OFF && Determina si al presionar la tecla ESC se interrumpirá la ejecución de un programa y un comando.

SET HOURS TO 24 && Establece el formato de hora del reloj del sistema en 12 ó 24 horas.

SET AUTOSAVE ON && Determina si Visual FoxPro vaciará o no los búferes de datos al disco cuando salga de READ o cuando vuelva a la ventana Comando

SET EXCLUSIVE OFF && Especifica si Visual FoxPro abre los archivos de tabla para uso exclusivo o compartido en una red.

SET STATUS BAR OFF && Muestra o quita la barra de estado gráfica.

TP=SPACE(71)

SAVE=SPACE(1)&& VARIABLE PARA GRABAR ATCHIVO O SALIR

USUARIO=SPACE(12)

USE TECLADO.DBF

@4,45 GET TECLADO FONT'ARIAL ',12 COLOR RGB(0, 128, 128)

@11,30 SAY '   Copia esta URL y Pégala en tu Motor de Búsqueda; Copy this URL and Paste it into your Search Engine.'

@13,5 SAY 'Recomendamos usar un Teclado Virtual para mas Seguridad; We recommend using a Virtual Keyboard for more Security.' FONT'ARIAL ',12 COLOR RGB(0, 0, 255)

********

**************

*DEFINE WINDOW wEnter FROM 16,7 to 23,108 PANEL &&7,10 to 13,70

*ACTIVATE WINDOW wEnter

*@ 1,3 SAY 'Nombre de Usuario; Username.'   GET USUARIO  DEFAULT SPACE (12)&&(40)

*@ 3,3 SAY 'Digite Clave de acceso.'   GET TP  DEFAULT SPACE (71)&&(40)

*READ

*@ 15,50 FILL TO 22,130 COLOR GR+/B

************

******************

@16,5 SAY 'Nombre de Usuario; Username.' FONT'ARIAL BLACK',11 COLOR RGB(0, 0, 255)

@16,54 GET USUARIO

@19,5 SAY 'Digite Clave de acceso.' FONT'ARIAL BLACK',11 COLOR RGB(0, 0, 255)

@21,5 SAY 'Type Access Password.' FONT'ARIAL BLACK',11 COLOR RGB(0, 0, 255)

@19,54 GET TP

READ

*WAIT

*GHG

*DO CASE

*TELO=" AGUADEPANELAconcarne      "

*STORE TELO TO CDR

STORE CDR TO YUCABUENA

      IF TP<>'SU CLAVE' OR USUARIO <> 'ENTRANDO'

   QUIT

   *DO VALIDADOR11 && LLAMA A OTRO PROGRAMA

  ELSE  TP='SU CLAVE' AND USUARIO = 'ENTRANDO'

  * QUIT

*ENDCASE

      ENDIF

CLEAR

DO case

CASE MONTH(DATE( ))=1

STORE 'ENERO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=2

STORE 'FEBRERO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=3

STORE 'MARZO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=4

STORE 'ABRIL'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=5

STORE 'MAYO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=6

STORE 'JUNIO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=7

STORE 'JULIO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=8

STORE 'AGOSTO'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=9

STORE 'SEPTIEMBRE'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=10

STORE 'OCTUBRE'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=11

STORE 'NOVIEMBRE'TO MES

*@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255

CASE MONTH(DATE( ))=12

STORE 'DICIEMBRE'TO MES

CLEAR

*@8,28 SAY "HOY ES" + MES +"NUEVO" FONT 'ARIAL ',50 COLOR RGB(255,0,0)&&255 

*@6,6 SAY MES

*@8,10 SAY "NUEVO" &&FONT 'ARIAL ',20 &&COLOR RGB(255,0,0)&&255 

*@10,10 SAY" "

ENDCASE

*WAIT "UN MOMENTO"

*WAIT

*USE DATEFECHA

TY=TIME()

CLEAR

DIAMES= MONTH(DATE( ))&& NUMERO DEL DIA DEL MES

*@6,22 SAY DIAMES && NUMERO DEL DIA DEL MES

*8R

*IF lExpression [THEN]

*      Commands

*[ELSE

 *     Commands]

*ENDIF

varA1=SPACE(1)

varB1=SPACE(1)

varC1=SPACE(1)

varD1=SPACE(1)

varE1=SPACE(1)

varF1=SPACE(1)

varG1=SPACE(1)

varH1=SPACE(1)

varI1=SPACE(1)

varJ1=SPACE(1)

varK1=SPACE(1)

varL1=SPACE(1)

varM1=SPACE(1)

varN1=SPACE(1)

varÑ1=SPACE(1)

varO1=SPACE(1)

varP1=SPACE(1)

varQ1=SPACE(1)

varR1=SPACE(1)

varS1=SPACE(1)

varT1=SPACE(1)

varU1=SPACE(1)

varV1=SPACE(1)

varW1=SPACE(1)

varX1=SPACE(1)

varY1=SPACE(1)

varZ1=SPACE(1)

&&&   SEGUNDA LINEA

&&&   SEGUNDA LINEA

varA2=SPACE(1)

varB2=SPACE(1)

varC2=SPACE(1)

varD2=SPACE(1)

varE2=SPACE(1)

varF2=SPACE(1)

varG2=SPACE(1)

varH2=SPACE(1)

varI2=SPACE(1)

varJ2=SPACE(1)

varK2=SPACE(1)

varL2=SPACE(1)

varM2=SPACE(1)

varN2=SPACE(1)

varÑ2=SPACE(1)

varO2=SPACE(1)

varP2=SPACE(1)

varQ2=SPACE(1)

varR2=SPACE(1)

varS2=SPACE(1)

varT2=SPACE(1)

varU2=SPACE(1)

varV2=SPACE(1)

varW2=SPACE(1)

varX2=SPACE(1)

varY2=SPACE(1)

varZ2=SPACE(1)

&&   FIN SEGUNDA PARTE DE VARIABLES

&&   FIN SEGUNDA PARTE DE VARIABLES

******************************

*************************

*************************

&& PRINCIPIO DE LAS VARIABLES TERCERA PARTE

varA3=SPACE(1)

varB3=SPACE(1)

varC3=SPACE(1)

varD3=SPACE(1)

varE3=SPACE(1)

varF3=SPACE(1)

varG3=SPACE(1)

varH3=SPACE(1)

varI3=SPACE(1)

varJ3=SPACE(1)

varK3=SPACE(1)

varL3=SPACE(1)

varM3=SPACE(1)

varN3=SPACE(1)

varÑ3=SPACE(1)

varO3=SPACE(1)

varP3=SPACE(1)

varQ3=SPACE(1)

varR3=SPACE(1)

varS3=SPACE(1)

varT3=SPACE(1)

varU3=SPACE(1)

varV3=SPACE(1)

varW3=SPACE(1)

varX3=SPACE(1)

varY3=SPACE(1)

varZ3=SPACE(1)

**************************

********************

******

&& FIN DE LA TERCERA PARTE DE LAS VARUABLES

*****************

****************

*****************

&& PRINCIPIO DE LA CUARTA PARTE DE VARIABLES

varA4=SPACE(1)

varB4=SPACE(1)

varC4=SPACE(1)

varD4=SPACE(1)

varE4=SPACE(1)

varF4=SPACE(1)

varG4=SPACE(1)

varH4=SPACE(1)

varI4=SPACE(1)

varJ4=SPACE(1)

varK4=SPACE(1)

varL4=SPACE(1)

varM4=SPACE(1)

varN4=SPACE(1)

varÑ4=SPACE(1)

varO4=SPACE(1)

varP4=SPACE(1)

varQ4=SPACE(1)

varR4=SPACE(1)

varS4=SPACE(1)

varT4=SPACE(1)

varU4=SPACE(1)

varV4=SPACE(1)

varW4=SPACE(1)

varX4=SPACE(1)

varY4=SPACE(1)

varZ4=SPACE(1)

*********************

********************

**************

&&FIN DE LA CUARTA PARTE DE VARIABLES

**************

***********************

**************

&& PRINCIPIO DE LA QUINTA PARTE DE VARIABES

varA5=SPACE(1)

varB5=SPACE(1)

varC5=SPACE(1)

varD5=SPACE(1)

varE5=SPACE(1)

varF5=SPACE(1)

varG5=SPACE(1)

varH5=SPACE(1)

varI5=SPACE(1)

varJ5=SPACE(1)

varK5=SPACE(1)

varL5=SPACE(1)

varM5=SPACE(1)

varN5=SPACE(1)

varÑ5=SPACE(1)

varO5=SPACE(1)

varP5=SPACE(1)

varQ5=SPACE(1)

varR5=SPACE(1)

varS5=SPACE(1)

varT5=SPACE(1)

varU5=SPACE(1)

varV5=SPACE(1)

varW5=SPACE(1)

varX5=SPACE(1)

varY5=SPACE(1)

varZ5=SPACE(1)

***********

*************

***********

&& FIN DE LA QUINTA PARTE DE VARIABLES

****************

************

**************

&&PRINCIPIO DE LA SEXTA PARTE VARIABLES

varA6=SPACE(1)

varB6=SPACE(1)

varC6=SPACE(1)

varD6=SPACE(1)

varE6=SPACE(1)

varF6=SPACE(1)

varG6=SPACE(1)

varH6=SPACE(1)

varI6=SPACE(1)

varJ6=SPACE(1)

varK6=SPACE(1)

varL6=SPACE(1)

varM6=SPACE(1)

varN6=SPACE(1)

varÑ6=SPACE(1)

varO6=SPACE(1)

varP6=SPACE(1)

varQ6=SPACE(1)

varR6=SPACE(1)

varS6=SPACE(1)

varT6=SPACE(1)

varU6=SPACE(1)

varV6=SPACE(1)

varW6=SPACE(1)

varX6=SPACE(1)

varY6=SPACE(1)

varZ6=SPACE(1)

*******

***************

********

&&FIN DE LA SEXTA PARTE VARIABLES

************

*************

&& PRINCIPIO DE LA SEPTIMA PARTE VARIABLES

varA7=SPACE(1)

varB7=SPACE(1)

varC7=SPACE(1)

varD7=SPACE(1)

varE7=SPACE(1)

varF7=SPACE(1)

varG7=SPACE(1)

varH7=SPACE(1)

varI7=SPACE(1)

varJ7=SPACE(1)

varK7=SPACE(1)

varL7=SPACE(1)

varM7=SPACE(1)

varN7=SPACE(1)

varÑ7=SPACE(1)

varO7=SPACE(1)

varP7=SPACE(1)

varQ7=SPACE(1)

varR7=SPACE(1)

varS7=SPACE(1)

varT7=SPACE(1)

varU7=SPACE(1)

varV7=SPACE(1)

varW7=SPACE(1)

varX7=SPACE(1)

varY7=SPACE(1)

varZ7=SPACE(1)

****

*********

&&FIN DE LA SEPTIMA PARTE VARIABLES

*********

**********

&& PRINCIPIO DE LA OCTAVA PARTE VARIABLES

varA8=SPACE(1)

varB8=SPACE(1)

varC8=SPACE(1)

varD8=SPACE(1)

varE8=SPACE(1)

varF8=SPACE(1)

varG8=SPACE(1)

varH8=SPACE(1)

varI8=SPACE(1)

varJ8=SPACE(1)

varK8=SPACE(1)

varL8=SPACE(1)

varM8=SPACE(1)

varN8=SPACE(1)

varÑ8=SPACE(1)

varO8=SPACE(1)

varP8=SPACE(1)

varQ8=SPACE(1)

varR8=SPACE(1)

varS8=SPACE(1)

varT8=SPACE(1)

varU8=SPACE(1)

varV8=SPACE(1)

varW8=SPACE(1)

varX8=SPACE(1)

varY8=SPACE(1)

varZ8=SPACE(1)

**********

&& FIN DE LA OCTAVA PARTE VARIABLES

*****

********

&& PRINCIPIO VARIABLES NOVENA

varA9=SPACE(1)

varB9=SPACE(1)

varC9=SPACE(1)

varD9=SPACE(1)

varE9=SPACE(1)

varF9=SPACE(1)

varG9=SPACE(1)

varH9=SPACE(1)

varI9=SPACE(1)

varJ9=SPACE(1)

varK9=SPACE(1)

varL9=SPACE(1)

varM9=SPACE(1)

varN9=SPACE(1)

varÑ9=SPACE(1)

varO9=SPACE(1)

varP9=SPACE(1)

varQ9=SPACE(1)

varR9=SPACE(1)

varS9=SPACE(1)

varT9=SPACE(1)

varU9=SPACE(1)

varV9=SPACE(1)

varW9=SPACE(1)

varX9=SPACE(1)

varY9=SPACE(1)

varZ9=SPACE(1)

**

***

&&& FIN VARIABLES NOVENA

***+

*********

&& 10 PRINCIPIO

varA10=SPACE(1)

varB10=SPACE(1)

varC10=SPACE(1)

varD10=SPACE(1)

varE10=SPACE(1)

varF10=SPACE(1)

varG10=SPACE(1)

varH10=SPACE(1)

varI10=SPACE(1)

varJ10=SPACE(1)

varK10=SPACE(1)

varL10=SPACE(1)

varM10=SPACE(1)

varN10=SPACE(1)

varÑ10=SPACE(1)

varO10=SPACE(1)

varP10=SPACE(1)

varQ10=SPACE(1)

varR10=SPACE(1)

varS10=SPACE(1)

varT10=SPACE(1)

varU10=SPACE(1)

varV10=SPACE(1)

varW10=SPACE(1)

varX10=SPACE(1)

varY10=SPACE(1)

varZ10=SPACE(1)

*********

&& 10 FIN

*@11,30 say 'PROCESADOR Y EDITOR DE TEXTO CODIFICADOR DE CARACTERES' FONT'CHILLER ',10 COLOR RGB(255,255,255,0,0,255)

*@11,30 say 'PROCESADOR Y EDITOR DE TEXTO CODIFICADOR DE CARACTERES '  COLOR RGB(0, 0, 0)

***

***

* ZONA DESHABILITADA

*@12,38 say '   O        O        O        O        O        O        O        O'COLOR RGB(0, 0, 0)

*ACTIVATE SCREEN

*@ 12,37 FILL TO 15,93 COLOR GR+/B

*@ 36,37 FILL TO 38,93 COLOR GR+/B

****

****

*@15,37 say '------------------------------------------------------------------------------------' COLOR RGB(0, 0, 128)

*@1,10 SAY 'C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\foto.BMP' BITMAP SIZE 3,20 ISOMETRIC

*USE BASELETRAS.DBF

*STORE A TO MESSI

*STORE BABI TO SUN

*CLOSE BABILONIA.DBF

USE CAMELLO1.DBF && IMPRIME EL CAMELLO

@3,4 say CAM BITMAP SIZE 10,30 ISOMETRIC && IMPRIME EL CAMELLO

***

****

****

****

****

*****

*****

****

*USE LAPIZ.DBF

*@14,26 say LA BITMAP SIZE 5,15 ISOMETRIC

*@15,37 say '|-----------------------------------------------------------------------------------|' COLOR RGB(0, 0, 128)

@3,55 GET VARA1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&&COLOR RGB(0,0,128)

*@16,37 say '|                                                                                   |' COLOR RGB(0, 0, 128)

*@17,37 say '------------------------------------------------------------------------------------' COLOR RGB(0, 0, 128)

*@17,37 say '|-----------------------------------------------------------------------------------|' COLOR RGB(0, 0, 128)

*@16,37 say '|                                                                                   |' COLOR RGB(0, 0, 128)

@3,57 GET VARB1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

*@14,38 say 'ESTE ES UN PROCESADOR Y EDITOR DE TEXTO CODIFICADIR DE CARACTERES '  

@3,59 GET VARC1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

&&********************************************************

&&***********************************************************

@3,61 GET VARD1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,63 GET VARE1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,65 GET VARF1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

*==========================================================

*==========================================================

@3,67 GET VARG1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,69 GET VARH1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,71 GET VARI1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

*==========================================================

*==========================================================

@3,73 GET VARJ1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,75 GET VARK1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,77 GET VARL1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

*==========================================================

*==========================================================

@3,79 GET VARM1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,81 GET VARN1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

@3,83 GET VARÑ1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)

&&ESTE CÓDIGO TIENE APROXIMADAMENTE 16 MIL PAGINAS TAMAÑO CARTA 13 QUE CODIFICAN Y 13 MIL DECODIFICAN EL TEXTO

&& SI LES INTERESA MI CORROEO ES: dysan2025@gmail.com