In fase 2 heb ik naast TYPE een woord nodig dat een String rechtsgericht afdrukt, voor het maken van kolommen bijvoorbeeld.

: RTYPE ( adr len r -- )
  OVER - SPACES
  TYPE ;

Nu is het eenvoudig om de acht punt-commando's te definiëren. Eerst de dubbelgetallen:

: 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 ;

Daarna de enkele getallen:

: .    ( 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 ;