at(9, 26) $up3$up$up at(11, 26) $dn3$dn$dn

    case $d[4]=2

        ; remove 4=1

        box(9, 20, 11, 36, "         ")

        ; remove 4=3 horizontal

        at(5, 14) "                             "

        at(15, 14) "                             "

        ; draw 4=2    

        color w/n

        at(8, 19)  $up3$up3$up3$up3$up3$up3

        at(12, 19) $dn3$dn3$dn3$dn3$dn3$dn3

        $i=8 do at($i, 19) $x at($i, 37) $x $i=$i+1 until $i=13

    case $d[4]=3

        ; draw 4=3

        color w+/n

        at(5, 11) $up3$up3$up3$up3$up3$up3$up3$up3$up3$up3$up3$up3

        at(15, 11) $dn3$dn3$dn3$dn3$dn3$dn3$dn3$dn3$dn3$dn3$dn3$dn3

        $i=5 do at($i, 46) $x $i=$i+1 until $i=16

        $i=5 do at($i, 10) $x $i=$i+1 until $i=16

        ; remove 4=1 and 4=2

        box(6, 11, 14, 45, "         ")

    case 1

endSelect

return