091225> Homework > key

作業規範：




作品：
└Forget it , For get it!
忘記一件事或者有忘記的可能或者已經忘記了某事物
那也同時意味著你曾經有過

超~~~級~~~會當機~的指令!!!或許該換電腦了…


load dbnletters.dbn

size 400 150
paper 100
fast
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 鑰匙a 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{
set x ((滑鼠壹/12)*12+2)
set y ((滑鼠貳/12)*12+2)
pen 時間肆 (滑鼠壹/2) (滑鼠貳/2)

set k
letter k x y
same? 滑鼠参 100
{
field x y (x+12) (y+12) 100
}
notsmaller? k 26
{
set k 0
}
}