4 TRON
5 OPEN "output" FOR OUTPUT AS 1
7 ON ERROR GOTO 1000
10 FOR I = 1 TO 2
20 FOR J = 1 TO 2
25 PRINT#1, I,J
30 NEXT J,I
110 FOR I% = 1 TO 20 STEP 3
120 FOR J% = 1 TO 20 STEP 7
125 PRINT#1, I%, J%
130 NEXT: NEXT
200 FOR I% = 10 TO 20 STEP 32767
210 PRINT#1, I%
220 NEXT
230 FOR I% = 10 TO 20 STEP 32768
240 PRINT#1, I%
250 NEXT
260 FOR I% = 10 TO 20
270 PRINT#1, I%
280 NEXT K
300 FOR I = 10 TO 20 STEP 1.5
310 PRINT#1, I
320 NEXT I
330 NEXT K
999 CLOSE: END
1000 PRINT#1, "error:", ERR, ERL: PRINT ERR, ERL: RESUME NEXT
