#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN() AS LONG
  DIM s AS STRING
  s = "Hello, PBXA64!"
  PRINT s
  PRINT "Length: "; LEN(s)
  PRINT "Upper: "; UCASE$(s)
  PRINT "Left 5: "; LEFT$(s, 5)
  FUNCTION = 0
END FUNCTION
