home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hp1000 / kcmnds.ftni < prev    next >
Text File  |  2020-01-01  |  813b  |  19 lines
  1. !     Goes with rev 1.98 or later; edited  1:00 PM  Thu., 12  Jun., 1986
  2.  
  3. !     This common provides storage for KERMIT's command-tables
  4.  
  5.       integer*2 cmtsiz                    !command-table size
  6.       integer*2 setsiz                    !SET-parameter-table size
  7.       integer*2 prtsiz                    !parity parameter-table size
  8.       integer*2 dbtsiz                    !debug-table size
  9.       parameter (cmtsiz = 15)
  10.       parameter (setsiz = 17)
  11.       parameter (prtsiz =  5)
  12.       parameter (dbtsiz =  5)
  13.       character*8 commands(cmtsiz)        !Top-level commands
  14.       character*7 setparms(setsiz)        !SET parameter names
  15.       character*5 parits(prtsiz)          !Parity types
  16.       character*7 debugs(dbtsiz)          !Debug types
  17.       common /kcmnds/ commands,setparms,parits,debugs
  18.  
  19.