8 lines
85 B
ObjectPascal
8 lines
85 B
ObjectPascal
begin
|
|
init;
|
|
penup;
|
|
back(100);
|
|
pendown;
|
|
dcr(step,direction,length);
|
|
close;
|
|
end.
|