AH=0;
AL=2 ;
INT10h; /* установка режима */
set_page(0); /* 0-я страница */
set_cur(1,1); /* курсор - в начало */
set_attr(7,0,0,0);/* цветовые атрибуты */
АН=9;
AL=32; /* код пробела */
BL=7; /* белым по черному */
ВН=0; /* 0-я страница */
СХ=2000;
INT10h ; /* очистка экрана */
}
Программа tst_text — проверки пакета text_box
Для проверки работоспособности описанного выше пакета предлагается следующий тест, охватывающий почти все функции пакета:
#include "text.h"
void main() {
init_txt();
set_attr(4,2,1,0); //красный цвет, зеленый фон
box_abs(2,2,10,30,4,1); //прямоугольник с тенью справа
getch();
move_cur(2); //сдвиг курсора вправо
getch();
s_out('А'); //вывод одной буквы
getch();
s_out_h('В',3); //вывод трех букв в строке
getch();
s_out_v('С',4); //вывод четырех букв по вертикали
getch();
cl_rect(3,3,7,27,4) ; //заливка внутренности окна красным
getch();
set_attr(7,1,0,1);
box_rel(13, 40,8,28,4,-1);//прямоугольник с тенью слева
getch();
set_attr(7,1,0,0);
sbox_rel(14,41,6,26,' 7 ') ;
getch();
st_out_l(13,5,16,"1234567890123456"); //линейка в полосе
st_out_l(14,5,16," "); //очистка полосы
getch();
st_out_l(14,5,16,"Привет"); //вывод в полосу с прижимом влево
getch();
st_out_l(15,5,16," "); //очистка полосы
getch();
st__out_c (15, 5,16, "Привет") ; //вывод в полосу по центру getch();
st_out 1(16,5,16," "}; //очистка полосы
getch ();
st_out_r(16,5,16,"Привет"); //вывод в полосу с прижимом вправо
getch () ; }
В состав файла с текстом головной программы можно включить все функции пакета и набрать заголовочный файл text.h:
#include <conio.h>
#include <dos.h>
#include <string.h>
union REGS reg;
#define AH reg.h.ah
#define AL reg.h.al
#define BH reg.h.bh
#define BL reg.h.bl
#define CH reg.h.ch
#define CL reg.h.cl
#define CX reg.x.ex
#define DL reg.h.dl
#define DH reg.h.dh