procedure:
label spam
display "SPAM" lf
goto spam