作業十: CRAZY about key

load dbnletters.dbn
size 600 250

fast

paper 200 20 30
number keycheck

{

set keyvalue 0 repeat a 1 26

{

same?

100

{

set keyvalue a

}

}

value (keyvalue)

}
set k 0

forever

{
pen 50 150 20
set k letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26

{

set k 0

}

}