Sorry your browser is not supported!

sync on

sync

dim recog(-1) as pos2

global size# as double float

type string2

    s1 as string
    s2 as string

endtype

type pos2

    x as double float
    y as double float
    d as double float

endtype

dim characters(25) as string2
dim final(25) as string
dim error(25) as integer
dim people(-1) as string2
dim learn(4,10) as string
dim unusable(10) as integer

if file exist("people.ini")
    open to read 1,"people.ini"
    do
        read string 1,name$
        read string 1,fnam$
        if file end(1) = 1 then exit
        array insert at top people(0)
        people(0).s1 = name$
        people(0).s2 = fnam$
        inc numb
        print "[",numb,"] ",name$
    loop
    sync
    do
        slct = val(inkey$())
        if slct <= numb and slct <> 0
            fnam$ = people(numb-slct).s2
            if file exist(fnam$)
                filename$ = fnam$
                gosub load_array
                exit
            else
                print "File not found!"
            endif
        endif
        sync
    loop
    close file 1
endif

do

    omc = msc
    msc = mouseclick()
    mmx# = mousemovex()
    mmy# = mousemovey()
    msx# = mousex()
    msy# = mousey()
    if msc = 3 and omc <> 3
        cls
        sx# = msx#
        sy# = msy#
        dx# = msx#
        dy# = msy#
    endif
    if msc = 3 and omc = 3
        line sx#,sy#,msx#,msy#
        sx# = msx#
        sy# = msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        dx# = msx#
        dy# = msy#
    endif
    if msc <> 3 and omc = 3
        line sx#,sy#,msx#,msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        size# = 0.0
        print " "
        for d = 0 to max
            inc size#,recog(d).d
`            print recog(d).d
        next d
`        print size#
        gosub get_letter
        empty array recog(0)
        text 0,0,drawnchar$
        linen = 0
`        for d = 0 to array count(final(0))
`            inc linen,20
`            text 0,linen,final(d)
`        next d
    endif
    if inkey$() = "l" and msc <> 3
        gosub learn
    endif

    sync

loop

get_letter:

    max = array count(recog(0))
    for d = 0 to array count(characters(0))
        final(d) = ""
        dist# = 0
        xm = 0
        ym = 0
        nsects# = len(characters(d).s1)
        sectss# = size# / nsects#
`        print sectss#
`        print size#
        for e = 0 to max
            inc dist#,recog(e).d
            inc xm,recog(e).x
            inc ym,recog(e).y
            if dist# >= sectss#
                angle = wrapvalue(atanfull(xm,0-ym))
                a2 = angle
                inc angle,22.5
                angle = int(angle/45)
                if int(angle) = 8 then angle = 0
                final(d) = final(d) + str$(int(angle))
                xm = 0
                ym = 0
                dist# = 0
            endif
        next e
        angle = wrapvalue(atanfull(xm,0-ym))
        a2 = angle
        inc angle,22.5
        angle = int(angle/45)
        if int(angle) = 8 then angle = 0
        final(d) = final(d) + str$(int(angle))
        xm = 0
        ym = 0
        dist# = 0
    next d
    for d = 0 to array count(characters(0))
        error(d) = get_sim(final(d),characters(d).s1)
    next d
    old = 0
    for d = 1 to array count(characters(0))
        if error(d) < error(old)
            old = d
        endif
    next d
    drawnchar$ = characters(old).s2

return

get_letter2:

    max = array count(recog(0))
    final(learnd) = ""
    dist# = 0
    xm = 0
    ym = 0
    nsects# = learnn
    sectss# = size# / nsects#
    for e = 0 to max
        inc dist#,recog(e).d
        inc xm,recog(e).x
        inc ym,recog(e).y
        if dist# >= sectss#
            angle = wrapvalue(atanfull(xm,0-ym))
            a2 = angle
            inc angle,22.5
            angle = int(angle/45)
            if int(angle) = 8 then angle = 0
            final(learnd) = final(learnd) + str$(int(angle))
            xm = 0
            ym = 0
            dec dist# = 0
        endif
    next e
    angle = wrapvalue(atanfull(xm,0-ym))
    a2 = angle
    inc angle,22.5
    angle = int(angle/45)
    if int(angle) = 8 then angle = 0
    final(learnd) = final(learnd) + str$(int(angle))
    xm = 0
    ym = 0
    dist# = 0

return

enter_letters:

    characters(0).s1 = "53043"
    characters(0).s2 = "a"

    characters(1).s1 = "440246"
    characters(1).s2 = "b"

    characters(2).s1 = "65322"
    characters(2).s2 = "c"

    characters(3).s1 = "5200420"
    characters(3).s2 = "d"

return

learn:

    cls

    letteron = 0

    print "Draw each letter three times..."
    sync
    wait key
    cls
    print "Draw a ",chr$(letteron+97),":"
    do

        omc = msc
        msc = mouseclick()
        mmx# = mousemovex()
        mmy# = mousemovey()
        msx# = mousex()
        msy# = mousey()
        if msc = 3 and omc <> 3
            cls
            sx# = msx#
            sy# = msy#
            dx# = msx#
            dy# = msy#
        endif
        if msc = 3 and omc = 3
            line sx#,sy#,msx#,msy#
            sx# = msx#
            sy# = msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            dx# = msx#
            dy# = msy#
        endif
        if msc <> 3 and omc = 3
            line sx#,sy#,msx#,msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            size# = 0.0
            print " "
            for d = 0 to max
                inc size#,recog(d).d
            next d
            learnd = letteron
            for t = 5 to 15
                learnn = t
                gosub get_letter2
                learn(goon,t-5) = final(learnd)
            next t
            if goon = 2
                for t = 5 to 15
                    unusable(t-5) = -100
                    for e = 1 to 4
                        err = get_sim(learn(0,t-5),learn(goon,t-5))
                        if err > unusable(t-5) then unusable(t-5) = err
                    next e
                next t
                old = 0
                for t = 1 to 10
                    if unusable(t) < unusable(old) then old = t
                next t
                characters(letteron).s1 = learn(0,old)
                characters(letteron).s2 = chr$(letteron+97)
            endif
            inc goon
            if goon = 3
                goon = 0
                inc letteron
                if letteron = 26 then exit
            endif
            print "Draw a ",chr$(letteron+97),":"
            empty array recog(0)
            linen = 0
        endif

        sync
    loop

    if file exist("people.ini")
        if fnam$ <> ""
            if file exist(fnam$) then delete file fnam$
            filename$ = fnam$
            gosub save_array
        endif
    else
        open to write 1,"people.ini"
        write string 1,"Default"
        write string 1,"Default.ini"
        close file 1
        filename$ = "Default.ini"
        gosub save_array
    endif

return

function get_sim(str1$,str2$)

    value = 0
    if str1$ = str2$ then value = -1000
    for d = 1 to len(str1$)
        n1 = val(mid$(str1$,d))
        n2 = val(mid$(str2$,d))
        n3 = abs(n1-n2)
        if n3 = 0
            inc value,1
        else
            if n3 < 2 or n3 > 6
                inc value,3
            else
                if n3 > 2 or n3 < 6
                    inc value,6
                else
                    if n3 > 3 and n3 < 5 then inc value,10
                endif
            endif
        endif
    next d
    dec value,len(str1$)*2

    print str1$," ",str2$," ",value

endfunction value

save_array:

    open to write 2,filename$
    for sve = 0 to array count(characters(0))
        write string 2,characters(sve).s1
        write string 2,characters(sve).s2
    next sve
    close file 2

return

load_array:

    open to read 2,filename$
    for sve = 0 to array count(characters(0))
        read string 2,characters(sve).s1
        read string 2,characters(sve).s2
    next sve
    close file 2

return

sync on

sync

dim recog(-1) as pos2

global size# as double float

type string2

    s1 as string
    s2 as string

endtype

type pos2

    x as double float
    y as double float
    d as double float

endtype

dim characters(25) as string2
dim final(25) as string
dim error(25) as integer
dim people(-1) as string2
dim learn(4,10) as string
dim unusable(10) as integer

if file exist("people.ini")
    open to read 1,"people.ini"
    do
        read string 1,name$
        read string 1,fnam$
        array insert at top people(0)
        people(0).s1 = name$
        people(0).s2 = fnam$
        inc numb
        print "[",numb,"] ",name$
        if file end(1) = 1 then exit
    loop
    sync
    do
        slct = val(inkey$())
        if slct <= numb and slct <> 0
            fnam$ = people(numb-slct).s2
            if file exist(fnam$)
                filename$ = fnam$
                gosub load_array
                exit
            else
                print "File not found!"
            endif
        endif
        sync
    loop
    close file 1
endif

