Corrector HTML

Aplicaciones de código fuente abierto para descargar

Corrector HTML

Notapor Joe » Vie Jun 20, 2008 10:54 pm

Un pequeño corrector html, es para darle formato al codigo:
Código: Seleccionar todo
'Archivo generado por Visual Pauscal
'El código de los eventos y demás procedimientos
'se encuentra al final de este archivo

$ADV-

Importar "PauscalW.prp"




Clase c_Form1(pscForm)
Público:

  ClaseVar _
    ava:pscEtiqueta, _
    fonava:pscEtiqueta, _
    fca:pscCajaTexto, _
    visor:pscCajaTexto, _
    error:pscCajaLista


  ClaseVar _
    m_m:pscMenu, _
    m_marchivo:pscMenu, _
    m_mMoldear:pscMenu
  ClaseVar _
    marchivo:pscMenuItem, _
    mabrir:pscMenuItem, _
    mguardar:pscMenuItem, _
    mln:pscMenuItem, _
    mSalir:pscMenuItem, _
    mProcesar:pscMenuItem, _
    mMoldear:pscMenuItem, _
    mTriangilo:pscMenuItem, _
    mRedond:pscMenuItem, _
    mSuave:pscMenuItem, _
    mCuadrado:pscMenuItem, _
    mEscalera:pscMenuItem, _
    mPicos:pscMenuItem, _
    mInvertido:pscMenuItem, _
    lin:pscMenuItem, _
    mEditar:pscMenuItem, _
    mErrores:pscMenuItem

Privado:
'Declaraciones

  ClaseVar TxtGlobal, Dat[],CopDat[],nomarch:Cadena, guard:Booleano, Enc:Booleano
 
  Estruc pse,_
         Nombre:Cadena,_
         l1:Entero,_
         l2:Entero,_
         l3:Entero,_
         l4:Entero,_
         l5:Entero,_
         l6:Entero,_
         l7:Entero,_
         l8:Entero,_
         l9:Entero
  ClaseVar Modelo[]:pse

  Proc Init
    X=0
    Y=0
    Ancho=784
    Alto=477
    Texto="Corrector HTML"
    Visible=Verd
    Habilitado=Verd
    PuedeCambiarDeTamaño=Falso
    BotonMaximizar=Falso
    BotonMinimizar=Verd
    MenuSistema=Verd
    Centrar=Verd
    Borde=Verd
    Eval Eventos
      .AlCerrarse@=f0_Form_AlCerrarse@
      .AlCargarse@=f0_Form_AlCargarse@
    FinEval
    CrearForm
    Crear m_m
    Eval m_m
      .NuevoItem
      marchivo=.Items[0]
      .Items[0].Texto="Archivo"
      .Items[0].SubMenu@=m_marchivo@
      .NuevoItem
      mProcesar=.Items[1]
      .Items[1].Texto="Procesar"
      .Items[1].Eventos.AlSeleccionar@=f0_mProcesar_AlSeleccionar@
      .NuevoItem
      mMoldear=.Items[2]
      .Items[2].Texto="Moldear"
      .Items[2].SubMenu@=m_mMoldear@
      .NuevoItem
      mErrores=.Items[3]
      .Items[3].Texto="Errores"
      .Items[3].Eventos.AlSeleccionar@=f0_mErrores_AlSeleccionar@
    FinEval
    Crear m_marchivo
    Eval m_marchivo
      .NuevoItem
      mabrir=.Items[0]
      .Items[0].Texto="Abrir"
      .Items[0].Eventos.AlSeleccionar@=f0_mabrir_AlSeleccionar@
      .NuevoItem
      mguardar=.Items[1]
      .Items[1].Texto="Guardar"
      .Items[1].Eventos.AlSeleccionar@=f0_mguardar_AlSeleccionar@
      .NuevoItem
      mln=.Items[2]
      .Items[2].Texto="-"
      .NuevoItem
      mSalir=.Items[3]
      .Items[3].Texto="Salir"
    FinEval
    Crear m_mMoldear
    Eval m_mMoldear
      .NuevoItem
      mTriangilo=.Items[0]
      .Items[0].Texto="Triángulo"
      .Items[0].Eventos.AlSeleccionar@=f0_mTriangilo_AlSeleccionar@
      .NuevoItem
      mRedond=.Items[1]
      .Items[1].Texto="Reodondo"
      .Items[1].Eventos.AlSeleccionar@=f0_mRedond_AlSeleccionar@
      .NuevoItem
      mSuave=.Items[2]
      .Items[2].Texto="Suave"
      .Items[2].Eventos.AlSeleccionar@=f0_mSuave_AlSeleccionar@
      .NuevoItem
      mCuadrado=.Items[3]
      .Items[3].Texto="Cuadrado"
      .Items[3].Eventos.AlSeleccionar@=f0_mCuadrado_AlSeleccionar@
      .NuevoItem
      mEscalera=.Items[4]
      .Items[4].Texto="Escalera"
      .Items[4].Eventos.AlSeleccionar@=f0_mEscalera_AlSeleccionar@
      .NuevoItem
      mPicos=.Items[5]
      .Items[5].Texto="Picos"
      .Items[5].Eventos.AlSeleccionar@=f0_mPicos_AlSeleccionar@
      .NuevoItem
      mInvertido=.Items[6]
      .Items[6].Texto="Pico invertido"
      .Items[6].Eventos.AlSeleccionar@=f0_mInvertido_AlSeleccionar@
      .NuevoItem
      lin=.Items[7]
      .Items[7].Texto="-"
      .NuevoItem
      mEditar=.Items[8]
      .Items[8].Texto="Editar"
      .Items[8].Eventos.AlSeleccionar@=f0_mEditar_AlSeleccionar@
    FinEval
    Crear ava
    Eval ava
      .Padre = EsteObjeto
      .X=2
      .Y=436
      .Ancho=5
      .Alto=12
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear fonava
    Eval fonava
      .Padre = EsteObjeto
      .X=2
      .Y=436
      .Ancho=772
      .Alto=12
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear fca
    Eval fca
      .Padre = EsteObjeto
      .X=0
      .Y=434
      .Ancho=776
      .Alto=16
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear visor
    Eval visor
      .Padre = EsteObjeto
      .X=0
      .Y=0
      .Ancho=642
      .Alto=433
      .Tipo=3
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Nombre="Courier"
      .Fuente.Tamaño=11
      Eval .Eventos
      FinEval
    FinEval
    Crear error
    Eval error
      .Padre = EsteObjeto
      .X=644
      .Y=0
      .Ancho=132
      .Alto=440
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
  FinProc
