' Dollar Equates — string constants
#COMPILE EXE
#DIM ALL

CONST APP_NAME = "PBXB64 Sample Suite"
CONST VERSION_STR = "1.0.0"
CONST AUTHOR_STR = "PBXA64 Team"

FUNCTION PBMAIN() AS LONG
    PRINT APP_NAME
    PRINT "Version: " + VERSION_STR
    PRINT "Author: " + AUTHOR_STR
    PRINT "Done."
    FUNCTION = 0
END FUNCTION
