function Copialo$ (txt$, siNo, final$)
	nuevaCadena$ = ""

	for cont = 1 to siNo
		nuevaCadena$ += txt$
	next cont

	return trim(nuevaCadena$) + final$
end function

subroutine Saludo()
	print "Hola mundo!"
end subroutine

subroutine testCadenas (txt$)
	for cont = 1 to length(txt$)
		print mid(txt$, cont, 1); "";
	next cont
end subroutine

subroutine testNumeros (a, b, c)
	print a, b, c
end subroutine

call Saludo()
print Copialo$("Saludos ", 6, "")
print Copialo$("Saludos ", 3, "!!")
print
call testNumeros(1, 2, 3)
call testNumeros(1, 2, 0)
print
call testCadenas("1, 2, 3, 4, cadena, 6, 7, 8, \#incluye texto\#")
end