home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_MD12H.INT < prev    next >
Text File  |  1995-02-14  |  900b  |  32 lines

  1.  
  2. {$m 65520,0,65536}
  3.  
  4. (*
  5. ** Mode-12h (640x480x16) unit
  6. ** By Bas van Gaalen
  7. *)
  8.  
  9. unit u_md12h;
  10.  
  11. interface
  12.  
  13. const
  14.   m12h_vidseg:word=$a000;
  15.   m12h_msg_nofile=1; { no filename provided }
  16.   m12h_msg_noopen=2; { could not open file }
  17.   m12h_msg_noread=2; { error reading file }
  18.  
  19. type
  20.   str80=string[80];
  21.  
  22. procedure m12h_setvideo;                                      { set mode 12h }
  23. procedure m12h_resetplanes;                              { reset write modes }
  24. procedure m12h_putpixel(x,y:word; a:byte);                       { put pixel }
  25. procedure m12h_putchar(x,y:word; c:char; a:byte);                 { put char }
  26. procedure m12h_writetxt(x,y:word; txt:string; a:byte);          { write text }
  27. procedure m12h_clrscr;                               { clear complete screen }
  28. procedure m12h_txt2gfx(const src; size:word);     { display text in graphics }
  29.  
  30. implementation
  31.  
  32.