Público:
  Proc CargarForm
    Si (hWnd=0)
      Init
      ava.CargarEtiqueta(hWnd)
      fonava.CargarEtiqueta(hWnd)
      fca.CargarCajaTexto(hWnd)
      visor.CargarCajaTexto(hWnd)
      error.CargarCajaLista(hWnd)
      m_m.CargarMenu(hWnd)
      FormCargado
    FinSi
  FinProc
  Proc Mostrar(Opcional EsModal:Booleano)
    CargarForm
    Si (EsModal) MostrarModalInt; SiNo; MostrarInt
  FinProc

'Eventos

  Proc Form_AlCerrarse(Referencia Cancelar:Booleano) Adelantado
  Proc Form_AlCargarse() Adelantado
  Proc mabrir_AlSeleccionar() Adelantado
  Proc mguardar_AlSeleccionar() Adelantado
  Proc mProcesar_AlSeleccionar() Adelantado
  Proc mTriangilo_AlSeleccionar() Adelantado
  Proc mRedond_AlSeleccionar() Adelantado
  Proc mSuave_AlSeleccionar() Adelantado
  Proc mCuadrado_AlSeleccionar() Adelantado
  Proc mEscalera_AlSeleccionar() Adelantado
  Proc mPicos_AlSeleccionar() Adelantado
  Proc mInvertido_AlSeleccionar() Adelantado
  Proc mEditar_AlSeleccionar() Adelantado
  Proc mErrores_AlSeleccionar() Adelantado
  Proc Procesa() Adelantado
  Proc LimpiarMatriz() Adelantado
  Proc Moldear(Tipo:Cadena) Adelantado
  Proc MAV(P, D, C:Entero) Adelantado
  Proc ModelarPrivado(num:Entero) Adelantado
  Proc AsignarValores(Referencia Model:pse2) Adelantado

FinClase

'Alias

Proc f0_Form_AlCerrarse(Referencia Cancelar:Booleano)
  Form1.Form_AlCerrarse(Cancelar)
FinProc
Proc f0_Form_AlCargarse()
  Form1.Form_AlCargarse()
FinProc
Proc f0_mabrir_AlSeleccionar()
  Form1.mabrir_AlSeleccionar
FinProc
Proc f0_mguardar_AlSeleccionar()
  Form1.mguardar_AlSeleccionar
FinProc
Proc f0_mProcesar_AlSeleccionar()
  Form1.mProcesar_AlSeleccionar
FinProc
Proc f0_mTriangilo_AlSeleccionar()
  Form1.mTriangilo_AlSeleccionar
FinProc
Proc f0_mRedond_AlSeleccionar()
  Form1.mRedond_AlSeleccionar
FinProc
Proc f0_mSuave_AlSeleccionar()
  Form1.mSuave_AlSeleccionar
FinProc
Proc f0_mCuadrado_AlSeleccionar()
  Form1.mCuadrado_AlSeleccionar
FinProc
Proc f0_mEscalera_AlSeleccionar()
  Form1.mEscalera_AlSeleccionar
FinProc
Proc f0_mPicos_AlSeleccionar()
  Form1.mPicos_AlSeleccionar
FinProc
Proc f0_mInvertido_AlSeleccionar()
  Form1.mInvertido_AlSeleccionar
FinProc
Proc f0_mEditar_AlSeleccionar()
  Form1.mEditar_AlSeleccionar
FinProc
Proc f0_mErrores_AlSeleccionar()
  Form1.mErrores_AlSeleccionar
FinProc

Clase c_Form2(pscForm)
Público:

  ClaseVar _
    tmpo:pscTemporizador, _
    okpros:pscBoton, _
    abtro:pscBoton, _
    preview:pscCajaTexto, _
    bagr:pscBoton, _
    Control30:pscCajaTexto, _
    temps:pscTemporizador, _
    b9:pscBoton, _
    b8:pscBoton, _
    b7:pscBoton, _
    b6:pscBoton, _
    b5:pscBoton, _
    b4:pscBoton, _
    b3:pscBoton, _
    b2:pscBoton, _
    b1:pscBoton, _
    Control19:pscEtiqueta, _
    Control18:pscEtiqueta, _
    Control17:pscEtiqueta, _
    Control16:pscEtiqueta, _
    Control15:pscEtiqueta, _
    Control14:pscEtiqueta, _
    Control13:pscEtiqueta, _
    Control12:pscEtiqueta, _
    Control11:pscEtiqueta, _
    Control10:pscCajaTexto, _
    Control9:pscCajaTexto, _
    Control8:pscCajaTexto, _
    Control7:pscCajaTexto, _
    Control6:pscCajaTexto, _
    Control5:pscCajaTexto, _
    Control4:pscCajaTexto, _
    Control3:pscCajaTexto, _
    Control2:pscCajaTexto, _
    modelos:pscCajaLista, _
    cagr:pscCajaTexto, _
    t1:pscEtiqueta, _
    t2:pscEtiqueta, _
    f1:pscBoton

