pass sub image args to constructor
#IF (!0>0) // while there are args to process
#IFDEF !1 // image name a int?
#IFSAME !1 MSG_CONSTRUCT_OBJECT // a special flag to get it going
#DATA // start the data stream
#ENDIF
#DPUSH !1 // save the message or image id
#ELSE
#IFDEF !1.N // typical image name
#DPUSH !1.N
#ELSE
#DPUSH |CI0 // dynamic image name
#ENDIF
#ENDIF
ADD$IMAGE$ARGS !2 !3 !4 !5 !6 !7 !8 !9
#ELSE
!A [] OBJ$SEND CURRENT_OBJECT |VL
#ENDIF