home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / basic / lclb42 / minimal.bas < prev    next >
Encoding:
BASIC Source File  |  1994-08-16  |  639 b   |  24 lines
  1. '
  2. '  MINIMAL.BAS:  Talk on COM1 @ 2400 baud
  3. '
  4. '$INCLUDE: 'LCL4B.BI'
  5.  DECLARE FUNCTION Buf256Seg   CDECL()
  6. 'Reset port
  7.  CODE = SioRxBuf(COM1, Buf256Seg(), Size256)
  8.  CODE = SioReset(COM1, Baud2400)
  9.  DO
  10.    'Anything incoming ?
  11.    CODE = SioGetc(COM1, 1)
  12.    IF CODE > -1 THEN CODE = SioCrtWrite(CODE)
  13.    'Anything to send ?
  14.    IF SioKeyPress() <> 0 THEN
  15.      ANYKEY = SioKeyRead()
  16.      'Exit if user types Escape (ESC=27)
  17.      IF ANYKEY = 27 THEN EXIT DO
  18.      CODE = SioPutc(COM1,ANYKEY)
  19.    END IF
  20.  LOOP
  21.  CODE = SioDone(COM1)
  22.  END
  23.  
  24.