>>950
こんな感じ?
行数制限のために詰めたから元より見栄え悪くなってるけど。

dim char, 6, 2: char = 5, 5, 5, 5, 5, 5, 4, 3, 2, 1, 0, 0
dim col, 5, 3: col = 255,0,0,255,255,0,255,0,255,0,0,0,255,0,255

buffer 2, 250, 250
boxf: color 255,255,255
repeat 10:i=cnt:repeat 10:boxf 25*cnt+1,25*i+1,25*cnt+24,25*i+24:loop:loop

screen 0, 250, 250: gcopy 2, 0, 0, 250, 250
repeat
    stick key, 0, 1
    if (key & 1 != 0)&(char.0.0 - 1 >= 0): char.0.0--
    if (key & 2 != 0)&(char.0.1 - 1 >= 0): char.0.1--
    if (key & 4 != 0)&(char.0.0 + 1 <= 9): char.0.0++
    if (key & 8 != 0)&(char.0.1 + 1 <= 9): char.0.1++
    if (char.0.0 != char.1.0)|(char.0.1 != char.1.1){
        redraw 0
        pos 0, 0: gcopy 2, 0, 0, 250, 250
        repeat 5
            i = 5 - cnt: j = i - 1
            char.i.0 = char.j.0: char.i.1 = char.j.1
            color col.j.0, col.j.1, col.j.2: boxf 25*char.i.0+1,25*char.i.1+1,25*char.i.0+24,25*char.i.1+24
        loop
        redraw 1
    }
    await 5
loop
stop