10 REM PC-BASIC test 
20 REM GOSUB/RETURN 
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 10000
50 PRINT#1, 1: GOSUB 100
60 PRINT#1, 2: GOSUB 100
70 PRINT#1, 3: GOSUB 200
100 A=A+10: PRINT#1, "SUB", A
110 RETURN
200 A=A+10: PRINT#1, "SUB", A
210 RETURN 1000
1000 PRINT#1, 4
1010 GOSUB "1"
1020 RETURN "1"
1030 RETURN 1040,
1040 PRINT#1, 5
1050 END
10000 PRINT#1, "Error:", ERR, ERL
10010 RESUME NEXT
