Category : Miscellaneous Language Source Code
Archive   : ADAMENU2.ZIP
Filename : VIDEO.SPC

-- .asis
package video is
--
-- Interrupt 10h routines for video control.
--
type color is ( black, blue, green, cyan, red, magenta, brown, white,
gray, lightblue, lightgreen, lightcyan, lightred,
lightmagenta, yellow, lightwhite );

type videomode is ( bw40, co40, bw80, co80, co320, bw320 );

procedure gotoxy ( x, y : in positive);
-- Move cursor to location x, y

procedure clrscr;
-- Clear the screen and home the cursor

procedure textcolor ( c : in color );
-- Set the foreground color for subsequent video writes

procedure textbackground ( c : in color );
-- Set the background color for subsequent video writes

function wherex return positive;
-- Return the current x location of the cursor

function wherey return positive;
-- Return the current y location of the cursor

procedure setmode ( m : in videomode );
-- Set the graphics mode

procedure write (str : in string);
-- Display a string.

procedure write (str : in string; l : in positive);
-- Display of string of l characters

procedure write (ascii_val : in natural);
-- Display a graphic character.
-- ascii_val is in the range 0..255
-- Mainly for use with the hibit characters that Ada
-- considers out of the character range.

procedure CursorOn;
-- Turn on the cursor, 7 scan lines

procedure CursorOff;
-- Turn off the cursor

private xloc, yloc : integer;
len : integer;
colr : color;
md : videomode;
attributebyte : character;
strbuf : string (1..254);

end video;