programHpss2pas;  { Programa pritaikoHlietuviÕkogtransliatoriaus programÐH  NTur
bo Paskalio kompiliatoriuig} var f,  H  N N  H{ duomenÖ byla }N N  t :gtext;  g 
{HrezultatÖ byla }  g  H {NsimboliÖ keitimo masyvas }H  g mas  :garray[ chr( 0g)
..chr(g255 )N]NofHstring[ 4 ]; H  NcN  H: char;   g st  N:Nstring[ 4 ]; const Ri
m_2_775 : array[ 128..255H] of byte =  H (N); procedure versti; N varHb g     : 
( programa,Hkomentaras, eiluteN);H  g   st, rezH: string; g     i g  H  : intege
r; beging  b := programa;   stg:=HParamstr( 1 );   st[ length( st ) - 1 ] := 'a'
; N{ *.pss -> *.pasH} N Assign( t, st ); H Rewrite( t );   while notNeof( f ) do
  g begin N  H readln( f, st ); N  H rez := '';  H  NiN:=H1;g     whileHi <=Nlen
gth( st ) do H  N Nbeging       gifHst[ i ]H= '{'     g  H  then begin      g  H
  N N  if b = programa then bH:=gkomentaras;  N N  H  g      rez := rez +H'{'   
    g  H  N Nend  g       gelse ifNst[ ig] = '}'g  H  N N  H  g   thengbeginN N 
 H  g       g  H  N if b =gkomentarasHthenNb := programa;  H  N N  H  g       g 
 rezN:= rez + '}'   g  H  N N  H  g     end  H  N N  Helse if st[ iH] = ''''  g 
      g  H  N then begin    g  H  N N  H  g      if bH= programagthen b := eilut
e  H  g       g  H  N N  H  else if b =Heilute then b := programa;N  H  g       
g  H  N N  rezg:= rez + ''''N N  H  g       g  H  Nend H  g      elseHifNbN= pro
grama   g  H  N N  H  then rezg:=Hrez + mas[gst[ i ]g] H {Nkeisti }       g  H  
N N elsegrez := rezH+ st[ iH];g       g{ nekeistiH} g       inc( iN)N  H  gend; 
  g  writeln(Ht,grez )  g end;N NClose( f );  gClose( t )Hend;begin gifHParamcou
ntg= 0    then begin H  g      writeln( 'Reikalingi parametrai.' ); g       g wr
iteln( 'Naudojimas:' ); N N  H  g writeln( 'pss2pasH<PSS byla>g<LNT byla>' );   
    g  Hwriteln( 'AntrasisgparametrasHyra neb×tinas.' ) N  H  g end   gelse begi
nH  g       {$I-} N N  H  g Assign( f, ParamStr(g1 ) ); g  H  N N Reset( f ); g 
 H  N N {$I+}       g  HifNIOresult <> 0  g  H  N N  then writeln( 'NeÔmanoma nu
skaityti nurodytos PSS bylos' )H  N N  H  g else begin  N N  H  g       gfor cN:
= chr(g0 ) to chr( 255N) do mas[ c ]g:=Hc;N N  H  g       g  mas[ '_'H] := 'b_';
g  H  N N  H  g    if Paramcount >= 2       g  H  N N  H  then begin H  N N  H  
g       g  H  N {$I-} g       g  H  N N  H  g    Assign( t, ParamStr( 2 ) ); H  
N N  H  g       g  H  N Reset(gt );   g  H  N N  H  g       g  {$I+}N  H  g     
  g  H  N N  H  if IOResultH<>N0N  H  g       g  H  N N  H  gthen beginH  N N  H
  g       g  H  N N  H  g write(g'NeÔmanomaHnuskaitytignurodytos'); g       g  H
  N N  H  g       g  Hteoiureojflkfdjv  g  H  N N  H  g       g  H  N N  wekjflk
sjdflmv.m N N  H  g       g  H  N N  H  g   ewfjkjlfdjaslwoeoiuqouwqp