home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff335.lzh / DTC / apptdtc.inc < prev    next >
Text File  |  1990-03-22  |  558b  |  23 lines
  1. c Begin common APPTDTC.INC
  2.  
  3.       parameter (iwrkln = 100)
  4. C Can't use it below
  5.       character*100 workstr
  6.       character*84 apptstr
  7. C icmln
  8.  
  9. C Range of hash values (input)
  10.       integer*4 irqhash(2),
  11.      1 irchash, ihy, ihm, ihd, iht, iaptln, istart, iwkln
  12. C outputs
  13.  
  14.       INTEGER*1 appoin(icmln), work(iwrkln)
  15.  
  16.       common /apptdtc/ irqhash, irchash, ihy, ihm, ihd, iht,
  17.      1           iaptln, istart, iwkln, workstr, apptstr
  18.  
  19.       equivalence (apptstr, appoin), (workstr, work)
  20.  
  21. c End common APPTDTC.INC
  22. C -h- comdtc.inc  Tue Jul  8 16:16:24 1986
  23.