Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                        ◄Example►                ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
' This example uses the MID$ function to extract digits from the binary
' number (input as a string) during the conversion of a binary number to a
' decimal number.
 
' To try this example:
' 1. Choose New Project from the File menu
' 2. Copy the code example below to the code window
' 3. Press F5 to run the example
 
 CLS                                 ' Clear the screen
 INPUT "Binary number = ", Binary$   ' Input binary number as string
 Length = LEN(Binary$)               ' Get length of string
 Decimal = 0
 FOR K = 1 TO Length                 ' Get individual digits from string,
         Digit$ = MID$(Binary$, K, 1)    ' from left to right
         ' Test for valid binary digit
         IF Digit$ = "0" OR Digit$ = "1" THEN
                  ' Convert digits to numbers
                  Decimal = 2 * Decimal + VAL(Digit$)
         ELSE
                  PRINT "Error--invalid binary digit: "; Digit$
                  EXIT FOR
         END IF
 NEXT
 PRINT "Decimal number ="; Decimal