XProfan

Source wurde am 09.07.2006 in die Babyklappe auf XProfan.Com abgelegt:

proc putbintofle

    parameters s$
    declare i%
    sub i%,i%

    while lt(I%,len(S$))

        add I%,1
        putbyte #1,sub(255,ord(mid$(s$,i%,1)))

    wend

    putbyte #1,0

endproc