RosettaCodeData/Task/Loops-While/Nascom-BASIC/loops-while.basic
2023-07-01 13:44:08 -04:00

4 lines
82 B
Text

10 REM Loops/While
20 LET I=1024
30 IF I>0 THEN PRINT I:I=INT(I/2):GOTO 30
40 END