Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola a todos, aquí indico cómo suelo insertar yo los videos en joomla. Lo primero es conseguir el link del video, para ello nos vamos a youtube o vimeo y conseguimos el link que es el del tipo: <iframe width="420" height="315" src="http://www.youtube.com/embed/jI2wSz2BvMM" frameborder="0" allowfullscreen></iframe>

Para conseguirlo en youtube hay que ir donde está el video y pulsar en compartir y luego en insertar, ahí nos sale el código.

Ahora en joomla hacer lo siguiente:

1. Vamos al Gestor de Artículos (Article Manager)
2. Click en Preferencias (Global Configuration) si es joomla 1.5 ó en Opciones si es Joomla 1.6, 1.7, 2.5, 3.0, 3.5 ó 4.0
3. Para Joomla 1.5 bajamos hasta “Opciones de Filtrado” y allí dejamos marcadas en la Black List, aquellos grupos de usuarios para los que queremos que no se permita poner el código (por ejemplo, podemos marcar todos menos el Super Administrador, de forma que sólo los Super Administradores puedan embeber videos).

Para Joomla 1.6, 1.7, desde el backend del sitio web => contenido => gestor de artículos => opciones => Filtros de texto y establecemos para los super usuarios "Sin filtrar".

Para joomla 2.5, 3.0, 3.5, 4.0 nos vamos al backEnd => configuración global => Filtros de texto y ahí establecemos los permisos como hemos explicado.

Luego vamos al artículo donde queremos insertar el video, nos vamos a la vista html e insertamos el código que facilita youtube o vimeo para compartir (del tipo

<iframe width="420" height="315" src="http://www.youtube.com/embed/jI2wSz2BvMM" frameborder="0" allowfullscreen></iframe>

)

El código hay que insertarlo en la vista html, no se puede insertar directamente en la vista del editor.

Dentro del seo es importante la generación y envío de mapas web a los buscadores. Esto se hace a través de herramientas para generación de mapas web y de google webmaster tools, bing webmaster tools, etc. Además estas mismas herramientas nos dan información seo, quizás es la más exacta ya que es proporcionada por ellos mismos.

http://www.google.com/webmasters/

http://www.bing.com/webmaster/help/webmaster-guidelines-30fba23a

Para quienes tengan interés en disponer de un tutorial de Turbo Basic aquí está el Borland Turbo Basic Owners Handbook, donde se explican todas las instrucciones disponibles y hay código de ejemplo de cada instrucción:

https://docs.google.com/file/d/0BzAA6hbbWbAeR3htRThvM05qRXc/edit?usp=sharing

Este lenguaje de programación es bastante antiguo pero aún hoy hay muchos sitios donde se sigue usando o estudiando.

Si quieres descargar Turbo Basic 1.0: https://www.aprenderaprogramar.com/foros/index.php?topic=580.0

Si quieres un programa con código de ejemplo para poder ejecutarlo: https://www.aprenderaprogramar.com/foros/index.php?topic=581.0

Saludos

Hola a todos. Hace unas semanas estuvimos resolviendo en los foros algún problema con programas en Turbo Basic. Me han pedido que ponga el programa para descarga y aquí está como adjunto a este post. El archivo se llama TurboBasicBorland.zip y la forma de descarga es: logearse, y pulsar en la parte de abajo de este mensaje donde aparecerá "TurboBasicBorland.zip (136 Kb - descargado 19 veces)" Una vez pulsado nos preguntará qué queremos hacer y escogemos "Guardar archivo". Lo descargamos a nuestro ordenador y lo descomprimimos en una carpeta. Una vez ahí botón derecho sobre el archivo TB.EXE y pulsar en "Ejecutar como administrador" (o simplemente doble click sobre el archivo para ejecutarlo).

El programa no requiere instalación, simplemente hay que ejecutarlo.

Si tienes problemas para ejecutarlo haz lo siguiente: vete a inicio de windows, escribe cmd y te aparecerá la consola de ms-dos de windows. Ahí desplázate hasta la ruta donde tengas el .exe y cuando estés en la ruta adecuada escribe TB.exe para ejecutarlo directamente desde el entorno ms-dos.

Este lenguaje de programación es bastante antiguo pero aún hoy hay muchos sitios donde se sigue usando o estudiando.

