home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / cug / softt-6.lbr / ECHO.RAT < prev    next >
Text File  |  1984-07-05  |  640b  |  26 lines
  1. #-h-  echo          377  local  09/12/80  17:10:47
  2. # echo - echo command line arguments
  3.  
  4.      #   include symbol definitions
  5.  
  6.    DRIVER(echo)
  7.  
  8.    integer i
  9.    integer getarg
  10.  
  11.    character buf (MAXARG)
  12.  
  13.    call query ("usage:  echo [args].")
  14.  
  15.    for (i = 1; getarg (i, buf, MAXARG) != EOF; i = i + 1) {
  16.       if (i != 1)
  17.          call putch (BLANK, STDOUT)
  18.       call putlin (buf, STDOUT)
  19.       }
  20.    if (i != 1)
  21.       call putch (NEWLINE, STDOUT)
  22.  
  23.    DRETURN
  24.    end
  25. #-t-  echo          377  local  09/12/80  17:10:47
  26.