Received: by 10.66.84.168 with SMTP id a8mr5212853paz.25.1350511183669;
        Wed, 17 Oct 2012 14:59:43 -0700 (PDT)
Path: 6ni1861pbd.1!nntp.google.com!Xl.tags.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!local2.nntp.dca.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 17 Oct 2012 16:59:42 -0500
Date: Wed, 17 Oct 2012 11:59:41 -1000
From: "Elizabeth D. Rather" <erat...@forth.com>
Reply-To: erat...@forth.com
Organization: FORTH, Inc.
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:16.0) Gecko/20121010 Thunderbird/16.0.1
MIME-Version: 1.0
Newsgroups: comp.lang.forth
Subject: Re: ANN: USBboot
References: <e97cb0f3-0159-4afc-8ebc-070cf9b614ab@googlegroups.com> <9cde7b00-fb3d-4832-9328-ac10e4f8b61f@googlegroups.com> <49e1d560-23ed-4d1d-9cc4-f338cac8aa28@w2g2000vbc.googlegroups.com> <1e1xw6gqtg66p.a348i6lrg5d6.dlg@40tude.net>
In-Reply-To: <1e1xw6gqtg66p.a348i6lrg5d6.dlg@40tude.net>
Message-ID: <56ydnYbEe_TTt-LNnZ2dnUVZ_qWdnZ2d@supernews.com>
Lines: 52
X-Trace: sv3-S0I4aJVD37d1yDN8F11GguFZ1MY/ZdS8OsQQmCp5D2T9wOiSDH6zHs2P0rEvAfYSarBV7covbKYlgvr!mJ4BrJvAnlRm8brJLzra1g3rdy24We5IfC/mSlsO9Q0c/vFhvTOZm41okEDvC8rTMXhFfu1GlWCu!HN7lGqXnLA==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
Bytes: 3016
X-Original-Bytes: 2955
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit

On 10/17/12 10:59 AM, Coos Haak wrote:
> Op Mon, 15 Oct 2012 09:29:00 -0700 (PDT) schreef Howerd:
>
>> On Oct 15, 12:32 pm, jfong <jf...@ms4.hinet.net> wrote:
>>> Howerd ... wrote：
>>>
>>>> I have just released USBboot, a selection of three files to make a USB drive bootable :
>>>> .....
>>>> USBboot.exe is written in the SwiftForth dialect of Forth.
>>>
>>>      What SwiftForth version you use? I had try to include USBboot.f under
>>> version 3.2.5 but failed when encounter the word (u.r).
>>>
>>> Jach
>>>
>>>
>>
>> Hi Jach,
>>
>> I have SwiftForth version 3.4.1 14-Sep-2011 .
>>
>> Here is the code for (u.r) :
>>
>> : (U.R) ( u n -- addr len )
>>     >R 0 (D.) R@ OVER - 0 MAX 0 ?DO BL HOLD LOOP #> R> MIN ;
>>
>> Best regards,
>> Howerd
>
> What is the last MIN for? It truncates '12345 3 U.R' to '123'
> Maybe useful for tables, but no Forth with .R words I know does this, all
> will print '12345'
>

You have specified that it is supposed to fit in a field 3 spaces wide. 
If it won't fit, do you want the most significant digits or a messed-up 
table? If you want all the digits, leave out the MIN. Easy to do.

Cheers,
Elizabeth

-- 
==================================================
Elizabeth D. Rather   (US & Canada)   800-55-FORTH
FORTH Inc.                         +1 310.999.6784
5959 West Century Blvd. Suite 700
Los Angeles, CA 90045
http://www.forth.com

"Forth-based products and Services for real-time
applications since 1973."
==================================================