program neves;
var sor, oszlop, i: byte;
const nev:string='Valaki';
    begin
     sor := 3;
     oszlop := 10;
     for i:=1 to length(nev) do
     begin
     Mem[$B800:sor*160+(oszlop+i)*2] := Ord(nev[i]); { $B800 a k‚perny‹mem¢ria kezd‹c¡me}
     Mem[$B800:sor*160+(oszlop+i)*2+1] := $14;     {K‚k h tt‚ren piros betû}
     end
    end.