'Rutina especial de espera, la sintaxis varía según el lenguaje
Dim mi_pause As Word 'Contendrá el tiempo a esperar, máximo 65535 Seg.
main: 'Rutina principal
mi_pause = 900 'Tiempo de pausa en segundos
Gosub pause_seg 'Hace la pausa
Goto main 'Impide que termine la rutina principal
End 'Fin rutina principal
'Rutinas especiales
pause_seg: 'Rutina de pausa en segundos
While mi_pause > 0 'Mientras mi_pause sea mayor a cero
WaitMs 1000 'Pausa de 1segundo
mi_pause = mi_pause - 1 'Contador descendente, control del tiempo
Wend 'Acota el while anterior
Return 'Retorna después del Gosub ultimo
End 'Fin