RosettaCodeData/Task/Loops-While/Applesoft-BASIC/loops-while.basic

3 lines
65 B
Plaintext

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