RosettaCodeData/Task/String-append/XBasic/string-append.basic

PROGRAM	"String append"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
  a$ = "Hello"
  a$ = a$ + " World!"
  PRINT a$
END FUNCTION
END PROGRAM