Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

mov ax, 3 {changing video mode to text one}

int 10h

end;

begin

textattr:=7; clrscr; a5; readkey;

tograph(14+256*14);

readkey;

a6;

readkey;

a7;

readkey;

totext;

end.

CURSOV33.PAS

uses

crt;

procedure a8; assembler;

asm

mov ah, 11h {function 11h - bios font operations}

mov al, 11h {8x14}

mov bl, 0 {font plane}

int 10h {changing}

call readkey; {let you see the changes}

mov ah, 11h {function 11h - bios font operations}

mov al, 12h {8x8}

mov bl, 0 {font plane}

int 10h {changing}

call readkey; {let you see the changes}

mov ah, 11h {function 11h - bios font operations}

mov al, 14h {8x16}