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

mov bl, 0 {font plane}

int 10h {changing}

call readkey; {let you see the changes}

end;

begin

writeln('That''s a text mode font changing demonstration');

a8;

end.