ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

binary.bas 412 B

12345678910111213141516
  1. 5 REM input a number, output its binary representation
  2. 10 CALL SHELL("cls")
  3. 30 LET X = 0
  4. 40 LET P = 1
  5. 50 INPUT "Enter an integer from 1 to 63: ";a
  6. 60 IF (A < 0 OR A<>INT(A)) GOTO 50
  7. 65 IF (A > 63) GOTO 30
  8. 70 LET B = A - INT (A/2) * 2
  9. 80 REM PRINT B
  10. 90 LET X = B * P + X
  11. 100 LET P = P * 10
  12. 110 LET A = (A - B) / 2
  13. 120 IF (A > 0) GOTO 70
  14. 130 PRINT "As binary: ";X
  15. 140 END