#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    BRIDGE IMPORT shared_text AS STRINGZ * 20 ALIAS "SHARED-TEXT"
    PRINT ">" + PEEK$(STRPTR(shared_text), 20) + "<"
    shared_text = "PB hello"
    PRINT ">" + PEEK$(STRPTR(shared_text), 20) + "<"
    FUNCTION = 0
END FUNCTION
