CH=G@SETUP(640,480,16,1) LOOP G@CHRCLEAR(CH) I@KEYGET() FOR I=0 TO 15 FOR J=0 TO 15 G@PRINT(CH,I*16,J*16,STR(I@KEYBTN(I*16+J))) NEXT NEXT G@FLIP() ENDLOOP