Vertical.f

VertScroll  Vert1

21  value Vert1_ID

50 value Vert1_X

50 value Vert1_Y

300  value Vert1_H

20  value Vert1_W

create Vert1_Name  ," Vert1"