文字コード表の表示
fontf="FixedSys"
s="ab"
font fontf,16
hi=0
repeat
color 255,255,255: boxf: color
line 0,16,575,16: line 32,0,32,425
y=17: repeat 25: line 0,y,575,y: y+=17: loop
x=33
repeat 33
line x,0,x,425
if cnt<32 {
u=cnt: u=strf("%02X",u): pos x+1,0: mes u
}
x+=17
loop
y=18
repeat 4
poke s,0,hi
t=hi: t=strf("%02X",t)
if hi=0 { low=0: poke s,1,0 }
else { low=$40 }
repeat 6
u=low: u=strf("%02X",u)
pos 0,y: mes t+u: x=34
repeat 32
if hi==0 { poke s,0,low }
else { poke s,1,low }
pos x,y: mes s
low++: x+=17
loop
y+=17
if hi<$81 {
if cnt>4 {
if low<$100 {
continue cnt-1
}
}
}
loop
hi++
if hi=1 {
break
}
if hi=$A0 {
break
}
if hi>$FC {
break
}
loop
pos 0,460: mes "左クリックかEnterキーで進む、右クリックかEscキーで戻る"
repeat: wait 1
stick c,2047,1: if c&944 {
break
}
loop
repeat: wait 1
stick d,2047,1: if d==0 {
break
}
loop
if c==512 | (c==128) { ;マウス右ボタン、Escキー
if hi<$81 { hi=$FC }
else { if hi==$85 { hi=0 }
else { if hi==$A0 { hi=$99 }
else { if hi==$E4 { hi=$9D }
else { if hi>$FC { hi=$F8 }
else { hi-=8 } } } } }
} else {
if hi<$81 { hi=$81 }
else { if hi==$A0 { hi=$E0 }
else { if hi>$FC { hi=0 } } }
}
loop