100 SCREEN 0:COLOR 15,1,1:DEFINT A-Z:AD=&HD000:SZ=&HD05A:RB=&HD05F:RESTORE 310
110 DEFUSR=AD:DEFUSR1=&HD030:DEFUSR2=&HD0D0:DEFUSR3=&HD100:DEFUSR4=&HD130
120 READ D$:IF D$<>"*" THEN POKE AD,VAL("&H"+D$):AD=AD+1:GOTO 120
130 POKE SZ,&H40:POKE RB,0:CLS
140 PRINT"-- MSX Kanji Font ROM Dumper Ver 1.0 --":PRINT
150 PRINT"Press '1' key to start Kanji ROM Dump!!"
160 PRINT"Press '2' key to exit  Kanji ROM Dump!!":PRINT
170 A$=INPUT$(1):A=VAL(A$):IF A<1 OR A>2 THEN BEEP:GOTO 170
180 ON A GOTO 200,190
190 END
200 A=USR2(0):IF PEEK(&H9000)=&HFF GOTO 280
210 PRINT"Kanji Font ROM processing!!!":PRINT:PRINT"* Saving KANJI.ROM to disk *"
220 FOR KC=0 TO 7:POKE RB,KC:A=USR2(KC*512):A$=USR1("KANJI   ROM"):NEXT
230 POKE &HD0E5,&HDA:POKE &HD0EA,&HDB:POKE &HD0EF,&HDB
240 FOR KC=0 TO 7:POKE RB,KC+8
250 A=USR2(0):IF PEEK(&H9000)=&HFF GOTO 270
260 A=USR2(KC*512):A$=USR1("KANJI   ROM"):NEXT:POKE RB,0
270 PRINT:PRINT"Kanji Font ROM Dump complete":GOTO 290
280 PRINT:PRINT"Kanji Font ROM doesn't exist"
290 PRINT:PRINT"Press any key to return menu"
300 IF INKEY$="" THEN 300 ELSE GOTO 130
310 DATA fe,02,c0,23,23,f3,7e,23,66,2e,00,01,00,40,11,00
320 DATA 90,f5,d5,c5,cd,0c,00,c1,d1,12,23,13,0b,78,b1,28
330 DATA 03,f1,18,ed,f1,fb,af,c9,00,00,00,00,00,00,00,00
340 DATA fe,03,c0,13,1a,6f,13,1a,67,af,11,00,d2,12,13,01
350 DATA 0b,00,ed,b0,11,00,90,0e,1a,cd,7d,f3,11,00,d2,0e
360 DATA 16,cd,7d,f3,b7,c2,90,d0,21,00,40,22,0e,d2,21,00
370 DATA 00,22,21,d2,21,00,00,22,23,d2,21,01,00,11,00,d2
380 DATA 0e,26,cd,7d,f3,b7,c2,95,d0,11,00,d2,0e,10,cd,7d
390 DATA f3,b7,c2,9a,d0,11,a0,d0,0e,09,cd,7d,f3,c9,00,00
400 DATA 11,a4,d0,18,f3,11,af,d0,18,ee,11,bb,d0,18,e9,00
410 DATA 00,00,00,24,07,4f,70,65,6e,20,65,72,72,3a,24,07
420 DATA 57,72,69,74,65,20,65,72,72,3a,24,07,43,6c,6f,73
430 DATA 65,20,65,72,72,3a,24,00,00,00,00,00,00,00,00,00
440 DATA fe,02,c0,23,23,7e,23,66,6f,11,00,90,e5,7d,e6,3f
450 DATA ed,6a,ed,6a,d3,d8,7c,e6,3f,d3,d9,e1,06,20,db,d9
460 DATA 12,13,10,fa,23,7a,fe,d0,20,e2,c9,00,00,00,00,00
470 DATA fe,02,c0,23,23,e5,7e,23,66,2e,00,f5,e5,3e,01,21
480 DATA 00,40,cd,24,00,e1,f1,77,21,00,40,11,00,90,01,00
490 DATA 40,ed,b0,af,21,00,40,cd,24,00,e1,c9,00,00,00,00
500 DATA fe,02,c0,23,23,7e,23,66,6f,e5,21,00,40,3e,8f,cd
510 DATA 24,00,e1,3e,ff,32,f9,7f,3a,f2,7f,5f,3a,f8,7f,57
520 DATA d5,7d,32,00,68,7c,b7,28,02,3e,04,32,f8,7f,21,00
530 DATA 40,11,00,90,01,00,20,ed,b0,d1,7b,32,00,68,7a,32
540 DATA f8,7f,21,00,40,3e,80,cd,24,00,c9,*