RosettaCodeData/Task/100-doors/BBC-BASIC/100-doors.bbc
Ingy döt Net 518da4a923 B
2013-04-10 16:19:29 -07:00

11 lines
277 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%