<SETG L-NOISY <>>
<FLOAD "AR2:MARC;BUF FBIN">
<FLOAD "AR2:MARC;CALRDR FBIN">
<USE "BUF" "CALSYM" "CALRDR" "STR" "TTY">
<FLOAD "MADMAN;XUNAME NBIN">
<FLOAD "MADMAN;SORTX FBIN">
<FLOAD "MADMAN;ALOCK NBIN">
<FLOAD "MADMAN;MADMAN FBIN">
<FLOAD "MADMAN;ASYLUM FBIN">