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

6 lines
64 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
$ i = 1
$ loop:
$ write sys$output i
$ i = i + 1
$ goto loop