Privado:
'Declaraciones

  Clasevar Bt, px, l1,l2,l3,l4,l5,l6,l7,l8,l9:EnteroSig
  Estruc pse2,_
         Nombre:Cadena,_
         l1:Entero,_
         l2:Entero,_
         l3:Entero,_
         l4:Entero,_
         l5:Entero,_
         l6:Entero,_
         l7:Entero,_
         l8:Entero,_
         l9:Entero
  ClaseVar Modelo[]:pse2
 
  Estruc tmpe,_
         Nombre:Cadena,_
         l1:Entero,_
         l2:Entero,_
         l3:Entero,_
         l4:Entero,_
         l5:Entero,_
         l6:Entero,_
         l7:Entero,_
         l8:Entero,_
         l9:Entero

  Proc Init
    X=0
    Y=0
    Ancho=291
    Alto=387
    Texto="Modelado"
    Visible=Falso
    Habilitado=Verd
    PuedeCambiarDeTamaño=Falso
    BotonMaximizar=Falso
    BotonMinimizar=Falso
    MenuSistema=Verd
    Centrar=Verd
    Borde=Verd
    Eval Eventos
      .AlCargarse@=f1_Form_AlCargarse@
    FinEval
    CrearForm
    Crear tmpo
    Eval tmpo
      .Padre = EsteObjeto
      .X=86
      .Y=24
      .Ancho=30
      .Alto=30
      .Bloquear=Verd
      .Habilitado=Verd
      .Intervalo=200
      Eval .Eventos
        .AlTranscurrirIntervalo@=f1_tmpo_AlTranscurrirIntervalo@
      FinEval
    FinEval
    Crear okpros
    Eval okpros
      .Padre = EsteObjeto
      .X=48
      .Y=332
      .Ancho=89
      .Alto=25
      .Texto="Aceptar"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f1_okpros_AlCliquear@
      FinEval
    FinEval
    Crear abtro
    Eval abtro
      .Padre = EsteObjeto
      .X=144
      .Y=332
      .Ancho=89
      .Alto=25
      .Texto="Abortar"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f1_abtro_AlCliquear@
      FinEval
    FinEval
    Crear preview
    Eval preview
      .Padre = EsteObjeto
      .X=126
      .Y=190
      .Ancho=150
      .Alto=130
      .Tipo=1
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear bagr
    Eval bagr
      .Padre = EsteObjeto
      .X=96
      .Y=2
      .Ancho=20
      .Alto=18
      .Texto="a"
      .Tipo=0
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Nombre="Webdings"
      .Fuente.Tamaño=11
      Eval .Eventos
        .AlCliquear@=f1_bagr_AlCliquear@
      FinEval
    FinEval
    Crear Control30
    Eval Control30
      .Padre = EsteObjeto
      .X=94
      .Y=0
      .Ancho=24
      .Alto=22
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear temps
    Eval temps
      .Padre = EsteObjeto
      .X=2
      .Y=24
      .Ancho=30
      .Alto=30
      .Bloquear=Verd
      .Habilitado=Verd
      .Intervalo=1
      Eval .Eventos
        .AlTranscurrirIntervalo@=f1_temps_AlTranscurrirIntervalo@
      FinEval
    FinEval
    Crear b9
    Eval b9
      .Padre = EsteObjeto
      .X=128
      .Y=168
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b9_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b9_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b8
    Eval b8
      .Padre = EsteObjeto
      .X=128
      .Y=148
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b8_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b8_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b7
    Eval b7
      .Padre = EsteObjeto
      .X=128
      .Y=128
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b7_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b7_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b6
    Eval b6
      .Padre = EsteObjeto
      .X=128
      .Y=108
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b6_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b6_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b5
    Eval b5
      .Padre = EsteObjeto
      .X=128
      .Y=88
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b5_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b5_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b4
    Eval b4
      .Padre = EsteObjeto
      .X=128
      .Y=68
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b4_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b4_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b3
    Eval b3
      .Padre = EsteObjeto
      .X=128
      .Y=48
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b3_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b3_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b2
    Eval b2
      .Padre = EsteObjeto
      .X=128
      .Y=28
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b2_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b2_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear b1
    Eval b1
      .Padre = EsteObjeto
      .X=128
      .Y=8
      .Ancho=6
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlApretarBotonMouse@=f1_b1_AlApretarBotonMouse@
        .AlSoltarBotonMouse@=f1_b1_AlSoltarBotonMouse@
      FinEval
    FinEval
    Crear Control19
    Eval Control19
      .Padre = EsteObjeto
      .X=128
      .Y=168
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control18
    Eval Control18
      .Padre = EsteObjeto
      .X=128
      .Y=148
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control17
    Eval Control17
      .Padre = EsteObjeto
      .X=128
      .Y=128
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control16
    Eval Control16
      .Padre = EsteObjeto
      .X=128
      .Y=108
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control15
    Eval Control15
      .Padre = EsteObjeto
      .X=128
      .Y=88
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control14
    Eval Control14
      .Padre = EsteObjeto
      .X=128
      .Y=68
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control13
    Eval Control13
      .Padre = EsteObjeto
      .X=128
      .Y=48
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control12
    Eval Control12
      .Padre = EsteObjeto
      .X=128
      .Y=28
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control11
    Eval Control11
      .Padre = EsteObjeto
      .X=128
      .Y=8
      .Ancho=146
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control10
    Eval Control10
      .Padre = EsteObjeto
      .X=126
      .Y=166
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control9
    Eval Control9
      .Padre = EsteObjeto
      .X=126
      .Y=146
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .SoloLectura=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control8
    Eval Control8
      .Padre = EsteObjeto
      .X=126
      .Y=126
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control7
    Eval Control7
      .Padre = EsteObjeto
      .X=126
      .Y=106
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control6
    Eval Control6
      .Padre = EsteObjeto
      .X=126
      .Y=86
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control5
    Eval Control5
      .Padre = EsteObjeto
      .X=126
      .Y=66
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control4
    Eval Control4
      .Padre = EsteObjeto
      .X=126
      .Y=46
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control3
    Eval Control3
      .Padre = EsteObjeto
      .X=126
      .Y=26
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear Control2
    Eval Control2
      .Padre = EsteObjeto
      .X=126
      .Y=6
      .Ancho=150
      .Alto=18
      .Visible=Verd
      .Habilitado=Falso
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear modelos
    Eval modelos
      .Padre = EsteObjeto
      .X=0
      .Y=22
      .Ancho=118
      .Alto=304
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlMoverMouse@=f1_modelos_AlMoverMouse@
      FinEval
    FinEval
    Crear cagr
    Eval cagr
      .Padre = EsteObjeto
      .X=0
      .Y=0
      .Ancho=94
      .Alto=22
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear t1
    Eval t1
      .Padre = EsteObjeto
      .X=42
      .Y=270
      .Ancho=20
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear t2
    Eval t2
      .Padre = EsteObjeto
      .X=62
      .Y=270
      .Ancho=20
      .Alto=14
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
    Crear f1
    Eval f1
      .Padre = EsteObjeto
      .X=122
      .Y=-6
      .Ancho=160
      .Alto=332
      .Tipo=1
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
  FinProc
Público:
  Proc CargarForm
    Si (hWnd=0)
      Init
      tmpo.CargarTemporizador(hWnd)
      okpros.CargarBoton(hWnd)
      abtro.CargarBoton(hWnd)
      preview.CargarCajaTexto(hWnd)
      bagr.CargarBoton(hWnd)
      Control30.CargarCajaTexto(hWnd)
      temps.CargarTemporizador(hWnd)
      b9.CargarBoton(hWnd)
      b8.CargarBoton(hWnd)
      b7.CargarBoton(hWnd)
      b6.CargarBoton(hWnd)
      b5.CargarBoton(hWnd)
      b4.CargarBoton(hWnd)
      b3.CargarBoton(hWnd)
      b2.CargarBoton(hWnd)
      b1.CargarBoton(hWnd)
      Control19.CargarEtiqueta(hWnd)
      Control18.CargarEtiqueta(hWnd)
      Control17.CargarEtiqueta(hWnd)
      Control16.CargarEtiqueta(hWnd)
      Control15.CargarEtiqueta(hWnd)
      Control14.CargarEtiqueta(hWnd)
      Control13.CargarEtiqueta(hWnd)
      Control12.CargarEtiqueta(hWnd)
      Control11.CargarEtiqueta(hWnd)
      Control10.CargarCajaTexto(hWnd)
      Control9.CargarCajaTexto(hWnd)
      Control8.CargarCajaTexto(hWnd)
      Control7.CargarCajaTexto(hWnd)
      Control6.CargarCajaTexto(hWnd)
      Control5.CargarCajaTexto(hWnd)
      Control4.CargarCajaTexto(hWnd)
      Control3.CargarCajaTexto(hWnd)
      Control2.CargarCajaTexto(hWnd)
      modelos.CargarCajaLista(hWnd)
      cagr.CargarCajaTexto(hWnd)
      t1.CargarEtiqueta(hWnd)
      t2.CargarEtiqueta(hWnd)
      f1.CargarBoton(hWnd)
      FormCargado
    FinSi
  FinProc
  Proc Mostrar(Opcional EsModal:Booleano)
    CargarForm
    Si (EsModal) MostrarModalInt; SiNo; MostrarInt
  FinProc

