亂碼隨我打

load dbnletters.dbn

Size 400 400

Paper 10

Fast

Number keycheck
{
Set keycheck 0
Repeat a 1 26
{
Same? 100
{
Set kevyalue a
}
}
Value(kevyalue)
}

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)(ay/2)
Set k

Notsmaller? K 1
{
letter k ax ay
Set ax(ax+12)
Notsmaller? Ax 188
{
set ax (ax-10)
Set ay 2
}

Smaller? Ay 0
{
Set ay 186
}
}

Pause 15
Set k 0
refresh
}