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

6 lines
60 B
Text

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