home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp1000 / kconcw.ftni < prev    next >
Text File  |  2020-01-01  |  449b  |  13 lines
  1. !     Goes with rev 1.99b or later; edited  2:48 PM  THU., 15  OCT., 1987
  2.  
  3. !     This common provides storage for the control-words used by Connect
  4. !     and its assistants.
  5.  
  6.       integer*2 Ltx(2),Lrx(2),Rtx(2),Rrx(2)
  7.       integer*2 Ltc,Lrc,Rrc,Rtc,term,dstat
  8.       logical*2 fASI,fRcm,fLcm
  9.       common /kconcw/ Ltx,Lrx,Rtx,Rrx,term,dstat,fASI,fRcm,fLcm
  10.       equivalence (Ltx(2),Ltc),(Lrx(2),Lrc)
  11.       equivalence (Rtx(2),Rtc),(Rrx(2),Rrc)
  12.  
  13.