do

    omc = msc
    msc = mouseclick()
    mmx# = mousemovex()
    mmy# = mousemovey()
    msx# = mousex()
    msy# = mousey()
    if msc = 3 and omc <> 3
        cls
        sx# = msx#
        sy# = msy#
        dx# = msx#
        dy# = msy#
    endif
    if msc = 3 and omc = 3
        line sx#,sy#,msx#,msy#
        sx# = msx#
        sy# = msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        dx# = msx#
        dy# = msy#
    endif
    if msc <> 3 and omc = 3
        line sx#,sy#,msx#,msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        size# = 0.0
        print " "
        for d = 0 to max
            inc size#,recog(d).d
`            print recog(d).d
        next d
`        print size#
        gosub get_letter
        empty array recog(0)
        text 0,0,drawnchar$
        linen = 0
`        for d = 0 to array count(final(0))
`            inc linen,20
`            text 0,linen,final(d)
`        next d
    endif
    if inkey$() = "l" and msc <> 3
        gosub learn
    endif

    sync

loop

get_letter:

    max = array count(recog(0))
    for d = 0 to array count(characters(0))
        final(d) = ""
        dist# = 0
        xm = 0
        ym = 0
        nsects# = len(characters(d).s1)
        sectss# = size# / nsects#
`        print sectss#
`        print size#
        for e = 0 to max
            inc dist#,recog(e).d
            inc xm,recog(e).x
            inc ym,recog(e).y
            if dist# >= sectss#
                angle = wrapvalue(atanfull(xm,0-ym))
                a2 = angle
                inc angle,22.5
                angle = int(angle/45)
                if int(angle) = 8 then angle = 0
                final(d) = final(d) + str$(int(angle))
                xm = 0
                ym = 0
                dist# = 0
            endif
        next e
        angle = wrapvalue(atanfull(xm,0-ym))
        a2 = angle
        inc angle,22.5
        angle = int(angle/45)
        if int(angle) = 8 then angle = 0
        final(d) = final(d) + str$(int(angle))
        xm = 0
        ym = 0
        dist# = 0
    next d
    for d = 0 to array count(characters(0))
        error(d) = get_sim(final(d),characters(d).s1)
    next d
    old = 0
    for d = 1 to array count(characters(0))
        if error(d) < error(old)
            old = d
        endif
    next d
    drawnchar$ = characters(old).s2

return

get_letter2:

    max = array count(recog(0))
    final(learnd) = ""
    dist# = 0
    xm = 0
    ym = 0
    nsects# = learnn
    sectss# = size# / nsects#
    for e = 0 to max
        inc dist#,recog(e).d
        inc xm,recog(e).x
        inc ym,recog(e).y
        if dist# >= sectss#
            angle = wrapvalue(atanfull(xm,0-ym))
            a2 = angle
            inc angle,22.5
            angle = int(angle/45)
            if int(angle) = 8 then angle = 0
            final(learnd) = final(learnd) + str$(int(angle))
            xm = 0
            ym = 0
            dec dist# = 0
        endif
    next e
    angle = wrapvalue(atanfull(xm,0-ym))
    a2 = angle
    inc angle,22.5
    angle = int(angle/45)
    if int(angle) = 8 then angle = 0
    final(learnd) = final(learnd) + str$(int(angle))
    xm = 0
    ym = 0
    dist# = 0

return

enter_letters:

    characters(0).s1 = "53043"
    characters(0).s2 = "a"

    characters(1).s1 = "440246"
    characters(1).s2 = "b"

    characters(2).s1 = "65322"
    characters(2).s2 = "c"

    characters(3).s1 = "5200420"
    characters(3).s2 = "d"

return

learn:

    cls

    letteron = 0

    print "Draw each letter three times..."
    sync
    wait key
    cls
    print "Draw a ",chr$(letteron+97),":"
    do

        omc = msc
        msc = mouseclick()
        mmx# = mousemovex()
        mmy# = mousemovey()
        msx# = mousex()
        msy# = mousey()
        if msc = 3 and omc <> 3
            cls
            sx# = msx#
            sy# = msy#
            dx# = msx#
            dy# = msy#
        endif
        if msc = 3 and omc = 3
            line sx#,sy#,msx#,msy#
            sx# = msx#
            sy# = msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            dx# = msx#
            dy# = msy#
        endif
        if msc <> 3 and omc = 3
            line sx#,sy#,msx#,msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            size# = 0.0
            print " "
            for d = 0 to max
                inc size#,recog(d).d
            next d
            learnd = letteron
            for t = 5 to 15
                learnn = t
                gosub get_letter2
                learn(goon,t-5) = final(learnd)
            next t
            if goon = 2
                for t = 5 to 15
                    unusable(t-5) = -100
                    for e = 1 to 4
                        err = get_sim(learn(0,t-5),learn(goon,t-5))
                        if err > unusable(t-5) then unusable(t-5) = err
                    next e
                next t
                old = 0
                for t = 1 to 10
                    if unusable(t) < unusable(old) then old = t
                next t
                characters(letteron).s1 = learn(0,old)
                characters(letteron).s2 = chr$(letteron+97)
            endif
            inc goon
            if goon = 3
                goon = 0
                inc letteron
                if letteron = 26 then exit
            endif
            print "Draw a ",chr$(letteron+97),":"
            empty array recog(0)
            linen = 0
        endif

        sync
    loop

    if file exist("people.ini")
        if fnam$ <> ""
            if file exist(fnam$) then delete file fnam$
            filename$ = fnam$
            gosub save_array
        endif
    else
        open to write 1,"people.ini"
        write string 1,"Default"
        write string 1,"Default.ini"
        close file 1
        filename$ = "Default.ini"
        gosub save_array
    endif

return

function get_sim(str1$,str2$)

    value = 0
    if str1$ = str2$ then value = -1000
    for d = 1 to len(str1$)
        n1 = val(mid$(str1$,d))
        n2 = val(mid$(str2$,d))
        n3 = abs(n1-n2)
        if n3 = 0
            inc value,1
        else
            if n3 < 2 or n3 > 6
                inc value,3
            else
                if n3 > 2 or n3 < 6
                    inc value,6
                else
                    if n3 > 3 and n3 < 5 then inc value,10
                endif
            endif
        endif
    next d
    dec value,len(str1$)*2

    print str1$," ",str2$," ",value

endfunction value

save_array:

    open to write 2,filename$
    for sve = 0 to array count(characters(0))
        write string 2,characters(sve).s1
        write string 2,characters(sve).s2
    next sve
    close file 2

return

load_array:

    open to read 2,filename$
    for sve = 0 to array count(characters(0))
        read string 2,characters(sve).s1
        read string 2,characters(sve).s2
    next sve
    close file 2

return

sync on

sync

dim recog(-1) as pos2

global size# as double float

type string2

    s1 as string
    s2 as string

endtype

type pos2

    x as double float
    y as double float
    d as double float

endtype

dim characters(25) as string2
dim final(25) as string
dim error(25) as integer
dim people(-1) as string2
dim learn(4,10) as string
dim unusable(10) as integer

if file exist("people.ini")
    open to read 1,"people.ini"
    do
        read string 1,name$
        read string 1,fnam$
        array insert at top people(0)
        people(0).s1 = name$
        people(0).s2 = fnam$
        inc numb
        print "[",numb,"] ",name$
        if file end(1) = 1 then exit
    loop
    sync
    do
        slct = val(inkey$())
        if slct <= numb and slct <> 0
            fnam$ = people(numb-slct).s2
            if file exist(fnam$)
                filename$ = fnam$
                gosub load_array
                exit
            else
                print "File not found!"
            endif
        endif
        sync
    loop
    close file 1
endif

do

    omc = msc
    msc = mouseclick()
    mmx# = mousemovex()
    mmy# = mousemovey()
    msx# = mousex()
    msy# = mousey()
    if msc = 3 and omc <> 3
        cls
        sx# = msx#
        sy# = msy#
        dx# = msx#
        dy# = msy#
    endif
    if msc = 3 and omc = 3
        line sx#,sy#,msx#,msy#
        sx# = msx#
        sy# = msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        dx# = msx#
        dy# = msy#
    endif
    if msc <> 3 and omc = 3
        line sx#,sy#,msx#,msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        size# = 0.0
        print " "
        for d = 0 to max
            inc size#,recog(d).d
`            print recog(d).d
        next d
`        print size#
        gosub get_letter
        empty array recog(0)
        text 0,0,drawnchar$
        linen = 0
`        for d = 0 to array count(final(0))
`            inc linen,20
`            text 0,linen,final(d)
`        next d
    endif
    if inkey$() = "l" and msc <> 3
        gosub learn
    endif

    sync

loop

