Sorry. The code that is unwise (for portability) was also buggy. It should
not multiply by element count since it is in the loop:

: (DATABASE) ( -- )
  #ECOUNT 0 DO
    CDATA I ,
    UDATA #ESIZE RESERVE
  LOOP
;

P.S. "RESERVE a Random Seat" was a poorly humorous way of saying that if
RESERVE was used to pick seats at a banquet that they could be random rather
than contiguous. My coworker pointed out that alignment has a higher
probability of causing discontiguity :-).

-----Original Message-----
From: Bulgrien, Dennis
Sent: Tuesday, January 15, 2002 8:52
To: swiftx_at_forth.com
Subject: [swiftx] RESERVE a Random Seat

: (DATABASE) ( -- )
  #ECOUNT 0 DO
    CDATA I ,
    UDATA #ECOUNT #ESIZE * RESERVE
  LOOP
;
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Tue Jan 15 2002 - 08:35:38 PST