Re: Interactive $d EMIT does LF

On Thu, 18 Nov 2004, Bulgrien, Dennis wrote:

> : test CR 100 0 DO $d EMIT I . [CHAR] % EMIT LOOP $d EMIT ." Done" ;
>
> SwiftX v3 $d EMIT moves the cursor to the next line so output is expanded
> onto many lines, e.g.

> How can the pure <CR> behavior be done in v3?

Try this. Do a PAGE before you start your test, as the XTL's GET-XY
handler doesn't query the host to get cursor position.

: .% ( u -- ) GET-XY NIP 0 SWAP AT-XY 2 U.R ." %" ;

\ 50 ms just so you can see it print
: TEST ( -- ) CR 100 0 DO I .% 50 MS LOOP ." done" ;

-- 
Ron Oliver <roliver_at_openesque.com>
----------------------------------------------------------------------
swiftx_at_forth.com          The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users.  For product support and bug 
reports, please send email to support_at_forth.com
----------------------------------------------------------------------