4 TRON
5 OPEN "output" FOR OUTPUT AS 1
7 ON ERROR GOTO 1000
9 PRINT#1, "333
10 FOR I =1 TO 10
20 PRINT#1, I
30 NEXT
40 PRINT#1, "yea"
45 GOTO 70
50 REM
60 NEXT
70 FOR J=1 TO 10
75 C=C+1: IF C > 200 THEN 120
80 GOTO 30
120 CLOSE:END
1000 PRINT#1, "error:", ERR, ERL: PRINT ERR, ERL: RESUME NEXT





