program loop

while (1==1)
write(*,101)"SPAM"
101 format(A)

end