//copy exec pgm=iebgener    **** feb. 22, 1972 ****
//* this step prevents messages on operator's console when data set
//* "fmts" is opened for direct access in "go" step
//sysin dd dummy
//sysprint dd dummy
//sysut1 dd dsn=ics160.fmts,disp=shr,unit=2311,vol=ser=111111
//sysut2 dd disp=(new,pass),unit=sysda,space=(trk,4,rlse,contig),
// dcb=(recfm=fbs,lrecl=80,blksize=3520)
//fort exec pgm=ieyfort,parm=map,cond=(8,le,copy)
//sysprint dd sysout=a
//syslin dd disp=(new,pass),unit=sysda,space=(trk,(5,2))
//sysin dd *
      implicit integer (a-z)
      common /com1/ d0,d1,d2,d3,d4,d5,d6,d7,d8,d9
      common /com1/ la,lb,lc,ld,le,lf,lg,lh,li,lj,lk,ll,lm,ln,lo,lp,lq,
     c   lr,ls,lt,lu,lv,lw,lx,ly,lz
      common /com1/ blank,period,lparen,plus,dollar,aster,rparen,minus,
     c   slash,comma,under,equal,quote,less,bar,and,semi,not,prcent,
     c   grater,questn,colon,pound,at,apost
      common /com1/ self,west,east,south,north,swest,nwest,seast,neast,
     c   horiz,vert,aigu,grave,rook,bishop,king
      common /com1/ system,scope,ttyo,ttyi,ptapei,cardi,printr,cardo,
     c   camrao,camrai,fmts
      common /com1/ ttwide,lastin,income,fmtbuf
      integer d0,d1,d2,d3,d4,d5,d6,d7,d8,d9
      integer la,lb,lc,ld,le,lf,lg,lh,li,lj,lk,lm,ln,lo,lp,lq,lr,ls,lt,
     c   lu,lv,lw,lx,ly,lz
      integer blank,period,lparen,plus,dollar,aster,rparen,minus,slash,
     c   comma,under,equal,quote,less,bar,and,semi,not,prcent,grater,
     c   questn,colon,pound,at,apost
      integer self,west,east,south,north,swest,nwest,seast,neast,horiz,
     c   vert,aigu,grave,rook,bishop,king
      integer system,scope,ttyo,ttyi,ptapei,cardi,printr,cardo,camrao,
     c   camrai,fmts
      integer ttwide,lastin
      logical*1 income(72), fmtbuf(160)
c system initialization
      call init
c user program goes here ***********************************************
      stop
      end
c subroutine to process unsolicited messages from teletype
      subroutine ring
      call notme
      return
      end
//lked exec pgm=iewl,cond=((8,le,copy),(8,le,fort)),parm='xref,call'
//syslib dd dsn=sys1.fortlib,disp=shr
//sysut1 dd unit=sysda,space=(trk,(6,3)),dcb=blksize=3200
//syslmod dd disp=(new,pass),unit=syssq,dcb=blksize=3200,
// space=(trk,(6,3,1)),dsn=&&loadmod(main)
//loadmod dd dsn=ics160.loadmod,disp=shr,unit=2311,
// vol=ref=*.copy.sysut1
//sysprint dd sysout=a
//syslin dd dsn=*.fort.syslin,disp=(old,delete)
// dd *
 include loadmod(sysprog)
//go exec pgm=*.lked.syslmod,cond=((8,le,copy),(8,le,fort),(8,le,lked))
//ft02f001 dd sysout=a,dcb=(recfm=ua,blksize=133)
//ft06f001 dd sysout=a
//ft07f001 dd sysout=b
//ft10f001 dd dsn=*.copy.sysut2,disp=(old,delete),
// dcb=(recfm=f,lrecl=3520,blksize=3520)
//ft05f001 dd *           ************ data cards follow **************
