RosettaCodeData/Task/Fork/DCL/fork-1.dcl

8 lines
112 B
Plaintext

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