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