作業十

load dbnletters.dbn

size 500 200

fast
paper 100
number keycheck
{
set keyyalue 0
repeat a 1 26
{
same? 100

{
set keyyalue a
}
}
value (keyyalue)

}
set ax 2
set ay 186

forever
{

same? 100
{
set ax ((/12)*12+2)
set ay ((/12)*12+2)
field ax ay (ax+12) (ay+12) 100
}

pen (ax/2) 80 ay
set k

notsmaller? k 1
{
letter k ax ay
set ax (ax+12)
notsmaller? ax 188
{
set ax 2
set ay (ay-12)
}
smaller? ay 0
{
set ay 186
}
}
pause 5
set k 0
refresh
}