home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / NOTES / 874 / IRCHAT.OPL
Encoding:
Text File  |  1997-06-03  |  321 b   |  20 lines
  1. rem irchat.opl - Martin Roberts 1997
  2. proc irem open IrDA port
  3.     print "IRCHAT - psion-x to exit."
  4.     while 1
  5.         if checkrx%: >= 0
  6.             style 4
  7.             print rbuf$
  8.             style 0
  9.         endif
  10.         k%=key
  11.         if k%<>0
  12.             if k%=$200+%x
  13.                 b254)
  14.                 irsend:
  15.                 print ""
  16.             else
  17.             buf%
  18.     lstat% = stat%
  19.     if lstat% <> -46 rem endp
  20.