The program:

!split out the last number of a Fibonacci series

LET fibn$="1,1,2,3,5,8,13,21,34"

PRINT "The 9 term series is ...";fibn$

LET last$ = fibn$[posr(fibn$,",")+1:len(fibn$)]

PRINT "The string version of the last term is ...";last$

LET last = val(last$)

PRINT "The numerical version is ...";last

END

The output:

The 9 term series is ...1,1,2,3,5,8,13,21,34

The string version of the last term is ...34

The numerical version is ... 34