home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBOBBS.ZIP / FILESYS.FIX < prev    next >
Encoding:
Text File  |  1985-05-09  |  768 b   |  22 lines
  1.   procedure textdump;
  2.  
  3.     var
  4.       tabloc : integer;
  5.       libname: longname;
  6.  
  7.     begin
  8.       tabloc := legaltab('ASCII text dump: ');
  9.       lineout(space);
  10.       if tabloc > 0 then with filetab[tabloc] do begin
  11.         libname := title;
  12.         if pos('.LBR', title) > 1 then begin
  13.           lineout(title + ' is a library file: please select a member: ');
  14.           libname := getlegal;
  15.           if libname = '' then libname := 'DIR';
  16.           libname := copy(title, 1, length(title)-4) + '/' + libname;
  17.         end;
  18.         typefile(filedrive + libname, false);
  19.         if not cancelled then accesses := accesses + 1;
  20.       end;
  21.     end;
  22.