'=========================================================================== ' Subject: ABC COLOR SCHEMES Date: 02-25-96 (11:00) ' Author: The ABC Programmer Code: QB, QBasic, PDS ' Origin: The ABC Reader v1.00 Packet: ABC.ABC '=========================================================================== ' ABCREAD.CFG Color Scheme Default Edit ' ' Color Table (Colors 0-15) ' ' 0 = Black 8 = DarkGrey ' 1 = Blue 9 = Blue ' 2 = Green 10 = LightGreen ' 3 = Cyan 11 = LightCyan ' 4 = Red 12 = LightRed ' 5 = Purple 13 = Magenta ' 6 = Brown 14 = Yellow ' 7 = Grey 15 = White ' ' Remember, background colour ranges from 0 - 7 ' ' This will ONLY modify the default color settings ' All other color schemes will be left untouched. OPEN "ABCREAD.CFG" FOR BINARY AS #1 ' Make sure you define the path ' to where this file resides ' The following will modify your default color scheme ' Here is the RED Color Scheme HeaderOutLine = 0 ' Header out line 0 - 15 HeaderIndent = 12 ' Header indent colour (to look 3D) HeaderBackGround = 4 ' Background colour 0 - 7 HeaderOutLineChar = 1 ' (À ¿ÄÚ Ù/Í) 1 = Single line 2 = Double HeaderInfo = 11 ' Header information Header = 7 ' From:/Subj:/Orig: TextColor = 15 ' The code and text are coloured this BodyBackGround = 4 ' Background text colour 0 - 7 CommentColor = 7 ' REM's and other comments are coloured this IncludeColor = 14 ' Include colour BodyOutLine = 0 ' The text box out lined this colour BodyIndent = 12 ' Text box indent colour (to look 3D) BodyOutLineChar = 1 ' (À ¿ÄÚ Ù/Í) 1 = Single line 2 = Double StatusColor = 7 ' Bottom line text are coloured this StatusBColor = 1 ' Bottom line background colour StatusHighLi = 14 ' The function keys are highlighted with this C$ = CHR$(HeaderOutLine) ' HeaderOutLine PUT #1, 90, C$ ' We must start at file position 90 C$ = CHR$(HeaderBackGround) ' HeaderBackGround PUT #1, , C$ C$ = CHR$(HeaderOutLineChar) ' HeaderOutLineChar (À ¿ÄÚ Ù/Í) PUT #1, , C$ ' 1 = Single line, 2 = Double lines C$ = CHR$(HeaderInfo) ' HeaderInfo PUT #1, , C$ C$ = CHR$(Header) ' Header PUT #1, , C$ C$ = CHR$(CommentColor) ' CommentColor PUT #1, , C$ C$ = CHR$(TextColor) ' TextColor PUT #1, , C$ C$ = CHR$(HeaderIndent) ' HeaderIndent PUT #1, , C$ C$ = CHR$(StatusColor) ' StatusColor PUT #1, , C$ C$ = CHR$(StatusBColor) ' StatusBColor PUT #1, , C$ C$ = CHR$(StatusHighLi) ' StatusHighLi PUT #1, , C$ C$ = CHR$(BodyOutLine) ' BodyOutLine PUT #1, , C$ C$ = CHR$(BodyBackGround) ' BodyBackGround PUT #1, , C$ C$ = CHR$(BodyOutLineChar) ' BodyOutLineChar PUT #1, , C$ ' 1 = Single line, 2 = Double lines C$ = CHR$(BodyIndent) ' BodyIndent PUT #1, , C$ C$ = CHR$(IncludeColor) ' IncludeColor PUT #1, , C$ CLOSE #1