>>24018134 PB

CHARACTER*11 MSG

CHARACTER*11 BLANK

INTEGER I

MSG = 'PUNCH THE NAZI'

BLANK = ' '

DO 20 I = 1, 100

WRITE (*,10) MSG

10 FORMAT(A, A) ! Carriage return overwrite

CALL SLEEP(1) ! Non-standard; or use loop delay if unavailable

WRITE (*,10) BLANK

WRITE (*,10) MSG

20 CONTINUE

STOP

END