VBA (sisse lahendatud algus)
Erijuht - valik ühest
tingimus
If tingimus Then tõene
laused_1 väär
laused_1
End If
Lõpmatu kordus. Do ... Loop-lause baasvariant
Sub Mäng_1()
' Lõpmatu kordus, DoEven
Do Range("andmed").ClearC
Do
Call Löök
laused laused DoEvents
Loop
Loop End Sub
Katkestamine