home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
TVPROMPT.EXE
/
CRT.LIB
< prev
next >
Wrap
Text File
|
1992-04-08
|
640b
|
25 lines
package CRT is
-- Copyright 1991,92 Tom Moran
Line_Width_In_Bytes:constant:=80;
Logical_Screen_Height: constant Integer := 100;
-- odd lines duplicate even, giving double height characters for visibility
type Bytes is range 0 .. 255;
for Bytes'Size use 8;
White:constant Bytes:=16#FF#;
type Video_Bytes is array (Integer range <>) of Bytes;
subtype X_Range is Integer range 0 .. Line_Width_In_Bytes-1;
subtype Full_Scan_Lines is Video_Bytes(X_Range);
procedure Scroll(New_Scan_Line: Full_Scan_Lines);
procedure Open_White_Screen;
procedure Revert_To_Text;
end CRT;