Decimal to Binary, Binary to Decimal

   5 REM decbi6line
  10 INPUT l
  20 POKE 65376,l
  30 PRINT "BIN ";
  40 FOR m=0 TO 7
  50 PRINT POINT (m,175);
  60 NEXT m
  70 PRINT " = ";l;" DEC"
  80 PAUSE 0: CLS : GO TO 10

   1 REM in the above 6line prog
ram <ENTER> any number from 0 to
 255 for binary readout.
   2 REM in the following 3 line
 program <ENTER> "BIN 10101010"
to get the decimal readout.
   5 REM bidec3line
  10 INPUT a$: REM BIN
  20 PRINT a$;" = ";VAL a$;" DEC
"
  50 REM  both of the above
        programs are by
     Stanley Livingston,SINCUS,
      Johnson City, NY!!

Thanks to Stanley Livingston, SINCUS Johnson City, NY