|
|||
Скачать TPIO v1.0 - FOSSIL Communication I/O Routines for TP
02.01.1989 Program Communications; uses IO; begin InitializeDriver; Writeln ('Driver is initalized!'); ModemSettings (1200,8,'N',1); Baud := 1200; DTR (0); Delay (1000); DTR (1); Writeln ('DTR is now true!'); CloseDriver; Writeln ('Driver is closed!'); end. | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |