32 lines
644 B
Plaintext
32 lines
644 B
Plaintext
FUNCTION Copialo$ (txt$, siNo, final$)
|
|
FOR cont = 1 TO ROUND(siNo)
|
|
LET nuevaCadena$ = nuevaCadena$ & txt$
|
|
NEXT cont
|
|
|
|
LET Copialo$ = LTRIM$(RTRIM$(nuevaCadena$)) & final$
|
|
END FUNCTION
|
|
|
|
SUB Saludo
|
|
PRINT "Hola mundo!"
|
|
END SUB
|
|
|
|
SUB testCadenas (txt$)
|
|
FOR cont = 1 TO ROUND(LEN(txt$))
|
|
PRINT (txt$)[cont:cont+1-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\'")
|
|
END
|