作業十： Key --> 整合應用海報設計

程式碼：
load dbnletters.dbn

size 300 400
fast
paper 20 50 50


number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{

pen 0

set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}