10 REM PC-BASIC test 
20 REM ERASE syntax
30 OPEN "ERRORS.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 ERASE
55 DIM A[10]
60 ERASE A
70 ERASE A
80 DIM A[10]
90 ERASE A,
100 ERASE A
110 DIM A[10], B[10]
120 ERASE A,B
130 DIM A[10], B[10]
140 ERASE A[], B[10]
150 ERASE B(10)
160 ERASE "!"
170 ERASE 5
180 ERASE B(10) LPRINT
190 ERASE LPRINT
200 ERASE A,B,C,
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT
