作業十-小朋友爬樓梯

load dbnletters.dbn

size 200 200

fast

paper 10
number keycheck

{

set keyvalue 0

repeat a 1 26

{

same? 100

{

set keyvalue a

}

}

value (keyvalue)

}
set k 0

forever

{
pen (/2) (/2)

set k

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

notsmaller? k 26

{

set k 0

}

}