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

7 lines
60 B
Plaintext

while 1
i=i+1
locate 1,1
print i
scan
wend