10 DIM A$(10),B$(10)
20 IF LEN(A$)<>0 THEN STOP
30 A$="ABCDEF"
40 IF A$<>"ABCDEF" OR LEN(A$)<>6 THEN STOP
50 A$="ABCDEFGHIJKLMN"
60 IF A$<>"ABCDEFGHIJ" OR LEN(A$)<>10 THEN STOP
70 TRAP 80:A$(0)="":STOP
80 TRAP 90:A$(11)="":STOP
90 TRAP 32768
100 A$(10)="12345"
110 IF A$<>"ABCDEFGHI1" OR LEN(A$)<>10 THEN STOP
120 A$(5)="X"
130 IF A$<>"ABCDX" OR LEN(A$)<>5 THEN STOP
140 A$(5)=""
150 IF A$<>"ABCD" OR LEN(A$)<>4 THEN STOP
160 A$(7)="!"
170 IF A$<>"ABCDXF!" OR LEN(A$)<>7 THEN STOP
180 A$(3,4)="xyzabc"
190 IF A$<>"ABxyXF!" OR LEN(A$)<>7 THEN STOP
200 A$(2,5)=""
210 IF A$<>"ABxyXF!" OR LEN(A$)<>7 THEN STOP
220 A$(8,9)="()"
230 IF A$<>"ABxyXF!()" OR LEN(A$)<>9 THEN STOP
240 IF A$(1)<>"ABxyXF!()" THEN STOP
250 IF A$(9)<>")" THEN STOP
260 IF A$(3,4)<>"xy" THEN STOP
270 A$="ABCDE"
280 TRAP 290:B$=A$(6)
290 TRAP 300:B$=A$(6,8)
300 TRAP 32768:IF A$(4)<>"DE" THEN STOP
310 TRAP 320:B$=A$(4,7)
320 TRAP 32768:A$(1,1)="Q":A$(10,10)="Q":A$(2)=A$
330 IF A$<>"QQQQQQQQQQ" THEN STOP
340 PRINT "PASS"
