作業十: 應用 Key 整合判斷結構式 配合其它的指令--> 創作具有主題性的動態海報設計

load dbnletters.dbn
size 300 300
fast
paper 100
repeat B 0 10

{


pen 30


line 0 (290+B) 300 (290+B)
line 0 (0+B) 300 (0+B)
line (290+B) 0 (290+B) 300
line (0+B) 0 (0+B) 300

}
repeat a 0 30

{
pen 30
line 40 (25+a) 275 (25+a)
line (40+a) 25 (40+a) 275

}
repeat c 0 25

{
pen 30
line 85 (65+c) 125 (70+c)
line (95+c) 75 (95+c) 230
line 85 (225+c) 125 (220+c)
}
repeat d 0 20

{
pen 30
line 225 (125+d) 260 (125+d)
line (205+d) 80 (220+d) 230
line (255+d) 80 (220+d) 230
}
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{


pen (/2) (/2)

set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}