RosettaCodeData/Task/Integer-sequence/DCL/integer-sequence.dcl
2023-07-01 13:44:08 -04:00

5 lines
64 B
Text

$ i = 1
$ loop:
$ write sys$output i
$ i = i + 1
$ goto loop