function string2binary,s
;+
;b=string2binary(s) returns the binary ASCII representation of the characters in string s
;-
;Construct a binary array with a column for each character.
b=bytarr(n_elements(byte(s)),8)
For i=0,7 Do b[*,i]=(2^i AND byte(s)) GT 0

;Now concatenate the columns and return as a string in row form.
Return,(transpose(b))[*]
END