RosettaCodeData/Task/Fork/DCL/fork-1.dcl
2023-07-01 13:44:08 -04:00

7 lines
112 B
Text

$! looper.com procedure
$ i = 10
$ loop:
$ show time
$ wait 'p1
$ i = i - 1
$ if i .gt. 0 then $ goto loop