RosettaCodeData/Task/100-doors/FutureBasic/100-doors.futurebasic

15 lines
295 B
Plaintext

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