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

2 lines
65 B
Text

10 I% = 1024
20 IF I% > 0 THEN PRINT I%:I% = I% / 2: GOTO 20