// FONT.PRG
// Example of how to use fonts on Create Control Editbox
// and Create Button.

sVar1 = space(2000)
sVar1 = 'This is a test of the emergency broadcasting system.  This is only a test.  The quick brown fox jumped over the lazy dog.'

set font 4 to 'Courier New', 36, 'B'
set font 5 to 'Arial', 10, 'NI'
set font 6 to 'WingDings', 24, 'N'
set font 7 to 'Times New Roman', 12, 'N'

create control editbox 'Edit01' at 0,0 save to sVar1 size 21,53 font 5

create button '(' at 0,55 size 2,10 font 6
create button '<' at 3,55 size 2,10 font 6
create button chr(253) at 6,55 size 2,10 font 6
create button chr(254) at 9,55 size 2,10 font 6
create button '"' at 12,55 size 2,10 font 6
create button 'B' at 15,55 size 2,10 font 6

create button 'Print' at 19,56 font 7

@ 22,0 say "Press ESC to exit." font 4

do while lastkey() <> 27
	myevent = -1
	do while myevent = -1
		myevent = chkevent()
	enddo
enddo
