; RHQU*U*EXPLODEN0{LESSPIMPLODEMAKE-FORMAT-OP-NAMESUBR,<@ an ` `-,@z` UT ``U@,8,80  "`U7@g+[gZg= Dg ,8,8/K<U`ah#/. Np-,+UL U8-,1XC` B`+U,UD /`,x%jU*UQUOTESREMPROPPUTPROPLAMBDAFORMAT-MAKE-REALSYMFORMAT-MAKE-PROPDEF @0 ",8-, $-,-,2H1 -, $-,*`-,2@  $-,@-, $-,0d-,1 $-, -,e -,-,1,X-, z <f 2-, $-,*`-, $H-,-,1 -,-,1.U,X-,,x8 FLUSH-MACROMEMOS xMACROFETCHFLATCU*U*UGETCHARNFORMAT-CHAR-TABLENAMECOND=OBARRAYPNPUTPNGETU*TT*FORMAT-OBARRAYMACROMEMOFORMAT-MAKE-REALSYM.RMac ``a-,Z[6 +;1 [`0B+;Z`[=N; $ Z`0d[a-,1 $ -,+=U, m `-,1     z CC>-,U= $ `UH,x|.U+UjUPROGNDEFPROPMACRO! xFORMAT-MAKE-OP-SETUP#xformat-make-op-setup lossERRORNEWNAMEU*@1EQNOTCARFORMAT-MAKE-OP-SETUP.RMac `-,0Z[Z[6 `[`0F`6 ``1B`UTUT ,8`-,1 g-,",o%nTdU|U@z h{sP `-, '-, -,1 $-, g-,1 ` $-, $-,-,0H1 g-, $-,-,1 ` )-,@-,13-, `0 $-, -,-,1,X  -,,X-,-,1 $ -,0 d-,1z h{sP-, $-,`0*`-,1 -,-,1,X`d=-,/ # $ `UHju,x!#xDEFINE-FORMAT-OP+xFORMAT-CTL-REPEAT-CHARU*U*UFORMAT-CTL-NO-ARGFORMAT-CTL-MULTI-ARGFORMAT-CTL-ONE-ARGFEATURELSBSTATUSDEFINE-PRIVATE-ROUTINEDEFUNCOMPILEP DEFINE-FORMAT-OP.RMac5B" `-,Z[Z[ Z  " 8an `A &3`?UhAs-+hB0U87 ` `-,1AsP-, "+U``-,1@MAs[-,/U$ B`-,`1 `-, g~-,1zfu@`4B3-,3-, : 3-,`)U#P3-,m3-, $-,U#< Bg g~ -,1 $-,-,1  2 $-,-,1,X-, #@(-,-,1 g-,5z ?xUH,x#!7?x;