CODE
	st "Hello World!",[$a0]
	call PCAT$write_string
	call PCAT$write_newline
	return
ENDCODE