10 A=#FF:CLS:FORI=0TO8:I=I%8:K=INKEY():X=(X-(K=28)+(K=29)+8)%8:Y=(Y-(K=30)+(K=31)+8)%8:LCX,Y:?" ":P=PEEK(A*8+I):LC0,I:?BIN$(P,8),HEX$(P,2):LC0,9:?CHR$(A):V=(K=32)*A*8+Y:POKEV,1<<(7-X)^PEEK(V):NEXT
まさかキャラクタエディタがワンラインで出てくるとは……。これは予期していませんでした。しかも使い勝手も良さそうです。