get_letter:

    max = array count(recog(0))
    for d = 0 to array count(characters(0))
        final(d) = ""
        dist# = 0
        xm = 0
        ym = 0
        nsects# = len(characters(d).s1)
        sectss# = size# / nsects#
`        print sectss#
`        print size#
        for e = 0 to max
            inc dist#,recog(e).d
            inc xm,recog(e).x
            inc ym,recog(e).y
            if dist# >= sectss#
                angle = wrapvalue(atanfull(xm,0-ym))
                a2 = angle
                inc angle,22.5
                angle = int(angle/45)
                if int(angle) = 8 then angle = 0
                final(d) = final(d) + str$(int(angle))
                xm = 0
                ym = 0
                dist# = 0
            endif
        next e
        angle = wrapvalue(atanfull(xm,0-ym))
        a2 = angle
        inc angle,22.5
        angle = int(angle/45)
        if int(angle) = 8 then angle = 0
        final(d) = final(d) + str$(int(angle))
        xm = 0
        ym = 0
        dist# = 0
    next d
    for d = 0 to array count(characters(0))
        error(d) = get_sim(final(d),characters(d).s1)
    next d
    old = 0
    for d = 1 to array count(characters(0))
        if error(d) < error(old)
            old = d
        endif
    next d
    drawnchar$ = characters(old).s2

return

get_letter2:

    max = array count(recog(0))
    final(learnd) = ""
    dist# = 0
    xm = 0
    ym = 0
    nsects# = learnn
    sectss# = size# / nsects#
    for e = 0 to max
        inc dist#,recog(e).d
        inc xm,recog(e).x
        inc ym,recog(e).y
        if dist# >= sectss#
            angle = wrapvalue(atanfull(xm,0-ym))
            a2 = angle
            inc angle,22.5
            angle = int(angle/45)
            if int(angle) = 8 then angle = 0
            final(learnd) = final(learnd) + str$(int(angle))
            xm = 0
            ym = 0
            dist# = 0
        endif
    next e
    angle = wrapvalue(atanfull(xm,0-ym))
    a2 = angle
    inc angle,22.5
    angle = int(angle/45)
    if int(angle) = 8 then angle = 0
    final(learnd) = final(learnd) + str$(int(angle))
    xm = 0
    ym = 0
    dist# = 0

return

enter_letters:

    characters(0).s1 = "53043"
    characters(0).s2 = "a"

    characters(1).s1 = "440246"
    characters(1).s2 = "b"

    characters(2).s1 = "65322"
    characters(2).s2 = "c"

    characters(3).s1 = "5200420"
    characters(3).s2 = "d"

return

learn:

    cls

    letteron = 0

    print "Draw each letter three times..."
    sync
    wait key
    cls
    print "Draw a ",chr$(letteron+97),":"
    do

        omc = msc
        msc = mouseclick()
        mmx# = mousemovex()
        mmy# = mousemovey()
        msx# = mousex()
        msy# = mousey()
        if msc = 3 and omc <> 3
            cls
            sx# = msx#
            sy# = msy#
            dx# = msx#
            dy# = msy#
        endif
        if msc = 3 and omc = 3
            line sx#,sy#,msx#,msy#
            sx# = msx#
            sy# = msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            dx# = msx#
            dy# = msy#
        endif
        if msc <> 3 and omc = 3
            line sx#,sy#,msx#,msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            size# = 0.0
            print " "
            for d = 0 to max
                inc size#,recog(d).d
            next d
            learnd = letteron
            for t = 5 to 15
                learnn = t
                gosub get_letter2
                learn(goon,t-5) = final(learnd)
            next t
            if goon = 2
                for t = 5 to 15
                    unusable(t-5) = -100
                    for e = 1 to 4
                        err = get_sim(learn(0,t-5),learn(goon,t-5))
                        if err > unusable(t-5) then unusable(t-5) = err
                    next e
                next t
                old = 0
                for t = 1 to 10
                    if unusable(t) < unusable(old) then old = t
                next t
                characters(letteron).s1 = learn(0,old)
                characters(letteron).s2 = chr$(letteron+97)
            endif
            inc goon
            if goon = 3
                goon = 0
                inc letteron
                if letteron = 26 then exit
            endif
            print "Draw a ",chr$(letteron+97),":"
            empty array recog(0)
            linen = 0
        endif

        sync
    loop

    if file exist("people.ini")
        if fnam$ <> ""
            if file exist(fnam$) then delete file fnam$
            filename$ = fnam$
            gosub save_array
        endif
    else
        open to write 1,"people.ini"
        write string 1,"Default"
        write string 1,"Default.ini"
        close file 1
        filename$ = "Default.ini"
        gosub save_array
    endif

return

function get_sim(str1$,str2$)

    value = 0
    if str1$ = str2$ then value = -1000
    for d = 1 to len(str1$)
        n1 = val(mid$(str1$,d))
        n2 = val(mid$(str2$,d))
        n3 = abs(n1-n2)
        if n3 = 0
            inc value,1
        else
            if n3 < 2 or n3 > 6
                inc value,3
            else
                if n3 > 2 or n3 < 6
                    inc value,6
                else
                    if n3 > 3 and n3 < 5 then inc value,10
                endif
            endif
        endif
    next d
    dec value,len(str1$)*2

    print str1$," ",str2$," ",value

endfunction value

save_array:

    open to write 2,filename$
    for sve = 0 to array count(characters(0))
        write string 2,characters(sve).s1
        write string 2,characters(sve).s2
    next sve
    close file 2

return

load_array:

    open to read 2,filename$
    for sve = 0 to array count(characters(0))
        read string 2,characters(sve).s1
        read string 2,characters(sve).s2
    next sve
    close file 2

return

sync on : set window on
sch = screen height()
scw = screen width()
set display mode screen width()/4,sch/4,32
set window size scw/4,sch/4
set window position 0,sch-(sch/4)

sync

load dll "user32.dll",1

dim recog(-1) as pos2

global size# as double float

type string2

    s1 as string
    s2 as string

endtype

type pos2

    x as double float
    y as double float
    d as double float

endtype

dim characters(25) as string2
dim final(25) as string
dim error(25) as integer
dim people(-1) as string2
dim learn(4,10) as string
dim unusable(10) as integer

if file exist("people.ini")
    open to read 1,"people.ini"
    do
        read string 1,name$
        read string 1,fnam$
        array insert at top people(0)
        people(0).s1 = name$
        people(0).s2 = fnam$
        inc numb
        print "[",numb,"] ",name$
        if file end(1) = 1 then exit
    loop
    sync
    do
        slct = val(inkey$())
        if slct <= numb and slct <> 0
            fnam$ = people(numb-slct).s2
            if file exist(fnam$)
                filename$ = fnam$
                gosub load_array
                exit
            else
                print "File not found!"
            endif
        endif
        sync
    loop
    close file 1
endif

do

    omc = msc
    msc = mouseclick()
    mmx# = mousemovex()
    mmy# = mousemovey()
    msx# = mousex()
    msy# = mousey()
    if msc = 3 and omc <> 3
        cls
        sx# = msx#
        sy# = msy#
        dx# = msx#
        dy# = msy#
    endif
    if msc = 3 and omc = 3
        line sx#,sy#,msx#,msy#
        sx# = msx#
        sy# = msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        dx# = msx#
        dy# = msy#
    endif
    if msc <> 3 and omc = 3
        line sx#,sy#,msx#,msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        size# = 0.0
        print " "
        for d = 0 to max
            inc size#,recog(d).d
`            print recog(d).d
        next d
`        print size#
        gosub get_letter
        empty array recog(0)
        text 0,0,drawnchar$
        hide window
        for d = 1 to len(drawnchar$)
            call dll 1,"keybd_event",asc(mid$(drawnchar$,d))-32,0x45,1,0,0
        next d
        show window
        linen = 0
    endif
    if inkey$() = "l" and msc <> 3
        gosub learn
    endif

    sync

loop

get_letter:

    max = array count(recog(0))
    for d = 0 to array count(characters(0))
        final(d) = ""
        dist# = 0
        xm = 0
        ym = 0
        nsects# = len(characters(d).s1)
        sectss# = size# / nsects#
`        print sectss#
`        print size#
        for e = 0 to max
            inc dist#,recog(e).d
            inc xm,recog(e).x
            inc ym,recog(e).y
            if dist# >= sectss#
                angle = wrapvalue(atanfull(xm,0-ym))
                a2 = angle
                inc angle,22.5
                angle = int(angle/45)
                if int(angle) = 8 then angle = 0
                final(d) = final(d) + str$(int(angle))
                xm = 0
                ym = 0
                dist# = 0
            endif
        next e
        angle = wrapvalue(atanfull(xm,0-ym))
        a2 = angle
        inc angle,22.5
        angle = int(angle/45)
        if int(angle) = 8 then angle = 0
        final(d) = final(d) + str$(int(angle))
        xm = 0
        ym = 0
        dist# = 0
    next d
    for d = 0 to array count(characters(0))
        error(d) = get_sim(final(d),characters(d).s1)
    next d
    old = 0
    for d = 1 to array count(characters(0))
        if error(d) < error(old)
            old = d
        endif
    next d
    drawnchar$ = characters(old).s2

