10 REM PC-BASIC test 
20 REM DIM syntax
30 OPEN "ERRORS.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 DIM
60 DIM A
70 DIM A[
80 DIM A[1
90 DIM A[1]
100 DIM A[1],
110 DIM B[1], C(1)
120 DIM C(1]
130 DIM D[1)
140 DIM E(1), E(1)
150 DIM F(1), F(2)
160 DIM A$
170 DIM A$(10)
180 DIM Z#(10), Z$(10), Z%(10), Z!(10)
190 DIM K(A$)
200 DIM BIG%(32768)
210 DIM BIG2%(256)
220 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT
