Re: Single Byte Input

Posted by Jon Sacks on February 05, 2009 at 12:09:09:

In Reply to: Re: Single Byte Input posted by Bruce on February 05, 2009 at 11:05:41:

I can't believe how hard this is, I tried the (Single Key Transmit) and it works, but I get no value in an$

Display$='Tab-Menu,Q-QREPORTS,T-Terminate'
PRINT @(0,2);(LD) !Roll-up display routine
PRINT @(0,22);Display$
PRINT (0) (Single Key Transmit) & INPUT (0) An$
PRINT @(0,2);(LD) !Roll-up display routine
PRINT @(0,22);An$ & input (0) ''
IF UCASE(An$) = 'T' RUN 'CMONITOR'
IF UCASE(An$) = 'Q' RUN 'QREPORTS'
RUN 'Z'

Follow Ups:

• Re: Single Byte Input Jon Sacks 12:21:28 02/05/09 (3)
  • Re: Single Byte Input Bruce 14:50:11 02/05/09 (0)
  • Re: Single Byte Input Robert G Laurin 13:10:53 02/05/09 (1)
    • Re: Single Byte Input Jon Sacks 14:02:19 02/05/09 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.