RosettaCodeData/Task/100-doors/Liberty-BASIC/100-doors.basic
2023-07-01 13:44:08 -04:00

10 lines
227 B
Text

dim doors(100)
for pass = 1 to 100
for door = pass to 100 step pass
doors(door) = not(doors(door))
next door
next pass
print "open doors ";
for door = 1 to 100
if doors(door) then print door;" ";
next door