In order to make an infinite loop one could write:

     begin ." Diamonds are forever" cr 0 until

But there is a nicer way to do just that:

     begin ." Diamonds are forever" cr again

This will execute until the end of times, unless you exit the program another way.