FUNCTION bin2asc$ (bit$)
'*************************************
'** Function: bin2asc$              **
'** Author: Hacker@alphalink.com.au **
'** Info: Converts 1 byte into a    **
'**       binary number.            **
'*************************************

FOR X = 1 TO LEN(bit$) STEP 8
    dat$ = MID$(bit$, X, 8)
            FOR y = 1 TO 8
                IF MID$(dat$, y, 1) = "1" AND y = 1 THEN num = num + 128
                IF MID$(dat$, y, 1) = "1" AND y = 2 THEN num = num + 64
                IF MID$(dat$, y, 1) = "1" AND y = 3 THEN num = num + 32
                IF MID$(dat$, y, 1) = "1" AND y = 4 THEN num = num + 16
                IF MID$(dat$, y, 1) = "1" AND y = 5 THEN num = num + 8
                IF MID$(dat$, y, 1) = "1" AND y = 6 THEN num = num + 4
                IF MID$(dat$, y, 1) = "1" AND y = 7 THEN num = num + 2
                IF MID$(dat$, y, 1) = "1" AND y = 8 THEN num = num + 1
            NEXT y
    b$ = b$ + CHR$(num)
    num = 0
NEXT X
bin2asc$ = b$
END FUNCTION