Indos Routine ... (34h /int 21h)

Hello

I Coded a lot of TSR but mine INDOS flag routine is too bad... hoe can
help me ? how to code it in pascal ???

Thx  in advance ...

JC