RosettaCodeData/Task/Integer-sequence/Applesoft-BASIC/integer-sequence-1.basic
2023-07-01 13:44:08 -04:00

5 lines
72 B
Text

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