home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / ABORT.PAS next >
Pascal/Delphi Source File  |  1988-01-18  |  488b  |  11 lines
  1.   cls; done:=false; abort:=false;
  2.   cl(3);printacr('NN Directory Name            DSL Directory Path',abort,next);
  3.   cl(2);printacr('-- ========================= === ========================================',abort,next);
  4.   ii:=0;
  5.   while (ii<=maxulb) and (not abort) do
  6.     with uboards[ii] do begin
  7.       printacr(mn(ii,2)+' '+mln(name,25)+' '+mn(dsl,3)+' '+mln(dlpath,40),abort,next);
  8.       ii:=ii+1;
  9.     end;
  10.   nl; prt('D)elete, I)nsert, M)odify, Q)uit  :'); onek(c,'QDIM');
  11.