T

T

load dbnletters.dbn

size 300 300

fast

paper 100

//設計一個檢查按下哪一個按鍵的功能

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

}

}