In article ,
 "Michael J. Mahon"  wrote:

> John B. Matthews wrote:
> > In article 
> > ,
> >  adric22  wrote:
[...]
> > 10  HOME :A$ = " ": ONERR  GOTO 90
> > 20  PRINT "Press any key; ^C exits."
> > 30  KB = -16384 : KC = KB +16
> > 40  IF PEEK(KB) >  128 THEN POKE KC,0 : A$ = CHR$(PEEK(KB))
> > 50  VTAB 12: PRINT ">  ";A$
> > 60  VTAB 12: PRINT "-> ";A$
> > 70  VTAB 12: PRINT "-->";A$
> > 80  GOTO 30
> > 90  END
> 
> You can also GET the key after determining that one has
> been pressed:
> 
> 40 IF PEEK(KB)>127 THEN GET A$

Thanks, Michael and David. I started from a program that did

ON PEEK(KB) < 128 GOTO 240: POKE KC,0:A$ = CHR$(PEEK(KB))

and incorrectly inverted the logic.

-- 
John B. Matthews
trashgod at gmail dot com
http://sites.google.com/site/drjohnbmatthews>
--- SBBSecho 2.12-Win32