10 REM PC-BASIC test 
20 REM FOR and WHILE loops
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 FOR I = 1 TO 10
60 WHILE I = 1
70 PRINT#1, 70, I
80 NEXT I
90 PRINT#1, 90, I
100 WEND
110 END
1000 PRINT#1, "ERROR:", ERR, ERL
1010 RESUME NEXT
