var
   f    : text;
   s    : string;

begin
     if paramstr(1)='' then
     begin
          write ('Enter the name of reality :) eos file : ');
          read(s);
          assign (f,s+'.asm');
     end  else assign (f,paramstr(1)+'.asm');

     rewrite (f);

     writeln (f);
     writeln (f,'Locals');
     writeln (f,'.386');
     writeln (f,'CODE32 SEGMENT PUBLIC PARA ''CODE'' USE32');
     writeln (f,'ASSUME  CS:CODE32,DS:CODE32,ES:CODE32');
     writeln (f);
     writeln (f,'INCLUDE ..\RESOURCE\EOS.INC');
     writeln (f);
     writeln (f,'Start32:');
     writeln (f); writeln (f); writeln (f);
     writeln (f,'	mov ax,4c00h');
     writeln (f,'	int 21h');
     writeln (f);
     writeln (f,'CODE32 ENDS');
     writeln (f);
     writeln (f,'END');

     close (f);
end.