Una vez dentro de turbo basic usa el teclado para moverte por los menús (flechas del teclado y tecla enter). Teclas más básicas: ESC para salir de donde estés, flechas derecha e izquierda, flecha de abajo para entrar en un menú, enter para elegir opción. ALT+F5 para ver la ejecución del programa en modo pantalla completa (que ocupe toda la ventana). Si tienes problemas cierra la ventana y vuelve a ejecutar.

El código se escribe en archivos *.BAS

Si quieres un programa básico de ejemplo lo tienes aquí: https://www.aprenderaprogramar.com/foros/index.php?topic=581.0

Si quieres un tutorial o manual de usuario lo tienes aquí: https://www.aprenderaprogramar.com/foros/index.php?topic=582.0

Puedes crear el código con el propio editor de turbo basic o si lo prefieres con otro editor y luego ejecutar en turbo basic.

Saludos.

Creo que aquí está funcionando ya la opción de eliminar, te dejo el código. Revísalo y ya me comentas si te funciona.

REM MENU DE CONTROL DEL PROGRAMA ***********************

REM ARRAY PARA ALMACENAR EL CONTENIDO DE UN FICHERO CON LIMITE 100 DATOS
DIM Cedulax(100), Nombrex$(100), Apellidox$(100), Edadx(100)

MENU:
A=0
WHILE A<>5

     gosub pantalla
     locate 7,30: print "Menu Principal"
     locate 9,30: print"1.- Incluir"
     locate 11,30: print"2.- Consultar"
     locate 13,30: print"3.- Modificar"
     locate 15,30: print"4.- Eliminar"
     locate 17,30: print"5.- Salir"
     locate 22,30: print "Seleccione su Opcion:"
     locate 22,51: INPUT A

  if A = 1 then
        gosub incluir
     end if

  if A = 2 then
     gosub consultar
     end if

 if A = 3 then
     gosub modificar
     end if

 if A = 4 then
   gosub  eliminar
     end if


wend
end
REM FINAL DEL MENU DE CONTROL DEL PROGRAMA ***********************


REM SUBRUTINA DE CONTROL DE LO QUE SE MUESTRA EN PANTALLA ***********************
 pantalla:

 color 15,8
 cls

 locate 1,2: print"É"
 locate 1,79: print"»"
 locate 4,2: print"È"
 locate 4,79: print"¼"
 locate 6,2: print"É"
 locate 6,79: print"»"
 locate 19,2: print"È"
 locate 19,79: print"¼"
 locate 21,2: print"É"
 locate 21,79: print"»"
 locate 23,2: print"È"
 locate 23,79: print"¼"

 for I= 3 to 78
 locate 1,I: print"Í"
next I

 for I= 3 to 78
 locate 4,I: print"Í"
next I

 for I= 2 to 3
 locate I,2: print"º"
next I

 for I= 2 to 3
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 6,I: print"Í"
next I

 for I=7 to 18
 locate I,2: print"º"
next I

 for I=7 to 18
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 19,I: print"Í"
next I

 for I=3 to 78
 locate 21,I: print"Í"
next I

 for I= 22 to 22
 locate I,2: print"º"
next I

 for I=22 to 22
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 23,I: print"Í"
next I

      locate 2,5: print"IUTIRLA"
      locate 2,57: print"Caracas"
      locate 2,65: print date$
      locate 2,32: print "Hora: " time$

return
REM SUBRUTINA DE CONTROL DE LO QUE SE MUESTRA EN PANTALLA ***********************



REM SUBRUTINA PARA AÑADIR DATOS AL FICHERO (CEDULA, NOMBRE, APELLIDO, EDAD) ***********************
INCLUIR:

 CLS
 GOSUB PANTALLA
 CLOSE#1

  OPEN "NEWDATOS.TXT" FOR APPEND AS #1
  B$ = "S"
  WHILE B$ = "S" OR B$="s"
    locate 9,30: print "Cedula:"
    locate 10,30:input Cedula
    locate 11,30:print "Nombre:"
    locate 12,30:input Nombre$
    locate 13,30:print "Apellido:"
    locate 14,30:input Apellido$
    locate 15,30:print "Edad"
    locate 16,30:input Edad

  Write #1,Cedula,Nombre$,Apellido$,Edad

    locate 22,30: INPUT "¨Desea Continuar S/N?", B$
   
