[Back to TEXTWNDW SWAG index]  [Back to Main SWAG index]  [Original]

Program rotatingtxt;

uses crt;

const txt = 'IT IS TEXT KICKING!';

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(50);
      clrscr;
  until keypressed;
  gotoxy(1,1);
  clrscr;
  writeln('No more ideas, it''s over!');
  Writeln('Coded by ZîU$');
  write('E-Mail me at arlindo@solar.com.br');
  Asm MOV ax,$0100; MOV cx,$0506; INT $10; end;
end.

[Back to TEXTWNDW SWAG index]  [Back to Main SWAG index]  [Original]