I was surprised that there isn't already one of these, as they are really simple, but anyway, here it is.
if file exist ("binary.txt") = 1 then delete file "binary.txt"
open to write 1,"binary.txt"
input "Enter some text: ",string$
for x = 1 to len(string$)
v1$ = mid$ (string$,x)
v1$ = bin$(asc(v1$))
for y = 26 to len(v1$)
total$ = total$ + mid$(v1$,y)
next y
write string 1, total$
total$ = ""
next x
close file 1
execute file "binary.txt","",""
It's very simple, just type whatever you want, hit enter, it will convert your word, letter, or sentence to binary, save it to a text document and open up the text document so that you can view the binary, or copy and paste it to something else. It's a fun little program to use. It's useful if you ever want to pull a joke on a friend and decide to send them an e-mail in all binary.

Logo by The Next