;Here are some very small fonts with character height of 5 pixels and 
; maximum character width of 3 pixels.
;There are two proportional fonts and one monospaced font.

TO init
  MAKE glcd GraphicsLCD(1,240,128) ; ** Change this to your display.
  w := glcd.Window(0  0 240 128 0) ; You can change this if you like.
  glcd.FontData(10) := smlfnt.Address 
  glcd.FontData(11) := monosml.Address 
  glcd.FontData(12) := small2.Address 
END  

; Print out the same string in all four new user fonts.
TO main
  LOCAL str := "The quick brown fox jumps over the lazy dog."
  
  START EVERY 100 glcd.Update   ;Update the GLCD in the background.
  
  PRINT TO w, FONT 10, str, CR
  PRINT TO w, "1234567890",CR
  PRINT TO W,  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  , CR
  PRINT TO W,  "abcdefghijklmnopqrstuvwxyz"  , CR
  
  PRINT TO w, CR, CR
  
  PRINT TO w, FONT 11, str, CR
  PRINT TO w, "1234567890",CR
  PRINT TO W,  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  , CR
  PRINT TO W,  "abcdefghijklmnopqrstuvwxyz"  , CR

  PRINT TO w, CR, CR
  
  PRINT TO w, FONT 12, str, CR
  PRINT TO w, "1234567890",CR
  PRINT TO W,  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  , CR
  PRINT TO W,  "abcdefghijklmnopqrstuvwxyz"  , CR
END

