14 lines
295 B
Text
14 lines
295 B
Text
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
|