' EndBASIC
' Copyright 2020 Julio Merino
'
' Licensed under the Apache License, Version 2.0 (the "License"); you may not
' use this file except in compliance with the License.  You may obtain a copy
' of the License at:
'
'     http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing, software
' distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
' WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
' License for the specific language governing permissions and limitations
' under the License.

i = 0

WHILE i < 5
    j = 0
    WHILE j < i
        PRINT i; j
        j = j + 1
    WEND
    i = i + 1
WEND

IF i = 5 THEN PRINT "Done!"
IF i <> 5 THEN PRINT "Oops!" ELSE PRINT "Done!"

FOR i = 0 TO 3
    FOR j = 15 TO 10 STEP -2
        PRINT i; j
    NEXT
NEXT

IF i = 4 AND j = 9 THEN
    PRINT "Also done!"
END IF

FOR i = 0 TO 10
    SELECT CASE i
        CASE IS < 3, IS > 7: PRINT "Edges"
        CASE 5: PRINT "Center"
        CASE ELSE: PRINT "Middle"
    END SELECT
NEXT

WHILE TRUE
    i = 0
    @start
    PRINT i
    IF i = 5 THEN: GOTO @done: END IF
    i = i + 1
    GOTO @start
    @done GOTO @out
WEND
@out PRINT "Escaped infinite loop"