home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DEMOS / UB_68000.LZH / cat.b < prev    next >
Text File  |  1996-05-06  |  510b  |  32 lines
  1. * "quick and dirty" cat program
  2.  
  3.  dim filenum:byte
  4.  dim filename:string[12]
  5.  dim buf:string[300]
  6.  
  7.  on error goto badfile
  8. lp
  9.  filename=NextArg
  10.  if len(filename)=0 then
  11.      end
  12.  endif
  13.  if filename="-?" or filename="--help" then
  14.      print
  15.      print "cat filename... filename"
  16.      print
  17.      print "concatenates files"
  18.      print
  19.      end
  20.  endif
  21.  open #filenum,filename:read
  22.  while not(eof(#filenum)) do
  23.      read #filenum,buf
  24.      fprint buf
  25.  endwhile
  26.  goto lp
  27. badfile
  28.  print "error on file ";filename
  29.  
  30.  
  31.  
  32.