home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / gould3 / k.dbugc < prev    next >
Text File  |  2020-01-01  |  1KB  |  17 lines
  1. C                                                                       0001.000
  2. C K.DBUGCOM - DEBUG COMMON BLOCK                                        0002.000
  3. C                                                                       0003.000
  4.       OPTION       1+                                                   0004.000
  5.       INTEGER      DBGSTAT         !debug statistics displayed          0005.000
  6.       INTEGER      DBGPACK         !dump transmissions                  0006.000
  7.       INTEGER      DBGON           !general debug flag                  0007.000
  8.       PARAMETER (DBGON =1, DBGSTAT=2, DBGPACK=3)                        0008.000
  9. C                                                                       0009.000
  10.       LOGICAL      DEBUG(3)        !debug flags                         0010.000
  11.       INTEGER      DBGFD           !debug file code                     0011.000
  12.       CHARACTER*8  DBGFILE         !name of debug file                  0012.000
  13. C                                                                       0013.000
  14.       COMMON /DEBUG/ DEBUG, DBGFD, DBGFILE                              0014.000
  15.       OPTION       1-                                                   0015.000
  16. C-----END OF FILE: DBUGCOM                                              0016.000
  17.