Txt$ = \"Hi\"

For i = 1 To Len( Txt$ )
	;Ascii-Code holen (1 Byte)
	ASCII = Asc( Mid$( Txt$, i, 1 ) )
	;Byte aufsplitten in die einzelnen Bits
	;Wenn der Byte - 128 größer 0 ist, heißt das, dass das erste bit \"belegt\" ist also \"1\" ansonsten \"0\"
	;So wird bei allen anderen Bits auch gemacht
	If (ASCII - 128) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 128
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 64) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 64
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 32) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 32
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 16) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 16
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 8) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 8
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 4) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 4
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 2) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 2
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
	If (ASCII - 1) => 0 Then
		Binaer$ = Binaer$ + \"1\"
		ASCII = ASCII - 1
	 Else
		Binaer$ = Binaer$ + \"0\"
	EndIf
Next

Print Binaer$
Input\"\"

msg$ = \"Hisdf\"
For i = 1 To Len(msg)
 b$ = b$ + Right(Bin(Asc(Mid(msg,i,1))),8)
Next
Print b

msg$ = \"Hallo\"
For i = 1 To Len(msg)
 char = Asc(Mid(msg,i,1))
 For j = 7 To 0 Step -1
  bn$ = bn$ + ((char And 2^j) > 0)
 Next
Next
Print bn$