macro ew_org IWKID CMD
	 
	 IF ([IWKID] .eq. 1) THEN
		 exec ew_org#work1 [IWKID] [CMD] [3] [4] [5] [6] [7] [8] [9] [10] 
		 exitm
	 ELSEIF ([IWKID] .eq. 2) THEN
		 exec ew_org#work2 [IWKID] [CMD] [3] [4] [5] [6] [7] [8] [9] [10] 
		 exitm
	 ELSE
		 exec ew_org#anotherwork [IWKID] [CMD] [3] [4] [5] [6] [7] [8] [9] [10] 
		 exitm
	 ENDIF
 return
 
 macro work1 IWKID CMD
	 [CMD] [3] [4] [5] [6] [7] [8] [9] [10] 
 return
 
 macro work2 IWKID CMD
	 mes
	 mes please input WorkStation ID except 2 !
	 mes
 return

 macro anotherwork IWKID CMD
	 work -[IWKID] A
	 
	 IF ( [CMD] = 'ht' ) THEN
		 CMD = hi/plo
	 ENDIF
	 
	 [CMD] [3] [4] [5] [6] [7] [8] [9] [10] 

	 
	 Org_TXALIH = $GRAFINFO(TXALIH)
	 Org_TXALIV = $GRAFINFO(TXALIV)
	 Org_CHHE = $GRAFINFO(CHHE)
	 Org_TXCI = $GRAFINFO(TXCI)
	 XSIZ = $GRAFINFO(XSIZ)
	 YSIZ = $GRAFINFO(YSIZ)
	 
	 set chhe 0.5
	 set TXCI 2
	 sel 1
	 set TXAL 10
	 itx 0.5 [YSIZ]-1 WORKSTATION : [IWKID]
	 work -1 A
 
	 set TXAL [Org_TXALIH][Org_TXALIV]
	 set CHHE [Org_CHHE]
	 set TXCI [Org_TXCI]
* work 0 l
 return