home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / BEND.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-02  |  698b  |  33 lines
  1. Uses
  2.   DOs,
  3.   Crt;
  4.  
  5. Var I:Integer;
  6.     Fn:Text;
  7.     Comport:String[1];
  8.  
  9. Begin
  10.   If ParamCount=0 Then Begin
  11.     Textcolor(15);
  12.     ClrScr;
  13.     Writeln('     >> SEND - By Carl Mueller <<');
  14.     Writeln;
  15.     Textcolor(11);
  16.     Writeln('Syntax is');
  17.     Writeln('           SEND [STRING] [COMPORT]');
  18.     WRITELN;
  19.     TEXTCOLOR(10);
  20.     Writeln('COMPORT defaults to 1 if NOT specified.');
  21.     Writeln('Example: SEND ATA 1');
  22.   end else begin
  23.       textcolor(4);
  24.       if paramcount=1 then comport:='1' else Comport:=Paramstr(2);
  25.       assign(fn,'COM'+comport);
  26.       rewrite(fn);
  27.       writeln(fn,paramstr(1));
  28.       close(fn);
  29.       writeln(paramstr(1));
  30.   end;
  31. END.
  32.  
  33.