RosettaCodeData/Task/Infinity/ZX-Spectrum-Basic/infinity-2.basic

5 lines
47 B
Plaintext

10 LET z=1
20 PRINT z
30 LET z=z*2
40 GO TO 20