HIRESCOL                 Set 640x200 Graphics Color                  pp 164

 Syntax:  HiResColor (Color) ;

 Type:    Integer

 Form:    Graphics Procedure

 Purpose: Set 640x200 graphics screen foreground to Color.

 Colors:  0: Black        4: Red           8: DarkGray      12: LightRed
          1: Blue         5: Magenta       9: LightBlue     13: LightMagenta
          2: Green        6: Brown        10: LightGreen    14: Yellow
          3: Cyan         7: LightGray    11: LightCyan     15: White


 ----------------------------------------------------------------------------



 Usage:
       BEGIN
          HiRes          ;
          HiResColor (1) ;
       END.