program translaterel1
   implicit none
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call translaterel(0.4,0.0)
   call square(0.0,0.0,0.2)
   call text(0.0,0.0,'A')
   call translaterel(0.4,0.0)
   call square(0.0,0.0,0.2)
   call text(0.0,0.0,'B')
   call translaterel(0.0,0.4)
   call square(0.0,0.0,0.2)
   call text(0.0,0.0,'C')
   call translaterel(-0.8,-0.4)
   call translaterel(0.0,0.4)
   call square(0.0,0.0,0.2)
   call text(0.0,0.0,'D')
   call translaterel(0.0,0.4)
   call square(0.0,0.0,0.2)
   call text(0.0,0.0,'E')
   call translaterel(0.0,-0.8)
   call translaterel(0.6,0.6)
   call square(0.0,0.0,0.2)
   call text(0.0,0.0,'F')
   call translaterel(-0.6,-0.6)
   call fin
   stop
   end