Select Code to Download

sub swrite {
    croak "Usage: swrite PICTURE ARGS" unless @_;
...
    formline( $format, @_ );
    return $^A;
} #end sub swrite()