Procedure Vastat(stat: VI_status_type;
                 var str: packed array [lo..hi:integer] of char);
   EXTERNAL;
{*USER*
 
Convert a scaler VI_STATUS_TYPE to a type0 or type1 string for printing.
The scaler is passed in STAT and the string is returned in STR.  The
string is "assigned", so the previous contents of the string, if
any, are destroyed.
 
*ERROR CODES*
 
The only errors that can occur are due to programmer
errors.  If such an error occurs, a string of zero
length will be returned.
 
}