jargon's String/uByte Conversion for FreeBASIC

'"ascii ubyte.bas"
'String/uByte Conversion for FreeBASIC
'Copyright 2024 03/14 Tim Keal alias jargon

Const NULL As Any Ptr = 0

#Define EQU =
#Define GTR >
#Define LSS <
#Define NEQ <>
#Define GEQ >=
#Define LEQ <=

Const EMPTY = ""

declare sub ascii2array(byval text as string=EMPTY, array(any) as ubyte )

declare sub array2ascii(byref text as string=EMPTY, array(any) as ubyte )

sub ascii2array(byval text as string=EMPTY, array(any) as ubyte )

    erase array

    dim as longint offset=0,index=0

    do
        if offset GEQ len(text) then exit do

        redim preserve array(LBound(array,1) to UBound(array,1))

        array(offset)=asc(mid(text,offset+1,1))

        offset+=1

    loop

end sub

sub array2ascii(byref text as string=EMPTY, array(any) as ubyte )

    text = EMPTY

    dim as longint offset=0,index=0

    offset = LBound(array,1)

    do
        if offset GTR UBound(array,1) then exit do

        text &= chr(array(offset))

        offset+=1

    loop

end sub