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

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