REM Limpiamos la pantalla
GOSUB PANTALLA
 WEND
 CLOSE #1
 RETURN
REM FIN SUBRUTINA PARA AÑADIR DATOS AL FICHERO (CEDULA, NOMBRE, APELLIDO, EDAD) ***********************


REM SUBRUTINA PARA CONSULTAR DATOS EN FICHERO A PARTIR DE LA CEDULA (MOSTRAR CEDULA, NOMBRE, APELLIDO, EDAD) ***********************
 CONSULTAR:
 FOUND=0
 CEDU=0
 CLOSE#1
 GOSUB PANTALLA

 LOCATE 8,30:INPUT "CEDULA:",CEDU

 OPEN "NEWDATOS.TXT" FOR INPUT AS#1

WHILE (NOT EOF(1))

 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD

 IF CEDULA=CEDU THEN
FOUND=1
LOCATE 08,30:PRINT "CEDULA:",CEDU
LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
LOCATE 14,30:PRINT "EDAD:",EDAD



 END IF
WEND
CLOSE#1
IF FOUND=0 THEN
LOCATE 08,30:PRINT "NO SE ENCUENTRA CEDULA ",CEDU
END IF

LOCATE 22,30:INPUT "Desea Seguir Consultando:S/N:",B$

 IF B$="S" OR B$="s" THEN
GOSUB CONSULTAR


 END IF
RETURN

REM FIN SUBRUTINA PARA CONSULTAR DATOS EN FICHERO A PARTIR DE LA CEDULA (MOSTRAR CEDULA, NOMBRE, APELLIDO, EDAD) ***********************



REM SUBRUTINA PARA MODIFICAR DATOS EN FICHERO A PARTIR DE LA CEDULA (SI SE ENCUENTRA LA CEDULA PEDIR NOMBRE, APELLIDO, EDAD Y MODIFICAR DATOS) ***********************
MODIFICAR:
 CLOSE#1
 CLS
 GOSUB PANTALLA
 CEDU=0


 OPEN "NEWDATOS.TXT" FOR INPUT AS#1
 LOCATE 08,30:INPUT "Cedula:",CEDU

 CONTADOR = 1
WHILE (NOT EOF(1))

 
 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD
Cedulax(CONTADOR) = CEDULA
Nombrex$(CONTADOR) = NOMBRE$
Apellidox$(CONTADOR) = APELLIDO$
Edadx(CONTADOR) = EDAD
 
IF CEDULA=CEDU THEN

 LOCATE 08,30:PRINT "Cedula:",CEDU
 LOCATE 10,30:PRINT "Nombre:",NOMBRE$
 LOCATE 12,30:PRINT "Apellido:",Apellido$
 LOCATE 14,30:PRINT "Edad:",Edad
 LOCATE 22,30:INPUT "Desea Modificar S/N:",B$

  IF B$="S" OR B$="s" THEN
  CLS
 GOSUB PANTALLA
 LOCATE 08,30:PRINT "Cedula:",CEDU
 LOCATE 10,30:INPUT "Nombre:",Nombre$
 LOCATE 12,30:INPUT "Apellido:",Apellido$
 LOCATE 14,30:INPUT "Edad:",Edad
    Cedulax(CONTADOR) = CEDULA
Nombrex$(CONTADOR) = NOMBRE$
Apellidox$(CONTADOR) = APELLIDO$
Edadx(CONTADOR) = EDAD
 
ELSE
CLOSE#1
RETURN
END IF
 END IF
 
  CONTADOR = CONTADOR + 1
 WEND

 CLOSE#1
 
   IF B$="S" OR B$="s" THEN
OPEN "NEWDATOS.TXT" FOR OUTPUT AS#1
FOR I = 1 TO CONTADOR-1
WRITE#1,Cedulax(I),Nombrex$(I),Apellidox$(I),Edadx(I)
NEXT
   END IF
 
 
 RETURN


REM FIN SUBRUTINA PARA MODIFICAR DATOS EN FICHERO A PARTIR DE LA CEDULA (SI SE ENCUENTRA LA CEDULA PEDIR NOMBRE, APELLIDO, EDAD Y MODIFICAR DATOS) ***********************


REM SUBRUTINA PARA ELIMINAR UN DATO A PARTIR DE LA CÉDULA ********************************
ELIMINAR:

 CLOSE#1
 CLS
 GOSUB PANTALLA
 CEDU=0


 OPEN "NEWDATOS.TXT" FOR INPUT AS#1
 LOCATE 08,30:INPUT "Cedula:",CEDU

 CONTADOR = 1
WHILE (NOT EOF(1))

 
 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD
Cedulax(CONTADOR) = CEDULA
Nombrex$(CONTADOR) = NOMBRE$
Apellidox$(CONTADOR) = APELLIDO$
Edadx(CONTADOR) = EDAD
 
IF CEDULA=CEDU THEN

 LOCATE 08,30:PRINT "Cedula:",CEDU
 LOCATE 10,30:PRINT "Nombre:",NOMBRE$
 LOCATE 12,30:PRINT "Apellido:",Apellido$
 LOCATE 14,30:PRINT "Edad:",Edad
 LOCATE 22,30:INPUT "Desea Eliminar S/N:",B$

  IF B$="S" OR B$="s" THEN
  CLS
 GOSUB PANTALLA
 LOCATE 22,30:PRINT "Los datos han sido eliminados"
 REM SI HEMOS ELIMINADO EL CONTADOR NO DEBE INCREMENTARSE
 CONTADOR = CONTADOR - 1
 
ELSE
CLOSE#1
RETURN
END IF
 END IF
 
  CONTADOR = CONTADOR + 1
 WEND

 CLOSE#1
 
   IF B$="S" OR B$="s" THEN
OPEN "NEWDATOS.TXT" FOR OUTPUT AS#1
FOR I = 1 TO CONTADOR-1
WRITE#1,Cedulax(I),Nombrex$(I),Apellidox$(I),Edadx(I)
NEXT
   END IF
 
 
 RETURN


REM FIN SUBRUTINA PARA ELIMINAR UN DATO A PARTIR DE LA CÉDULA ********************************

¿puedes poner el código con el que estás trabajando? No acabo de entender qué es lo que quieres hacer

He estado revisando la opción de modificar manteniendo la estructura del programa. He hecho alguna prueba y parece que funciona, de todas formas aquí te dejo el código. Haz pruebas y dime si te salen errores o si te funciona bien, para ver si hay que hacer correcciones o si seguimos hacia la siguiente opción.

La solución usada es la que te comentaba de meter todos los datos en un array temporalmente para luego volcarlos nuevamente al fichero con la modificación introducida.

REM MENU DE CONTROL DEL PROGRAMA ***********************

REM ARRAY PARA ALMACENAR EL CONTENIDO DE UN FICHERO CON LIMITE 100 DATOS
DIM Cedulax(100), Nombrex$(100), Apellidox$(100), Edadx(100)

MENU:
A=0
WHILE A<>5

     gosub pantalla
     locate 7,30: print "Menu Principal"
     locate 9,30: print"1.- Incluir"
     locate 11,30: print"2.- Consultar"
     locate 13,30: print"3.- Modificar"
     locate 15,30: print"4.- Eliminar"
     locate 17,30: print"5.- Salir"
     locate 22,30: print "Seleccione su Opcion:"
     locate 22,51: INPUT A

  if A = 1 then
        gosub incluir
     end if

  if A = 2 then
     gosub consultar
     end if

 if A = 3 then
     gosub modificar
     end if

 if A = 4 then
   gosub  eliminar
     end if


wend
end
REM FINAL DEL MENU DE CONTROL DEL PROGRAMA ***********************


REM SUBRUTINA DE CONTROL DE LO QUE SE MUESTRA EN PANTALLA ***********************
 pantalla:

 color 15,8
 cls

 locate 1,2: print"É"
 locate 1,79: print"»"
 locate 4,2: print"È"
 locate 4,79: print"¼"
 locate 6,2: print"É"
 locate 6,79: print"»"
 locate 19,2: print"È"
 locate 19,79: print"¼"
 locate 21,2: print"É"
 locate 21,79: print"»"
 locate 23,2: print"È"
 locate 23,79: print"¼"

 for I= 3 to 78
 locate 1,I: print"Í"
