1 ENDDATA
2 ENDDATA
3 END0DATA
4 ENDDATA
5 END
LET

15 ENDREM	
769 FORASCUTURE (null)ALUE
1281 ON(null)O  OBTAIN  THE ASCUTURE
1537 ON(null)ALUE OF AN INVESTMENT,
1793 ONENTER THE  VALUES INTO
2049 >L2/M2/N2/O2, AND THEN
2305 >PRESS '_'.
3073 ONRIGHT$NITIAL INVESTMENT
3074 GOSUBTEND