return

get_letter2:

    max = array count(recog(0))
    final(learnd) = ""
    dist# = 0
    xm = 0
    ym = 0
    nsects# = learnn
    sectss# = size# / nsects#
    for e = 0 to max
        inc dist#,recog(e).d
        inc xm,recog(e).x
        inc ym,recog(e).y
        if dist# >= sectss#
            angle = wrapvalue(atanfull(xm,0-ym))
            a2 = angle
            inc angle,22.5
            angle = int(angle/45)
            if int(angle) = 8 then angle = 0
            final(learnd) = final(learnd) + str$(int(angle))
            xm = 0
            ym = 0
            dist# = 0
        endif
    next e
    angle = wrapvalue(atanfull(xm,0-ym))
    a2 = angle
    inc angle,22.5
    angle = int(angle/45)
    if int(angle) = 8 then angle = 0
    final(learnd) = final(learnd) + str$(int(angle))
    xm = 0
    ym = 0
    dist# = 0

return

enter_letters:

    characters(0).s1 = "53043"
    characters(0).s2 = "a"

    characters(1).s1 = "440246"
    characters(1).s2 = "b"

    characters(2).s1 = "65322"
    characters(2).s2 = "c"

    characters(3).s1 = "5200420"
    characters(3).s2 = "d"

return

learn:

    cls

    letteron = 0

    print "Draw each letter three times..."
    sync
    wait key
    cls
    print "Draw a ",chr$(letteron+97),":"
    do

        omc = msc
        msc = mouseclick()
        mmx# = mousemovex()
        mmy# = mousemovey()
        msx# = mousex()
        msy# = mousey()
        if msc = 3 and omc <> 3
            cls
            sx# = msx#
            sy# = msy#
            dx# = msx#
            dy# = msy#
        endif
        if msc = 3 and omc = 3
            line sx#,sy#,msx#,msy#
            sx# = msx#
            sy# = msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            dx# = msx#
            dy# = msy#
        endif
        if msc <> 3 and omc = 3
            line sx#,sy#,msx#,msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            size# = 0.0
            print " "
            for d = 0 to max
                inc size#,recog(d).d
            next d
            learnd = letteron
            for t = 5 to 15
                learnn = t
                gosub get_letter2
                learn(goon,t-5) = final(learnd)
            next t
            if goon = 2
                for t = 5 to 15
                    unusable(t-5) = -100
                    for e = 1 to 4
                        err = get_sim(learn(0,t-5),learn(goon,t-5))
                        if err > unusable(t-5) then unusable(t-5) = err
                    next e
                next t
                old = 0
                for t = 1 to 10
                    if unusable(t) < unusable(old) then old = t
                next t
                characters(letteron).s1 = learn(0,old)
                characters(letteron).s2 = chr$(letteron+97)
            endif
            inc goon
            if goon = 3
                goon = 0
                inc letteron
                if letteron = 26 then exit
            endif
            print "Draw a ",chr$(letteron+97),":"
            empty array recog(0)
            linen = 0
        endif

        sync
    loop

    if file exist("people.ini")
        if fnam$ <> ""
            if file exist(fnam$) then delete file fnam$
            filename$ = fnam$
            gosub save_array
        endif
    else
        open to write 1,"people.ini"
        write string 1,"Default"
        write string 1,"Default.ini"
        close file 1
        filename$ = "Default.ini"
        gosub save_array
    endif

return

function get_sim(str1$,str2$)

    value = 0
    if str1$ = str2$ then value = -1000
    for d = 1 to len(str1$)
        n1 = val(mid$(str1$,d))
        n2 = val(mid$(str2$,d))
        n3 = abs(n1-n2)
        if n3 = 0
            inc value,1
        else
            if n3 < 2 or n3 > 6
                inc value,3
            else
                if n3 > 2 or n3 < 6
                    inc value,6
                else
                    if n3 > 3 and n3 < 5 then inc value,10
                endif
            endif
        endif
    next d
    dec value,len(str1$)*2

`    print str1$," ",str2$," ",value

endfunction value

save_array:

    open to write 2,filename$
    for sve = 0 to array count(characters(0))
        write string 2,characters(sve).s1
        write string 2,characters(sve).s2
    next sve
    close file 2

return

load_array:

    open to read 2,filename$
    for sve = 0 to array count(characters(0))
        read string 2,characters(sve).s1
        read string 2,characters(sve).s2
    next sve
    close file 2

return

sync on : set window on
sch = screen height()
scw = screen width()
set display mode screen width()/4,sch/4,32
set window size scw/4,sch/4
set window position 0,sch-(sch/4)

sync

load dll "user32.dll",1
curwin = call dll(1,"GetForegroundWindow")

dim recog(-1) as pos2

global size# as double float

type string2

    s1 as string
    s2 as string

endtype

type pos2

    x as double float
    y as double float
    d as double float

endtype

dim characters(25) as string2
dim final(25) as string
dim error(25) as integer
dim people(-1) as string2
dim learn(4,10) as string
dim unusable(10) as integer

if file exist("people.ini")
    open to read 1,"people.ini"
    do
        read string 1,name$
        read string 1,fnam$
        array insert at top people(0)
        people(0).s1 = name$
        people(0).s2 = fnam$
        inc numb
        print "[",numb,"] ",name$
        if file end(1) = 1 then exit
    loop
    sync
    do
        slct = val(inkey$())
        if slct <= numb and slct <> 0
            fnam$ = people(numb-slct).s2
            if file exist(fnam$)
                filename$ = fnam$
                gosub load_array
                exit
            else
                print "File not found!"
            endif
        endif
        sync
    loop
    close file 1
endif

do

    if ontop = 0
        call dll 1,"SetForegroundWindow",curwin
        ontop = 1
    endif
    if msc = 0 and tog = 0 and ontop = 1
        nextwin = call dll(1,"GetWindow",curwin,2)
        call dll 1,"SetForegroundWindow",nextwin
        ontop = 0
    endif
    inc tog
    if tog = 2 then tog = 0

    omc = msc
    msc = mouseclick()
    mmx# = mousemovex()
    mmy# = mousemovey()
    msx# = mousex()
    msy# = mousey()
    if msc = 3 and omc <> 3
        cls
        sx# = msx#
        sy# = msy#
        dx# = msx#
        dy# = msy#
    endif
    drag = 0
    if msc = 3 and omc = 3
        drag = 1
        line sx#,sy#,msx#,msy#
        sx# = msx#
        sy# = msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        dx# = msx#
        dy# = msy#
    endif
    if msc <> 3 and omc = 3
        line sx#,sy#,msx#,msy#
        array insert at bottom recog(0)
        max = array count(recog(0))
        recog(max).x = msx#-dx#
        recog(max).y = msy#-dy#
        recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
        size# = 0.0
        print " "
        for d = 0 to max
            inc size#,recog(d).d
`            print recog(d).d
        next d
