home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N2.ZIP / ATTRTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-25  |  272 b   |  19 lines
  1. PROGRAM AttrTest;
  2.  
  3. USES Crt,Vidpoint;
  4.  
  5. VAR
  6.   B : Byte;
  7.  
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   GotoXY(15,4); Write('I was born on a pirate ship...');
  12.   GotoXY(15,4);
  13.     FOR B := 0 TO 7 DO
  14.       BEGIN
  15.         WriteAttribute(B SHL 4,50);
  16.         Delay(500);
  17.       END;
  18. END.
  19.