% ---------------Eljárások--------------

/elj                                             % következő sorba mozdítás
 {ypoz sorhossz sub                    % y pozíció csökkentése
  /ypoz exch def                         % tárolása
  LM ypoz moveto} def              % pozícionálás

/kiir
 {dup stringwidth pop                  % sztring hosszának számolása
  currentpoint pop                       % ez lesz a horizontális pozíció
  add RM gt                               % összeg > jobb margó
  {elj} if                                     % elj végrehajtása
  show } def                              % sztring kiírása

/format                                     % veremből kapja a sztring tömböt
 { {kiir () show} forall
  } def

                                    %---------Főprogi--------------

/Times-Bold-Italic findfont 12 scalefont setfont

LM ypoz moveto

                                    % ---------- A szövegtömb-----------

[(Ezt )(a )(mondatot )(fogom )(osszeallitani )(szavak )(segitsegevel )
(most. ) (- Remelem )(sikerul!)]
format

showpage