home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 November / Chip_1998-11_cd.bin / zkuste / pascal / RT / RT.ARJ / RTE01SRC.ZIP / man.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-19  |  627b  |  15 lines
  1. {******************************************************************************}
  2. {* Pouze ukazkovej priklad, aby bylo co spustet!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *}
  3. {*============================================================================*}
  4. {* PaulSoft (no copyright) 1996, ukazkovy program pro SWCInfo                 *}
  5. {******************************************************************************}
  6. {$M $4000,0,0 }
  7. var t:text;
  8.     s:string[80];
  9. begin
  10.   assign(t,'c.ps'); rewrite(t);
  11.   write('Prikaz: '); readln(s); 
  12.   if s='exit' then s:=#255#254#253 else s:=' /c '+s+#0#13;
  13.   writeln(t,s);
  14.   close(t);
  15. end.