Eine Möglichkeit ist, jedesmal:
CALL WAIT_LOOP

und den Loop nur einmal schreiben

WAIT_LOOP:
DO .......
RETURN

Das spart ein bißchen