[Coco] Font Selection in Basic09

L. Curtis Boyle curtisboyle at sasktel.net
Sat Jul 27 15:21:03 EDT 2019


You can use:
PRINT CHR$($1b);CHR$($3a);CHR$($c8);CHR$(2);

Or, you can use the byte array that I mentioned earlier concerning palettes:

DIM Font(4):BYTE
font(1)=$1b
font(2)=$3a
font(3)=$c8
font(4)=2
PUT #1,font

(the latter, you can just change font(4) and redo the PUT to change the font.

L. Curtis Boyle
curtisboyle at sasktel.net



> On Jul 27, 2019, at 1:12 PM, coco at jechar.ca wrote:
> 
> All
> 
> I have a Basic09 program where I am switching between 40 column and 53 column
> fonts in a type 8 window.
> 
> I use SHELL "display display 1b 3a c8 2"  to switch to 53 column font and
> SHELL "display display 1b 3a c8 1" to switch back to 40 column font.
> 
> Using the shell command is a lot of overhead do you know of a more efficient
> way to switch between the standard 8x8 and 6x8 fonts in Basic09.
> 
> Charlie
> 
> -- 
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
> 



More information about the Coco mailing list