10 A = 10
20 GOSUB 1000
30 GOSUB 1000
40 A = 100
50 GOSUB 1000
60 GOSUB 1000
90 END
1000 REM -- Subroutine --
1010 PRINT "A = ";A
1020 A = A + 1
1030 RETURN