Array smlfnt (8, 856)
3 0 5 '!' '~' 5 1 1 1 0
$01, $00, $01, $82; !
$03, $00, $01, $87; "
$03, $00, $01, $8C; #
$03, $00, $01, $91; $
$03, $00, $01, $96; %
$03, $00, $01, $9B; &
$01, $00, $01, $A0; '
$02, $00, $01, $A5; (
$03, $00, $01, $AA; )
$03, $00, $01, $AF; *
$03, $00, $01, $B4; +
$02, $00, $01, $B9; ,
$03, $00, $01, $BE; -
$01, $00, $01, $C3; .
$03, $00, $01, $C8; /
$03, $00, $01, $CD; 0
$03, $00, $01, $D2; 1
$03, $00, $01, $D7; 2
$03, $00, $01, $DC; 3
$03, $00, $01, $E1; 4
$03, $00, $01, $E6; 5
$03, $00, $01, $EB; 6
$03, $00, $01, $F0; 7
$03, $00, $01, $F5; 8
$03, $00, $01, $FA; 9
$01, $00, $01, $FF; :
$02, $00, $02, $04; ;
$03, $00, $02, $09; <
$03, $00, $02, $0E; =
$03, $00, $02, $13; >
$05, $00, $02, $18; ?
$03, $00, $02, $1D; @
$03, $00, $02, $22; A
$03, $00, $02, $27; B
$03, $00, $02, $2C; C
$03, $00, $02, $31; D
$03, $00, $02, $36; E
$03, $00, $02, $3B; F
$03, $00, $02, $40; G
$03, $00, $02, $45; H
$01, $00, $02, $4A; I
$03, $00, $02, $4F; J
$03, $00, $02, $54; K
$03, $00, $02, $59; L
$03, $00, $02, $5E; M
$03, $00, $02, $63; N
$03, $00, $02, $68; O
$03, $00, $02, $6D; P
$03, $00, $02, $72; Q
$03, $00, $02, $77; R
$03, $00, $02, $7C; S
$03, $00, $02, $81; T
$03, $00, $02, $86; U
$03, $00, $02, $8B; V
$03, $00, $02, $90; W
$03, $00, $02, $95; X
$03, $00, $02, $9A; Y
$03, $00, $02, $9F; Z
$02, $00, $02, $A4; [
$03, $00, $02, $A9; \
$02, $00, $02, $AE; ]
$03, $00, $02, $B3; ^
$03, $00, $02, $B8; _
$02, $00, $02, $BD; `
$03, $00, $02, $C2; a
$03, $00, $02, $C7; b
$03, $00, $02, $CC; c
$03, $00, $02, $D1; d
$03, $00, $02, $D6; e
$02, $00, $02, $DB; f
$03, $00, $02, $E0; g
$03, $00, $02, $E5; h
$01, $00, $02, $EA; i
$02, $00, $02, $EF; j
$03, $00, $02, $F4; k
$01, $00, $02, $F9; l
$03, $00, $02, $FE; m
$03, $00, $03, $03; n
$03, $00, $03, $08; o
$03, $00, $03, $0D; p
$03, $00, $03, $12; q
$02, $00, $03, $17; r
$03, $00, $03, $1C; s
$02, $00, $03, $21; t
$03, $00, $03, $26; u
$03, $00, $03, $2B; v
$03, $00, $03, $30; w
$03, $00, $03, $35; x
$03, $00, $03, $3A; y
$03, $00, $03, $3F; z
$03, $00, $03, $44; {
$01, $00, $03, $49; |
$03, $00, $03, $4E; }
$03, $00, $03, $53; ~
 $80 $80 $80 $00 $80; !
 $A0 $A0 $00 $00 $00; "
 $A0 $E0 $A0 $E0 $A0; #
 $40 $E0 $E0 $E0 $40; $
 $80 $20 $40 $80 $20; %
 $40 $C0 $60 $E0 $40; &
 $80 $80 $00 $00 $00; '
 $40 $80 $80 $80 $40; (
 $80 $40 $40 $40 $80; )
 $A0 $40 $A0 $00 $00; *
 $00 $40 $E0 $40 $00; +
 $00 $00 $00 $40 $80; ,
 $00 $00 $E0 $00 $00; -
 $00 $00 $00 $00 $80; .
 $00 $20 $40 $80 $00; /
 $E0 $A0 $A0 $A0 $E0; 0
 $40 $C0 $40 $40 $E0; 1
 $E0 $A0 $20 $40 $E0; 2
 $E0 $20 $40 $20 $E0; 3
 $80 $C0 $E0 $40 $40; 4
 $E0 $80 $E0 $20 $C0; 5
 $60 $80 $E0 $A0 $E0; 6
 $E0 $20 $40 $80 $80; 7
 $E0 $A0 $E0 $A0 $E0; 8
 $E0 $A0 $E0 $20 $C0; 9
 $00 $80 $00 $80 $00; :
 $00 $40 $00 $40 $80; ;
 $20 $40 $80 $40 $20; <
 $00 $E0 $00 $E0 $00; =
 $80 $40 $20 $40 $80; >
 $40 $A0 $20 $40 $40; ?
 $E0 $A0 $E0 $80 $E0; @
 $40 $A0 $E0 $A0 $A0; A
 $C0 $A0 $C0 $A0 $C0; B
 $60 $80 $80 $80 $60; C
 $C0 $A0 $A0 $A0 $C0; D
 $E0 $80 $C0 $80 $E0; E
 $E0 $80 $C0 $80 $80; F
 $E0 $A0 $80 $E0 $E0; G
 $A0 $A0 $E0 $A0 $A0; H
 $80 $80 $80 $80 $80; I
 $E0 $40 $40 $40 $80; J
 $A0 $C0 $80 $C0 $A0; K
 $80 $80 $80 $80 $E0; L
 $A0 $E0 $E0 $A0 $A0; M
 $A0 $E0 $E0 $E0 $A0; N
 $E0 $A0 $A0 $A0 $E0; O
 $E0 $A0 $E0 $80 $80; P
 $E0 $A0 $A0 $C0 $20; Q
 $E0 $A0 $C0 $A0 $A0; R
 $E0 $80 $E0 $20 $E0; S
 $E0 $40 $40 $40 $40; T
 $A0 $A0 $A0 $A0 $E0; U
 $A0 $A0 $A0 $A0 $40; V
 $A0 $A0 $E0 $E0 $E0; W
 $A0 $E0 $40 $E0 $A0; X
 $A0 $A0 $E0 $40 $40; Y
 $E0 $20 $40 $80 $E0; Z
 $C0 $80 $80 $80 $C0; [
 $00 $80 $40 $20 $00; \
 $C0 $40 $40 $40 $C0; ]
 $40 $A0 $00 $00 $00; ^
 $00 $00 $00 $00 $E0; _
 $80 $40 $00 $00 $00; `
 $00 $00 $40 $A0 $60; a
 $80 $80 $C0 $A0 $C0; b
 $00 $00 $60 $80 $60; c
 $20 $20 $60 $A0 $60; d
 $00 $00 $E0 $E0 $C0; e
 $40 $80 $C0 $80 $80; f
 $00 $E0 $A0 $60 $E0; g
 $80 $80 $C0 $A0 $A0; h
 $80 $00 $80 $80 $80; i
 $40 $00 $40 $40 $80; j
 $80 $80 $A0 $C0 $A0; k
 $80 $80 $80 $80 $80; l
 $00 $00 $A0 $E0 $E0; m
 $00 $00 $C0 $A0 $A0; n
 $00 $00 $E0 $A0 $E0; o
 $00 $C0 $A0 $C0 $80; p
 $00 $60 $A0 $60 $20; q
 $00 $00 $40 $80 $80; r
 $00 $E0 $80 $60 $E0; s
 $00 $80 $C0 $80 $C0; t
 $00 $00 $A0 $A0 $E0; u
 $00 $00 $A0 $A0 $40; v
 $00 $00 $A0 $E0 $E0; w
 $00 $00 $A0 $40 $A0; x
 $00 $A0 $E0 $20 $C0; y
 $00 $E0 $20 $C0 $E0; z
 $20 $40 $C0 $40 $20; {
 $80 $80 $80 $80 $80; |
 $20 $40 $C0 $40 $20; }
 $00 $20 $E0 $80 $00; ~
