10 DIM D(100) 20 FOR I=1 TO 100 30 FOR J=i TO 100 STEP I 40 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 100 END