home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / 640X480.PAS < prev    next >
Pascal/Delphi Source File  |  1995-02-14  |  1KB  |  35 lines
  1.  
  2. program test640x480x16; { 640X480.PAS }
  3. { Mode 12h unit test, by Bas van Gaalen }
  4. uses u_vga,u_md12h,u_ansi,u_txt,u_kb;
  5. {$i ansi.inc}
  6. var
  7.   scrdata:array[0..80*60*2-1] of byte;
  8.   i:word;
  9.   c:byte;
  10. begin
  11.   setvideo(259); dspat('Text mode...',0,0,15); placecursor(12,0);
  12.   ansi_2txt(imgdata,mem[$b800:0],imgdata_length);
  13.   waitkey(0);
  14.   m12h_setvideo;
  15.   m12h_writetxt(0,0,'Graphics mode...',15);
  16.   fillchar(scrdata,sizeof(scrdata),0);
  17.   ansi_2txt(imgdata,scrdata,imgdata_length);
  18.   m12h_txt2gfx(scrdata,imgdata_depth*imgdata_width);
  19.   for i:=0 to 199 do begin
  20.     c:=i and 15;
  21.     m12h_putpixel(20+i,100+i,c);
  22.     m12h_putpixel(20+i,300-i,c);
  23.     m12h_putpixel(20+i,200,c);
  24.     m12h_putpixel(120,100+i,c);
  25.   end;
  26.   for c:=1 to 7 do for i:=0 to 1 do
  27.     m12h_writetxt(320+10*c-2*i,150+10*c-2*i,'Press a key to continue...',c+8*i);
  28.   randomize;
  29.   repeat
  30.     m12h_writetxt(random(592),320+random(150),'-demo-',random(16));
  31.   until keypressed;
  32.   clearkeybuf;
  33.   setvideo(u_lm);
  34. end.
  35.