1 - Forth Interest Group
1 - Forth Interest Group
1 - Forth Interest Group
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
{ C1 01 -> )<br />
{ Print: 01 -> 11 1 )<br />
:M Draw: 2 ;M<br />
I<br />
{ C2 02 -> )<br />
{ Print: 02 -> 2 2 2 )<br />
.......................................................................<br />
TESTING OBJECT POINTER<br />
:Class C3 )<br />
( Print: 03 -> 111 2 2 2 )<br />
{ Switch: 03 -> )<br />
( Print: 03 -> 2 2 2 111 )<br />
TESTING ARRAY<br />
10 Array a1<br />
{ 6 2 To: a1 -> )<br />
( 2 At: a1 -> 6 )<br />
{ 99Fill: a1 -> )<br />
{ 5At: a1 -> 99 )<br />
:Class C4 )<br />
{ 6 2 To: 04 -> )<br />
{ 2At: 04 -> 6 )<br />
{ 99 Fill: 04 -> )<br />
( 5 At: 04 -> 99 )<br />
TESTING X-ARRAY<br />
( 10 X-Array xa -> 1<br />
: ONE 111 ;<br />
-<br />
: TWO 222 ;<br />
: THREE 333 ;<br />
{ ' ONE 1 To: xa -> )<br />
( ' TWO 2 To: xa -> )<br />
{ : T3 ['I THREE 3 To: xa ; T3 -> )<br />
1 Exec: xa -> 111 )<br />
{ 2 Exec: xa -> 222 )<br />
( 3 Exec: xa -> 333 )<br />
{ 4 Exec: xa -> )<br />
\ ..........................................<br />
HAVE ALLOCATE [ I F]<br />
TESTING HEAP OBJECTS<br />
I<br />
Support for older systems<br />
Hands-on hardware and software<br />
Computing on the Small Scale<br />
Since 1983<br />
Subscriptions<br />
1 year $24 - 2 years $44<br />
All Back Issues available.<br />
TCJ<br />
The Computer Journal<br />
~ P.O. Box 3900<br />
Citrus Heights, CA 95611-3900<br />
800-424-8825 / 91 6-722-4970<br />
Fax: 91 6-722-7480<br />
BBS: 91 6-722-5799<br />
<strong>Forth</strong> Dimensions XlWl 33