RosettaCodeData/Task/Integer-sequence/Applesoft-BASIC/integer-sequence-1.basic

6 lines
72 B
Plaintext

10 I% = 1
20 PRINT I%;
30 I% = I% + 1
40 PRINT ", ";
50 GOTO 20