home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / scrg / scrdem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-09  |  1.0 KB  |  43 lines
  1. program scr;
  2.  
  3. type ScreenImage= Array[0..4095] of byte;
  4.  
  5. var i,j: integer;
  6.     scr: ScreenImage absolute $b800:$0000;
  7.     ch:  char;
  8.     img: file;
  9.  
  10. begin
  11.   assign(img,'test.scr');
  12.   clrscr;
  13.   writeln('                      * * *   C O L O R    T E S T   * * *');
  14.   writeln('                           (TextColor,TextBackground)     ');
  15.   for i:=0 to 15 do
  16.     for j:=0 to 7 do
  17.       begin
  18.         gotoxy(3+j*10,i+4);
  19.         textcolor(i);
  20.         textbackground(j);
  21.         write(i:3,',',j:1,' ');
  22.       end;
  23.   gotoxy(1,25);
  24.   textbackground(black);
  25.   textcolor(green);
  26.   write('Press any key to put screen...');
  27.   repeat
  28.   until keypressed;
  29.   rewrite(img);
  30.   BlockWrite(img,scr,32);
  31.   clrscr;
  32.   write('Press any key to get screen...');
  33.   repeat
  34.   until keypressed;
  35.   reset(img);
  36.   BlockRead(img,scr,32);
  37.   repeat
  38.   until keypressed;
  39.   gotoxy(38,22);
  40.   textcolor(red+16);
  41.   write('Done!')
  42. end.
  43.