1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
$#isInputOk 0 W ( !=v#isInputOk 1 w[sEnter a number to convert from base10 to base2: ] $0 r $#isInputOk tv0 ? !=v#isInputOk 1 w[sThat was not a valid number. ] 0 ) o#fmt 20 b,2 v0