202c
<< <> >>
 
In Phase B benötige ich neben TYPE noch ein Wort, das einen String rechtsbündig ausgibt, beispielsweise um Spalten zu erzeugen.
) : RTYPE ( adr len r -- )
)   OVER - SPACES
)   TYPE ;
Nun ist es einfach, die acht Punkt-Befehle zu definieren. Erst die doppeltgenauen Zahlen:
) : D.   ( xlo xhi -- )   D.STRING TYPE SPACE ;
) : DU.  ( ulo uhi -- )   DU.STRING TYPE SPACE ;
) : D.R  ( xlo xhi r -- ) >R D.STRING R> RTYPE ;
) : DU.R ( ulo uhi r -- ) >R DU.STRING R> RTYPE ;
Danach die einfachgenauen Zahlen:
) : .    ( x -- )    S>D D. ;
) : U.   ( u -- )    0 DU. ;
) : .R   ( x r -- )  >R S>D R> D.R ;
) : U.R  ( u r -- )  >R 0 R> DU.R ;
[wird fortgesetzt]
einde
 >>