'Eventos

  Proc tmpo_AlTranscurrirIntervalo() Adelantado
  Proc okpros_AlCliquear() Adelantado
  Proc abtro_AlCliquear() Adelantado
  Proc bagr_AlCliquear() Adelantado
  Proc temps_AlTranscurrirIntervalo() Adelantado
  Proc b9_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b9_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b8_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b8_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b7_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b7_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b6_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b6_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b5_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b5_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b4_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b4_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b3_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b3_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b2_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b2_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b1_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc b1_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig) Adelantado
  Proc modelos_AlMoverMouse(Shift, X, Y:EnteroSig) Adelantado
  Proc Form_AlCargarse() Adelantado
  Proc MuestraEcp() Adelantado
  Proc AgregarModelo() Adelantado
  Proc Pocicionar(num:entero) Adelantado

FinClase

'Alias

Proc f1_tmpo_AlTranscurrirIntervalo()
  Form2.tmpo_AlTranscurrirIntervalo()
FinProc
Proc f1_okpros_AlCliquear()
  Form2.okpros_AlCliquear()
FinProc
Proc f1_abtro_AlCliquear()
  Form2.abtro_AlCliquear()
FinProc
Proc f1_bagr_AlCliquear()
  Form2.bagr_AlCliquear()
FinProc
Proc f1_temps_AlTranscurrirIntervalo()
  Form2.temps_AlTranscurrirIntervalo()
FinProc
Proc f1_b9_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b9_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b9_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b9_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b8_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b8_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b8_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b8_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b7_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b7_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b7_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b7_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b6_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b6_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b6_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b6_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b5_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b5_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b5_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b5_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b4_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b4_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b4_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b4_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b3_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b3_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b3_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b3_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b2_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b2_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b2_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b2_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b1_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b1_AlApretarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_b1_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
  Form2.b1_AlSoltarBotonMouse(Botón, Shift, X, Y)
FinProc
Proc f1_modelos_AlMoverMouse(Shift, X, Y:EnteroSig)
  Form2.modelos_AlMoverMouse(Shift, X, Y)
FinProc
Proc f1_Form_AlCargarse()
  Form2.Form_AlCargarse()
FinProc


Var Form1:c_Form1
Var Form2:c_Form2

Proc CicloPrincipal
  Crear Form1
  Crear Form2
  Form1.CargarForm
  Form2.CargarForm
  Form1.Mostrar
  Programa.Ejecutar
FinProc


'**************************************************

'Código de eventos y procedimientos
'definidos por el usuario

Proc c_Form1.Form_AlCerrarse(Referencia Cancelar:Booleano)
Programa.Terminar
DescargarForm
FinProc

Proc c_Form1.Form_AlCargarse()
mErrores_AlSeleccionar
FinProc

Proc c_Form1.mabrir_AlSeleccionar()
Var lee:Cadena, a:Entero, Dialogo:pscDialogo
a=0

Form1.Texto = "Corrector HTML"
Crear Dialogo
Dialogo.Filtro="Paginas Web (*.htm)|*.htm|Todos los archivos (*.*)|*.*"
Dialogo.Título="Abrir"
Si(Dialogo.MostrarAbrir()=Falso)Salir
nomarch = ""
Borrar Dat
Borrar CopDat
visor.texto=""
guard = 0

Si(ExisteArchivo(Dialogo.Archivo))
 Archivo=Nuevo pscArchivo
 Archivo.Nombre=Dialogo.Archivo
 Archivo.Abrir(1)
 Mientras Archivo.FinDeArchivo = Falso
   Redim Preservar Dat,a + 1
   lee = Archivo.LeerLínea
     AdmErr
       lee = Reemplazar(Reemplazar(lee, "  ", " "), Carac(9), "")
     Controlar
     error.Items.Agregar("Error al leer archivo ( "+EntCad(a)+" ) = "+lee)
     FinAdmErr
   Si(lee<>"")Y(lee<>" ")Y(lee<>"   ")Y(lee<>Carac(9))
     Dat[a] = lee
     a = a + 1
   SiNo
   FinSi
 FinMientras
 Form1.Texto = "Corrector HTML [ "+SimplificarRuta(Dialogo.Archivo)+" - "+EntCad(a)+" Lineas - "+EntCad(Archivo.Tamaño\1024)+" Kbytes ]"
 Archivo.Cerrar
nomarch = Dialogo.Archivo
TxtGlobal = ""
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
  TxtGlobal = TxtGlobal + (>Dat[a]<>"--[[[Vacio]]]--"?Dat[a]+crlf:"")
Seguir
MAV(0, 0, 0)
visor.texto = TxtGlobal
SiNo
  Visor.texto = "Imposible abrir el archivo especificado."+crlf+"Posiblemente sea de Solo Lectura"
FinSi


FinProc

Proc c_Form1.mguardar_AlSeleccionar()
Var lee:Cadena, a:Entero, Dialogo:pscDialogo
a=0

Si(longMat(Dat) = 0)Salir
Crear Dialogo
Dialogo.Filtro  = "Paginas Web (*.htm)|*.htm|Todos los archivos (*.*)|*.*"
Dialogo.Título  = "Guardar"
Dialogo.Archivo = nomarch
Si(Dialogo.MostrarGuardar()=Falso)Salir

Archivo=Nuevo pscArchivo
Archivo.Nombre=QuitarExtensión(Dialogo.Archivo)+".htm"
Archivo.CrearNuevo(1)
Contar a = 0 a Límite(Dat)
  Archivo.EscribirCad(Dat[a])
Seguir
Archivo.Cerrar
guard = 1


FinProc

Proc c_Form1.mProcesar_AlSeleccionar()
Procesa()
FinProc

Proc c_Form1.mTriangilo_AlSeleccionar()
Moldear("Tri")
FinProc

