RosettaCodeData/Task/Integer-sequence/DCL/integer-sequence.dcl

6 lines
64 B
Text
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
$ i = 1
$ loop:
$ write sys$output i
$ i = i + 1
$ goto loop