作業十:米老鼠

load dbnletters.dbn
size 300 300

fastpaper 100
number keycheck

{

set keyvalue 0

repeat a 1 26

{

same? 100

{

set keyvalue a

}

}

value (keyvalue

)

}
set k 0forever

{
pen (/2) (/2)
set k

letter k

((/12)*12+2) ((/12)*12+2) notsmaller? k 26 { set k 0 }

}