Commit 6242aa47 authored by paysan's avatar paysan

Ansified chapter 5

parent b94bb5da
......@@ -1586,7 +1586,7 @@ only a byte, let's make each ``slot'' one byte. We'll call the table
Create romans ( ones) char i c, char V c,
Create romans ( ones) char I c, char V c,
( tens) char X c, char L c,
( hundreds) char C c, char D c,
( thousands) char M c,
......@@ -1618,7 +1618,7 @@ Now we can find our way to any ``arm position'' by adding the contents of
: COLUMN ( -- adr-of-column ) ROMANS COLUMN# @ + ;
: column ( -- adr-of-column ) romans column# @ + ;
Let's see if we can implement one of the words to display a symbol. We'll
start with \forth{ONER}.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment