反骇客

load dbnletters.dbn
Size 400 400

fast

paper 10

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

Set ax 2
Set ay 300
Set k 0
Forever
{
Pen(ax/2)(ay/2)
Set k

Notsmaller? K 1
{
Letter k ax ay
Set ax(ax+12)
Notsmaller? Ax 300
{
Set ax 2
Set ay(ay-12)

}
Smaller? ay 0
{
Set ay 300
}
}
pause 15
Notsmaller? K 26
{
Set k 0
}
Set k 0
Refresh
}