RosettaCodeData/Task/Integer-sequence/Applesoft-BASIC/integer-sequence.applesoft

3 lines
66 B
Plaintext

10 I% = 0
20 PRINT I%: IF I% < 32767 THEN I% = I% + 1: GOTO 20