home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 November / Chip_1998-11_cd.bin / zkuste / pascal / RT / RT.ARJ / RTE01SR2.ZIP / super.pas < prev    next >
Pascal/Delphi Source File  |  1996-05-11  |  284b  |  18 lines
  1.  
  2. procedure predak(flg:word;co:string);assembler;
  3. asm;
  4.     push ds
  5.     mov ax,flg
  6.     lds si,co
  7.     int 62h
  8.     pop ds
  9. end;
  10.  
  11. var na:string[120];
  12.  
  13. begin
  14. write('Jméno programu: ');readln(na);
  15. if na='exit' then predak(0,'')
  16.              else predak(1,'/C '+na+#13);
  17. end.
  18.