next I

 for I= 3 to 78
 locate 4,I: print"Í"
next I

 for I= 2 to 3
 locate I,2: print"º"
next I

 for I= 2 to 3
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 6,I: print"Í"
next I

 for I=7 to 18
 locate I,2: print"º"
next I

 for I=7 to 18
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 19,I: print"Í"
next I

 for I=3 to 78
 locate 21,I: print"Í"
next I

 for I= 22 to 22
 locate I,2: print"º"
next I

 for I=22 to 22
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 23,I: print"Í"
next I

      locate 2,5: print"IUTIRLA"
      locate 2,57: print"Caracas"
      locate 2,65: print date$
      locate 2,32: print "Hora: " time$

return
REM SUBRUTINA DE CONTROL DE LO QUE SE MUESTRA EN PANTALLA ***********************



REM SUBRUTINA PARA AÑADIR DATOS AL FICHERO (CEDULA, NOMBRE, APELLIDO, EDAD) ***********************
INCLUIR:

 CLS
 GOSUB PANTALLA
 CLOSE#1

  OPEN "NEWDATOS.TXT" FOR APPEND AS #1
  B$ = "S"
  WHILE B$ = "S" OR B$="s"
    locate 9,30: print "Cedula:"
    locate 10,30:input Cedula
    locate 11,30:print "Nombre:"
    locate 12,30:input Nombre$
    locate 13,30:print "Apellido:"
    locate 14,30:input Apellido$
    locate 15,30:print "Edad"
    locate 16,30:input Edad

  Write #1,Cedula,Nombre$,Apellido$,Edad

    locate 22,30: INPUT "¨Desea Continuar S/N?", B$
   
REM Limpiamos la pantalla
GOSUB PANTALLA
 WEND
 CLOSE #1
 RETURN
REM FIN SUBRUTINA PARA AÑADIR DATOS AL FICHERO (CEDULA, NOMBRE, APELLIDO, EDAD) ***********************


REM SUBRUTINA PARA CONSULTAR DATOS EN FICHERO A PARTIR DE LA CEDULA (MOSTRAR CEDULA, NOMBRE, APELLIDO, EDAD) ***********************
 CONSULTAR:
 FOUND=0
 CEDU=0
 GOSUB PANTALLA

 LOCATE 8,30:INPUT "CEDULA:",CEDU

 OPEN "NEWDATOS.TXT" FOR INPUT AS#1

WHILE (NOT EOF(1))

 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD

 IF CEDULA=CEDU THEN
FOUND=1
LOCATE 08,30:PRINT "CEDULA:",CEDU
LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
LOCATE 14,30:PRINT "EDAD:",EDAD



 END IF
WEND
CLOSE#1
IF FOUND=0 THEN
LOCATE 08,30:PRINT "NO SE ENCUENTRA CEDULA ",CEDU
END IF

LOCATE 22,30:INPUT "Desea Seguir Consultando:S/N:",B$

 IF B$="S" OR B$="s" THEN
GOSUB CONSULTAR


 END IF
RETURN

REM FIN SUBRUTINA PARA CONSULTAR DATOS EN FICHERO A PARTIR DE LA CEDULA (MOSTRAR CEDULA, NOMBRE, APELLIDO, EDAD) ***********************



REM SUBRUTINA PARA MODIFICAR DATOS EN FICHERO A PARTIR DE LA CEDULA (SI SE ENCUENTRA LA CEDULA PEDIR NOMBRE, APELLIDO, EDAD Y MODIFICAR DATOS) ***********************
MODIFICAR:
 CLOSE#1
 CLS
 GOSUB PANTALLA
 CEDU=0


 OPEN "NEWDATOS.TXT" FOR INPUT AS#1
 LOCATE 08,30:INPUT "Cedula:",CEDU

 CONTADOR = 1
WHILE (NOT EOF(1))

 
 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD
Cedulax(CONTADOR) = CEDULA
Nombrex$(CONTADOR) = NOMBRE$
Apellidox$(CONTADOR) = APELLIDO$
Edadx(CONTADOR) = EDAD
 
