' Dollar Equates — $identifier = "text" string constants
#COMPILE EXE
#DIM ALL

$APP_NAME = "PBXB64 Sample Suite"
$VERSION = "1.0.0"
$AUTHOR = "PBXA64 Team"
$SEPARATOR = STRING$(40, 45)

FUNCTION PBMAIN() AS LONG
    PRINT $SEPARATOR
    PRINT $APP_NAME
    PRINT "Version: "; $VERSION
    PRINT "Author: "; $AUTHOR
    PRINT $SEPARATOR

    IF $APP_NAME = "PBXB64 Sample Suite" THEN
        PRINT "App name matches"
    END IF

    FUNCTION = 0
END FUNCTION
