- #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