IF CEDULA=CEDU THEN

 LOCATE 08,30:PRINT "Cedula:",CEDU
 LOCATE 10,30:PRINT "Nombre:",NOMBRE$
 LOCATE 12,30:PRINT "Apellido:",Apellido$
 LOCATE 14,30:PRINT "Edad:",Edad
 LOCATE 22,30:INPUT "Desea Modificar S/N:",B$

  IF B$="S" OR B$="s" THEN
  CLS
 GOSUB PANTALLA
 LOCATE 08,30:PRINT "Cedula:",CEDU
 LOCATE 10,30:INPUT "Nombre:",Nombre$
 LOCATE 12,30:INPUT "Apellido:",Apellido$
 LOCATE 14,30:INPUT "Edad:",Edad
    Cedulax(CONTADOR) = CEDULA
Nombrex$(CONTADOR) = NOMBRE$
Apellidox$(CONTADOR) = APELLIDO$
Edadx(CONTADOR) = EDAD
 
ELSE
CLOSE#1
RETURN
END IF
 END IF
 
  CONTADOR = CONTADOR + 1
 WEND

 CLOSE#1
 
   IF B$="S" OR B$="s" THEN
OPEN "NEWDATOS.TXT" FOR OUTPUT AS#1
FOR I = 1 TO CONTADOR-1
WRITE#1,Cedulax(I),Nombrex$(I),Apellidox$(I),Edadx(I)
NEXT
   END IF
 
 
 RETURN


REM FIN SUBRUTINA PARA MODIFICAR DATOS EN FICHERO A PARTIR DE LA CEDULA (SI SE ENCUENTRA LA CEDULA PEDIR NOMBRE, APELLIDO, EDAD Y MODIFICAR DATOS) ***********************


REM SUBRUTINA PARA ELIMINAR UN DATO A PARTIR DE LA CÉDULA ********************************
ELIMINAR:

CLOSE#1

CLS

GOSUB PANTALLA
CEDU=0
B$="S"

 OPEN "NEWDATOS.TXT"FOR INPUT AS#1
 LOCATE 08,30:INPUT "Cedula:",CEDU

WHILE (NOT EOF (1))

 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD

 IF CEDULA=CEDU THEN

 LOCATE 08,30:PRINT "CEDULA:",CEDU
 LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
 LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
 LOCATE 14,30:PRINT "EDAD:",EDAD

LOCATE 22,30:INPUT "¨Desea Eliminar S/N?:",B$



END IF
WEND

REM FIN SUBRUTINA PARA ELIMINAR UN DATO A PARTIR DE LA CÉDULA ********************************


He revisado la opción de consultar que estaba dando un error cuando se querían hacer varias consultas seguidas y lo he corregido. También he introducido que cuando no se encuentra la cédula aparezca un mensaje "No se encuentra la cédula 343" 343 es un ejemplo sería el número introducido.

El código por el momento es este:

REM MENU DE CONTROL DEL PROGRAMA ***********************

MENU:
A=0
WHILE A<>5

     gosub pantalla
     locate 7,30: print "Menu Principal"
     locate 9,30: print"1.- Incluir"
     locate 11,30: print"2.- Consultar"
     locate 13,30: print"3.- Modificar"
     locate 15,30: print"4.- Eliminar"
     locate 17,30: print"5.- Salir"
     locate 22,30: print "Seleccione su Opcion:"
     locate 22,51: INPUT A



  if A = 1 then
        gosub incluir
     end if

  if A = 2 then
     gosub consultar
     end if

 if A = 3 then
     gosub modificar
     end if

 if A = 4 then
   gosub  eliminar
     end if


wend
end
REM FINAL DEL MENU DE CONTROL DEL PROGRAMA ***********************


REM SUBRUTINA DE CONTROL DE LO QUE SE MUESTRA EN PANTALLA ***********************
 pantalla:

 color 15,8
 cls

 locate 1,2: print"É"
 locate 1,79: print"»"
 locate 4,2: print"È"
 locate 4,79: print"¼"
 locate 6,2: print"É"
 locate 6,79: print"»"
 locate 19,2: print"È"
 locate 19,79: print"¼"
 locate 21,2: print"É"
 locate 21,79: print"»"
 locate 23,2: print"È"
 locate 23,79: print"¼"

 for I= 3 to 78
 locate 1,I: print"Í"
