Jason Aller Floppy Collection/153.img/TELES.ZIP/LAME-0.PAS

Pascal/Delphi Source File | 1988-07-15 | 1.1 KB | 30 lines

procedure editfiles;
var pl,c,rn,int,dbn,x:integer; f:ulfrec; fn,fd,lm:astr; ff:file; i:astr;
begin
  print('Enter filename to edit'); prt(': '); mpl(12);
  input(fn,12); nl; nl;
  if fn<>'' then begin
    recno(fn,pl,rn);
    if rn<>0 then begin
      seek(ulff,rn); read(ulff,f);
      print(f.filename+' : '+f.description); nl; nl;
      ynq('Rename this stuff? ');
      if yn then begin
        prt('New file points? '); mpl(3); input(lm,3); f.filepoints:=value(lm);
        prt('New filename? '); mpl(12); input(fn,12);
        if fn<>'' then begin
          if exist(uboards[FILEBOARD].dlpath+fn) then print('Can''t use that filename.') else begin
            assign(ff,uboards[FILEBOARD].dlpath+f.filename);
            {$I-} rename(ff,uboards[FILEBOARD].dlpath+fn); {$I+} x:=ioresult;
            f.filename:=align(fn);
          end;
        end;
        print('New description -'); prt(': '); inputl(fd,60);
        if fd<>'' then f.description:=fd;
        seek(ulff,rn); write(ulff,f);
      end;
    end;
    close(ulff);
  end;
end;