`        print size#
        gosub get_letter
        empty array recog(0)
        text 0,0,drawnchar$
        if caps = 0
            text 30,0,"Caps off"
        else
            text 30,0,"Caps on"
        endif
        text 0,(sch/4)-15,"Backspace"
        text 0,(sch/4)-30,"Delete"
        text 150,(sch/4)-30,"  []"
        text 150,(sch/4)-15,"[][][]"
        text 90,(sch/4)-15,"[====]"
        hide window
        if caps
            call dll 1,"keybd_event",20,0x45,1,0,0
        endif
        for d = 1 to len(drawnchar$)
            call dll 1,"keybd_event",(asc(mid$(drawnchar$,d))-32),0x45,1,0,0
        next d
        if caps
            call dll 1,"keybd_event",20,0x45,1,0,0
        endif
        show window
        linen = 0
    endif
    if backspace
        hide window
        call dll 1,"keybd_event",8,0x45,1,0,0
        show window
    endif
    if delete
        hide window
        call dll 1,"keybd_event",46,0x45,1,0,0
        show window
    endif
    if space
        hide window
        call dll 1,"keybd_event",32,0x45,1,0,0
        show window
    endif
    if arrow > 0
        hide window
        call dll 1,"keybd_event",36+arrow,0x45,1,0,0
        show window
    endif
    sleep 10
    backspace = 0
    space = 0
    delete = 0
    arrow = 0
    if msc = 1 and omc = 0
        if msx# > 30 and msy# < 18
            cls
            text 0,(sch/4)-15,"Backspace"
            text 0,(sch/4)-30,"Delete"
            text 150,(sch/4)-30,"  []"
            text 150,(sch/4)-15,"[][][]"
            text 90,(sch/4)-15,"[====]"
            if caps = 0
                caps = 1
                text 30,0,"Caps on"
            else
                caps = 0
                text 30,0,"Caps off"
            endif
        else
            if msy# > (sch/4)-30
                if msx# < 150
                    if msy# > (sch/4)-15
                        if msx# < 90
                            backspace = 1
                        else
                            space = 1
                        endif
                    else
                        delete = 1
                    endif
                else
                    if msy# > (sch/4)-15
                        if msx# < 160
                            arrow = 1
                        else
                            if msx# < 170
                                arrow = 4
                            else
                                arrow = 3
                            endif
                        endif
                    else
                        arrow = 2
                    endif
                endif
            endif
        endif
    endif
    if inkey$() = "l" and msc <> 3
        gosub learn
    endif

    sync

loop

get_letter:

    max = array count(recog(0))
    for d = 0 to array count(characters(0))
        final(d) = ""
        dist# = 0
        xm = 0
        ym = 0
        nsects# = len(characters(d).s1)
        sectss# = size# / nsects#
`        print sectss#
`        print size#
        for e = 0 to max
            inc dist#,recog(e).d
            inc xm,recog(e).x
            inc ym,recog(e).y
            if dist# >= sectss#
                angle = wrapvalue(atanfull(xm,0-ym))
                a2 = angle
                inc angle,22.5
                angle = int(angle/45)
                if int(angle) = 8 then angle = 0
                final(d) = final(d) + str$(int(angle))
                xm = 0
                ym = 0
                dist# = 0
            endif
        next e
        angle = wrapvalue(atanfull(xm,0-ym))
        a2 = angle
        inc angle,22.5
        angle = int(angle/45)
        if int(angle) = 8 then angle = 0
        final(d) = final(d) + str$(int(angle))
        xm = 0
        ym = 0
        dist# = 0
    next d
    for d = 0 to array count(characters(0))
        error(d) = get_sim(final(d),characters(d).s1)
    next d
    old = 0
    for d = 1 to array count(characters(0))
        if error(d) < error(old)
            old = d
        endif
    next d
    drawnchar$ = characters(old).s2

return

get_letter2:

    max = array count(recog(0))
    final(learnd) = ""
    dist# = 0
    xm = 0
    ym = 0
    nsects# = learnn
    sectss# = size# / nsects#
    for e = 0 to max
        inc dist#,recog(e).d
        inc xm,recog(e).x
        inc ym,recog(e).y
        if dist# >= sectss#
            angle = wrapvalue(atanfull(xm,0-ym))
            a2 = angle
            inc angle,22.5
            angle = int(angle/45)
            if int(angle) = 8 then angle = 0
            final(learnd) = final(learnd) + str$(int(angle))
            xm = 0
            ym = 0
            dist# = 0
        endif
    next e
    angle = wrapvalue(atanfull(xm,0-ym))
    a2 = angle
    inc angle,22.5
    angle = int(angle/45)
    if int(angle) = 8 then angle = 0
    final(learnd) = final(learnd) + str$(int(angle))
    xm = 0
    ym = 0
    dist# = 0

return

enter_letters:

    characters(0).s1 = "53043"
    characters(0).s2 = "a"

    characters(1).s1 = "440246"
    characters(1).s2 = "b"

    characters(2).s1 = "65322"
    characters(2).s2 = "c"

    characters(3).s1 = "5200420"
    characters(3).s2 = "d"

return

learn:

    cls

    letteron = 0

    print "Draw each letter three times..."
    sync
    wait key
    cls
    print "Draw a ",chr$(letteron+97),":"
    do

        omc = msc
        msc = mouseclick()
        mmx# = mousemovex()
        mmy# = mousemovey()
        msx# = mousex()
        msy# = mousey()
        if msc = 3 and omc <> 3
            cls
            sx# = msx#
            sy# = msy#
            dx# = msx#
            dy# = msy#
        endif
        if msc = 3 and omc = 3
            line sx#,sy#,msx#,msy#
            sx# = msx#
            sy# = msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            dx# = msx#
            dy# = msy#
        endif
        if msc <> 3 and omc = 3
            line sx#,sy#,msx#,msy#
            array insert at bottom recog(0)
            max = array count(recog(0))
            recog(max).x = msx#-dx#
            recog(max).y = msy#-dy#
            recog(max).d = sqrt(((recog(max).x*100.0)^2.0)+((recog(max).y*100.0)^2.0))
            size# = 0.0
            print " "
            for d = 0 to max
                inc size#,recog(d).d
            next d
            learnd = letteron
            for t = 5 to 15
                learnn = t
                gosub get_letter2
                learn(goon,t-5) = final(learnd)
            next t
            if goon = 2
                for t = 5 to 15
                    unusable(t-5) = -100
                    for e = 1 to 4
                        err = get_sim(learn(0,t-5),learn(goon,t-5))
                        if err > unusable(t-5) then unusable(t-5) = err
                    next e
                next t
                old = 0
                for t = 1 to 10
                    if unusable(t) < unusable(old) then old = t
                next t
                characters(letteron).s1 = learn(0,old)
                characters(letteron).s2 = chr$(letteron+97)
            endif
            inc goon
            if goon = 3
                goon = 0
                inc letteron
                if letteron = 26 then exit
            endif
            print "Draw a ",chr$(letteron+97),":"
            empty array recog(0)
            linen = 0
        endif

        sync
    loop

    if file exist("people.ini")
        if fnam$ <> ""
            if file exist(fnam$) then delete file fnam$
            filename$ = fnam$
            gosub save_array
        endif
    else
        open to write 1,"people.ini"
        write string 1,"Default"
        write string 1,"Default.ini"
        close file 1
        filename$ = "Default.ini"
        gosub save_array
    endif

return

function get_sim(str1$,str2$)

    value = 0
    if str1$ = str2$ then value = -1000
    for d = 1 to len(str1$)
        n1 = val(mid$(str1$,d))
        n2 = val(mid$(str2$,d))
        n3 = abs(n1-n2)
        if n3 = 0
            inc value,1
        else
            if n3 < 2 or n3 > 6
                inc value,3
            else
                if n3 > 2 or n3 < 6
                    inc value,6
                else
                    if n3 > 3 and n3 < 5 then inc value,10
                endif
            endif
        endif
    next d
    dec value,len(str1$)*2

`    print str1$," ",str2$," ",value

endfunction value

save_array:

    open to write 2,filename$
    for sve = 0 to array count(characters(0))
        write string 2,characters(sve).s1
        write string 2,characters(sve).s2
    next sve
    close file 2

return

load_array:

    open to read 2,filename$
    for sve = 0 to array count(characters(0))
        read string 2,characters(sve).s1
        read string 2,characters(sve).s2
    next sve
    close file 2

return

REM Project: Writing Recognition
REM Created: 9/28/2006 4:28:19 PM
REM
REM ***** Main Source File *****
REM

remstart
uppercase=up
a=up-right,down-right
b=down,up,right,down,left
c=left,down,right
d=left,down,right,up
e=right,up,left,down,right
f=up,left,down
g=left,down,right,up,down,left
h=down,up,right,down
i=down
j=down,left,up
k=down,up,right,down,left,down-right or down-left,down-right
l=down,right
m=down,up,right,down,up,right,down
n=up,right,down
o=left,down,right,up,left
p=up,left,down,right
q=left,down,right,up,down
r=down,up,right
s=left,down,right,down,left
t=down,up,left
u=down,right,up
v=down-right,up-right
w=down,right,up,down,right,up
x=down-right
y=down,left,up,down,left
z=right,down-left,right
remend

sync on
cls

`Declaring all varibales, dirrection keeps the directions of the mouse
`x and y are for the drawn lines

dim dirrection(100)
dim x(100000)
dim y(100000)

lin=1

nextdir=1


width=screen width()
fort=width/40

`main loop


do
   sync
   CLS rgb(255,255,255)

   line 0,screen height()/2,screen width(),screen height()/2
   line 0,screen height()/2-100,screen width(),screen height()/2-100

   ink rgb(0,0,200),rgb(0,0,200)
   for i=0 to 40
      line fort*i,screen height()/2-50,fort*i+10,screen height()/2-50
   next i
   ink 0,0

   text 0,0,letter$
   text 0,screen height()-text height(sentence$),sentence$

   x=mousemovex()
   y=mousemovey()

   x(lin)=mousex()
   y(lin)=mousey()
   lin=lin+1

`draws where the mouse moves
   if mouseclick()=3
      for i=2 to lin-1
         line x(i),y(i),x(i-1),y(i-1)
      next i
   endif

