9 IF PEEK(0)<>154 THEN GRAPH:PRINT "˳NC1020":END
10 FOR I=5880 TO 5892
20 READ D
30 POKE I,D
40 NEXT I
49 PRINT "STARTING IrDA PORT.."
50 CALL 5880
60 GOTO 500
70 DATA 0,15,148,96,0,0,0,0,176,240,17,0,0
80 FOR SZ=1 TO 95:NEXT SZ:RETURN
90 FOR SBEEP=1 TO 4:BEEP:FOR SWAIT=1 TO 150:NEXT SWAIT:NEXT SBEEP:RETURN
91 RETURN
95 FOR SBEEP=1 TO 2:BEEP:BEEP:BEEP:FOR SWAIT=1 TO 250:NEXT SWAIT:NEXT SBEEP:RETURN
100 SA=LEN(S$)
110 FOR SB=1 TO SA:POKE 58,ASC(MID$(S$,SB,1)):FOR SC=1 TO 40:NEXT SC:NEXT SB
120 POKE 58,0
130 RETURN
200 S$=""
201 IF PEEK(199)=241 THEN GOTO 240
202 SA=PEEK(59)/2:IF INT(SA)=SA THEN GOTO 201
210 SB=PEEK(58):IF SB=0 THEN GOTO 91 ELSE S$=S$+CHR$(SB):GOTO 201
240 S$="":POKE 199,13:RETURN
300 REM:SAȴ:SOɹΪ1ʧΪ0
301 SO=0:SCK$=" "
302 FOR SB=1 TO SA
311 SC=PEEK(59)/2:IF INT(SC)=SC THEN GOTO 341
321 SCK$=RIGHT$(SCK$,2)+CHR$(PEEK(58))
331 IF SCK$="RDY" THEN SO=1:SB=SA 
341 NEXT SB:RETURN
400 POKE 58,82:GOSUB 80
410 POKE 58,68:GOSUB 80
420 POKE 58,89:RETURN
500 CLS
510 GRAPH
520 PRINT " IrDA Chatroom V1.1     For  NC1020"
530 PRINT "by Hearson","hearson@luocong.com","Press any key...";
540 INKEY$
550 CLS
560 S$="":G$="":P$=""
600 CLS:PRINT "һϢ",G$;:REFRESH=0
610 K=ASC(INKEY$)
620 IF K=28 THEN GOSUB 1000
630 IF K=29 THEN GOSUB 2000
640 IF K=30 THEN GOSUB 3000
650 IF K=25 THEN GOSUB 4000
660 IF K=27 THEN POKE 199,197:END
670 IF REFRESH=1 THEN GOTO 600 ELSE GOTO 610
1000 CLS:REFRESH=1
1010 BEEP:LOCATE 2,6:PRINT "Ϣ":LOCATE 3,6:PRINT "...":SO=0:T=30
1020 WHILE T>0 AND SO=0
1029 LOCATE 3,17:PRINT T;"  ";
1030 CALL 5880:GOSUB 400:CALL 5880:SA=100:GOSUB 300:T=T-1
1040 WEND:LOCATE 3,6
1050 IF SO<>1 THEN PRINT "ԷӦ!    ":GOSUB 95:GOTO 91 ELSE PRINT "ʼ...   "
1060 LOCATE 3,6:GOSUB 200:G$=S$:PRINT "ճɹ!     ":GOSUB 90:GOTO 91
2000 IF P$="" THEN BEEP:GOTO 91
2010 CLS:REFRESH=1
2020 CALL 5880:BEEP:LOCATE 2,6:PRINT "Ϣ":LOCATE 3,6:PRINT "ȴ..."
2030 SA=4000:GOSUB 300
2040 LOCATE 3,6:IF SO=0 THEN PRINT "ԷӦ!":GOSUB 95:GOTO 91 ELSE PRINT "ڷ"
2050 CALL 5880:GOSUB 80
2060 S$="RDY"+P$
2070 GOSUB 100
2080 LOCATE 3,6:PRINT "ѷ!";:GOSUB 90
2090 RETURN
3000 REFRESH=1
3010 CLS:GRAPH:PRINT P$
3020 PRINT "޸ķ밴<M>";
3030 KEY$=INKEY$
3040 IF KEY$<>"m" THEN GOTO 91
3050 TEXT:INPUT "Ϣ: ";P$
3060 GOTO 3010
4000 CLS:REFRESH=1
4009 PRINT "***** ߰ *****";
4010 PRINT "<F1>Ϣ"
4020 PRINT "<F2>Ϣ"
4030 PRINT "<F3>༭Ϣ"
4040 PRINT "ע⣺汾Ҫͬ";
4050 W$=INKEY$:RETURN