RosettaCodeData/Task/Flow-control-structures/ALGOL-68/flow-control-structures-1.alg
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

12 lines
203 B
Text

(
FOR j TO 1000 DO
FOR i TO j-1 DO
IF random > 0.999 THEN
printf(($"Exited when: i="g(0)", j="g(0)l$,i,j));
done
FI
# etc. #
OD
OD;
done: EMPTY
);