' PRNTCLR(0.0)  Print Colored Text to Screen           09/25/1992-07/08/2005
' --------------------------------------------------------------------------

  $INCLUDE "PRNTCLR"
  $LINK    "MODULE.PBL"

  DECLARE SUB PRNTCLR(Text$)

  CLS
  PRINT "PRNTCLR(0.0)  Print Colored Text to Screen  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(61,"-")
  PRINT

  CALL PRNTCLR("%G%PRNTCLR(0.0)     Color Codes Demo")
  CALL PRNTCLR("-----------------------------------")
  CALL PRNTCLR("%R%Bright Red:      R  - Error message")
  CALL PRNTCLR("%G%Bright Green:    G  - Title, info or disk name/letter")
  CALL PRNTCLR("%Y%Bright Yellow:   Y  - Command name or text accent")
  CALL PRNTCLR("%B%Bright Blue:     B  - Status message")
  CALL PRNTCLR("%M%Bright Magenta:  M  - Error message highlight")
  CALL PRNTCLR("%C%Bright Cyan:     C  - Key, status msg h/l or complex message")
  CALL PRNTCLR("%W%Bright White:    W  - Request or text highlight")
  CALL PRNTCLR("%D%Gray:            D  - DOS regular text")
  PRINT
  CALL PRNTCLR("%G%Several examples follow:%D%")
  PRINT
  CALL PRNTCLR("%W%Insert %G%DDDD %W%disk into floppy drive %G%A: %W%and hit %C%[Enter]%D%")
  CALL PRNTCLR("%W%Hit %C%[Enter] %W%to play %Y%next %W%tune or %C%[Esc] %W%to %Y%quit%D%")
  CALL PRNTCLR("%R%Wrong disk %M%XXXX %R%is inserted instead of requested %M%DDDD%D%")
  CALL PRNTCLR("%R%Free space on disk %M%DDDD %R%is only %M%12 %R%Kilobytes%D%")
  CALL PRNTCLR("%B%Batch command %C%tracing %B%mode is now %C%OFF%D%")
  CALL PRNTCLR("%G%Execution will take some time, please wait...%D%")
  CALL PRNTCLR("Reading source file(s)...")

  COLOR 7,0  ' Gray
  PRINT
  PRINT "Execution completed - hit [Enter] to continue..."