uses crt;
const txt = 'Dune News 8.0';
var
i,o : Byte;
ii,oo : boolean;
Begin
o := 1;
i := 1;
textmode(co80);
Asm MOV ax,$0100; MOV cx,$2607; INT $10; end;
repeat
if i >= 80-length(txt) then ii := true;
if ii Then i := i-2;
if i <= 1 then ii := false;
if o >= 25 then oo := true;
if oo Then o := o-2;
if o <= 1 then oo := false;
inc(o,1);
inc(i,1);
gotoxy(i,o);
write(txt);
delay(100);
clrscr;
until keypressed;
clrscr;
Asm MOV ax,$0100; MOV cx,$0506; INT $10; end;
end.