10 REM PC-BASIC test 
20 REM RESTORE statement
25 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
27 ON ERROR GOTO 1000
30 FOR I = 1 to 10: READ A: PRINT#1, A;: NEXT
40 FOR I = 1 to 10: READ A: PRINT#1, A;: NEXT
50 RESTORE
60 FOR I = 1 to 10: READ A: PRINT#1, A;: NEXT
70 RESTORE 120
80 FOR I = 1 to 10: READ A: PRINT#1, A;: NEXT
90 FOR I = 1 to 10: READ A: PRINT#1, A;: NEXT
100 FOR I = 1 to 10: READ A$: PRINT#1, A$;: NEXT
110 RESTORE 130
120 FOR I = 1 to 10: READ A$: PRINT#1, A$;: NEXT
140 FOR I = 1 to 10: READ A%: PRINT#1, A%;: NEXT
150 END
200 DATA 1,2,3,4,5,6,7,8,9,10
210 DATA 11,12,13,14,15,16,17,18,19,20 
220 DATA 21,22,23,24,25,26,27,28,29,30 
230 DATA A21,A22,A23,A24,A25,A26,A27,A28,A29,A30 
240 DATA 255, 32767, -32768, 32768, 65535
1000 PRINT#1, "error:", ERR, ERL
1010 RESUME NEXT