Proc c_Form1.mRedond_AlSeleccionar()
Moldear("Red")
FinProc

Proc c_Form1.mSuave_AlSeleccionar()
Moldear("Su")
FinProc

Proc c_Form1.mCuadrado_AlSeleccionar()
Moldear("Cua")
FinProc

Proc c_Form1.mEscalera_AlSeleccionar()
Moldear("Esc")
FinProc

Proc c_Form1.mPicos_AlSeleccionar()
Moldear("Pic")
FinProc

Proc c_Form1.mInvertido_AlSeleccionar()
Moldear("In")
FinProc

Proc c_Form1.mEditar_AlSeleccionar()
Form2.Mostrar(1)
FinProc

Proc c_Form1.mErrores_AlSeleccionar()
Var an:Entero

Si(visor.ancho <= 643)
  Contar an = 642 a 776
   visor.ancho = an
  Seguir
SiNo
  Contar an = 776 a 642 Dec
   visor.ancho = an
  Seguir
FinSi
FinProc

Proc c_Form1.Procesa()
Var a,t:Entero, tmp:Cadena

Si(longMat(Dat)=0)Salir

Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 1)
 AdmErr
   tmp = Dat[a]
   Si(CadLong(tmp)>2)
    Si(BuscarEnCad(tmp,"  ")>0)
     Contar t = 0 a 8
       Si(tmp<>"")tmp = Reemplazar(tmp, "  ", " ")
     Seguir
    SiNo
    FinSi
   SiNo
   FinSi
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     Si(BuscarEnCad(CadMinus(tmp),"<script")  = 0)o(Enc = 0)
      Si(tmp<>"")tmp = Reemplazar(tmp, crlf, "")
      Si(tmp<>"")tmp = Reemplazar(tmp, "<", crlf+"<")
      Si(tmp<>"")tmp = Reemplazar(tmp, crlf+"</", "</")
      Si(tmp<>"")tmp = Reemplazar(tmp, Carac(9), "")
     SiNo
      Enc = 1
      Si(tmp<>"")tmp = Reemplazar(tmp, ";",";" + crlf)
      Si(BuscarEnCad(CadMinus(tmp),"</script") = 0)Enc = 0
     FinSi
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Controlar
   error.Items.Agregar("Error en Procesa (1) ("+EntCad(a)+")")
 Finadmerr

   Si(Tmp<>"")
     Dat[a]=Tmp
   SiNo
     Dat[a]="--[[[Vacio]]]--"
   FinSi
Seguir
MAV(0, 0, 0)
LimpiarMatriz()

AdmErr
TxtGlobal = ""
Contar a = 0 a Límite(Dat)
  MAV(a, Límite(Dat), 1)
  TxtGlobal = TxtGlobal + (>Dat[a]<>"--[[[Vacio]]]--"?Dat[a]:"")
Seguir
visor.texto = TxtGlobal
Controlar
error.Items.Agregar("Error en Procesa (2)")
Finadmerr

MAV(0, 0, 0)
guard = 0
FinProc

Proc c_Form1.LimpiarMatriz()
Var i,di:Entero

di = 0
AdmErr

Contar i = 0 a Límite(Dat)
MAV(i, Límite(Dat), 2)
  Si(Dat[i]<>"--[[[Vacio]]]--")Y(Dat[i]<>" ")Y(Dat[i]<>"  ")Y(Dat[i]<>Carac(9))
    Redim Preservar CopDat, di+1
    CopDat[di] = Dat[i]
    di = di + 1
  SiNo
  FinSi
Seguir
MAV(0, 0, 0)
Borrar Dat
Redim Dat, LongMat(CopDat)
Contar i = 0 a Límite(CopDat)
MAV(i, Límite(Dat), 2)
  Dat[i] = CopDat[i]
Seguir
MAV(0, 0, 0)
Controlar
error.Items.Agregar("Error en LimpiarMatriz ("+EntCad(di)+" - "+EntCad(i)+")")
Finadmerr
FinProc

Proc c_Form1.Moldear(Tipo:Cadena)
Var a,b:Entero
b=0

Si(longMat(Dat)=0)Salir

Si(guard=0)
  Si(mensaje("Primero guarda la pagina",4+48,"Guardar primero ...")=7)
    Salir
  SiNo
    mguardar_AlSeleccionar
    Salir
  FinSi
SiNo
FinSi

admerr
Seleccionar Tipo
Caso "Tri"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + "  " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + "    " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + "  " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

Caso "Red"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + "  " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + "  " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

Caso "Su"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

Caso "Cua"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

Caso "Esc"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + "       " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + "       " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

Caso "Pic"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + "  " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + "    " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + "     " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + "       " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "        " + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

Caso "In"
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + "        " + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + "       " + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + "      " + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + "     " + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + "    " + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + "   " + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + "  " + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + " " + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + "" + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

FinSeleccionar

TxtGlobal = ""
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
  TxtGlobal = TxtGlobal + (>Dat[a]<>"--[[[Vacio]]]--"?Dat[a]:"")
Seguir
MAV(0, 0, 0)
visor.texto = TxtGlobal
controlar
error.items.agregar("Error en Moldear ("+Tipo+" - "+entcad(a)+" - "+entcad(b)+")")
finadmerr
FinProc

Proc c_Form1.MAV(P, D, C:Entero)
admerr
Seleccionar C
Caso 0
  ava.color=&CF9249
Caso 1
  ava.color=&1695EE
Caso 2
  ava.color=&6618E8
Caso 3
  ava.color=&18E86B
Caso 4
  ava.color=&F448B1
FinSeleccionar
Si(P=0)Y(D=0)Y(C=0)ava.ancho = 0; Salir
ava.ancho = CLM(P,772,D)
controlar
error.items.agregar("Error en MAV("+entcad(P)+""+entcad(D)+""+entcad(C)+")")
finadmerr
FinProc

Proc c_Form1.ModelarPrivado(num:Entero)
Var a,b:entero

Si(longMat(Dat)=0)Salir

Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
Seleccionar b
 Caso 0
   Dat[a] = crlf + RepCarac(32,Modelo[num].l1) + Reemplazar(Dat[a],crlf,"")
 Caso 1
   Dat[a] = crlf + RepCarac(32,Modelo[num].l2) + Reemplazar(Dat[a],crlf,"")
 Caso 2
   Dat[a] = crlf + RepCarac(32,Modelo[num].l3) + Reemplazar(Dat[a],crlf,"")
 Caso 3
   Dat[a] = crlf + RepCarac(32,Modelo[num].l4) + Reemplazar(Dat[a],crlf,"")
 Caso 4
   Dat[a] = crlf + RepCarac(32,Modelo[num].l5) + Reemplazar(Dat[a],crlf,"")
 Caso 5
   Dat[a] = crlf + RepCarac(32,Modelo[num].l6) + Reemplazar(Dat[a],crlf,"")
 Caso 6
   Dat[a] = crlf + RepCarac(32,Modelo[num].l7) + Reemplazar(Dat[a],crlf,"")
 Caso 7
   Dat[a] = crlf + RepCarac(32,Modelo[num].l8) + Reemplazar(Dat[a],crlf,"")
 Caso 8
   Dat[a] = crlf + RepCarac(32,Modelo[num].l9) + Reemplazar(Dat[a],crlf,"")