`when the mouse button is let go checks for what letter was drawn

   if mouseclick()=0
      gosub recognize
      lin=1
      undim x(100000)
      undim y(100000)
      dim x(100000)
      dim y(100000)
   endif


   olddirection=direction

`if there is a change in the direction then it records it
   if olddirection=direction and direction<>0 and direction<>dirrection(nextdir-1) and mouseclick()=3
      dirrection(nextdir)=direction
      nextdir=nextdir+1
   endif

`detirmines the direction the mouse is moving
`1=right, -1=left,2=down,-2=up
`3=down-right,-3=down-left,4=up-right,-4=up-left

   if x>0 and y>=-1 and y=<1 and direction<>3 and direction<>4 then direction=1
   if x<0 and y>=-1 and y=<1 and direction<>-3 and direction<>-4 then direction=-1
   if y>0 and x>=-1 and x=<1 and direction<>3 and direction<>-3 then direction=2
   if y<0 and x>=-1 and x=<1 and direction<>4 and direction<>-4 then direction=-2
   if x>1 and y>1 and direction<>1 and direction<>2 then direction=3
   if x<-1 and y>1 and direction<>-1 and direction<>2 then direction=-3
   if x>1 and y<-1 and direction<>1 and direction<>-2 then direction=4
   if x<-1 and y<-1 and direction<>-1 and direction<>-2 then direction=-4



   wait 20


loop

`The subroutine to detect what letter is being made

recognize:
if nextdir>=7

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=1 and dirrection(nextdir-6)=-2 and dirrection(nextdir-7)=2
      letter$="m"
      nextdir=1
      goto donecheck
   endif


endif

if nextdir>=6

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=1 and dirrection(nextdir-5)=2 and dirrection(nextdir-6)=-1
      letter$="g"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=3 and dirrection(nextdir-2)=-1 and dirrection(nextdir-3)=2 and dirrection(nextdir-4)=1 and dirrection(nextdir-5)=-2 and dirrection(nextdir-6)=2
      letter$="k"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=2 and dirrection(nextdir-4)=-2 and dirrection(nextdir-5)=1 and dirrection(nextdir-6)=2
      letter$="w"
      nextdir=1
      goto donecheck
   endif


endif


if nextdir>=5
   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=-2 and dirrection(nextdir-5)=2
      letter$="b"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=1 and dirrection(nextdir-5)=2
      letter$="y"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=-1 and dirrection(nextdir-4)=-2 and dirrection(nextdir-5)=1
      letter$="e"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=-1
      letter$="q"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=-1
      letter$="s"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=-1
      letter$="o"
      nextdir=1
      goto donecheck
   endif


endif

if nextdir>=4

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=2 and dirrection(nextdir-4)=-1
      letter$="d"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=2
      letter$="h"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=-2
      letter$="p"
      nextdir=1
      goto donecheck
   endif

endif



if nextdir>=3
   if -2=dirrection(nextdir-1) and 1=dirrection(nextdir-2) and 2=dirrection(nextdir-3)
      letter$="u"
      nextdir=1
      goto donecheck
   endif

   if 2=dirrection(nextdir-1) and 1=dirrection(nextdir-2) and dirrection(nextdir-3)=-2
      letter$="n"
      nextdir=1
      goto donecheck
   endif

   if 1=dirrection(nextdir-1) and 2=dirrection(nextdir-2) and dirrection(nextdir-3)=-1
      letter$="c"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=-1 and dirrection(nextdir-3)=-2
      letter$="f"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=-3 and dirrection(nextdir-3)=1
      letter$="z"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=-1 and dirrection(nextdir-3)=2
      letter$="j"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=2
      letter$="t"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=2
      letter$="r"
      nextdir=1
      goto donecheck
   endif

endif

if nextdir>=2

   if dirrection(nextdir-1)=3 and dirrection(nextdir-2)=4
      letter$="a"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=4 and dirrection(nextdir-2)=3
      letter$="v"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=2
      letter$="l"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=2
      letter$="l"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=3 and dirrection(nextdir-2)=-3
      letter$="k"
      nextdir=1
      goto donecheck
   endif





endif

   if dirrection(nextdir-1)=2
      letter$="i"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2
      upercase=1
      nextdir=1
      goto back
   endif

   if dirrection(nextdir-1)=3
      letter$="x"
      nextdir=1
      goto donecheck
   endif


goto back

donecheck:
if upercase=1 then letter$=upper$(letter$)
sentence$=sentence$+letter$
upercase=0

back:
return

REM Project: Writing Recognition
REM Created: 9/28/2006 4:28:19 PM
REM
REM ***** Main Source File *****
REM

remstart
uppercase=up
backspace=left,up
space=right,up
a=up-right,down-right
b=down,up,right,down,left
c=left,down,right
d=left,down,right,up
e=right,up,left,down,right
f=up,left,down
g=left,down,right,up,down,left
h=down,up,right,down
i=down
j=down,left,up
k=down,up,right,down,left,down-right or down-left,down-right
l=down,right
m=down,up,right,down,up,right,down
n=up,right,down
o=left,down,right,up,left
p=up,left,down,right
q=left,down,right,up,down
r=down,up,right
s=left,down,right,down,left
t=down,up,left
u=down,right,up
v=down-right,up-right
w=down,right,up,down,right,up
x=down-right
y=down,left,up,down,left
z=right,down-left,right
remend

disable escapekey
sync on
cls
load dll "User32.dll",1


`Declaring all varibales, dirrection keeps the directions of the mouse
`x and y are for the drawn lines

dim dirrection(100)
dim command(20)
dim x(100000)
dim y(100000)

lin=1

nextdir=1


width=screen width()
fort=width/40

`main loop


do
   sync
   CLS rgb(255,255,255)

   for i=1 to 26
      pressed=button(chr$(64+i),screen width()-50,(i-1)*20)
      if pressed=1
         button$=chr$(96+i)
         gosub buttonpressed
         call dll 1,"MessageBoxA",0,"Character "+chr$(64+i)+"="+instructions$,"The letter "+chr$(64+i),0
         gosub buttonpressed2
         gosub drawit
      endif

   next i

   if escapekey()=1
      call dll 1,"MessageBoxA",0,"Thanks for using Spopovich's handwriting recognition program","Quit",0
      print responce
      write to clipboard sentence$
      end
   endif

   line 0,screen height()/2,screen width()-100,screen height()/2
   line 0,screen height()/2-100,screen width()-100,screen height()/2-100

   ink rgb(0,0,200),rgb(0,0,200)
   for i=0 to 36
      line fort*i,screen height()/2-50,fort*i+10,screen height()/2-50
   next i
   ink 0,0

   text 0,0,letter$
   text 0,screen height()-text height(sentence$),sentence$

   x=mousemovex()
   y=mousemovey()

   x(lin)=mousex()
   y(lin)=mousey()
   lin=lin+1

`draws where the mouse moves
   if mouseclick()=3
      for i=2 to lin-1
         line x(i),y(i),x(i-1),y(i-1)
      next i
   endif

`when the mouse button is let go checks for what letter was drawn

   if mouseclick()=0
      gosub recognize
      lin=1
      undim x(100000)
      undim y(100000)
      dim x(100000)
      dim y(100000)
   endif


   olddirection=direction

`if there is a change in the direction then it records it
   if olddirection=direction and direction<>0 and direction<>dirrection(nextdir-1) and mouseclick()=3
      dirrection(nextdir)=direction
      nextdir=nextdir+1
   endif

`detirmines the direction the mouse is moving
`1=right, -1=left,2=down,-2=up
`3=down-right,-3=down-left,4=up-right,-4=up-left

   if x>0 and y>=-1 and y=<1 and direction<>3 and direction<>4 then direction=1
   if x<0 and y>=-1 and y=<1 and direction<>-3 and direction<>-4 then direction=-1
   if y>0 and x>=-1 and x=<1 and direction<>3 and direction<>-3 then direction=2
   if y<0 and x>=-1 and x=<1 and direction<>4 and direction<>-4 then direction=-2
   if x>1 and y>1 and direction<>1 and direction<>2 then direction=3
   if x<-1 and y>1 and direction<>-1 and direction<>2 then direction=-3
   if x>1 and y<-1 and direction<>1 and direction<>-2 then direction=4
   if x<-1 and y<-1 and direction<>-1 and direction<>-2 then direction=-4



   wait 20


loop

`The subroutine to detect what letter is being made

recognize:
if nextdir>=7

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=1 and dirrection(nextdir-6)=-2 and dirrection(nextdir-7)=2
      letter$="m"
      nextdir=1
      goto donecheck
   endif


