home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / PHONE.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-01  |  1KB  |  42 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('           >> PHONE ON/OFF HOOK - Written by Carl Mueller <<');
  14.     Writeln;
  15.     Textcolor(11);
  16.     Writeln('Syntax is');
  17.     Writeln('           PHONE [ON/OFF] [COMPORT]');
  18.     WRITELN;
  19.     TEXTCOLOR(10);
  20.     Writeln('COMPORT defaults to 1 if NOT specified.');
  21.     Writeln('Example: PHONE ON 1');
  22.   end else begin
  23.       textcolor(4);
  24.       if paramcount=1 then comport:='1' else Comport:=Paramstr(2);
  25.       if (ParamStr(1)='on') or (paramstr(1)='ON') then begin
  26.         assign(fn,'COM'+comport);
  27.         rewrite(fn);
  28.         writeln(fn,'ATH0M0');
  29.         close(fn);
  30.         Writeln('** Phone now ON hook.');
  31.       end else
  32.       if (paramStr(1)='OFF') or (paramstr(1)='off') then begin
  33.         assign(fn,'COM'+comport);
  34.         rewrite(fn);
  35.         writeln(fn,'ATH1M0');
  36.         close(fn);
  37.         Writeln('** Phone now OFF hook.');
  38.       end;
  39.   end;
  40. END.
  41.  
  42.