PRGM_BIN2DEC :CLRHOME :0->C :DISP {1,2,3,4,5,6,7,8} :INPUT "",L1 :8->DIM L1 :FOR A,1,8 :IF L1(A)=1 :C+2^(8-A)->C :END :CLRHOME :DISP "BIN:",L1,"DEC:" :CLRLIST L1 :C Made by: Mrmats Description: Type a binary number (starting with a { and put a , betwen the numbers and you have the dec-answer. size: 112 bytes Copyright (C) 1998 by Mrmats