Draw for scalable font?

[Dav]

Here's another one I found looking through an old HD.  Again, not sure where this one came from either, it's been so many years now.  More than likely it's from one of the ABC code packets.  I did make some things like this in the 90's, but don't think this is one of them.

- Dav

Code: (Select All)

DEFINT A-Z
DECLARE SUB EYEPRINT (x%, y%, FONTCOLOR%, TEXT$)

SCREEN 13
FOR t% = 6 TO 193 STEP 6
    EYEPRINT 2, t%, t%, "01234567890abcdefghijklmnopqrstuvwxyz.,/?\+-()"
NEXT
SLEEP

SUB EYEPRINT (x%, y%, FONTCOLOR%, TEXT$)

    DRAW "C" + STR$(FONTCOLOR%) + "BM" + STR$(x%) + "," + STR$(y%)

    FOR a% = 1 TO LEN(TEXT$)
        SELECT CASE UCASE$(MID$(TEXT$, a%, 1))
            CASE "0": DRAW "BE1R2E1U1H1L2G1D1BD2BR6"
            CASE "1": DRAW "BR1R2L1U4G1BL1BD3BR6"
            CASE "2": DRAW "R4L3U1E1R1E1H1L3BD4BR6"
            CASE "3": DRAW "R3E1H1L2R2E1H1L3BD4BR6"
            CASE "4": DRAW "BR4U4D2L4U2BD4BR6"
            CASE "5": DRAW "R3E1H1L3U2R4BD4BR2"
            CASE "6": DRAW "BR1R2E1H1L3D1U2E1R3BD4BR2"
            CASE "7": DRAW "BR2U2E2L4BD4BR6"
            CASE "8": DRAW "BR1R2E1H1L2G1BU2E1R2F1BD3BR2"
            CASE "9": DRAW "BR4U3H1L2G1F1R3BD2BR2"
            CASE " ": DRAW "BR6"
            CASE "A": DRAW "BR1R3U2L3G1BU3BR1R2F1BD3BR2"
            CASE "B": DRAW "R3E1H1L3U2D4BR6"
            CASE "C": DRAW "BU1U1E1R3BD3L3BR5"
            CASE "D": DRAW "BR1R2E1U3D2L3G1BD1BR6"
            CASE "E": DRAW "BU1U2E1R2F1G1L2BD2R3BR2"
            CASE "F": DRAW "BU2R4BU2L1G1D3BR4"
            CASE "G": DRAW "R3E1U2H1L2G1F1R3BD2BR2"
            CASE "H": DRAW "U4D2R3F1D1BR2"
            CASE "I": DRAW "BR1U1BU2R0BD3BR5"
            CASE "J": DRAW "BU1F1R1E1BU2R0BD3BR3"
            CASE "K": DRAW "U4BR4G2L2R2F2BR2"
            CASE "L": DRAW "U3D3R4BR2"
            CASE "M": DRAW "U4F2E2D4BR2"
            CASE "N": DRAW "U3D2E2R1F1D2BR2"
            CASE "O": DRAW "BE1R2E1U1H1L2G1D1BD2BR6"
            CASE "P": DRAW "U2R3E1H1L2G1D2BR6"
            CASE "Q": DRAW "BU1U2E1R2F1D3L3R2U1H1BD2BR4"
            CASE "R": DRAW "U3F1E1F1BD2BR2"
            CASE "S": DRAW "R3E1H1L2H1E1R3BD4BR2"
            CASE "T": DRAW "BR2U4D1L2R4BD3BR2"
            CASE "U": DRAW "BE1R2E1U2BL4D2BD2BR6"
            CASE "V": DRAW "BU2F2E2BD2BR2"
            CASE "W": DRAW "U4BR4D4H2G2BR6"
            CASE "X": DRAW "E4BL4F4BR2"
            CASE "Y": DRAW "BU3F2D1U1E2BD3BR2"
            CASE "Z": DRAW "R4BL2H1E2L3BD3BR6"
            CASE ".": DRAW "BR1R0BR5"
            CASE "(": DRAW "BR3L1H2R1U1E1R1BD4BR3"
            CASE ")": DRAW "BR1R1E1U1R1L1U1H1L1BD4BR5"
            CASE "!": DRAW "BR1R1BU2U2L1D2BD2BR5"
            CASE "+": DRAW "BR2BU1U2D1L1R2BD2BR3"
            CASE "-": DRAW "BU2BR1R2BD2BR3"
            CASE ":": DRAW "BR2BU1R0BU2R0BD3BR4"
            CASE "\": DRAW "BU4F4BR2"
            CASE "/": DRAW "E4BD4BR2"
            CASE "@": DRAW "BU1U2E1R2F1L2G1BR2R1G1L1G1R3BR2"
            CASE "?": DRAW "BR3U1BU2U1E1H1L2G1BM+6,+5"
            CASE ",": DRAW "BR1R1D1BM+5,-1"
        END SELECT
    NEXT
END SUB