5 REM ** DECIMAL-BINARY CONVERSION **›7 REM ** DEC2BIN.BAS **›10 DIM BIN$(8),TEMP$(8),R$(1)›20 GRAPHICS 0›30 ? :? "DECIMAL-BINARY CONVERSION"›40 ? :? "ENTER A POSITIVE INTEGER (0 TO 255):":? :TRAP 40:INPUT NR›50 IF NR-INT(NR)<>0 THEN 40›60 IF NR>255 OR NR<0 THEN 40›70 FOR L=1 TO 8›80 Q=NR/2›90 R=Q-INT(Q)›100 IF R=0 THEN R$="0":GOTO 120›110 R$="1"›120 TEMP$(1)=R$:TEMP$(2)=BIN$:BIN$=TEMP$›130 NR=INT(Q)›140 NEXT L›150 ? "BINARY: ";BIN$›160 TRAP 40000›170 GOTO 40››