5 lines
71 B
Forth
5 lines
71 B
Forth
INTEGER :: i = 1024
|
|
DO WHILE (i > 0)
|
|
WRITE(*,*) i
|
|
i = i / 2
|
|
END DO
|