Initial data commit

Task/Call-a-function/QBasic/call-a-function.basic

@@ -0,0 +1,32 @@
+FUNCTION Copialo$ (txt$, siNo, final$)
+    DIM nuevaCadena$
+
+    FOR cont = 1 TO siNo
+	nuevaCadena$ = nuevaCadena$ + txt$
+    NEXT cont
+
+    Copialo$ = LTRIM$(RTRIM$(nuevaCadena$)) + final$
+END FUNCTION
+
+SUB Saludo
+    PRINT "Hola mundo!"
+END SUB
+
+SUB testCadenas (txt$)
+    FOR cont = 1 TO LEN(txt$)
+	PRINT MID$(txt$, cont, 1); "";
+    NEXT cont
+END SUB
+
+SUB testNumeros (a, b, c)
+	PRINT a, b, c
+END SUB
+
+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\'")