home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / bas / pcl4b42 / minimal.bas < prev    next >
BASIC Source File  |  1994-09-08  |  709b  |  25 lines
  1. '
  2. '  MINIMAL.BAS:  Talk on COM1 @ 2400 baud
  3. '
  4. '$INCLUDE: 'PCL4B.BI'
  5. 'Reset port
  6.  Buf256$ = STRING$(256+16,0)   'must be 1st string statement
  7.  BufSeg = (1+SSEG(Buf256$)) + (SADD(Buf256$) \ 16)
  8.  CODE = SioRxBuf(COM1, BufSeg, Size256)
  9.  CODE = SioReset(COM1, Baud2400)
  10.  DO
  11.    'Anything incoming ?
  12.    CODE = SioGetc(COM1, 1)
  13.    IF CODE > -1 THEN CODE = SioCrtWrite(CODE)
  14.    'Anything to send ?
  15.    IF SioKeyPress() <> 0 THEN
  16.      ANYKEY = SioKeyRead()
  17.      'Exit if user types Escape (ESC=27)
  18.      IF ANYKEY = 27 THEN EXIT DO
  19.      CODE = SioPutc(COM1,ANYKEY)
  20.    END IF
  21.  LOOP
  22.  CODE = SioDone(COM1)
  23.  END
  24.  
  25.