RosettaCodeData/Task/Count-in-octal/DCL/count-in-octal.dcl
2015-11-18 06:14:39 +00:00

5 lines
80 B
Text

$ i = 0
$ loop:
$ write sys$output f$fao( "!OL", i )
$ i = i + 1
$ goto loop