10 DIM A$(25),B$(25),X$(10),Y$(10)
20 FOR C=0 TO 5:I=1
30 FOR X=0 TO 4:GOSUB 2000+X:X$=Y$
40 FOR Y=0 TO 4:GOSUB 2000+Y:GOSUB 3000+C:I=I+1
50 NEXT Y
60 NEXT X
70 GOSUB 1000
80 NEXT C
90 END
100 DATA 1000001000001000001000001
110 DATA 0111110111110111110111110
120 DATA 0111100111000110000100000
130 DATA 1000011000111001111011111
140 DATA 0000010000110001110011110
150 DATA 1111101111001110001100001
1000 PRINT A$;" ";
1010 READ B$:IF A$=B$ THEN 1030
1020 PRINT "FAIL":RETURN
1030 PRINT "OK":RETURN
2000 Y$="":RETURN
2001 Y$="A":RETURN
2002 Y$="AA":RETURN
2003 Y$="AB":RETURN
2004 Y$="B":RETURN
3000 A$(I)=STR$(X$=Y$):RETURN
3001 A$(I)=STR$(X$<>Y$):RETURN
3002 A$(I)=STR$(X$<Y$):RETURN
3003 A$(I)=STR$(X$>=Y$):RETURN
3004 A$(I)=STR$(X$>Y$):RETURN
3005 A$(I)=STR$(X$<=Y$):RETURN
