RosettaCodeData/Task/Integer-sequence/GW-BASIC/integer-sequence.basic

5 lines
42 B
Plaintext

10 A#=1
20 PRINT A#
30 A#=A#+1
40 GOTO 20