10 REM GOSUB: a piece of program with a way back
20 DIM T$(30)
30 T$="First":GOSUB 1000
40 T$="Second title":GOSUB 1000
50 N=3:GOSUB 2000
60 N=10:GOSUB 2000
70 END
1000 REM Print T$ underlined
1010 PRINT T$
1020 FOR I=1 TO LEN(T$):PRINT "-";:NEXT I
1030 PRINT
1040 RETURN
2000 REM Print the square and the cube of N
2010 PRINT N;" squared is ";N*N;", cubed ";N*N*N
2020 RETURN