10 DIM A$(100)
100 IF CHR$(65)<>"A" THEN STOP
110 IF LEN(CHR$(0))<>1 THEN STOP
200 IF ASC("A")<>65 THEN STOP
210 IF ASC(CHR$(0))<>0 THEN STOP
220 IF ASC(CHR$(255))<>255 THEN STOP
230 X=ASC("")
300 IF STR$(0)<>"0" THEN STOP
310 IF STR$(-1)<>"-1" THEN STOP
320 IF STR$(1)<>"1" THEN STOP
330 IF STR$(2)<>CHR$(50) THEN STOP
400 IF VAL("400")<>400 THEN STOP
410 IF VAL(" 410")<>410 THEN STOP
420 IF VAL(" 420 ")<>420 THEN STOP
430 IF VAL("430 999")<>430 THEN STOP
440 IF VAL("1E+060")<>1E+06 THEN STOP
450 A$="12345":IF VAL(A$(1,2))<>12 THEN STOP
460 TRAP 470:X=VAL(""):STOP
470 TRAP 480:X=VAL(" "):STOP
480 TRAP 32768
500 IF PEEK(ADR(A$))<>49 THEN STOP
510 IF PEEK(ADR(A$)+1)<>50 THEN STOP
520 IF PEEK(ADR(A$(3)))<>51 THEN STOP
530 A$="ABCDE"
540 IF PEEK(ADR(A$(4,4)))<>68 THEN STOP
550 POKE ADR(A$),64
560 IF A$(1,1)<>"@" THEN STOP
1000 PRINT "PASS"