FinSeleccionar
Si(b >= 8)b = 0
b = b + 1
Seguir
MAV(0, 0, 0)

TxtGlobal = ""
Contar a = 0 a Límite(Dat)
MAV(a, Límite(Dat), 0)
  TxtGlobal = TxtGlobal + (>Dat[a]<>"--[[[Vacio]]]--"?Dat[a]:"")
Seguir
MAV(0, 0, 0)
visor.texto = TxtGlobal
FinProc

Proc c_Form1.AsignarValores(Referencia Model:pse2)
Redim preservar modelo, Longmat(modelo)+1
Modelo[Longmat(modelo)-1].Nombre = Model.Nombre
Modelo[Longmat(modelo)-1].l1     = Model.l1
Modelo[Longmat(modelo)-1].l2     = Model.l2
Modelo[Longmat(modelo)-1].l3     = Model.l3
Modelo[Longmat(modelo)-1].l4     = Model.l4
Modelo[Longmat(modelo)-1].l5     = Model.l5
Modelo[Longmat(modelo)-1].l6     = Model.l6
Modelo[Longmat(modelo)-1].l7     = Model.l7
Modelo[Longmat(modelo)-1].l8     = Model.l8
Modelo[Longmat(modelo)-1].l9     = Model.l9
FinProc

Proc c_Form2.tmpo_AlTranscurrirIntervalo()
MuestraEcp()
FinProc

Proc c_Form2.okpros_AlCliquear()
Si(modelos.itemSeleccionado>=0)
Ocultar()
Form1.ModelarPrivado(modelos.itemSeleccionado)
sino
mensaje("Selecciona el modelo",48,"Atencion")
finsi
FinProc

Proc c_Form2.abtro_AlCliquear()
Ocultar()
FinProc

Proc c_Form2.bagr_AlCliquear()
AgregarModelo()
FinProc

Proc c_Form2.temps_AlTranscurrirIntervalo()
px = Pantalla.CursorX - Form2.X - 7
Si(px>127)Y(px<269)
Seleccionar Bt
Caso 1
   b1.x = px
Caso 2
   b2.x = px
Caso 3
   b3.x = px
Caso 4
   b4.x = px
Caso 5
   b5.x = px
Caso 6
   b6.x = px
Caso 7
   b7.x = px
Caso 8
   b8.x = px
Caso 9
   b9.x = px
FinSeleccionar
Si(bt>0)MuestraEcp()
SiNo
FinSi


l1 = CLM(b1.x-127,20,141)
l2 = CLM(b2.x-127,20,141)
l3 = CLM(b3.x-127,20,141)
l4 = CLM(b4.x-127,20,141)
l5 = CLM(b5.x-127,20,141)
l6 = CLM(b6.x-127,20,141)
l7 = CLM(b7.x-127,20,141)
l8 = CLM(b8.x-127,20,141)
l9 = CLM(b9.x-127,20,141)
FinProc

Proc c_Form2.b9_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=9
FinProc

Proc c_Form2.b9_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b8_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=8
FinProc

Proc c_Form2.b8_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b7_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=7
FinProc

Proc c_Form2.b7_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b6_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=6
FinProc

Proc c_Form2.b6_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b5_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=5
FinProc

Proc c_Form2.b5_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b4_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=4
FinProc

Proc c_Form2.b4_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b3_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=3
FinProc

Proc c_Form2.b3_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b2_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=2
FinProc

Proc c_Form2.b2_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.b1_AlApretarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=1
FinProc

Proc c_Form2.b1_AlSoltarBotonMouse(Botón, Shift, X, Y:EnteroSig)
Bt=0
FinProc

Proc c_Form2.modelos_AlMoverMouse(Shift, X, Y:EnteroSig)
Si(modelos.itemSeleccionado>=0)
Pocicionar(modelos.itemSeleccionado)
sino
finsi

FinProc

Proc c_Form2.Form_AlCargarse()
TaparFrame(f1,t1,t2)
FinProc

Proc c_Form2.MuestraEcp()
preview.texto = RepCarac(32,l1*2)+"<"+crlf+_
                RepCarac(32,l2*2)+"<"+crlf+_
                RepCarac(32,l3*2)+"<"+crlf+_
                RepCarac(32,l4*2)+"<"+crlf+_
                RepCarac(32,l5*2)+"<"+crlf+_
                RepCarac(32,l6*2)+"<"+crlf+_
                RepCarac(32,l7*2)+"<"+crlf+_
                RepCarac(32,l8*2)+"<"+crlf+_
                RepCarac(32,l9*2)+"<"
FinProc

Proc c_Form2.AgregarModelo()
var Model:pse2

Redim preservar modelo, Longmat(modelo)+1
Si(cagr.texto="")Mensaje("Coloca el nombre al modelo",48,"Atencion")
modelos.items.agregar(cagr.texto)
Modelo[Longmat(modelo)-1].Nombre = cagr.texto
Modelo[Longmat(modelo)-1].l1     = l1
Modelo[Longmat(modelo)-1].l2     = l2
Modelo[Longmat(modelo)-1].l3     = l3
Modelo[Longmat(modelo)-1].l4     = l4
Modelo[Longmat(modelo)-1].l5     = l5
Modelo[Longmat(modelo)-1].l6     = l6
Modelo[Longmat(modelo)-1].l7     = l7
Modelo[Longmat(modelo)-1].l8     = l8
Modelo[Longmat(modelo)-1].l9     = l9

Model.Nombre = cagr.texto
Model.l1     = l1
Model.l2     = l2
Model.l3     = l3
Model.l4     = l4
Model.l5     = l5
Model.l6     = l6
Model.l7     = l7
Model.l8     = l8
Model.l9     = l9

cagr.texto = ""
form1.AsignarValores(Model)
FinProc

