.PROGRAM move01()
        ATTACH ()
      ;  SET loc3 = TRANS(300,220,250,0,180,163)
       ; MOVE loc3
        SET loc3 = TRANS(suiyue[0],suiyue[1],suiyue[2],suiyue[3],suiyue[4],suiyue[5])
        MOVE loc3

.END