[xHarbour-developers] GET PICTURE

[Andi Jahja]

Hi,

I found that the following program behave differently in Clipper and xHarbour:

MEMVAR GETLIST
PROC MAIN()

LOCAL C := SPACE(10)

@ 10,10 GET C PICTURE "@!A"
READ

Would appreciate a fix if so needed.

Many thanks.

Andi


------------------------------------------------------------------------------

[Enrico Maria Giordano]

Post by Andi Jahja
Hi,
MEMVAR GETLIST
PROC MAIN()
LOCAL C := SPACE(10)
@ 10,10 GET C PICTURE "@!A"
READ
Would appreciate a fix if so needed.

What's the difference? I can't test with Clipper. I tried with Harbour
and got the same result.

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG Music page: http://www.emagsoftware.it/emgmusic
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg

------------------------------------------------------------------------------

[Andi Jahja]

On Thu, 11 Jun 2015 10:56:45 +0200

Post by Andi Jahja
Hi,
MEMVAR GETLIST
PROC MAIN()
LOCAL C := SPACE(10)
@ 10,10 GET C PICTURE "@!A"
READ
Would appreciate a fix if so needed.

What's the difference? I can't test with Clipper. I tried with Harbour and got the same result.

The with PICTURE "@!A" difference is:

Clipper: NO numeric value is accepted.
Harbour/xHarbour: Numeric value IS accepted.


Andi


------------------------------------------------------------------------------