
load dbnletters.dbn
size 600 250
fast
paper 200 20 30
number keycheck
{
set keyvalue 0 repeat a 1 26
{
same?
{
set keyvalue a
}
}
value (keyvalue)
}
set k 0
forever
{
pen 50 150 20
set k
notsmaller? k 26
{
set k 0
}
}

size 200 200
paper 50 150 20
pen 200 20 30
fast
set B 50
repeat A 0 50
{
same? A B
{
line A 0 A B
line (A*2) 30 (A*2) (B*2)
line (A*3) 30 (A*3) (B*3)
line (A*4) 30 (A*4) (B*4)
line (A*5) 30 (A*5) (B*5)
}
notsame? A B
{
line (A*2) 0 (A*2) (B*2)
line (A*3) 5(A*3) (B*3)
line (A*4) 10 (A*4) (B*4)
line (A*2) 0 (B*2) (A*2)
line (A*3) 5 (B*3) (A*3)
line (A*4) 10 (B*4) (A*4)
}
same? A B
{
line A 0 A B
line (A*2) 30 (A*2) (B*2)
line (A*3) 30 (A*3) (B*3)
line (A*4) 30 (A*4) (B*4)
line (A*5) 30 (A*5) (B*5)
}
notsame? A B
{
line (A*2) 0 (A*2) (B*2)
line (A*3) 5(A*3) (B*3)
line (A*4) 10 (A*4) (B*4)
line (A*2) 0 (B*2) (A*2)
line (A*3) 5 (B*3) (A*3)
}
}