10 DIM A$(25),B$(25)
20 I=1:FOR X=-2 TO 2:FOR Y=-2 TO 2:A$(I)=STR$(X=Y):I=I+1:NEXT Y:NEXT X:GOSUB 1000
30 I=1:FOR X=-2 TO 2:FOR Y=-2 TO 2:A$(I)=STR$(X<>Y):I=I+1:NEXT Y:NEXT X:GOSUB 1000
40 I=1:FOR X=-2 TO 2:FOR Y=-2 TO 2:A$(I)=STR$(X<Y):I=I+1:NEXT Y:NEXT X:GOSUB 1000
50 I=1:FOR X=-2 TO 2:FOR Y=-2 TO 2:A$(I)=STR$(X>=Y):I=I+1:NEXT Y:NEXT X:GOSUB 1000
60 I=1:FOR X=-2 TO 2:FOR Y=-2 TO 2:A$(I)=STR$(X>Y):I=I+1:NEXT Y:NEXT X:GOSUB 1000
70 I=1:FOR X=-2 TO 2:FOR Y=-2 TO 2:A$(I)=STR$(X<=Y):I=I+1:NEXT Y:NEXT X:GOSUB 1000
80 DATA 1000001000001000001000001
90 DATA 0111110111110111110111110
100 DATA 0111100111000110000100000
110 DATA 1000011000111001111011111
120 DATA 0000010000110001110011110
130 DATA 1111101111001110001100001
140 END
1000 PRINT A$;" ";
1010 READ B$:IF A$=B$ THEN 1030
1020 PRINT "FAIL":RETURN
1030 PRINT "OK":RETURN