endif

if nextdir>=6

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=1 and dirrection(nextdir-5)=2 and dirrection(nextdir-6)=-1
      letter$="g"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=3 and dirrection(nextdir-2)=-1 and dirrection(nextdir-3)=2 and dirrection(nextdir-4)=1 and dirrection(nextdir-5)=-2 and dirrection(nextdir-6)=2
      letter$="k"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=2 and dirrection(nextdir-4)=-2 and dirrection(nextdir-5)=1 and dirrection(nextdir-6)=2
      letter$="w"
      nextdir=1
      goto donecheck
   endif


endif


if nextdir>=5
   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=-2 and dirrection(nextdir-5)=2
      letter$="b"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=1 and dirrection(nextdir-5)=2
      letter$="y"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=-1 and dirrection(nextdir-4)=-2 and dirrection(nextdir-5)=1
      letter$="e"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=-1
      letter$="q"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=-1
      letter$="s"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=2 and dirrection(nextdir-5)=-1
      letter$="o"
      nextdir=1
      goto donecheck
   endif


endif

if nextdir>=4

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=2 and dirrection(nextdir-4)=-1
      letter$="d"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=1 and dirrection(nextdir-3)=-2 and dirrection(nextdir-4)=2
      letter$="h"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=2 and dirrection(nextdir-3)=1 and dirrection(nextdir-4)=-2
      letter$="p"
      nextdir=1
      goto donecheck
   endif

endif



if nextdir>=3
   if -2=dirrection(nextdir-1) and 1=dirrection(nextdir-2) and 2=dirrection(nextdir-3)
      letter$="u"
      nextdir=1
      goto donecheck
   endif

   if 2=dirrection(nextdir-1) and 1=dirrection(nextdir-2) and dirrection(nextdir-3)=-2
      letter$="n"
      nextdir=1
      goto donecheck
   endif

   if 1=dirrection(nextdir-1) and 2=dirrection(nextdir-2) and dirrection(nextdir-3)=-1
      letter$="c"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=2 and dirrection(nextdir-2)=-1 and dirrection(nextdir-3)=-2
      letter$="f"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=-3 and dirrection(nextdir-3)=1
      letter$="z"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=-1 and dirrection(nextdir-3)=2
      letter$="j"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-1 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=2
      letter$="t"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=-2 and dirrection(nextdir-3)=2
      letter$="r"
      nextdir=1
      goto donecheck
   endif

endif

if nextdir>=2

   if dirrection(nextdir-1)=3 and dirrection(nextdir-2)=4
      letter$="a"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=4 and dirrection(nextdir-2)=3
      letter$="v"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=2
      letter$="l"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=1 and dirrection(nextdir-2)=2
      letter$="l"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=3 and dirrection(nextdir-2)=-3
      letter$="k"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=-1 and len(sentence$)>0
      sentence$=left$(sentence$,len(sentence$)-1)
      letter$=""
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2 and dirrection(nextdir-2)=1
      letter$=" "
      nextdir=1
      goto donecheck
   endif



endif

   if dirrection(nextdir-1)=2
      letter$="i"
      nextdir=1
      goto donecheck
   endif

   if dirrection(nextdir-1)=-2
      upercase=1
      nextdir=1
      goto back
   endif

   if dirrection(nextdir-1)=3
      letter$="x"
      nextdir=1
      goto donecheck
   endif






goto back

donecheck:
if upercase=1 then letter$=upper$(letter$)
sentence$=sentence$+letter$
upercase=0

back:
return

`make the letter buttons
function button(name$,x,y)
   text x,y,name$
   if mouseclick()=2 and mousex()>x and mousex()<x+text width(name$) and mousey()>y and mousey()<y+text height(name$)
      pressed=1
   endif
endfunction pressed

`first set of instructions for printing in the pop-up window
buttonpressed:
   if "a"=button$ then instructions$="up-right,down-right"
   if "b"=button$ then instructions$="down,up,right,down,left"
   if "c"=button$ then instructions$="left,down,right"
   if "d"=button$ then instructions$="left,down,right,up"
   if "e"=button$ then instructions$="right,up,left,down,right"
   if "f"=button$ then instructions$="up,left,down"
   if "g"=button$ then instructions$="left,down,right,up,down,left"
   if "h"=button$ then instructions$="down,up,right,down"
   if "i"=button$ then instructions$="down"
   if "j"=button$ then instructions$="down,left,up"
   if "k"=button$ then instructions$="down,up,right,down,left,down-right or down-left,down-right"
   if "l"=button$ then instructions$="down,right"
   if "m"=button$ then instructions$="down,up,right,down,up,right,down"
   if "n"=button$ then instructions$="up,right,down"
   if "o"=button$ then instructions$="left,down,right,up,left"
   if "p"=button$ then instructions$="up,right,down,left"
   if "q"=button$ then instructions$="left,down,right,up,down"
   if "r"=button$ then instructions$="down,up,right"
   if "s"=button$ then instructions$="left,down,right,down,left"
   if "t"=button$ then instructions$="down,up,left"
   if "u"=button$ then instructions$="down,right,up"
   if "v"=button$ then instructions$="down-right,up-right"
   if "w"=button$ then instructions$="down,right,up,down,right,up"
   if "x"=button$ then instructions$="down-right"
   if "y"=button$ then instructions$="down,right,up,down,left"
   if "z"=button$ then instructions$="right,down-left,right"
return

`second set of instructions for drawing only
buttonpressed2:
   if "a"=button$ then instructions$="up-right,down-right"
   if "b"=button$ then instructions$="down,down,up,right,down,left"
   if "c"=button$ then instructions$="left,down,right"
   if "d"=button$ then instructions$="left,down,right,up,up"
   if "e"=button$ then instructions$="right,up,left,down,down,right"
   if "f"=button$ then instructions$="up,left,down,down"
   if "g"=button$ then instructions$="left,down,right,up,down,down,left"
   if "h"=button$ then instructions$="down,down,up,right,down"
   if "i"=button$ then instructions$="down"
   if "j"=button$ then instructions$="down,down,left,up"
   if "k"=button$ then instructions$="down,down,down,up,up,right,down,left,down-right"
   if "l"=button$ then instructions$="down,down,right"
   if "m"=button$ then instructions$="down,up,right,down,up,right,down"
   if "n"=button$ then instructions$="up,right,down"
   if "o"=button$ then instructions$="left,down,down,right,right,up,up,left"
   if "p"=button$ then instructions$="up,up,right,down,left"
   if "q"=button$ then instructions$="left,down,right,up,down,down"
   if "r"=button$ then instructions$="down,up,right"
   if "s"=button$ then instructions$="left,down,right,down,left"
   if "t"=button$ then instructions$="down,down,up,left"
   if "u"=button$ then instructions$="down,right,up"
   if "v"=button$ then instructions$="down-right,up-right"
   if "w"=button$ then instructions$="down,right,up,down,right,up"
   if "x"=button$ then instructions$="down-right"
   if "y"=button$ then instructions$="down,right,up,down,down,left"
   if "z"=button$ then instructions$="right,down-left,right"
return


`parses the second set of instructions to see what it should draw.
drawit:
   comma=0
   letterx=screen width()/2-80
   lettery=screen height()/2
   command$=""
   for k=1 to len(instructions$)
      a$=mid$(instructions$,k)
      if a$=","
         comma=comma+1
         if command$="up" then command(comma)=1
         if command$="down" then command(comma)=2
         if command$="right" then command(comma)=3
         if command$="left" then command(comma)=4
         if command$="up-right" then command(comma)=5
         if command$="down-right" then command(comma)=6
         if command$="down-left" then command(comma)=7
         if command$="up-left" then command(comma)=8

      endif
      command$=command$+a$
      if a$="," then command$=""
   next k
         comma=comma+1
         if command$="up" then command(comma)=1
         if command$="down" then command(comma)=2
         if command$="right" then command(comma)=3
         if command$="left" then command(comma)=4
         if command$="up-right" then command(comma)=5
         if command$="down-right" then command(comma)=6
         if command$="down-left" then command(comma)=7
         if command$="up-left" then command(comma)=8

   for k=1 to comma
      if command(k)=1
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx
            lettery=lettery-1
            sync
            wait 10
         next j
      endif
      if command(k)=2
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx
            lettery=lettery+1
            sync
            wait 10
         next j
      endif
      if command(k)=3
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx+1
            lettery=lettery
            sync
            wait 10
         next j
      endif
      if command(k)=4
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx-1
            lettery=lettery
            sync
            wait 10
         next j
      endif
      if command(k)=5
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx+1
            lettery=lettery-1
            sync
            wait 10
         next j
      endif
      if command(k)=6
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx+1
            lettery=lettery+1
            sync
            wait 10
         next j
      endif
      if command(k)=7
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx-1
            lettery=lettery+1
            sync
            wait 10
         next j
      endif
      if command(k)=8
         for j=1 to 80
            dot letterx,lettery
            letterx=letterx-1
            lettery=lettery-1
            sync
            wait 10
         next j
      endif

   next k
