home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LANGUAGES / OB68_116.LZH / lst.b < prev    next >
Text File  |  1996-05-03  |  514b  |  27 lines
  1. ********************************
  2. * PROGRAM: lst                 *
  3. * Lists a file and adds line   *
  4. * numbers                      *
  5. ********************************
  6.  dim InpFile:byte
  7.  dim Buf:string[300]
  8.  dim LineNum:short
  9.  
  10.  LineNum=0
  11.  Buf=NextArg
  12.  if len(Buf)=0 then
  13.     print "No file specified"
  14.     end
  15.  endif
  16.  on error goto BadFile
  17.  open #InpFile,Buf:read
  18.  on error
  19.  while not(eof(#InpFile)) do
  20.     read #InpFile,Buf
  21.     inc LineNum
  22.     print right$(zstr$(LineNum),5);" ";Buf
  23.  endwhile
  24.  end
  25. BadFile
  26.  print "Cannot open ";Buf
  27.