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

8 lines
112 B
Text
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
$! looper.com procedure
$ i = 10
$ loop:
$ show time
$ wait 'p1
$ i = i - 1
$ if i .gt. 0 then $ goto loop