$ set noverify
$LOOP:
$ next_file = f$search("RT*.IMP",1)
$ if next_file .eqs. "" then goto finish
$ if next_file .eqs. "RT26.IMP" then goto loop
$ if next_file .eqs. "NOR_THIS_ONE.IMP" then goto loop
$ next = f$parse(next_file,,,"NAME")
$ if next .eqs. "RT37" then goto loop
$ imp80 'next'
$ implink 'next'
$ run 'next'
$ delete 'next'.obj;*,'next'.exe;*,'next'.lis;*,'next'.map;*
$ write sys$output "Completed ",next_file
$ goto loop
$FINISH:
$ exit