load dbnletters.dbn
size 300 300
fastpaper 100
number keycheck
{
set keyvalue 0
repeat p 1 26
{
same? 100
{
set keyvalue p
}
}
value (keyvalue)
}
set k 0forever{
pen (/2) (/2)
set k
letter k ((/12)*12+2) ((/12)*12+2)
notsmaller? k 26 { set k 0
}
}