Encode/Table/lmode.tbr

#?PETBL/1.0 SOURCE
#?o name="L-mode pictographs"
#?o table-name="lmode"
#?o charset-chars="256"
#?o charset-dimension="2"
#?o charset-name="sjis_lmode_g3"
#?o license="Public Domain"
#?o map-internal="my ($c,$d,$t) = (shift); ($t,$c,$d) = ($1,hex $2,hex $3) if $c =~ /([IL])-(..)(..)/; (0x7100E524 + ($c-0xF7)*188 + $d-0x40-($d>0x7F) + ($t eq 'L' && $c==0xF7?188*3:0))"
#?import src="imode.tbr" except="F7..|F97[5689]|F986|F9B[12]"
L-F7C7  U+266C          # BEAMED SIXTEENTH NOTES

L-F7D8  U+2740
#; $Date: $
1	wakaba	1.1	#?PETBL/1.0 SOURCE
2			#?o name="L-mode pictographs"
3			#?o table-name="lmode"
4			#?o charset-chars="256"
5			#?o charset-dimension="2"
6			#?o charset-name="sjis_lmode_g3"
7			#?o license="Public Domain"
8			#?o map-internal="my ($c,$d,$t) = (shift); ($t,$c,$d) = ($1,hex $2,hex $3) if $c =~ /([IL])-(..)(..)/; (0x7100E524 + ($c-0xF7)188 + $d-0x40-($d>0x7F) + ($t eq 'L' && $c==0xF7?1883:0))"
9			#?import src="imode.tbr" except="F7..\|F97[5689]\|F986\|F9B[12]"
10			L-F7C7 U+266C # BEAMED SIXTEENTH NOTES
11
12			L-F7D8 U+2740
13			#; $Date: $