100 'KeyCheck for Japanese MSX
110 DEFINTA-Z:CLS:DIMA$(88)
120 FORI=0TO87:READA$(I):NEXT
130 FORI=0TO10:K=128:FORJ=0TO7:IF(PEEK(&HFBE5+I)ANDK)THENELSEPRINTA$(I*8+J);" ";
140 K=K\2:NEXT:NEXT:PRINT:GOTO130
1000 '
1010 DATA7,6,5,4,3,2,1,0
1020 DATA;,[,@,\,^,-,9,8
1030 DATAB,A,_,/,.,",",],":"
1040 DATAJ,I,H,G,F,E,D,C
1050 DATAR,Q,P,O,N,M,L,K
1060 DATAZ,Y,X,W,V,U,T,S
1070 DATAF3,F2,F1,Kana,Caps,Graph,Ctrl,Shift
1080 DATAReturn,Select,Bs,Stop,Tab,Esc,F5,F4
1090 DATARight,Down,Up,Left,Del,Ins,Home,Space
1100 '10key
1110 DATA4,3,2,1,0,Opt2,Opt1,Opt0
1120 DATA.,",",-,9,8,7,6,5