// COLOR.VDM - Select color scheme for VEDIT. (Used by Installation) // Implements {USER, Color scheme}. // // Originally by: Greenview Data, Inc. (GDI) // Enchanced by: Pauli Lindgren and Christian Ziemski. // Last change: 20-Apr-2004 // // Requires: VEDIT 6.11 or later. // // Usage: Select {USER, Color scheme} in the default {USER} menu. // // OR: Select {MISC, More macros, COLOR}. // // if (OS_Type>1) { Goto COLOR-DOS } Num_Push(97,99) Reg_Push(80,89) Reg_Push(96,99) // // Check current color scheme for most likely choice // #99 = Config(C_W_TEXT) #97 = 9 if (#99==0) { #97 = 0 } if (#99==112) { #97 = 1 } if (#99==240) { #97 = 2 } if (#99==8) { #97 = 3 } if (#99==15) { #97 = 4 } if (#99==10) { #97 = 5 } if (#99==31) { #97 = 6 } if (#99==30) { #97 = 7 } if (#99==152) { #97 = 8 } #97++ // // Read current "highlight cursor line/column" options // #98 = Config(D_H_CR_LINE) #99 = Config(D_H_CR_COL) // // Set default values for highlight Numeric, Strings and Symbols check-boxes // if (Config(C_W_NUMBER) == Config(C_W_TEXT)) {#100 = 0} else {#100 = 1} if (Config(C_W_STRING) == Config(C_W_TEXT)) {#101 = 0} else {#101 = 1} if (Config(C_W_SYMBOL) == Config(C_W_TEXT)) {#102 = 0} else {#102 = 1} // :WIN_DIALOG: // // Empty registers for focus positioning help // for (#103=0; #103<11;#103++) { Reg_Empty(80+#103) } Reg_Set(80+#97-1,".i") // set the appropriate focus // #103=DI1(97,"`Select Color Scheme`, `Select the color scheme used in VEDIT. You can then fine-tune the colors with {CONFIG, Preferences, Editing colors}. `, `.g.c|@(80)() &0 Default Windows color scheme (not recommended)`, `|@(81)() &1 Black chars on White`, `|@(82)() &2 Black chars on Grey`, `|@(83)() &3 White (grey) chars on Black`, `|@(84)() &4 White (bright) chars on Black`, `|@(85)() &5 Green chars on Black`, `|@(86)() &6 White chars on Blue`, `|@(87)() &7 Yellow chars on Blue`, `|@(88)() &8 White chars on Dark Blue`, `() &9 Custom color scheme (load file Mycolors.set)`, `[]&Highlight cursor line`, `.h[]Highlight cursor &column`, `Syntax Highlight options (when enabled): `, `[]&Numerics`, `.h[]&Strings`, `.h[]S&ymbols`, `or click Save to save current colors scheme in file Mycolors.set.`, `[Sa&ve as Custom ]`,`.b[&Ok]`,`[Cancel]`",APP+CENTER,0,0) if (#103==3 || #103==0) { Goto DONE } //Return if [Cancel] or if (#103==1) { Goto SAVE_CUSTOM } //Save custom color scheme // #103 = #97-1 // color scheme selected // if (#103==0) { //Default Windows // Read current Window background color in Windows // Registry_Get_Item(9,"HKEY_CURRENT_USER\Control Panel\Colors\Window") Config( C_W_TEXT, 0 ) Config( C_W_PROMPT, 31 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 48 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 127 ) Config( C_W_RESERVE_W1,121 ) Config( C_W_RESERVE_W2,113 ) Config( C_W_RESERVE_W3,116 ) Config( C_W_RESERVE_W4,115 ) Config( C_W_SYMBOL, 113 ) Config( C_W_COMMENT, 114 ) Config( C_W_STRING, 117 ) Config( C_W_NUMBER, 113 ) } if (#103==1) { //Black on white Config( C_W_TEXT, 112 ) Config( C_W_PROMPT, 23 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 31 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 48 ) Config( C_W_RESERVE_W1,113 ) Config( C_W_RESERVE_W2,121 ) Config( C_W_RESERVE_W3,116 ) Config( C_W_RESERVE_W4,124 ) Config( C_W_SYMBOL, 113 ) Config( C_W_COMMENT, 114 ) Config( C_W_STRING, 117 ) Config( C_W_NUMBER, 115 ) } if (#103==2) { //Black on grey Config( C_W_TEXT, 240 ) Config( C_W_PROMPT, 23 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 79 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 112 ) Config( C_W_RESERVE_W1,241 ) Config( C_W_RESERVE_W2,249 ) Config( C_W_RESERVE_W3,244 ) Config( C_W_RESERVE_W4,252 ) Config( C_W_SYMBOL, 241 ) Config( C_W_COMMENT, 242 ) Config( C_W_STRING, 245 ) Config( C_W_NUMBER, 243 ) } if (#103==3) { //White (grey) on black Config( C_W_TEXT, 8 ) Config( C_W_PROMPT, 23 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 48 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 159 ) Config( C_W_RESERVE_W1, 11 ) Config( C_W_RESERVE_W2, 12 ) Config( C_W_RESERVE_W3, 13 ) Config( C_W_RESERVE_W4, 14 ) Config( C_W_SYMBOL, 10 ) Config( C_W_COMMENT, 2 ) Config( C_W_STRING, 10 ) Config( C_W_NUMBER, 15 ) } if (#103==4) { //White (bright) on black Config( C_W_TEXT, 15 ) Config( C_W_PROMPT, 31 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 48 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 159 ) Config( C_W_RESERVE_W1, 11 ) Config( C_W_RESERVE_W2, 12 ) Config( C_W_RESERVE_W3, 13 ) Config( C_W_RESERVE_W4, 14 ) Config( C_W_SYMBOL, 10 ) Config( C_W_COMMENT, 2 ) Config( C_W_STRING, 10 ) Config( C_W_NUMBER, 8 ) } if (#103==5) { //Green on black Config( C_W_TEXT, 10 ) Config( C_W_PROMPT, 23 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 96 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 154 ) Config( C_W_RESERVE_W1, 11 ) Config( C_W_RESERVE_W2, 12 ) Config( C_W_RESERVE_W3, 13 ) Config( C_W_RESERVE_W4, 14 ) Config( C_W_SYMBOL, 15 ) Config( C_W_COMMENT, 1 ) Config( C_W_STRING, 9 ) Config( C_W_NUMBER, 15 ) } if (#103==6) { //White on blue Config( C_W_TEXT, 31 ) Config( C_W_PROMPT, 47 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 97 ) Config( CO_W_CURSOR, 0 ) Config( CO_W_LINE, 79 ) Config( C_W_RESERVE_W1, 27 ) Config( C_W_RESERVE_W2, 28 ) Config( C_W_RESERVE_W3, 29 ) Config( C_W_RESERVE_W4, 30 ) Config( C_W_SYMBOL, 30 ) Config( C_W_COMMENT, 26 ) Config( C_W_STRING, 24 ) Config( C_W_NUMBER, 30 ) } if (#103==7) { //Yellow on blue Config( C_W_TEXT, 30 ) Config( C_W_PROMPT, 47 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 97 ) Config( CO_W_CURSOR, 113 ) Config( CO_W_LINE, 79 ) Config( C_W_RESERVE_W1, 27 ) Config( C_W_RESERVE_W2, 28 ) Config( C_W_RESERVE_W3, 29 ) Config( C_W_RESERVE_W4, 31 ) Config( C_W_SYMBOL, 31 ) Config( C_W_COMMENT, 26 ) Config( C_W_STRING, 24 ) Config( C_W_NUMBER, 31 ) } if (#103==8) { //White on dark blue Config( C_W_TEXT, 152 ) Config( C_W_PROMPT, 47 ) Config( C_W_HIGHLIGHT, 124 ) Config( CO_W_ERASE, 0 ) Config( CO_W_BLOCK, 97 ) Config( CO_W_CURSOR, 113 ) Config( CO_W_LINE, 30 ) Config( C_W_RESERVE_W1,155 ) Config( C_W_RESERVE_W2,157 ) Config( C_W_RESERVE_W3,156 ) Config( C_W_RESERVE_W4,158 ) Config( C_W_SYMBOL, 159 ) Config( C_W_COMMENT, 154 ) Config( C_W_STRING, 152 ) Config( C_W_NUMBER, 159 ) } if (#103==11) { //Yellow on dark blue Config( C_W_TEXT, 158) Config( C_W_PROMPT, 47) Config( C_W_HIGHLIGHT, 124) Config( CO_W_ERASE, 0) Config( CO_W_BLOCK, 97) Config( CO_W_CURSOR, 113) Config( CO_W_LINE, 30) Config( C_W_RESERVE_W1,155) Config( C_W_RESERVE_W2,157) Config( C_W_RESERVE_W3,156) Config( C_W_RESERVE_W4,152) Config( C_W_SYMBOL, 159) Config( C_W_COMMENT, 154) Config( C_W_STRING, 152) Config( C_W_NUMBER, 159) } if (#103==9) { //Custom color scheme Reg_Set(96,"Mycolors.set") if (File_Exist("|(USER_MACRO)\*.set")) { #104=Reg_Free Get_Filename(96,"|(USER_MACRO)\*.set",FORCE) if ( Reg_Size(96)==0 ) { Goto WIN_DIALOG } // CZ: perhaps here should be a if (File_Exist(...)) ... // to handle the case if a user types in an notexisting filename Call_File(#104,@(96)) Reg_Empty(#104) } else { #104=DI1(97,"`Error`,`No custom color .SET files were found.`") // Goto DONE // CZ-- Goto WIN_DIALOG // CZ++ IMHO better than just an exit } } // // 'Highlight cursor line' tickbox checked? // if (#98) { Config(D_H_CR_LINE,1) } else { Config(D_H_CR_LINE,0) } // // 'Highlight cursor column' tickbox checked? // if (#99) { Config(D_H_CR_COL,1) } else { Config(D_H_CR_COL,0) } // // 'Highlight Numeric' tickbox not checked? // if (#100 == 0) { Config( C_W_NUMBER, Config(C_W_TEXT) ) } // // 'Highlight Strings' tickbox not checked? // if (#101 == 0) { Config( C_W_STRING, Config(C_W_TEXT) ) } // // 'Highlight Symbols' tickbox not checked? // if (#102 == 0) { Config( C_W_SYMBOL, Config(C_W_TEXT) ) } :ACTIVATE: //Screen_Init(ATTACH) Win_Color(Config(C_W_TEXT)) Win_Clear() :DONE: Reg_Pop(96,99) Reg_Pop(80,89) Num_Pop(97,99) Return // // Save custom color scheme // :SAVE_CUSTOM: Reg_Set(96,"Mycolors.set") Get_Filename(96,"|(USER_MACRO)\*.set",FORCE) if ( Reg_Size(96)==0 ) { Goto WIN_DIALOG } File_Open("|@(96)") Del_Block(0,EOB_pos) IT("Config( C_W_TEXT, ") Num_Ins(Config( C_W_TEXT ),LEFT+NOCR) IT(")") IN IT("Config( C_W_PROMPT, ") Num_Ins(Config( C_W_PROMPT ), LEFT+NOCR) IT(")") IN IT("Config( C_W_HIGHLIGHT, ") Num_Ins(Config( C_W_HIGHLIGHT ), LEFT+NOCR) IT(")") IN IT("Config( CO_W_ERASE, ") Num_Ins(Config( CO_W_ERASE ), LEFT+NOCR) IT(")") IN IT("Config( CO_W_BLOCK, ") Num_Ins(Config( CO_W_BLOCK ), LEFT+NOCR) IT(")") IN IT("Config( CO_W_CURSOR, ") Num_Ins(Config( CO_W_CURSOR ), LEFT+NOCR) IT(")") IN IT("Config( CO_W_LINE, ") Num_Ins(Config( CO_W_LINE ), LEFT+NOCR) IT(")") IN IT("Config( C_W_RESERVE_W1,") Num_Ins(Config( C_W_RESERVE_W1), LEFT+NOCR) IT(")") IN IT("Config( C_W_RESERVE_W2,") Num_Ins(Config( C_W_RESERVE_W2), LEFT+NOCR) IT(")") IN IT("Config( C_W_RESERVE_W3,") Num_Ins(Config( C_W_RESERVE_W3), LEFT+NOCR) IT(")") IN IT("Config( C_W_RESERVE_W4,") Num_Ins(Config( C_W_RESERVE_W4), LEFT+NOCR) IT(")") IN IT("Config( C_W_SYMBOL, ") Num_Ins(Config( C_W_SYMBOL ), LEFT+NOCR) IT(")") IN IT("Config( C_W_COMMENT, ") Num_Ins(Config( C_W_COMMENT ), LEFT+NOCR) IT(")") IN IT("Config( C_W_STRING, ") Num_Ins(Config( C_W_STRING ), LEFT+NOCR) IT(")") IN IT("Config( C_W_NUMBER, ") Num_Ins(Config( C_W_NUMBER ), LEFT+NOCR) IT(")") IN Buf_Close(NOMSG) Goto DONE // // DOS version // :COLOR-DOS: Win_Clear() Message(` ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º Select the initial color scheme used inside VEDIT. You can then fine- º º tune the colors with the {CONFIG, Colors} sub-menu. Note: "7" uses º º white characters on blue with the current line highlighted bright. º º º º Text color Menu colors º º º º [1] White characters on Black White on Red º º [2] Green characters on Black White on Red º º [3] Black characters on White White on Red º º [4] White characters on Blue White on Red º º [5] White characters on Blue Black on white º º [6] White characters on Blue Black on light Blue º º [7] Bright White chars on Blue Black on white, Red bar º º [8] Bright White chars on Blue Black on light Blue, Red bar º º [9] Bright Yellow chars on Blue Black on light Blue, Red bar º ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ º Select the color scheme (Recommend: 7 or 9) [1 - 9] º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ`) Win_Vert(19) Win_Hor(56) while( (#103=Get_Key(""))<'1' || #103>'9' ){ Alert() } //Get valid reply if (#103=='1') { Config( C_TEXT, 7 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 3 ) Config( C_WIN_B_M, 48 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 23 ) Config( C_MENU, 71 ) Config( C_MENU_S, 79 ) Config( C_MENU_H, 116 ) Config( C_MENU_I, 64 ) Config( C_PROMPT, 23 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 64 ) Config( CO_BLOCK, 0 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1, 11 ) Config( C_RESERVE_W2, 12 ) Config( C_RESERVE_W3, 13 ) Config( C_RESERVE_W4, 14 ) Config( C_SYMBOL, 15 ) Config( C_COMMENT, 2 ) Config( C_STRING, 10 ) Config( C_NUMBER, 15 ) } if (#103=='2') { Config( C_TEXT, 2 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 3 ) Config( C_WIN_B_M, 48 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 23 ) Config( C_MENU, 71 ) Config( C_MENU_S, 79 ) Config( C_MENU_H, 116 ) Config( C_MENU_I, 64 ) Config( C_PROMPT, 23 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 64 ) Config( CO_BLOCK, 0 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1, 11 ) Config( C_RESERVE_W2, 12 ) Config( C_RESERVE_W3, 13 ) Config( C_RESERVE_W4, 14 ) Config( C_SYMBOL, 15 ) Config( C_COMMENT, 1 ) Config( C_STRING, 9 ) Config( C_NUMBER, 15 ) } if (#103=='3') { Config( C_TEXT, 112 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 3 ) Config( C_WIN_B_M, 48 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 23 ) Config( C_MENU, 71 ) Config( C_MENU_S, 79 ) Config( C_MENU_H, 116 ) Config( C_MENU_I, 64 ) Config( C_PROMPT, 23 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 64 ) Config( CO_BLOCK, 23 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1,123 ) Config( C_RESERVE_W2,124 ) Config( C_RESERVE_W3,113 ) Config( C_RESERVE_W4,116 ) Config( C_SYMBOL, 126 ) Config( C_COMMENT, 114 ) Config( C_STRING, 122 ) Config( C_NUMBER, 126 ) } if (#103=='4') { Config( C_TEXT, 23 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 48 ) Config( C_WIN_B_M, 63 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 23 ) Config( C_MENU, 71 ) Config( C_MENU_S, 79 ) Config( C_MENU_H, 116 ) Config( C_MENU_I, 64 ) Config( C_PROMPT, 48 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 64 ) Config( CO_BLOCK, 0 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1, 27 ) Config( C_RESERVE_W2, 28 ) Config( C_RESERVE_W3, 29 ) Config( C_RESERVE_W4, 30 ) Config( C_SYMBOL, 23 ) Config( C_COMMENT, 18 ) Config( C_STRING, 26 ) Config( C_NUMBER, 23 ) } if (#103=='5') { Config( C_TEXT, 23 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 23 ) Config( C_WIN_B_M, 112 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 7 ) Config( C_MENU, 112 ) Config( C_MENU_S, 127 ) Config( C_MENU_H, 7 ) Config( C_MENU_I, 112 ) Config( C_PROMPT, 48 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 0 ) Config( CO_ACT_BUT, 23 ) Config( CO_BLOCK, 0 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1, 27 ) Config( C_RESERVE_W2, 28 ) Config( C_RESERVE_W3, 29 ) Config( C_RESERVE_W4, 30 ) Config( C_SYMBOL, 23 ) Config( C_COMMENT, 18 ) Config( C_STRING, 26 ) Config( C_NUMBER, 23 ) } if (#103=='6') { Config( C_TEXT, 23 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 48 ) Config( C_WIN_B_M, 63 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 48 ) Config( C_MENU, 48 ) Config( C_MENU_S, 62 ) Config( C_MENU_H, 3 ) Config( C_MENU_I, 56 ) Config( C_PROMPT, 62 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 0 ) Config( CO_ACT_BUT, 71 ) Config( CO_BLOCK, 0 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1, 27 ) Config( C_RESERVE_W2, 28 ) Config( C_RESERVE_W3, 29 ) Config( C_RESERVE_W4, 30 ) Config( C_SYMBOL, 23 ) Config( C_COMMENT, 18 ) Config( C_STRING, 26 ) Config( C_NUMBER, 23 ) } if (#103=='7') { Config( C_TEXT, 23 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 48 ) Config( C_WIN_B_M, 63 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 126 ) Config( C_BAR_H, 71 ) Config( C_MENU, 112 ) Config( C_MENU_S, 126 ) Config( C_MENU_H, 71 ) Config( C_MENU_I, 112 ) Config( C_PROMPT, 47 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 71 ) Config( CO_BLOCK, 47 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 0 ) Config( C_RESERVE_W1, 27 ) Config( C_RESERVE_W2, 28 ) Config( C_RESERVE_W3, 29 ) Config( C_RESERVE_W4, 30 ) Config( C_SYMBOL, 23 ) Config( C_COMMENT, 18 ) Config( C_STRING, 26 ) Config( C_NUMBER, 23 ) Config( D_H_CR_LINE,1) } if (#103=='8') { Config( C_TEXT, 31 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 48 ) Config( C_WIN_B_M, 63 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 78 ) Config( C_MENU, 48 ) Config( C_MENU_S, 62 ) Config( C_MENU_H, 78 ) Config( C_MENU_I, 56 ) Config( C_PROMPT, 47 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 71 ) Config( CO_BLOCK, 47 ) Config( CO_CURSOR, 0 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 78 ) Config( C_RESERVE_W1, 27 ) Config( C_RESERVE_W2, 28 ) Config( C_RESERVE_W3, 29 ) Config( C_RESERVE_W4, 30 ) Config( C_SYMBOL, 23 ) Config( C_COMMENT, 18 ) Config( C_STRING, 26 ) Config( C_NUMBER, 23 ) } if (#103=='9') { Config( C_TEXT, 30 ) Config( C_STAT, 112 ) Config( C_STAT_M, 112 ) Config( C_WIN_B, 48 ) Config( C_WIN_B_M, 63 ) Config( C_EMPTY, 113 ) Config( C_BAR, 112 ) Config( C_BAR_S, 127 ) Config( C_BAR_H, 78 ) Config( C_MENU, 48 ) Config( C_MENU_S, 62 ) Config( C_MENU_H, 78 ) Config( C_MENU_I, 56 ) Config( C_PROMPT, 47 ) Config( CO_DIALOG, 0 ) Config( CO_DIALOG_S, 0 ) Config( CO_DLG_BUT, 48 ) Config( CO_ACT_BUT, 78 ) Config( CO_BLOCK, 46 ) Config( CO_CURSOR, 113 ) Config( CO_ERASE, 0 ) Config( CO_HELP, 0 ) Config( CO_LINE, 78 ) Config( C_RESERVE_W1, 27 ) Config( C_RESERVE_W2, 28 ) Config( C_RESERVE_W3, 29 ) Config( C_RESERVE_W4, 31 ) Config( C_SYMBOL, 23 ) Config( C_COMMENT, 18 ) Config( C_STRING, 26 ) Config( C_NUMBER, 23 ) } Screen_Init(ATTACH) Return()