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

9 lines
231 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%
FOR door% = 1 TO 100
IF doors%(door%) PRINT "Door " ; door% " is open"
NEXT door%