home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modem / setmodem.arc / SETMODEM.PAS < prev   
Pascal/Delphi Source File  |  1987-03-30  |  2KB  |  114 lines
  1. PROGRAM SETMODEM;
  2.  
  3. TYPE
  4.       String4 = String[4];
  5.  
  6. procedure screenw;
  7.  
  8.     BEGIN
  9.      ClrScr;
  10.      NormVideo;
  11.      TextColor(14);
  12.      Write('BBS MODEM INITIALIZER');
  13.      GotoXY(1,2);
  14.      Write('Steven R. Sterling (3/30/87)');
  15.     END;
  16.  
  17.  
  18. procedure xmitchar(ch: char);
  19.  
  20.     BEGIN
  21.      port[$3F8]:= ord(ch);
  22.      write (ch);
  23.     END;
  24.  
  25.  
  26. procedure charloop(buffer: String4);
  27.  
  28.  VAR
  29.  
  30.  loop     : Byte;
  31.  ch       : Char;
  32.  
  33.     BEGIN
  34.       For loop:= 1 to length(buffer) do
  35.           BEGIN
  36.              ch := buffer[loop];
  37.              xmitchar(ch);
  38.              delay(100);
  39.           END;
  40.              Port[$3F8]:= (013);
  41.              writeln;
  42.              write('Delaying...');
  43.              delay(1000);
  44.              writeln;
  45.      END;
  46.  
  47.  
  48. procedure beep;
  49.  
  50.     BEGIN
  51.       Sound(60);
  52.       Delay(200);
  53.       NoSound;
  54.     END;
  55.  
  56. procedure modemon;
  57.  
  58.    BEGIN
  59.  
  60.      {SET MODEM SPEED 1200}
  61.  
  62.      port[$3FB]:= 131;
  63.      port[$3F8]:= 96;
  64.      port[$3F9]:= 0;
  65.      port[$3FB]:= 3;
  66.  
  67.      {SET COM I/O ADDRESSES}
  68.  
  69.      port[$3F0]:= 128;
  70.      port[$3F9]:= 1;
  71.      port[$3FA]:= 1;
  72.      port[$3FB]:= 3;
  73.      port[$3FC]:= 11;
  74.      port[$3FD]:= 96;
  75.      port[$3FE]:= 16;
  76.  
  77.    END;
  78.  
  79.  
  80.  
  81.     VAR
  82.         MDAT    : Text;
  83.         buffer  : String4;
  84.  
  85.     BEGIN
  86.      screenw;
  87.  
  88.      Assign(MDAT,'Modem.Dat');
  89.       {$I-}
  90.        Reset(MDAT);
  91.         {$I+}
  92.  
  93.     IF IOResult <> 0 THEN
  94.  
  95.       BEGIN
  96.        beep;
  97.         GotoXY(1,4);
  98.          Write('MODEM.DAT not found!');
  99.           Exit;
  100.        END
  101.      ELSE
  102.        NormVideo;
  103.        TextColor(15);
  104.        Modemon;
  105.        GotoXY(1,4);
  106.        WHILE NOT EOF(MDAT) DO
  107.         BEGIN
  108.          Readln(MDAT,Buffer);
  109.          Charloop(Buffer);
  110.         END;
  111.           Close(MDAT);
  112.           LowVideo;
  113.        END.
  114.