*COMDECK TYPEBSC
_ 
************************************************************************
*                                                                      *
*     BSC TYPES                                                        *
*                                                                      *
***********************************************************************?
_ 
* * *     BSC TYPES FOR CANNED MESSAGES 
? 
  
         BYSCAN = 1..5;                     _ OUTPUT CANNED MSG INDEX  ?
                                            _ 0 - NOT USED             ?
                                            _ 1 - CONSOLE 2780         ?
                                            _ 2 - CONSOLE 3780         ?
                                            _ 3 - CARD PUNCH 2780      ?
                                            _ 4 - CARD PUNCH 3780-DC2  ?
                                            _ 5 - CARD PUNCH 3780-DC3  ?
  
         BYSACTT = ARRAY[BYSCAN] OF         _ ADDRESS TABLE FOR OUTPUT ?
                   B0BUFPTR;                _ CANNED MESSAGE           ?
  
