home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Graphics
/
graphics-16000.iso
/
msdos
/
animutil
/
fastgfx
/
fg303e
/
expas.arj
/
FGDOC
/
EXAMPLES
/
PASCAL
/
07-02.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-30
|
668b
|
37 lines
program main;
uses fgmain, fgmisc;
var
old_mode : integer;
row, column : integer;
procedure put_string (message : string; row, column : integer);
begin
fg_locate(row,column);
fg_text(message,length(message));
end;
begin
old_mode := fg_getmode;
fg_setmode(3);
fg_cursor(0);
fg_setattr(14,0,0);
put_string('yellow',0,0);
fg_setattr(10,0,0);
fg_where(row,column);
put_string('green',row,column+1);
fg_setattr(12,0,1);
fg_where(row,column);
put_string('blinking',row,column+1);
fg_setattr(12,7,0);
put_string(' Press any key. ',24,0);
fg_waitkey;
fg_setmode(old_mode);
fg_reset;
end.