pop-11


;;; Hello World in pop-11

define hello();
vars i;
0 -> i;
until i > 0
do "Hello World" =>
enduntil;
enddefine;


: hello()


submitted by: mscho@scms.rgu.ac.uk (Harry Ord)