Proc c_Form2.Pocicionar(num:entero)
b1.x = CLM(Modelo[num].l1,141,20)+127
b2.x = CLM(Modelo[num].l2,141,20)+127
b3.x = CLM(Modelo[num].l3,141,20)+127
b4.x = CLM(Modelo[num].l4,141,20)+127
b5.x = CLM(Modelo[num].l5,141,20)+127
b6.x = CLM(Modelo[num].l6,141,20)+127
b7.x = CLM(Modelo[num].l7,141,20)+127
b8.x = CLM(Modelo[num].l8,141,20)+127
b9.x = CLM(Modelo[num].l9,141,20)+127

FinProc


CicloPrincipal
Fin

Pruebenlo :coffe:
La Hora 10 esta cerca. Haz el bien, haz lo que mas te gusta, por que a partir de alli todo cambiará
Joe
 
Mensajes: 130
Registrado: Mar Nov 20, 2007 11:55 pm

Sponsor





Re: Corrector HTML

Notapor verlene » Lun Jul 22, 2019 7:10 pm

verlene
 
Mensajes: 72847
Registrado: Sab Abr 20, 2019 2:35 am

Re: Corrector HTML

Notapor verlene » Lun Jul 29, 2019 7:15 am

audiobookkeepercottageneteyesvisioneyesvisionsfactoringfeefilmzonesgadwallgaffertapegageboardgagrulegallductgalvanometricgangforemangangwayplatformgarbagechutegardeningleavegascauterygashbucketgasreturngatedsweepgaugemodelgaussianfiltergearpitchdiameter
geartreatinggeneralizedanalysisgeneralprovisionsgeophysicalprobegeriatricnursegetintoaflapgetthebouncehabeascorpushabituatehackedbolthackworkerhadronicannihilationhaemagglutininhailsquallhairyspherehalforderfringehalfsiblingshallofresidencehaltstatehandcodinghandportedheadhandradarhandsfreetelephone
hangonparthaphazardwindinghardalloyteethhardasironhardenedconcreteharmonicinteractionhartlaubgoosehatchholddownhaveafinetimehazardousatmosphereheadregulatorheartofgoldheatageingresistanceheatinggasheavydutymetalcuttingjacketedwalljapanesecedarjibtypecranejobabandonmentjobstressjogformationjointcapsulejointsealingmaterial
journallubricatorjuicecatcherjunctionofchannelsjusticiablehomicidejuxtapositiontwinkaposidiseasekeepagoodoffingkeepsmthinhandkentishglorykerbweightkerrrotationkeymanassurancekeyserumkickplatekillthefattedcalfkilowattsecondkingweakfishkinozoneskleinbottlekneejointknifesethouseknockonatomknowledgestate
kondoferromagnetlabeledgraphlaborracketlabourearningslabourleasinglaburnumtreelacingcourselacrimalpointlactogenicfactorlacunarycoefficientladletreatedironlaggingloadlaissezallerlambdatransitionlaminatedmateriallammasshootlamphouselancecorporallancingdielandingdoorlandmarksensorlandreformlanduseratio
languagelaboratorylargeheartlasercalibrationlaserlenslaserpulselatereventlatrinesergeantlayaboutleadcoatingleadingfirmlearningcurveleavewordmachinesensiblemagneticequatormagnetotelluricfieldmailinghousemajorconcernmammasdarlingmanagerialstaffmanipulatinghandmanualchokemedinfobooksmp3lists
nameresolutionnaphtheneseriesnarrowmouthednationalcensusnaturalfunctornavelseedneatplasternecroticcariesnegativefibrationneighbouringrightsobjectmoduleobservationballoonobstructivepatentoceanminingoctupolephononofflinesystemoffsetholderolibanumresinoidonesticketpackedspherespagingterminalpalatinebonespalmberry
papercoatingparaconvexgroupparasolmonoplaneparkingbrakepartfamilypartialmajorantquadruplewormqualityboosterquasimoneyquenchedsparkquodrecuperetrabbetledgeradialchaserradiationestimatorrailwaybridgerandomcolorationrapidgrowthrattlesnakemasterreachthroughregionreadingmagnifierrearchainrecessionconerecordedassignment
rectifiersubstationredemptionvaluereducingflangereferenceantigenregeneratedproteinreinvestmentplansafedrillingsagprofilesalestypeleasesamplingintervalsatellitehydrologyscarcecommodityscrapermatscrewingunitseawaterpumpsecondaryblocksecularclergyseismicefficiencyselectivediffusersemiasphalticfluxsemifinishmachiningspicetradespysale
stunguntacticaldiametertailstockcentertamecurvetapecorrectiontappingchucktaskreasoningtechnicalgradetelangiectaticlipomatelescopicdampertemperateclimatetemperedmeasuretenementbuildingultramaficrockultraviolettesting
verlene
 
Mensajes: 72847
Registrado: Sab Abr 20, 2019 2:35 am

Re: Corrector HTML

Notapor verlene » Lun Ago 05, 2019 9:06 am

