*COMDECK FMCDS                                                                FMC015
10 FORMAT LF=*OCTB        WORD   DETAILED STATUS(OCTAL) 
11 FORMAT GENERAL STATUS    1   *OCT *OCT *OCT *OCT *OCT                 FMC015 
12 FORMAT    = *OCTB        6   *OCT *OCT *OCT *OCT *OCT                 FMC015 
13 FORMAT                  11D  *OCT *OCT *OCT *OCT *OCT                 FMC015 
14 FORMAT                  16D  *OCT *OCT *OCT *OCT *OCT                 FMC015 
/                                                                        FMC015 
30 IF (ES.AND.TM.EQ.0) GOTO 40
   PICTURE
   HALT 
   MSG 10 (LF) TO LINE 12 
   MSG 11 5 WORDS FROM SB(1) TO LINE 13 
   MSG 12 (SB(0),SB(6),SB(7),SB(8),SB(9),SB(12)) TO LINE 14 
   MSG 13 5 WORDS FROM SB(13) TO LINE 15
   MSG 14 5 WORDS FROM SB(20) TO LINE 16
   GOTO 50
40 MSG 10 (LF) TO LINE 20 
   MSG 11 5 WORDS FROM SB(1) TO LINE 21                                  FMC015 
   MSG 12 (SB(0),SB(6),SB(7),SB(8),SB(9),SB(12)) TO LINE 22              FMC015 
   MSG 13 5 WORDS FROM SB(13) TO LINE 23                                 FMC015 
   MSG 14 5 WORDS FROM SB(20) TO LINE 24                                 FMC015 
50 PICTURE
   HALT                                                                  FMC015 
   BLANK                                                                 FMC015 
   EXIT                                                                  FMC015 
   END 30                                                                FMC015 
COMPILE                                                                  FMC015 
