set font (p.46) $B%U%)%s%H$rJQ$($^$9!#(B
$B=q<0(B:set font <number > $BF~NONc(B:set font 2
number: 0...... This is font 0
$B!!!!!!!!!!(B 1....... This is font 1 $B!!!!!!!!!!(B 2....... This is font 2 $B!!!!!!!!!!(B 3....... $BFCH(B !GMT$B$N$h$&$KB?:L$J%U%)%s%H$O$"$j$^$;$s!#(Bfont$B$N0lMw$O(Bfont.gs$B$r
set font 3 $B$GI=<($5$l$kFC
($B3FNs$N:8B&$,F~NO$9$kJ8;z!"1&B&$,=PNO$5$l$kJ8;z(B)
