I can't resist this -- your while 2 > 1 reminded me that 2 is really
equal to 1. Proof follows:
x=1 y=1 therefore x = y
multiplying both sides by x gives
x(2) = xy that's read as x squared
subtracting y(2) from both sides we get
x(2) - y(2) = xy - y(2)
factoring: difference of 2 squares and common factor
(x-y) (x+y) = y(x-y)
canceling x-y on both sides we get:
x + y = y or
2 = 1
Yours truly,
Bernie Lis
----- Original Message -----
From: "Bernie Corrigan" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, July 28, 2001 5:48 PM
Subject: RBDos 6.5++ LASTKEY function seems faulty
> This note pertains to R:Base for DOS 6.5++. Any enlightening comments
would
> be appreciated.
>
>
> Lastkey:
>
> +---------------------------------
SYNTAX -------------------------------------+
> �
�
> � Gets the text value for the last key read from the keyboard. If a key
has �
> � been remapped you get the remapped key using 0 for the parameter. If
you �
> � use 1 for the parameter you will get the original key before remapping.
�
> �
�
> � (LASTKEY(0))
�
> � or
�
> � (LASTKEY(1))
�
> �
�
>
+---------------------------------------------------------------------------
---+
>
>
> Doesn't appear to work. One gets the same value returned from the LASTKEY
> function whether or not the key has been remapped.
>
> For example in the following code "[F8]" is returned in both vt and vx
when
> LASTKEY is used with the arguments shown. When argument "0" is used
LASTKEY
> should return "[F4]".
> -------------------------------------
> SET KEYMAP [F8] OFF
> SET KEYMAP [F8] = [F4]
>
> WHILE 2 > 1 THEN
> FILLIN vy=0 USING 'vy:'
> SET VAR vt = (LASTKEY(0))
> SHO VAR vt
> SET VAR vx = (LASTKEY(1))
> SHO VAR vx
> IF vt = '[Esc]' THEN
> Break
> ENDIF
> ENDWHILE
> -------------------------------------
>
> TIA,
> Bernie
>
