home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
hp1000.tar.gz
/
hp1000.tar
/
kercmd.ftni
< prev
next >
Wrap
Text File
|
2011-08-10
|
682b
|
15 lines
! Goes with rev 1.99 or later; edited 1:00 PM Thu., 12 Jun., 1986
! This common provides storage for KERMIT's command-parsing routines
integer*2 cmP1 ! parsing pointer #1
integer*2 cmP2 ! parsing pointer #2
integer*2 cmLn ! current length of command
integer*2 cmIn(40) ! the command-line array
character cmCh*80 ! same as cmIn
character cmTk*80 ! A command-line token
character cmRu*80 ! A run-command save
common /kercmd/ cmP1,cmP2,cmLn,cmIn,cmTk,cmRu
equivalence (cmCh,cmIn)