home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RBBS in a Box Volume 1 #3.1
/
RBBSIABOX31.cdr
/
colo
/
colordem.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-04-04
|
512b
|
24 lines
PROGRAM COLORDEMO ;
PROCEDURE REVERSEVIDEO ;
BEGIN
TEXTCOLOR (0) ;
TEXTBACKGROUND (15) ;
END ;
PROCEDURE UNDERLINEVIDEO ;
BEGIN
TEXTCOLOR (1) ;
END ;
BEGIN
UNDERLINEVIDEO ;
WRITE ('This line is underlined') ;
NORMVIDEO ; {Switch to normal }
WRITELN ; { before next line }
REVERSEVIDEO ;
WRITE ('This line is in reverse video') ;
NORMVIDEO ;
WRITELN ;
END .