! Document name: door

! name     :door
! written by  : Akos
! internal macro  :  leaf
mulx -1
addx -a/2
roty 30
CALL "leaf" a,b,c
del top
end