SUBROUTINE WINCOLR ( )

Description
WINcolr.for
Source file:wincolr.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               17         SEQ  FMTD         OR   
               17         SEQ          A         
               17                         C      
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
INTEGER            LCOUNT
Local Variables (+ indicates altered content)
CHARACTER         +SKIP
INTEGER           +I,         +NCH_RUN
Referenced Common Block Variables (+ indicates altered content)
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY
WIN_COL            CHARACTER*20      +CITIES_COLORS(7)
WIN_COL            CHARACTER*10      +COLORS(20)
WIN_COL            CHARACTER*20      +CONTOURS_COLORS(8)
WIN_COL            CHARACTER*6       +DOS_CITIES(7)
WIN_COL            CHARACTER*6       +DOS_COLORS(20)
WIN_COL            CHARACTER*6       +DOS_CONTOURS(8)
WIN_COL            INTEGER           +NCITIES_COLORS
WIN_COL            INTEGER           +NCOLORS,  +NCONTOURS_COLORS