END

Array monosml (8, 480)
0 3 5 '!' '~' 5 1 4 1 0
 $40 $40 $40 $00 $40; !
 $A0 $A0 $00 $00 $00; "
 $A0 $E0 $A0 $E0 $A0; #
 $40 $E0 $E0 $E0 $40; $
 $80 $20 $40 $80 $20; %
 $40 $C0 $60 $E0 $40; &
 $40 $40 $00 $00 $00; '
 $20 $40 $40 $40 $20; (
 $80 $40 $40 $40 $80; )
 $A0 $40 $A0 $00 $00; *
 $00 $40 $E0 $40 $00; +
 $00 $00 $00 $40 $80; ,
 $00 $00 $E0 $00 $00; -
 $00 $00 $00 $00 $40; .
 $00 $20 $40 $80 $00; /
 $E0 $A0 $A0 $A0 $E0; 0
 $40 $C0 $40 $40 $E0; 1
 $E0 $A0 $20 $40 $E0; 2
 $E0 $20 $40 $20 $E0; 3
 $80 $C0 $E0 $40 $40; 4
 $E0 $80 $E0 $20 $C0; 5
 $60 $80 $E0 $A0 $E0; 6
 $E0 $20 $40 $80 $80; 7
 $E0 $A0 $E0 $A0 $E0; 8
 $E0 $A0 $E0 $20 $C0; 9
 $00 $40 $00 $40 $00; :
 $00 $40 $00 $40 $80; ;
 $20 $40 $80 $40 $20; <
 $00 $E0 $00 $E0 $00; =
 $80 $40 $20 $40 $80; >
 $40 $A0 $20 $40 $40; ?
 $E0 $A0 $E0 $80 $E0; @
 $40 $A0 $E0 $A0 $A0; A
 $C0 $A0 $C0 $A0 $C0; B
 $60 $80 $80 $80 $60; C
 $C0 $A0 $A0 $A0 $C0; D
 $E0 $80 $E0 $80 $E0; E
 $E0 $80 $E0 $80 $80; F
 $E0 $A0 $80 $E0 $E0; G
 $A0 $A0 $E0 $A0 $A0; H
 $E0 $40 $40 $40 $E0; I
 $E0 $40 $40 $40 $80; J
 $A0 $C0 $80 $C0 $A0; K
 $80 $80 $80 $80 $E0; L
 $A0 $E0 $E0 $A0 $A0; M
 $A0 $E0 $E0 $E0 $A0; N
 $E0 $A0 $A0 $A0 $E0; O
 $E0 $A0 $E0 $80 $80; P
 $E0 $A0 $A0 $C0 $20; Q
 $E0 $A0 $C0 $A0 $A0; R
 $E0 $80 $E0 $20 $E0; S
 $E0 $40 $40 $40 $40; T
 $A0 $A0 $A0 $A0 $E0; U
 $A0 $A0 $A0 $A0 $40; V
 $A0 $A0 $E0 $E0 $E0; W
 $A0 $E0 $40 $E0 $A0; X
 $A0 $A0 $E0 $40 $40; Y
 $E0 $20 $40 $80 $E0; Z
 $60 $40 $40 $40 $60; [
 $00 $80 $40 $20 $00; \
 $C0 $40 $40 $40 $C0; ]
 $40 $A0 $00 $00 $00; ^
 $00 $00 $00 $00 $E0; _
 $80 $40 $00 $00 $00; `
 $00 $00 $40 $A0 $60; a
 $80 $80 $C0 $A0 $C0; b
 $00 $00 $60 $80 $60; c
 $20 $20 $60 $A0 $60; d
 $00 $00 $E0 $E0 $C0; e
 $40 $80 $C0 $80 $80; f
 $00 $E0 $A0 $60 $E0; g
 $80 $80 $C0 $A0 $A0; h
 $40 $00 $C0 $40 $E0; i
 $20 $00 $20 $A0 $40; j
 $80 $80 $A0 $C0 $A0; k
 $C0 $40 $40 $40 $E0; l
 $00 $00 $A0 $E0 $E0; m
 $00 $00 $C0 $A0 $A0; n
 $00 $00 $E0 $A0 $E0; o
 $00 $C0 $A0 $C0 $80; p
 $00 $60 $A0 $60 $20; q
 $00 $00 $60 $80 $80; r
 $00 $E0 $80 $60 $E0; s
 $80 $E0 $80 $80 $60; t
 $00 $00 $A0 $A0 $E0; u
 $00 $00 $A0 $A0 $40; v
 $00 $00 $A0 $E0 $E0; w
 $00 $00 $A0 $40 $A0; x
 $00 $A0 $E0 $20 $C0; y
 $00 $E0 $20 $C0 $E0; z
 $20 $40 $C0 $40 $20; {
 $40 $40 $40 $40 $40; |
 $20 $40 $C0 $40 $20; }
 $00 $20 $E0 $80 $00; ~
END

Array small2 (8, 856)
3 0 5 '!' '~' 5 1 1 1 0
$01, $00, $01, $82; !
$03, $00, $01, $87; "
$03, $00, $01, $8C; #
$03, $00, $01, $91; $
$03, $00, $01, $96; %
$03, $00, $01, $9B; &
$01, $00, $01, $A0; '
$02, $00, $01, $A5; (
$02, $00, $01, $AA; )
$03, $00, $01, $AF; *
$03, $00, $01, $B4; +
$02, $00, $01, $B9; ,
$03, $00, $01, $BE; -
$01, $00, $01, $C3; .
$03, $00, $01, $C8; /
$03, $00, $01, $CD; 0
$03, $00, $01, $D2; 1
$03, $00, $01, $D7; 2
$03, $00, $01, $DC; 3
$03, $00, $01, $E1; 4
$03, $00, $01, $E6; 5
$03, $00, $01, $EB; 6
$03, $00, $01, $F0; 7
$03, $00, $01, $F5; 8
$03, $00, $01, $FA; 9
$01, $00, $01, $FF; :
$02, $00, $02, $04; ;
$03, $00, $02, $09; <
$03, $00, $02, $0E; =
$03, $00, $02, $13; >
$03, $00, $02, $18; ?
$03, $00, $02, $1D; @
$03, $00, $02, $22; A
$03, $00, $02, $27; B
$03, $00, $02, $2C; C
$03, $00, $02, $31; D
$03, $00, $02, $36; E
$03, $00, $02, $3B; F
$03, $00, $02, $40; G
$03, $00, $02, $45; H
$01, $00, $02, $4A; I
$03, $00, $02, $4F; J
$03, $00, $02, $54; K
$03, $00, $02, $59; L
$03, $00, $02, $5E; M
$03, $00, $02, $63; N
$03, $00, $02, $68; O
$03, $00, $02, $6D; P
$03, $00, $02, $72; Q
$03, $00, $02, $77; R
$03, $00, $02, $7C; S
$03, $00, $02, $81; T
$03, $00, $02, $86; U
$03, $00, $02, $8B; V
$03, $00, $02, $90; W
$03, $00, $02, $95; X
$03, $00, $02, $9A; Y
$03, $00, $02, $9F; Z
$02, $00, $02, $A4; [
$03, $00, $02, $A9; \
$02, $00, $02, $AE; ]
$03, $00, $02, $B3; ^
$03, $00, $02, $B8; _
$02, $00, $02, $BD; `
$03, $00, $02, $C2; a
$03, $00, $02, $C7; b
$03, $00, $02, $CC; c
$03, $00, $02, $D1; d
$03, $00, $02, $D6; e
$02, $00, $02, $DB; f
$03, $00, $02, $E0; g
$03, $00, $02, $E5; h
$01, $00, $02, $EA; i
$02, $00, $02, $EF; j
$03, $00, $02, $F4; k
$01, $00, $02, $F9; l
$03, $00, $02, $FE; m
$03, $00, $03, $03; n
$03, $00, $03, $08; o
$03, $00, $03, $0D; p
$03, $00, $03, $12; q
$02, $00, $03, $17; r
$03, $00, $03, $1C; s
$02, $00, $03, $21; t
$03, $00, $03, $26; u
$03, $00, $03, $2B; v
$03, $00, $03, $30; w
$03, $00, $03, $35; x
$03, $00, $03, $3A; y
$03, $00, $03, $3F; z
$03, $00, $03, $44; {
$01, $00, $03, $49; |
$03, $00, $03, $4E; }
$03, $00, $03, $53; ~
 $80 $80 $80 $00 $80; !
 $A0 $A0 $00 $00 $00; "
 $A0 $E0 $A0 $E0 $A0; #
 $40 $E0 $E0 $E0 $40; $
 $80 $20 $40 $80 $20; %
 $40 $C0 $60 $E0 $40; &
 $80 $80 $00 $00 $00; '
 $40 $80 $80 $80 $40; (
 $80 $40 $40 $40 $80; )
 $A0 $40 $A0 $00 $00; *
 $00 $40 $E0 $40 $00; +
 $00 $00 $00 $40 $80; ,
 $00 $00 $E0 $00 $00; -
 $00 $00 $00 $00 $80; .
 $00 $20 $40 $80 $00; /
 $E0 $A0 $A0 $A0 $E0; 0
 $40 $C0 $40 $40 $E0; 1
 $E0 $A0 $20 $40 $E0; 2
 $E0 $20 $40 $20 $E0; 3
 $80 $C0 $E0 $40 $40; 4
 $E0 $80 $E0 $20 $C0; 5
 $60 $80 $E0 $A0 $E0; 6
 $E0 $20 $40 $80 $80; 7
 $E0 $A0 $E0 $A0 $E0; 8
 $E0 $A0 $E0 $20 $C0; 9
 $00 $80 $00 $80 $00; :
 $00 $40 $00 $40 $80; ;
 $20 $40 $80 $40 $20; <
 $00 $E0 $00 $E0 $00; =
 $80 $40 $20 $40 $80; >
 $40 $A0 $20 $40 $40; ?
 $E0 $A0 $E0 $80 $E0; @
 $40 $A0 $E0 $A0 $A0; A
 $C0 $A0 $C0 $A0 $C0; B
 $60 $80 $80 $80 $60; C
 $C0 $A0 $A0 $A0 $C0; D
 $E0 $80 $E0 $80 $E0; E
 $E0 $80 $E0 $80 $80; F
 $E0 $A0 $80 $E0 $E0; G
 $A0 $A0 $E0 $A0 $A0; H
 $80 $80 $80 $80 $80; I
 $E0 $40 $40 $40 $80; J
 $A0 $C0 $80 $C0 $A0; K
 $80 $80 $80 $80 $E0; L
 $A0 $E0 $E0 $A0 $A0; M
 $A0 $E0 $E0 $E0 $A0; N
 $E0 $A0 $A0 $A0 $E0; O
 $E0 $A0 $E0 $80 $80; P
 $E0 $A0 $A0 $C0 $20; Q
 $E0 $A0 $C0 $A0 $A0; R
 $E0 $80 $E0 $20 $E0; S
 $E0 $40 $40 $40 $40; T
 $A0 $A0 $A0 $A0 $E0; U
 $A0 $A0 $A0 $A0 $40; V
 $A0 $A0 $E0 $E0 $E0; W
 $A0 $E0 $40 $E0 $A0; X
 $A0 $A0 $E0 $40 $40; Y
 $E0 $20 $40 $80 $E0; Z
 $C0 $80 $80 $80 $C0; [
 $00 $80 $40 $20 $00; \
 $C0 $40 $40 $40 $C0; ]
 $40 $A0 $00 $00 $00; ^
 $00 $00 $00 $00 $E0; _
 $80 $40 $00 $00 $00; `
 $00 $40 $A0 $A0 $60; a
 $80 $C0 $A0 $A0 $C0; b
 $00 $60 $80 $80 $60; c
 $20 $60 $A0 $A0 $60; d
 $00 $E0 $E0 $80 $E0; e
 $40 $80 $C0 $80 $80; f
 $00 $E0 $A0 $60 $E0; g
 $80 $C0 $A0 $A0 $A0; h
 $80 $00 $80 $80 $80; i
 $40 $00 $40 $40 $C0; j
 $80 $80 $A0 $C0 $A0; k
 $80 $80 $80 $80 $80; l
 $00 $A0 $E0 $E0 $E0; m
 $00 $C0 $A0 $A0 $A0; n
 $00 $E0 $A0 $A0 $E0; o
 $00 $C0 $A0 $C0 $80; p
 $00 $60 $A0 $60 $20; q
 $00 $C0 $80 $80 $80; r
 $00 $E0 $80 $60 $E0; s
 $80 $C0 $80 $80 $C0; t
 $00 $A0 $A0 $A0 $E0; u
 $00 $A0 $A0 $A0 $40; v
 $00 $A0 $E0 $E0 $E0; w
 $00 $A0 $40 $40 $A0; x
 $00 $A0 $E0 $20 $C0; y
 $00 $E0 $20 $C0 $E0; z
 $20 $40 $C0 $40 $20; {
 $80 $80 $80 $80 $80; |
 $20 $40 $C0 $40 $20; }
 $00 $20 $E0 $80 $00; ~
END