' PRNTCLR(2.0) Print Colored Text to Screen 09/25/1992-02/19/2010 ' ------------------------------------------------------------------------------ #INCLUDE "PRNTCLR" FUNCTION PBMAIN PRINT "PRNTCLR(2.0) Print Colored Text to Screen ";DATE$; PRINT " ";LEFT$(TIME$,5) PRINT STRING$(61,"-") PRINT CALL PRNTCLR("%G%PRNTCLR(0.0) Color Codes Demo and Usage Examples",1) CALL PRNTCLR("%G%-------------------------------------------------",1) CALL PRNTCLR("%R%Bright Red: R - Error message",1) CALL PRNTCLR("%G%Bright Green: G - Title, info or disk name/letter",1) CALL PRNTCLR("%Y%Bright Yellow: Y - Command name or text accent",1) CALL PRNTCLR("%B%Bright Blue: B - Status message",1) CALL PRNTCLR("%M%Bright Magenta: M - Error message highlight",1) CALL PRNTCLR("%C%Bright Cyan: C - Key, status msg h/l or complex message",1) CALL PRNTCLR("%W%Bright White: W - Request or text highlight",1) CALL PRNTCLR("%P%Gray: P - Prompt regular text",1) PRINT CALL PRNTCLR("%G%Several usage examples follow:",1) PRINT CALL PRNTCLR("%W%Insert %G%DDDD %W%disk into floppy drive %G%A: %W%and hit %C%[Enter]",1) CALL PRNTCLR("%W%Hit %C%[Enter] %W%to play %Y%next %W%tune or %C%[Esc] %W%to %Y%quit",1) CALL PRNTCLR("%R%Wrong disk %M%XXXX %R%is inserted instead of requested %M%DDDD",1) CALL PRNTCLR("%R%Free space on disk %M%DDDD %R%is only %M%12 %R%Kilobytes",1) CALL PRNTCLR("%B%Batch command %C%tracing %B%mode is now %C%OFF",1) CALL PRNTCLR("%G%Execution will take some time, please wait...%P%",1) CALL PRNTCLR("Reading source file(s)...",1) PRINT CALL PRNTCLR("%G%Compound message example:",1) PRINT CALL PRNTCLR("%R%Bright Red - ",0) CALL PRNTCLR("%G%Bright Green - ",0) CALL PRNTCLR("%Y%Bright Yellow - ",0) CALL PRNTCLR("%B%Bright Blue - ",0) CALL PRNTCLR("%M%Bright Magenta - ",0) CALL PRNTCLR("%C%Bright Cyan - ",0) CALL PRNTCLR("%W%Bright White - ",0) CALL PRNTCLR("%P%Gray",1) END FUNCTION