作業9

條碼

size 200 100
forever
{
Paper 0
Pen 100
set B 40
repeat A 0 100
{ Same? A B
{
line (A*4) 0 (A*4) (B*4)
line (A*5) (A*5) 0 (B*5)
}
Notsame? A B
{
line (A*5) 0 (A*5) (B*5)
line (A*4) 0 (A*4) (B*4)
}
}
}