10 REM PC-BASIC test 
20 REM COMMON strings
30 OPEN "ERRORS.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 COMMON A$, B$, D$
60 A$="test"
70 B$=A$+"1"
80 C$=A$+"2"
90 D$=A$+"3"
100 E$="test4"
110 CHAIN"test2"
190 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT


