Easy Language abre un cuadro de edición de bloc de notas y escribe automáticamente el contenido del documento de texto.

.Versión?2

.Ensamblaje?Ensamblaje de ventana 1

.¿Variable de ensamblaje?n,?Tipo entero

.Variable de ensamblaje ?Matriz de texto,?Tipo de texto,?,?"0"

.Subrutina?__Ventana de inicio_Creada

.Variable local?Texto,? ¿Variable local? i,? Tipo entero

. ¿Variable local? ¿Tomar número de texto? ¿Tipo entero? ?=?¿A enviar texto?(¿Leer archivo?(¿Obtener directorio en ejecución?()?＋?"\Nuevo?Documento de texto?(2).txt"))

i?=?1

¿Borrar matriz? (matriz de texto)

¿Bucle para determinar el primer?()

¿Código?=?¿Obtener código? >

.¿Si es verdadero?(código?＜?0)

código?=?256?＋?código

Texto de depuración de salida ?(código)

.Si es verdadero, finalice

.If?(code?＜?127)

Obtenga el número de texto?=?1

De lo contrario

¿Obtener el número de textos? =? 2

. Si termina

¿Agregar miembros? (matriz de texto,? ¿Obtener la mitad del texto? (texto, ?i,?Obtener el número de textos))

i?＝?i?＋?Obtener el número de textos

¿Bucle para determinar el final? 0)

n?=?1

Reloj 1. ¿Período de reloj?=? 200

¿Subrutina?_Reloj 1_Evento de período

. ¿Juicio de bucle primero?()

Cuadro de edición 1. ¿Agregar texto?(matriz de texto?[n])

n?＝?n?＋?1

.¿Si es verdadero?(n?≥?¿Obtener el número de miembros de la matriz?(texto array))

Reloj 1. ¿Período de reloj?=?0

.Si es verdadero, finaliza