RESTORE @MAP FOR I=0 TO 4 FOR J=0 TO 6 READ C IF C==0 THEN BGPUT 0,J,I,0 IF C==1 THEN BGPUT 0,J,I,551 NEXT NEXT @MAP DATA 1,1,1,1,1,1,1 DATA 1,0,0,0,0,0,1 DATA 1.0,1,0,1,0,1 DATA 1,0,0,0,0,0,1 DATA 1,1,1,1,1,1,1