10 MODE 0:BORDER 0:FOR i=0 TO 15:READ A:INK i,A:NEXT:LOAD"FINAL.SCR",&C000:CALL &BB06:DATA 0,13,0,1,2,14,23,3,6,7,15,16,24,12,21,26