Cómo crear código fuente de software de ventanas emergentes infinitas en un lenguaje sencillo

El código es el siguiente----------

. Versión 2

.¿Ensamblaje?Ensamblaje de ventana 1

. ¿Variables de montaje? Variable, número entero

. ¿Subrutina? Haga clic en _Botón 1__

Reloj 1. Periodo de reloj = 1

. ¿Subrutina?Crear_ventana de inicio_

Variable =?0

Evento de subrutina_reloj1_ciclo

. Determinar el primero del ciclo (variable = 0)

Cuadro de mensaje ("¡Bucle infinito en ventana!", ?0, ?)

¿Determinar el final del ciclo? ()

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

Controles requeridos: un botón , un despertador

Si necesita que la ventana infinita sea una ventana única en lugar de una ventana circular, utilice el siguiente comando:

--------- ----------------<

.¿Versión? 2

. ¿Asamblea? Conjunto ventana 1

. ¿Variables de montaje? Variable,? Entero

. ¿Subrutina? _Button1_Clicked

Determina el primer paso del bucle. (Variable ? = ?0)

Cuadro de mensaje ("¡En la ventana de bucle infinito!", ?0, ?)

¿Estás seguro de que el bucle ha terminado? ()

¿Subrutina? Iniciar ventana_creada

¿Variable? = ?0

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

Control requerido:? Un botón

¡Escrito a mano! Dale una buena reseña

Esta es la primera vez que veo esto.