%PS%
/ParNosQs 6 array def
/ParLevQs 0 def
/++ {dup load 1 add store} def
/-- {dup load 1 sub store} def
PE
%DM,DList:%PS ParNosQs ParLevQs [ParBod ParGap ParFlin ParWidow] put /ParLevQs ++ /ParBod ParBod 12 MM add store /ParFlin -10 MM store /ParGap -.5 store /ParWidow 1.2 LinSpa mul store %%P%%C,183%%T%:%
%DM,DP:%P%%C,183%%T%:%
%DM,DEnd:%PS ParNosQs /ParLevQs -- ParLevQs get aload pop /ParWidow exch store /ParFlin exch store /ParGap exch store /ParBod exch store%%P%:%
%DM,List:%PS ParNosQs ParLevQs [ParBod ParGap ParFlin ParWidow] put /ParLevQs ++ /ParBod ParBod 10 MM add store /ParFlin -10 MM store /ParGap -.4 store /ParWidow 2 LinSpa mul store %%P%:%
%DM,LEnd:%PS ParNosQs /ParLevQs -- ParLevQs get aload pop /ParWidow exch store /ParFlin exch store /ParGap exch store /ParBod exch store%%P%:%
%DM,Title:%SZ,24%%VT,0%%BD%%CL%:%
%DM,Section:%SZ,18%%PH,0,0,0,L2%%PS /ParLevQs 0 store%%BD%:%
%DM,Body:%SZ,13%%LT%%RO%%P%:%
%DM,Note:%SZ,11%%BD%%RO%%P%:%
%DM,Detail:%SZ,9%%LT%%RO%%P%:%
%DM,Small:%SZ,7%%LT%%RO%:%
%DM,Head:%SZ,18%%PS ParNosQs ParLevQs [ParBod ParGap ParFlin ParWidow] put%%PH,0,0,0,L2%%BD%%PS ParNosQs ParLevQs get aload pop /ParWidow exch store /ParFlin exch store /ParGap exch store /ParBod exch store%:%

%DM,Code:%FN,Cou%%SZ,13%:%
%DM,Norm:%FN%%SZ%:%
%DM,Asis:%NF,40%:%
%DM,Fmt:%FI%:%
%DM,1:%FN,Din%%C,182%%FN%:%
%DM,2:%FN,Din%%C,183%%FN%:%
%DM,3:%FN,Din%%C,184%%FN%:%
%DM,4:%FN,Din%%C,185%%FN%:%
%DM,5:%FN,Din%%C,186%%FN%:%
%DM,6:%FN,Din%%C,187%%FN%:%
%DM,7:%FN,Din%%C,188%%FN%:%
%DM,8:%FN,Din%%C,189%%FN%:%
%DM,9:%FN,Din%%C,190%%FN%:%
%DM,10:%FN,Din%%C,191%%FN%:%
%DM,mi:%C,177%:%
%DM,rarrw:%FN,Din%%C,217%%FN%:%
%DM,uparrw:%FN,Din%%PS gsave currentpoint translate 90 rotate (\331)show grestore%%FN%:%
%T,15%%W,1%%T,30%%W,2%%T,45%%W,3%%T,60%%W,4%%T,75%%W,15%%T,90%%W,16%
%T,105%%W,17%%T,120%%W,18%%T,135%%W,19%
%T,0%