first-program

gistfile1.txt

# Comments!
PROGRAM joel IS

VARIABLE movecounter = 4

INSTRUCTION default IS
    IF next-is-not-friend THEN
        infect
    END IF
    WHILE next-is-empty DO
        move
        
        INCREMENT movecounter BY 1
    END WHILE
END default

BEGIN
    WHILE true DO
        default
    END WHILE
    IF movecounter < 10 THEN
        turnright
    ELSE
        IF next-is-wall THEN
            turnleft
        END IF
    END IF
END joel