Fácil lenguaje para guardar el código fuente

Primero:

¿Asamblea? Conjunto ventana 1

. Crea la subrutina __start window__

. Variable local aa, tipo de texto

aa = leer elemento de configuración (obtener el directorio de ejecución () + "\pz.ini", "a", "b", )

. Si es verdadero (aa ≠ "")

Etiqueta 1.título = aa

.Fin si es verdadero

.Subrutina_Editar cuadro 1_ El contenido ha cambiado

.Si es verdadero (seleccione el cuadro 1. seleccionado)

Escriba la entrada de configuración (tome el directorio de ejecución () + "\pz.ini", "a", "b", edite el cuadro 1. contenido)

.End if true

.Subrutina _Label1_FeedbackEvent, entero

.Parámetro 1, entero

. Parámetros Parámetro 2, entero

-------------------------------- ----------------------------

--------------- ------------------------ ------------------------- -

La segunda:

¿Subrutina? __Ventana de inicio_ creada

Cuadro de edición 1. ¿Contenido? =? ¿Convertir del conjunto de bytes? (¿Leer archivo?("A.dat"),?10)

. ¿Subrutina?___Iniciar ventana_will_be_destroyed

¿Escribir en archivo?("A.dat",? en conjunto de bytes? (editbox1.contents))