*DECK MFLOAD
*CWEOR,00 
*WIDTH,80,0 
.PROC,MFLOAD,SI=TAPE/TAPE,FID=,FSN. 
CKSTR,FID.
IFE,R1G,L1. 
LABEL,LFN,NORING,R,M=SI,L=FID.
ELSE,L1.
LABEL,LFN,NORING,R,P=0,M=SI.
ENDIF,L1. 
.DATA,CKSTR.
.PROC,CKSTR*I,STR=(*N=NO,*A=YES). 
SET,R1G=$STR$.EQ.$YES$. 
*WIDTH