next I

 for I= 3 to 78
 locate 4,I: print"Í"
next I

 for I= 2 to 3
 locate I,2: print"º"
next I

 for I= 2 to 3
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 6,I: print"Í"
next I

 for I=7 to 18
 locate I,2: print"º"
next I

 for I=7 to 18
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 19,I: print"Í"
next I

 for I=3 to 78
 locate 21,I: print"Í"
next I

 for I= 22 to 22
 locate I,2: print"º"
next I

 for I=22 to 22
 locate I,79: print"º"
next I

 for I=3 to 78
 locate 23,I: print"Í"
next I

      locate 2,5: print"IUTIRLA"
      locate 2,57: print"Caracas"
      locate 2,65: print date$
      locate 2,32: print "Hora: " time$

return
REM SUBRUTINA DE CONTROL DE LO QUE SE MUESTRA EN PANTALLA ***********************



REM SUBRUTINA PARA AÑADIR DATOS AL FICHERO (CEDULA, NOMBRE, APELLIDO, EDAD) ***********************
INCLUIR:

 CLS
 GOSUB PANTALLA
 CLOSE#1

  OPEN "NEWDATOS.TXT" FOR APPEND AS #1
  B$ = "S"
  WHILE B$ = "S" OR B$="s"
    locate 9,30: print "Cedula:"
    locate 10,30:input Cedula
    locate 11,30:print "Nombre:"
    locate 12,30:input Nombre$
    locate 13,30:print "Apellido:"
    locate 14,30:input Apellido$
    locate 15,30:print "Edad"
    locate 16,30:input Edad

  Write #1,Cedula,Nombre$,Apellido$,Edad

    locate 22,30: INPUT "¨Desea Continuar S/N?", B$
   
REM Limpiamos la pantalla
GOSUB PANTALLA
 WEND
 CLOSE #1
 RETURN
REM FIN SUBRUTINA PARA AÑADIR DATOS AL FICHERO (CEDULA, NOMBRE, APELLIDO, EDAD) ***********************


REM SUBRUTINA PARA CONSULTAR DATOS EN FICHERO A PARTIR DE LA CEDULA (MOSTRAR CEDULA, NOMBRE, APELLIDO, EDAD) ***********************
 CONSULTAR:
 FOUND=0
 CEDU=0
 GOSUB PANTALLA

 LOCATE 8,30:INPUT "CEDULA:",CEDU

 OPEN "NEWDATOS.TXT" FOR INPUT AS#1

WHILE (NOT EOF(1))

 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD

 IF CEDULA=CEDU THEN
FOUND=1
LOCATE 08,30:PRINT "CEDULA:",CEDU
LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
LOCATE 14,30:PRINT "EDAD:",EDAD



 END IF
WEND
CLOSE#1
IF FOUND=0 THEN
LOCATE 08,30:PRINT "NO SE ENCUENTRA CEDULA ",CEDU
END IF

LOCATE 22,30:INPUT "Desea Seguir Consultando:S/N:",B$

 IF B$="S" OR B$="s" THEN
GOSUB CONSULTAR


 END IF
RETURN

REM FIN SUBRUTINA PARA CONSULTAR DATOS EN FICHERO A PARTIR DE LA CEDULA (MOSTRAR CEDULA, NOMBRE, APELLIDO, EDAD) ***********************



REM SUBRUTINA PARA MODIFICAR DATOS EN FICHERO A PARTIR DE LA CEDULA (SI SE ENCUENTRA LA CEDULA PEDIR NOMBRE, APELLIDO, EDAD Y MODIFICAR DATOS) ***********************
MODIFICAR:
 CLOSE#1
 CLS
 GOSUB PANTALLA
 CEDU=0


 OPEN "NEWDATOS.TXT" FOR INPUT AS#1
 LOCATE 08,30:INPUT "Cedula:",CEDU

WHILE (NOT EOF(1))

 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD


