home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / ASCII.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-06  |  741b  |  26 lines
  1.   if not useron then begin incom:=true; outcom:=true; if i=1 then i:=-2; end;
  2.   case i of
  3.    -2:begin
  4.         assign(f,fn);
  5.         {$I-} reset(f); {$I+}
  6.         if ioresult<>0 then print('File not found.') else begin
  7.           abort:=false;
  8.           clrscr;
  9.           done:=false; abort:=false;
  10.   x:=wherex; y:=wherey;
  11.   window(1,25,80,25);
  12.   textcolor(11); textbackground(1);
  13.   gotoxy(1,1);
  14.   for t:=1 to 80 do write(' ');
  15.   gotoxy(1,1);
  16.   write('Uploading ASCII File '+fn+' -- Please Wait');
  17.   textcolor(7); textbackground(0);
  18.   window(1,1,80,24);
  19.   gotoxy(x,y);
  20.           repeat
  21.             read(f,g);
  22.             o(g); write(g);
  23.           until (eof(f)) or (abort);
  24.           close(f);
  25.         end;
  26.       end;