10 DIM A$(25),B$(25),X$(300),Y$(300)15 Y$(1,300)="A":Y$(2)=Y$20 FOR C=0 TO 5:I=130 FOR X=0 TO 4:GOSUB 2000+X:X$=Y$40 FOR Y=0 TO 4:GOSUB 2000+Y:GOSUB 3000+C:I=I+150 NEXT Y60 NEXT X70 GOSUB 100080 NEXT C90 END 100 DATA 1000001000001000001000001110 DATA 0111110111110111110111110120 DATA 0111100111000110000100000130 DATA 1000011000111001111011111140 DATA 0000010000110001110011110150 DATA 11111011110011100011000011000 PRINT A$;" ";1010 READ B$:IF A$=B$ THEN 10301020 PRINT "FAIL":RETURN 1030 PRINT "OK":RETURN 2000 Y$(257)="":RETURN 2001 Y$(257)="A":RETURN 2002 Y$(257)="AA":RETURN 2003 Y$(257)="AB":RETURN 2004 Y$(257)="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 