IF CEDULA=CEDU THEN

 LOCATE 08,30:PRINT "Cedula:",CEDU
 LOCATE 10,30:PRINT "Nombre:",NOMBRE$
 LOCATE 12,30:PRINT "Apellido:",Apellido$
 LOCATE 14,30:PRINT "Edad:",Edad
 LOCATE 22,30:INPUT "Desea Modificar S/N:",B$

  IF B$="S" OR B$="s" THEN
 LOCATE 08,30:INPUT "Cedula:",CEDU
 LOCATE 10,30:INPUT "Nombre:",Nombre$
 LOCATE 12,30:INPUT "Apellido:",Apellido$
 LOCATE 14,30:INPUT "Edad:",Edad
 LOCATE 22,30:INPUT "Desea Seguir Modificando Datos S/N:",B$

   IF B$="S" OR B$="s" THEN

WRITE#1,CEDULA,NOMBRE$,APELLIDO$,EDAD

GOSUB MODIFICAR
ELSE

END IF
 END IF
  END IF
 WEND
RETURN
REM FIN SUBRUTINA PARA MODIFICAR DATOS EN FICHERO A PARTIR DE LA CEDULA (SI SE ENCUENTRA LA CEDULA PEDIR NOMBRE, APELLIDO, EDAD Y MODIFICAR DATOS) ***********************


REM SUBRUTINA PARA ELIMINAR UN DATO A PARTIR DE LA CÉDULA ********************************
ELIMINAR:

CLOSE#1

CLS

GOSUB PANTALLA
CEDU=0
B$="S"

 OPEN "NEWDATOS.TXT"FOR INPUT AS#1
 LOCATE 08,30:INPUT "Cedula:",CEDU

WHILE (NOT EOF (1))

 INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD

 IF CEDULA=CEDU THEN

 LOCATE 08,30:PRINT "CEDULA:",CEDU
 LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
 LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
 LOCATE 14,30:PRINT "EDAD:",EDAD

LOCATE 22,30:INPUT "¨Desea Eliminar S/N?:",B$



END IF
WEND

REM FIN SUBRUTINA PARA ELIMINAR UN DATO A PARTIR DE LA CÉDULA ********************************


Hola tata! Prueba de esta forma:

<html>

<head>

<title>Título de la página web</title>

<style type="text/css">

body {
padding:0.5%;
}

#services{
          color:#000000;
      display:block;
      font-family:Impact;
      font-size:1.5em;
      text-align:center;
}
#olivia{
      background-color:#F4FA58;
     border-radius:1.0em;
     border:0.5em dotted #FF0000;
     float: left;
     font-family:Impact;
     font-size:1.5em;
     margin-left:2%;
     margin-right:2%;
     margin-top:2%;
     padding:0.5em;
     text-align:center;
   
     width:40%;
}
#nando{
       background-color:#F4FA58;
      border-radius:1.0em;
      border:0.5em dotted #FF0000;
      float: left;
     
      font-family:Impact;
      font-size:1.5em;
      margin-left:2%;
      margin-right:2%;
      margin-top:2%;
      padding:0.5em;
      text-align:center;
      vertical-align:top;
      width:40%;
  }

</style>

</head>

<body>

<section>
<div id="services">
                     <p>If you are looking for excelent services</br>
                and people-friendly approach</br>
                then you've come to the right place.</br>
                </br>
                Imperio Cleaning Services,our ultimate goal</br>
                is to serve you and make</br>
                your experience with us pleasent one.</p></div>
               
               
                           
               
   
   
          <div id="olivia">
                  <p>-Bathroom Detail cleans.</br>
                        -Kitchen and Eating areas detail cleans.</br>               
                   -Sleeping and living Area cleans.</br>
                  -Office cleaning.</br>
                  -Trash collection and disposal.</br>
                  -Upholstery cleaning.</br></p></div>
                 
                 
         <div id="nando">
                  <p>-Recurring cleaning offered.</br>
                   -Friendly,professional services.</br>
                  -Punctual Staff.</br>
                  -Best prices in North Texas.</br>
                  -24 hours Services.</br>
                  -Available References-home-commercial and apartments units.</p></div>
                  </div>
         </section>


</body>

</html>

¿No tiene virus 100 %?

Amenaza detectada: Adware Toolbar.MT.dropper

Para pasar archivos exe por correo (o cualquier otro), comprímelos primero en un archivo zip y luego envíalos como archivo comprimido (zip).

No me envíes el archivo de la web de descarga porque si me lo envías me saltará el mismo problema, envíame los archivos que tengas en tu computador (los que te indicaba en un post anterior)