MAG 
*NOSEQ
.PROC,MAG.
MAGNET. 
MAGNET1.
EXIT. 
MAGNET1.
