10 DATA 0,74,1,96
20 DATA 176,240,17,0,0
30 FOR I=6160 TO 6163
40 READ AOKE I,A
50 NEXT
60 FOR I=3840 TO 3844:READ AOKE I,A:NEXT
70 CALL 6160
100 REM
110 PRINT "/-----红外聊天-----\"
120 PRINT "|<S>:发话 <Q>:退出|","|(输入状态不可接收)|\------------------/"
130 IF PEEK(59)=97 THEN 500
135 IF PEEK(195)=239 AND SEND$<>"" THEN 240
140 IF PEEK(197)=223 THEN 200
150 IF PEEK(198)=239 THEN CLS:END ELSE 130
200 POKE 199,255RINT "输入状态:"
210 PRINT "红外端口状态：关闭"
220 INPUT "发的话:";SEND$
230 IF LEN(SEND$)=0 THEN CLS:100
240 FOR I=1 TO LEN(SEND$)
250 POKE 58,ASC(MID$(SEND$,I,1))
260 FOR DELAY=1 TO 50+DADD:NEXT
270 IF INT(I/20)=I/20 THEN DADD=1000 ELSE DADD=0
280 LOCATE 5,1:PRINT "发送中..";INT(100/LEN(SEND$)*I);"%";
290 NEXT:POKE 58,254
300 PRINT,"<R>重新发送","红外端口状态:打开"
310 GOTO 130
500 REC=PEEK(58)
510 IF REC=254 THEN PRINT "对方说:",P$:P$="":130
520 P$=P$+CHR$(REC)
530 GOTO 130
发表于 2005-6-1 21:43:00
OKE I,A
发表于 2005-6-4 06:31:00
楼主