First type:

Assembly? Window assembly 1

. Subroutine __start window_created

. Local variable aa, text type

aa = Read configuration item (get running directory () + “\pz.ini”, “a”, “b”, )

. If True (aa ≠ “”)

Tag 1. Title = aa

. If true end

. Subroutine_edit box 1_content changed< /p>

.If true (select box 1. selected)

Write configuration items (take the running directory () + "\pz.ini", "a", "b", edit box 1. Content)

.End if true

.Subroutine_label 1_feedback event, integer type

.Parameter parameter one, integer type< /p>

.Parameter parameter two, integer type

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

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

Second type:

. Subroutine?__Start window_Created

Edit box 1. Content?=? Convert from byte set?(read file?("A.dat"),?10)

. Subroutine?__start window_will be destroyed

Write to File?("A.dat",?To byte set?(edit box 1. content))