newpath
120 120 translate
22 22 scale
1 1 4 {                  % for i:=1 to 4, lépés 1
newpath
0 0 moveto
0 8 rlineto
[1] 0 setdash        % szaggatott vonal
stroke
newpath
1 0 moveto
0 8 rlineto
[1] 1 setdash         % szaggatott vonal
stroke
2 0 translate
} for
showpage