5 ' kanji-rom implementation burn-in test: 1900/2ffe0
10 restore1000:gosub1100:defusr=&h9000:defusr1=&h9046
20 a=usr(0):a=peek(&h9100):print"-";chr$(13);:ifa<>0thenstop
40 a=usr1(0):a=peek(&h9100):print"|";chr$(13);:ifa<>0thenstopelsegoto20
999 stop
1000 data "f33e08d3d83e03d3d90ed9ed78ed40ed50ed58ed60ed68ed48"
1010 data "fe00202478fe81201f7afe43201a7bfe2120157cfe102010"
1020 data "7dfe08200b79fe0420063e0018023e01320091fbc9"
1025 '
1030 data "f33e3fd3da3e5fd3db0edbed78ed40ed50ed58ed60ed68ed48"
1040 data "fe10202478fe20201f7afe40201a7bfe8b20157cfe522010"
1050 data "7dfe22200b79fe4b20063e0018023e01320091fbc9XX"
1100 p=&h9000
1110 reada$:a=len(a$):ifa=0or(aand1)=1thenprint"Error in hex":stop
1120 a=a/2-1:fori=0toa:b$=mid$(a$,i*2+1,2):ifb$="XX"thenreturn
1130 pokep,val("&H"+b$):p=p+1:nexti:goto1110
1140 a$=hex$(a):l=len(a$):print" ";:ifl=1thenprint"0";
1150 printa$;:return