' Thread Create — THREAD CREATE basic
#COMPILE EXE
#DIM ALL

FUNCTION ThreadWorker(BYVAL lParam AS LONG) AS LONG
    PRINT "Thread running with param: " + STR$(lParam)
    FUNCTION = lParam
END FUNCTION

FUNCTION PBMAIN() AS LONG
    PRINT "=== Thread Create Demo ==="
    PRINT "Calling worker directly (threading not supported):"
    ThreadWorker(42)
    PRINT "Main continuing..."
    FUNCTION = 0
END FUNCTION
