%-----------------------------------------------------------------------
%
%  Crayn fortran-opas 
%  HK, 1988
%
%-----------------------------------------------------------------------
/magnification=1200
%-----------------------------------------------------------------------
%
% fontit
%
%-----------------------------------------------------------------------
/font /ss=cmbx10
/font /bigf=cmssbx10 scaled /magstephalf
/font /biggf=cmssbx10 scaled /magstep2
%-----------------------------------------------------------------------
%
% otsikot
%
%-----------------------------------------------------------------------
/newcount/lukuano
/newcount/lukuno
/newcount/alukuno
/lukuno=0

/outer/def/title#1</goodbreak/null/vskip1.5truecm
             /global/advance/lukuno by 1
             /global/alukuno=0
             </biggf /the/lukuno/quad#1>/hfil/break/
              /nobreak/null/medskip>

/outer/def/subtitle#1</goodbreak/null/vskip1.0truecm
              /global/advance/alukuno by 1
              </bigf /the/lukuno./the/alukuno/quad#1>/hfil/break
              /nobreak/null/medskip>

%-----------------------------------------------------------------------
%
% sivun- ja rivinvaihdot
% 
%-----------------------------------------------------------------------
/def/page</vfill/eject>
/def/nl</hfil/break>
/def/cspace</null/vskip1truecm>
%-----------------------------------------------------------------------
%
% tilaa kuvalle
%
%-----------------------------------------------------------------------
/def/picture#1</goodbreak/vbox to #1</null/vfill>>
%-----------------------------------------------------------------------
%
% er{{nlainen verbatim  joka ei ole liian verbatim
%
%-----------------------------------------------------------------------
/def/copymode</tt/parskip0mm/parindent10truemm
              /def/par</leavevmode/endgraf>/obeylines/obeyspaces>
</obeyspaces/global/let =/ >
%-----------------------------------------------------------------------
%
% itemilistat
%
%-----------------------------------------------------------------------
/def/beginitems</parindent=1truecm/parskip=0pt>
/def/beginitemss#1</parindent=#1/parskip=0pt>
/def/enditems</parindent=0pt/parskip/medskipamount>
/def/entry</item<$/bullet$>>
%-----------------------------------------------------------------------
%
% sit{ sun t{t{ kielen syntaksin esitt{mist{ varten
%
%-----------------------------------------------------------------------
/def/meta#1<<$/lt$#1$/gt$>>
/def/lb<$/lbrack$>
/def/rb<$/rbrack$>
/def/lbc<$/lbrace$>
/def/rbc<$/rbrace$>
/def/br#1<<$/lbrack$#1$/rbrack$>>
/def/brc#1<<$/lbrace$#1$/rbrace$>>
/def/optional#1<<$/lbrack$#1$/,/rbrack$>>
/def/opt#1<<$/lbrack$#1$/,/rbrack$>>
/def/iter<$^*$>
/def/boxed#1<
    /leavevmode/hbox</vrule/vtop</vbox</hrule/kern1pt
    /hbox</vphantom<//>/thinspace</tt #1>/thinspace>>
    /kern1pt/hrule>/vrule>/thinspace>
%-----------------------------------------------------------------------
%
% yleinen sivun formaatti
%
%-----------------------------------------------------------------------
/raggedbottom
/hfuzz=5pt
/overfullrule0pt
/parindent=0pt
/parskip/medskipamount
/hsize=14truecm
/hoffset=1.3truecm
/pretolerance=1600
/tolerance=1200
/hbadness=5000

