10 TRAP 20:X=A(0):PRINT "FAIL":STOP
20 TRAP 30:A(0)=X:PRINT "FAIL":STOP
30 TRAP 40:X=A(0,0):PRINT "FAIL":STOP
40 TRAP 50:A(0,0)=X:PRINT "FAIL":STOP
50 TRAP 32768
60 DIM A(10)
70 TRAP 80:X=A(-1):PRINT "FAIL":STOP
80 TRAP 90:X=A(11):PRINT "FAIL":STOP
90 TRAP 100:A(-1)=X:PRINT "FAIL":STOP
100 TRAP 110:A(11)=X:PRINT "FAIL":STOP
110 TRAP 32768
120 X=A(0)
130 X=A(10)
140 FOR X=0 TO 10:A(X)=X+10:NEXT X
150 FOR X=0 TO 10
160 IF A(X)<>X+10 THEN PRINT "FAIL ",X,A(X)
170 NEXT X
180 CLR
190 TRAP 200:X=A(0):PRINT "FAIL":STOP
200 DIM A(10,10)
210 TRAP 220:X=A(-1,-1):PRINT "FAIL":STOP
220 TRAP 230:X=A(-1,0):PRINT "FAIL":STOP
230 TRAP 240:X=A(-0,-1):PRINT "FAIL":STOP
240 TRAP 250:X=A(10,11):PRINT "FAIL":STOP
250 TRAP 260:X=A(11,10):PRINT "FAIL":STOP
260 TRAP 270:X=A(11,11):PRINT "FAIL":STOP
270 TRAP 32768
280 X=A(0,0):X=A(0,10):X=A(10,0):X=A(10,10)
290 FOR X=0 TO 10
300 FOR Y=0 TO 10
310 A(X,Y) = 10+X+Y
320 NEXT Y
330 NEXT X
340 FOR X=0 TO 10
350 FOR Y=0 TO 10
360 IF A(X,Y)<>10+X+Y THEN PRINT "FAIL",X,Y,A(X,Y):STOP
370 NEXT Y
380 NEXT X
1000 PRINT "PASS"

