test.bas

ASProtect的2.4版

#COMPILE EXE
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#INCLUDE "PB.INC"

FUNCTION PBMAIN()
    LOCAL i AS BYTE
    MSGBOX "Begin", %MB_ICONINFORMATION, "UserBuffer Example"
    USER_POLY_BUFFER
    FOR i = 1 TO 5
    MSGBOX STR$(i), %MB_ICONINFORMATION, "Index"
    NEXT i
    MSGBOX "End", %MB_ICONINFORMATION, "UserBuffer Example"
END FUNCTION