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 >
Wrap
Text File
|
1995-02-14
|
900b
|
32 lines
{$m 65520,0,65536}
(*
** Mode-12h (640x480x16) unit
** By Bas van Gaalen
*)
unit u_md12h;
interface
const
m12h_vidseg:word=$a000;
m12h_msg_nofile=1; { no filename provided }
m12h_msg_noopen=2; { could not open file }
m12h_msg_noread=2; { error reading file }
type
str80=string[80];
procedure m12h_setvideo; { set mode 12h }
procedure m12h_resetplanes; { reset write modes }
procedure m12h_putpixel(x,y:word; a:byte); { put pixel }
procedure m12h_putchar(x,y:word; c:char; a:byte); { put char }
procedure m12h_writetxt(x,y:word; txt:string; a:byte); { write text }
procedure m12h_clrscr; { clear complete screen }
procedure m12h_txt2gfx(const src; size:word); { display text in graphics }
implementation