A Better Way

 BBS: Inland Empire Archive
Date: 03-20-92 (09:20)             Number: 154
From: RICHARD VANNOY               Refer#: NONE
  To: MIKE AVERY                    Recvd: NO  
Subj: A Better Way                   Conf: (2) Quik_Bas

MA>   DO
MA>      W$= UCASE$(INKEY$)
MA>   UNTIL W$ <> ""

MA>There were some real neat 1 line INKEY constructs posted a while back
MA>that would shorten the code in lines 2 through 4.

I liked...

   DO
      w$=UCASE$(INKEY$)
   UNTIL LEN(w$)

because it doesn't require a string comparison.

> MegaMail 2.1b #0:Jesus SAVES! Passes to Moses. He shoots! Scores!


--- WM v2.01/91-0012
 * Origin: Com-Dat BBS  Hillsboro, OR.  HST (503) 681-0543 (1:105/314)