20 lines
170 B
Plaintext
20 lines
170 B
Plaintext
OUT I will draw a rectangle\n
|
|
INT w
|
|
INT h
|
|
IN INT w l
|
|
IN INT h h
|
|
INT wr
|
|
INT hr
|
|
SET wr 0
|
|
SET hr 0
|
|
:wrc
|
|
:wf
|
|
OUT *
|
|
INC wr
|
|
JL wf wr w
|
|
OUT \n
|
|
SET wr 0
|
|
INC hr
|
|
JL wrc hr h
|
|
END
|