13 lines
244 B
Text
13 lines
244 B
Text
100 PROGRAM "100doors.bas"
|
|
110 NUMERIC D(1 TO 100)
|
|
120 FOR I=1 TO 100
|
|
130 LET D(I)=0
|
|
140 NEXT
|
|
150 FOR I=1 TO 100
|
|
160 FOR J=I TO 100 STEP I
|
|
170 LET D(J)=NOT D(J)
|
|
180 NEXT
|
|
190 NEXT
|
|
200 FOR I=1 TO 100
|
|
210 IF D(I) THEN PRINT I
|
|
220 NEXT
|