home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / 3DANIM.ZIP / PING.PON < prev   
Encoding:
Text File  |  1986-06-28  |  676 b   |  28 lines
  1. procedure savescreen;
  2. begin
  3.       assign(outfile,'d:out'+digits[fileno]+'.pic');
  4.       rewrite(outfile);
  5.       move(display,cache,sizeof(display));
  6.       write(outfile,cache);
  7.       close(outfile);
  8.       fileno := fileno+1;
  9. end;
  10.  
  11.  
  12. procedure show (many:integer);
  13. begin
  14. writeln('How many pic. files?');
  15.       fileno := 0;
  16.       while fileno < many+1 do
  17.       begin
  18.           assign(outfile,'d:out'+digits[fileno]+'.pic');
  19.           reset(outfile);
  20.           read(outfile,cache);
  21.           move(cache,display,16384);
  22.           close(outfile);
  23.           if fileno = many then  fileno := 0
  24.           else
  25.             fileno := fileno+1;
  26.       end;
  27. end;
  28.