RosettaCodeData/Task/Increment-a-numerical-string/True-BASIC/increment-a-numerical-string.basic

LET cadena$ = "12345"
LET cadena$ = STR$(VAL(cadena$) + 1)
PRINT cadena$
END