%%off % Author M.Ruckert % P IS $0 Parameter k IS $1 kP IS $2 t IS $3 LINK IS 0 KEY IS 8 %%on 1H LDOU P,P,LINK \hfil$C-S$& \ul{\sl S1. Advance.} Start BZ P,4F \hfil$C+3(1-S)$&Exit if $P=\Lambda$. LDO kP,P,KEY \hfil$C$& $k_P\is \.{KEY}(P)$ CMP t,k,kP \hfil$C$& \ul{\sl S2. Compare.} PBNZ t,1B \hfil$C+2S$& Exit if $k=\.{KEY}(P)$ 4H POP 1,0 & \ul{\sl S4. End of file?} %%off