10 SCREEN 5: X=60: Y=80: _AKCNV (A$,"MSXBASIC") 20 _KLEN (M,A$): FOR L=1 TO M: GOSUB 50: GOSUB 40: X=X+16: NEXT L 30 I$=INPUT$(1): SCREEN 0: END 40 PUT KANJI (X,Y),Z,14,PSET,0: RETURN 50 _KMID (B$,A$,L,1): _JIS (C$,B$): Z=VAL("&H"+C$): RETURN