Could you refer to the following codes? DIM D$[5,5] FOR Y=0 TO 4:FOR X=0 TO 4:D$[X,Y]=CHR$(RND(256)):NEXT X:NEXT Y WHILE TRUE:CLS:?" 01234"; FOR Y=0 TO 4:?:?Y;:FOR X=0 TO 4:?D$[X,Y];:NEXT X:NEXT Y ?:?:INPUT"HV";P$ X=VAL(LEFT$(P$,1)):Y=VAL(RIGHT$(P$,1)):?D$[X,Y]:WAIT 120 WEND