Re: Single Byte Input

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

In Reply to: Re: Single Byte Input posted by Jon Sacks on February 05, 2009 at 12:09:09:

But this program works, go figure:

LENGTH 1 & LOCAL An$
LENGTH 252 & LOCAL Display$

Display: FORMAT @(0,2);(LD);@(0,22);(BF);@(0,22);Display$;(TM);(MC);" ";(TM);(RC)

CLOSE & OPEN (0) Term$

Begin:
Display$='Tab-Menu,Q-QREPORTS,T-Terminate'
PRINT (0,Display)
PRINT (0) (Single Key Transmit) & INPUT (0) An$
IF UCASE(An$) = 'T' RUN 'CMONITOR'
IF UCASE(An$) = 'Q' RUN 'QREPORTS'
RUN 'Z'

Follow Ups:

• 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.