A:/SUBDIR..
09:47 10-06-2020          5  foo.txt
0 directories, 1 file

Option Explicit On

Dim a = 0
Dim b = 0
Dim z = 0

Cls

Print "Test 1:"
z = 1
' This prints:
' foo
' bar
If z then foo() : bar() Else wombat()

Print "Test 2:"
z = 0
' This prints nothing!
If z Then foo() : bar() Else wombat()

Print "Test 3:"
z = 0
' This prints nothing!
If z Then a = a + 4 : b = b + 5 Else wombat()

Print "Test 4:"
z = 1
' This reports Error: Expression syntax
If z Then a = a + 4 : b = b + 5 Else wombat()

Sub foo()
 Print "foo"
End Sub

Sub bar()
 Print "bar"
End Sub

Sub wombat()
 Print "wombat"
End Sub

If condition Then [ statements ] [ Else else statements ]

For i=0 To 1
 Print "example " i+1
 If i Then Print ,, "foo ";: Print "bar"
Next i

For i=0 To 1
 Print "example " i+3
 If i Then Print ,, "ham" Else Print ,, "eggs"
Next i

For i=0 To 1
 Print "example " i+5
 If i Then Print ,, "jam "; Else Print ,, "french ";: Print "toast"
Next i

> RUN
example  1
example  2
               foo bar
example  3
               eggs
example  4
               ham
example  5
               french toast
example  6
               jam toast
>

RESTORE thislabel

there$ = "thislabel"
RESTORE there$