audiobookkeeper.rucottagenet.rueyesvision.rueyesvisions.comfactoringfee.rufilmzones.rugadwall.rugaffertape.rugageboard.rugagrule.rugallduct.rugalvanometric.rugangforeman.rugangwayplatform.rugarbagechute.rugardeningleave.rugascautery.rugashbucket.rugasreturn.rugatedsweep.rugaugemodel.rugaussianfilter.rugearpitchdiameter.ru
geartreating.rugeneralizedanalysis.rugeneralprovisions.rugeophysicalprobe.rugeriatricnurse.rugetintoaflap.rugetthebounce.ruhabeascorpus.ruhabituate.ruhackedbolt.ruhackworker.ruhadronicannihilation.ruhaemagglutinin.ruhailsquall.ruhairysphere.ruhalforderfringe.ruhalfsiblings.ruhallofresidence.ruhaltstate.ruhandcoding.ruhandportedhead.ruhandradar.ruhandsfreetelephone.ru
hangonpart.ruhaphazardwinding.ruhardalloyteeth.ruhardasiron.ruhardenedconcrete.ruharmonicinteraction.ruhartlaubgoose.ruhatchholddown.ruhaveafinetime.ruhazardousatmosphere.ruheadregulator.ruheartofgold.ruheatageingresistance.ruheatinggas.ruheavydutymetalcutting.rujacketedwall.rujapanesecedar.rujibtypecrane.rujobabandonment.rujobstress.rujogformation.rujointcapsule.rujointsealingmaterial.ru
journallubricator.rujuicecatcher.rujunctionofchannels.rujusticiablehomicide.rujuxtapositiontwin.rukaposidisease.rukeepagoodoffing.rukeepsmthinhand.rukentishglory.rukerbweight.rukerrrotation.rukeymanassurance.rukeyserum.rukickplate.rukillthefattedcalf.rukilowattsecond.rukingweakfish.rukinozones.rukleinbottle.rukneejoint.ruknifesethouse.ruknockonatom.ruknowledgestate.ru
kondoferromagnet.rulabeledgraph.rulaborracket.rulabourearnings.rulabourleasing.rulaburnumtree.rulacingcourse.rulacrimalpoint.rulactogenicfactor.rulacunarycoefficient.ruladletreatediron.rulaggingload.rulaissezaller.rulambdatransition.rulaminatedmaterial.rulammasshoot.rulamphouse.rulancecorporal.rulancingdie.rulandingdoor.rulandmarksensor.rulandreform.rulanduseratio.ru
languagelaboratory.rulargeheart.rulasercalibration.rulaserlens.rulaserpulse.rulaterevent.rulatrinesergeant.rulayabout.ruleadcoating.ruleadingfirm.rulearningcurve.ruleaveword.rumachinesensible.rumagneticequator.rumagnetotelluricfield.rumailinghouse.rumajorconcern.rumammasdarling.rumanagerialstaff.rumanipulatinghand.rumanualchoke.rumedinfobooks.rump3lists.ru
nameresolution.runaphtheneseries.runarrowmouthed.runationalcensus.runaturalfunctor.runavelseed.runeatplaster.runecroticcaries.runegativefibration.runeighbouringrights.ruobjectmodule.ruobservationballoon.ruobstructivepatent.ruoceanmining.ruoctupolephonon.ruofflinesystem.ruoffsetholder.ruolibanumresinoid.ruonesticket.rupackedspheres.rupagingterminal.rupalatinebones.rupalmberry.ru
papercoating.ruparaconvexgroup.ruparasolmonoplane.ruparkingbrake.rupartfamily.rupartialmajorant.ruquadrupleworm.ruqualitybooster.ruquasimoney.ruquenchedspark.ruquodrecuperet.rurabbetledge.ruradialchaser.ruradiationestimator.rurailwaybridge.rurandomcoloration.rurapidgrowth.rurattlesnakemaster.rureachthroughregion.rureadingmagnifier.rurearchain.rurecessioncone.rurecordedassignment.ru
rectifiersubstation.ruredemptionvalue.rureducingflange.rureferenceantigen.ruregeneratedprotein.rureinvestmentplan.rusafedrilling.rusagprofile.rusalestypelease.rusamplinginterval.rusatellitehydrology.ruscarcecommodity.ruscrapermat.ruscrewingunit.ruseawaterpump.rusecondaryblock.rusecularclergy.ruseismicefficiency.ruselectivediffuser.rusemiasphalticflux.rusemifinishmachining.ruspicetrade.ruspysale.ru
stungun.rutacticaldiameter.rutailstockcenter.rutamecurve.rutapecorrection.rutappingchuck.rutaskreasoning.rutechnicalgrade.rutelangiectaticlipoma.rutelescopicdamper.rutemperateclimate.rutemperedmeasure.rutenementbuilding.ruultramaficrock.ruultraviolettesting.ru
verlene
 
Mensajes: 72847
Registrado: Sab Abr 20, 2019 2:35 am

Re: Corrector HTML

Notapor verlene » Mié Oct 09, 2019 9:45 am

audiobookkeepercottageneteyesvisioneyesvisionsfactoringfeefilmzonesgadwallgaffertapegageboardgagrulegallductgalvanometricgangforemangangwayplatformgarbagechutegardeningleavegascauterygashbucketgasreturngatedsweepgaugemodelgaussianfiltergearpitchdiameter
geartreatinggeneralizedanalysisgeneralprovisionsgeophysicalprobegeriatricnursegetintoaflapgetthebouncehabeascorpushabituatehackedbolthackworkerhadronicannihilationhaemagglutininhailsquallhairyspherehalforderfringehalfsiblingshallofresidencehaltstatehandcodinghandportedheadhandradarhandsfreetelephone
hangonparthaphazardwindinghardalloyteethhardasironhardenedconcreteharmonicinteractionhartlaubgoosehatchholddownhaveafinetimehazardousatmosphereheadregulatorheartofgoldheatageingresistanceheatinggasheavydutymetalcuttingjacketedwalljapanesecedarjibtypecranejobabandonmentjobstressjogformationjointcapsulejointsealingmaterial
journallubricatorjuicecatcherjunctionofchannelsjusticiablehomicidejuxtapositiontwinkaposidiseasekeepagoodoffingkeepsmthinhandkentishglorykerbweightkerrrotationkeymanassurancekeyserumkickplatekillthefattedcalfkilowattsecondkingweakfishkinozoneskleinbottlekneejointknifesethouseknockonatomknowledgestate
kondoferromagnetlabeledgraphlaborracketlabourearningslabourleasinglaburnumtreelacingcourselacrimalpointlactogenicfactorlacunarycoefficientladletreatedironlaggingloadlaissezallerlambdatransitionlaminatedmateriallammasshootlamphouselancecorporallancingdielandingdoorlandmarksensorlandreformlanduseratio
languagelaboratorylargeheartlasercalibrationlaserlenslaserpulselatereventlatrinesergeantlayaboutleadcoatingleadingfirmlearningcurveleavewordmachinesensiblemagneticequatormagnetotelluricfieldmailinghousemajorconcernmammasdarlingmanagerialstaffmanipulatinghandmanualchokemedinfobooksmp3lists
nameresolutionnaphtheneseriesnarrowmouthednationalcensusnaturalfunctornavelseedneatplasternecroticcariesnegativefibrationneighbouringrightsobjectmoduleobservationballoonobstructivepatentoceanminingoctupolephononofflinesystemoffsetholderolibanumresinoidonesticketpackedspherespagingterminalpalatinebonespalmberry
papercoatingparaconvexgroupparasolmonoplaneparkingbrakepartfamilypartialmajorantquadruplewormqualityboosterquasimoneyquenchedsparkquodrecuperetrabbetledgeradialchaserradiationestimatorrailwaybridgerandomcolorationrapidgrowthrattlesnakemasterreachthroughregionreadingmagnifierrearchainrecessionconerecordedassignment
rectifiersubstationredemptionvaluereducingflangereferenceantigenregeneratedproteinreinvestmentplansafedrillingsagprofilesalestypeleasesamplingintervalsatellitehydrologyscarcecommodityscrapermatscrewingunitseawaterpumpsecondaryblocksecularclergyseismicefficiencyselectivediffusersemiasphalticfluxsemifinishmachiningspicetradespysale
stunguntacticaldiametertailstockcentertamecurvetapecorrectiontappingchucktaskreasoningtechnicalgradetelangiectaticlipomatelescopicdampertemperateclimatetemperedmeasuretenementbuildingultramaficrockultraviolettesting
verlene
 
Mensajes: 72847
Registrado: Sab Abr 20, 2019 2:35 am


Volver a Código Abierto

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron