1; 2; Ullrich von Bassewitz, 06.08.1998 3; 4; unsigned char __fastcall__ textcolor (unsigned char color); 5; unsigned char __fastcall__ bgcolor (unsigned char color); 6; unsigned char __fastcall__ bordercolor (unsigned char color); 7; 8 9 .export _textcolor, _bgcolor, _bordercolor 10 11 .include "plus4.inc" 12 13_textcolor: 14 ldx CHARCOLOR ; get old value 15 sta CHARCOLOR ; set new value 16 txa 17 rts 18 19 20_bgcolor: 21 ldx TED_BGCOLOR ; get old value 22 sta TED_BGCOLOR ; set new value 23 txa 24 rts 25 26 27_bordercolor: 28 ldx TED_BORDERCOLOR ; get old value 29 sta TED_BORDERCOLOR ; set new value 30 txa 31 rts 32 33 34