include "ConsoleWindow"

dim as short door, square : square = 1
dim as short increment : increment = 3

for door = 1 to 100
   if (door == square)
      print "Door"; door; " is open."
      square += increment
      increment += 2
   else
      print "Door"; door; " is closed."
   end if
next