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 ;