XSUB AR %% PRINT-USR DEMOBY MARC ESCOLA(c)1988, ANTIC PUBLISHING<;@ ,F ASET UP SUBROUTP)6. XX,XXX.XX6-@) A Z( NORMAL NUMBERd*6. XX,XXX.XX 6-6@* A n( NEGITIVE NUMBERx)6. X$,XXX.XX6-@"%) A ( FLOATING $)6. **,XXX.XX6-@) A ( ASTERISK FILL)6. *$,XXX.XX6-@) A  ( ASTERISK FILL,FLOAT $)6. $$,XXX.XX6-@) A ( LOTS OF MONEY&6-?:C:,