10 REM PC-BASIC test 
20 REM another awful FOR loop
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 FOR I = 1 to 10
60 DEFINT I
65 FOR I = 2 TO 20 STEP 2
70 PRINT #1, I!, I%, I
75 DEFSNG I
80 NEXT I
90 DEFINT I
100 NEXT I
999 END
1000 PRINT#1, "Error:", ERR, ERL
1010 RESUME NEXT
