RosettaCodeData/Task/Loops-Infinite/Modula-2/loops-infinite.mod2

LOOP
  InOut.WriteString ("SPAM");
  InOut.WriteLn
END;