#IF (!0>0) #IFADIM !1 //Array type //Make sure it has no specified dimension size #SPUSH #DIMSTRIP !1 #IFSAME !$ 0 |CI0 CHECK$FOR$BOGUS$TRAILING$STUFF !2 #ELSE CHECK$ARGUMENT$LIST$ERROR10 #ENDIF #SPOP #ELSE CHECK$ARGUMENT$LIST$ERROR8 // Garbage trailing on line #ENDIF #ENDIF