" Umwandlung von Dezimal in Bin„rzahlen 
" Vor dem Start : DIM B$(1)*24  eingeben
" Bitte vor der šbertragung die ersten 3 Zeilen l”schen
10:"B":B$(1)="":N=0
20:INPUT D
30:IF D<16777216 THEN LET N=23
40:IF D<256 THEN LET N=7
50:IF D>=16777216 END
60:FOR I=0 TO N
70:E=D-2^(N-I)
80:IF E>=0 THEN LET D=E:B$(1)=B$(1)+"1"
90:IF E<0 THEN LET B$(1)=B$(1)+"0"
100:NEXT I
110:PRINT B$(1)