home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / 10TLST.ZIP / QMOUNT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-11  |  423 b   |  21 lines
  1. {$M 32768,0,32768}
  2. Program QMount;
  3. Uses DOS,CRT,TenTools,QM;
  4. VAR
  5.    ServerID : S12;
  6.    HoldY,I : Integer;
  7.  
  8. Begin {QMount Main}
  9.    If (ParamCount=0)
  10.    then
  11.     begin
  12.        Writeln('Syntax:     QMOUNT <Servername>');
  13.        Halt;
  14.     end;
  15.    HoldY:=WhereY;
  16.    ServerID:=ParamStr(1);
  17.    For I:=1 to Length(ServerID) do ServerID[I]:=Upcase(ServerID[I]);
  18.    QuickMount(ServerID);
  19.    GotoXY(1,HoldY);
  20. End.
  21.