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

9 lines
151 B
Text

10 DIM D(100)
20 FOR I=1 TO 100
30 FOR J=I TO 100 STEP I
40 LET D(J)=NOT D(J)
50 NEXT J
60 NEXT I
70 FOR I=1 TO 100
80 IF D(I) THEN PRINT I,
90 NEXT I