return

REM Project: Writing
REM Created: 10/4/2006 9:39:06 PM
REM
REM ***** Main Source File *****
REM
Set display mode 640,480,32

Sync On

Ink RGB(255,255,255),1

` Variables
LoX = Screen Width() ; HiX = 0
LoY = Screen Height() ; HiY = 0
Borders = 0
Bact = 0

` Main Loop


Do
   ink RGB(0,0,0),1
   box 0,0,90,70
   ink RGB(255,255,255),1
   Set Cursor 10,10
   print "LoX = " ; LoX
   Set Cursor 10,20
   print "HiX = " ; HiX
   Set Cursor 10,30
   print "LoY = " ; LoY
   Set Cursor 10,40
   print "HiY = " ; HiY
   Set Cursor 10,50
   print x

   if Borders = 1
      line LoX,LoY,HiX,LoY
      line LoX,LoY,LoX,HiY
      line LoX,HiY,HiX,HiY
      line HiX,LoY,HiX,HiY

      x=x+1
      Get Image 1,LoX,LoY,HiX,HiY
      REM Reset Border Values
      LoX = Screen Width() ; HiX = 0
      LoY = Screen Height() ; HiY = 0
      Borders = 0
      Bact = 0
   endif
   if mouseclick() = 3
      line OldMouseX,OldMouseY,MouseX(),MouseY()
      line OldMouseX,OldMouseY+1,MouseX(),MouseY()+1
      line OldMouseX+1,OldMouseY,MouseX()+1,MouseY()
      OldMouseX = MouseX() ; OldMouseY = MouseY()
      if OldMouseX < LoX Then LoX = OldMouseX
      if OldMouseX > HiX Then HiX = OldMouseX
      if OldMouseY < LoY Then LoY = OldMouseY
      if OldMouseY > HiY Then HiY = OldMouseY
      Bact = 1
   endif

   if mouseclick() < 3
      OldMouseX = MouseX() ; OldMouseY = MouseY()
      if Bact = 1
         Borders = 1
      endif
   endif
   sync
Loop

if point(x,y)=rgb(255,255,255) then pixelwhite=1 else pixelwhite=0

xwidth=1024
ywidth=768
set display mode xwidth,ywidth,32
backdrop on:sync on:color backdrop rgb(0,0,0)
rem Describe mouse movements
dim movement$(3,3)
data "h","u","e","l","","r","g","d","f"
for yd=1 to 3
  for xd=1 to 3
    read movement$(xd,yd)
  next xd
next yd
angle_low#=25.0
angle_high#=65.0
rem Arrays to hold graphic shape of letter that is drawn
max_draw_points=1000
dim drawx(max_draw_points)
dim drawy(max_draw_points)
rem Characters (symbol) and the mouse movements (symcode) that construct the characters
symbols=43
dim symbol$(symbols)
dim symcode$(symbols)
for sym=1 to symbols
  read symbol$(sym),symcode$(sym)
next sym

drawp=1
line_size=3
char$=" "
rem Define the minimum length of a line segment to be drawn
segment#=5.0
x1=0
y1=0
start=0
quit=0
while not quit
  if (mouseclick()=3)
    if start=0
      rem Set the starting point on screen for the letter being drawn
      start=1
      x1=mousex()
      y1=mousey()
      drawx(drawp)=x1
      drawy(drawp)=y1
      inc drawp
    endif
    drawx(drawp)=mousex()
    drawy(drawp)=mousey()
    rem Calculate length of line drawn from last point
    length#=sqrt((drawx(drawp)-x1)^2+(drawy(drawp)-y1)^2)
    rem Process only when line is longer than the defined line segment
    if (length# > segment#)
      rem Calculate angle of line to determine direction of mouse movement
      if (drawx(drawp)=x1)
        angle#=90.0
      else
        angle#=atan(abs(drawy(drawp)-y1)/abs(drawx(drawp)-x1))
      endif
      if (drawx(drawp)-x1)<0
        x=1
      else
        x=3
      endif
      if (angle#<angle_low#) then y=2
      if (angle#>=angle_low#)
        if (drawy(drawp)-y1)<0
          y=1
        else
          y=3
        endif
      endif
      if (angle#>angle_high#) then x=2
      x1=drawx(drawp)
      y1=drawy(drawp)
      inc drawp
      if (drawp>max_draw_points) then dec drawp
      rem If direction of mouse movement changes, record new direction of movement
      if ( movement$(x,y) <> mid$(char$,len(char$)) ) and ( movement$(x,y) <> chr$(asc(mid$(char$,len(char$)))-32) )
        char$=char$+movement$(x,y)
        repeated=0
      else
        rem If same direction continues, record movement as a longer line
        inc repeated
        if (repeated > line_size)
          char$=char$+movement$(x,y)
          repeated=0
        endif
      endif
    endif
  else
    rem Mouse buttons released, match the drawn pattern to a character
    if start=1
      for sym=1 to symbols
        if match_code(symcode$(sym),char$)
          if (symbol$(sym) = "bp" )
            rem Process a backspace
            if (len(recognize$)>0)
              if (len(recognize$)=1)
                recognize$=""
              else
                recognize$=left$(recognize$,len(recognize$)-1)
              endif
            endif
          else
            rem Add recognized character to the string
            recognize$=recognize$+symbol$(sym)
          endif
          sym=symbols+1
        endif
      next sym
    endif
    rem Reset drawn shape for next character
    char$=""
    drawp=1
    start=0
  endif
  gosub draw_screen
  if escapekey() then quit=1
endwhile
end

draw_screen:
  ink rgb(128,128,128),0
  box int(xwidth/2)-int(line_size*20),int(ywidth/2)-int(line_size*20),int(xwidth/2)+int(line_size*20),int(ywidth/2)+int(line_size*20)
  ink rgb(255,255,255),0
  for c=2 to drawp-1
    line drawx(c-1),drawy(c-1),drawx(c),drawy(c)
  next c
  ink rgb(64,64,64),0
  box 40,40,xwidth-100,90
  ink rgb(255,255,255),0
  set cursor 50,50
  set text size 40
  print recognize$;"_"
  set cursor 1,ywidth-175
  set text size 20
  print "Hold down both mouse buttons to draw a letter."
  print "Draw captial letters only."
  print "Release mouse buttons when finished with letter."
  ink rgb(128,255,128),0
  print "Box is for reference only. You can draw anywhere on the screen."
  print "For best results: try and draw the letter the same size as the box."
  print
  ink rgb(255,128,128),0
  print "[BACKSPACE] - draw right to left. [SPACE] - draw left to right."
  set cursor 1,20
  print "Mouse Gesture - Character Recognition - by acelepage"
  sync
return

function match_code(symcode$,char$)
  found=1
  match_position=0
  misses=0
  for symchar=1 to len(symcode$)
    inc match_position
    match$=mid$(symcode$,symchar)
    while (mid$(char$,match_position) <> match$) and (match_position <= len(char$))
      inc match_position
      inc misses
    endwhile
    if match_position>len(char$)
      found=0
    endif
  next symchar
  if (misses>(len(symcode$)*2)) then found=0
endfunction found

data "B","urdlrdl"
data "E","ldrldr"
data "F","urldr"
data "Q","ruldr"
data "Q","ruldf"
data "O","rdlu"
data "O","lddruu"
data "O","ddruul"
data "G","lddrul"
data "S","ldrdl"
data "S","ldfdl"
data "R","urdlf"
data "Z","rgr"
data "T","rld"
data "A","udul"
data "D","uurddl"
data "P","uurdl"
data "H","durdu"
data "H","durud"
data "F","ldur"
data "K","degf"
data "M","ufed"
data "M","efef"
data "M","udud"
data "W","defu"
data "W","fefe"
data "W","dudu"
data "N","uufuu"
data "Y","fed"
data "X","fug"
data "X","fle"
data "C","ldr"
data "J","dlh"
data "U","dru"
data "V","fe"
data "V","fu"
data "V","du"
data "V","de"
data "L","dr"
data "I","d"
data " ","r"
data "bp","l"

Diggsey.  Because of the training feature, I could get it to recognise 'natural' characters (ie. with curves) with almost 100% accuracy.
After just a bit of practice, I copied this from notepad without using backspace:

ABCDEFGHIJKIMNOPQRSTUPVWXYZ 

- as you can see, the whole alphabet with just two errors.
Great work Diggsey!