home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBO5.ZIP / L25.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-26  |  640 b   |  32 lines
  1. {    FOR HEAKIT-89 OR ZENITH-89 OR 90   }
  2. {    USE THE #25 LINE                   }
  3. {    WRITE BY TURBO PASCAL              }
  4.  
  5. program l25;
  6.   type     string80 = string[80]    ;
  7.  
  8. procedure L25(y: integer ; x :string80 ;t :boolean ) ;
  9. var
  10. ch   : char ;
  11. count: integer ;
  12. begin
  13.  
  14. write(^['y1');
  15. write(^[#'j');  write(^[,'x1');
  16. gotoxy(y,25);
  17. write(x);
  18. if t then
  19.   begin
  20.   count :=0 ;
  21.   repeat
  22.     gotoxy(y,25);  count := count+1 ;
  23.     t := not t ;  if t then highvideo else lowvideo ;
  24.     write(x);     delay(500);
  25.   until count = 6 ;
  26.   end ;
  27. write(^['k');
  28. end;
  29.  
  30. begin
  31.   l25(20,'test #25 line',true);
  32. end.