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