33 lines
619 B
Plaintext
33 lines
619 B
Plaintext
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\'")
|