IS2 Глава 5

В следующем тесте проверяется работа объекта TEMSScreen сначала для текстового, а затем графического режима работы экрана. При инициации графического режима предполагается, что нужный BGI— драйвер располагается в текущем каталоге. Если это не так, следует скорректировать вызов процедуры InitGraph, указав путь к каталогу с этим драйвером.

{

+--_--_----_------_------------------+

I Демонстрация основных возможностей ¦ ¦ модуля F_EMS I +------------------------------------+

;

Uses CRT,Graph,F_EMS,F_Text;

type

TV = array [O.-MaxInt div 2-1] of Longint;

var

All,Pages: Word;

k,j,x: Longint;

Vec: TEMSVector;

Тех: TEMSText;

Scr: TEMSScreen;

t: Longint;

d,r,e: Integer;

PV: array [0..40] of ^V;

Sz: Longint;

Sum: Comp;

f: file;

ft: Text;

s,ss: String;

const

LPage=16*1024;

label

L1,L2;

Function HexW(X: Word): String;

{Возвращает 16-ричное написание X} const

HS: array [0..15] of Char = '0123456789ABCDEF';

var

S: String; k: Byte;

begin

C; .= II. 0 . — /

for k := 3 downto 0 do

S := S+HS[(X shr (k*4)) and 15];

HexW := S end; {UexW} ^———\————————^

Procedure GetTime;

{Помещает в t системное время, выравненное на границу 55-мс интервала}