CONST kbSeg = &h40 CONST kbHead = &H1A CONST kbTail = &H1C CONST kbBuffer = &H1E CLS DEF SEG = kbSeg DO ' Print keyboard buffer LOCATE 1, 1 FOR i% = 0 TO 15 IF (i% = (PEEK(kbHead) - 30) \ 2) THEN COLOR 0, 7 ELSE COLOR 7, 0 END IF PRINT CHR$(PEEK(kbBuffer + (i% * 2))); NEXT i% ' Clear keyboard buffer POKE kbHead, PEEK(kbTail) LOOP DEF SEG