4904 '	check for messages in CBBS SUMMARY
4908 ' 1.4C	(C=CBBS)
4909 COMMA$=","
4910 A$="Checking for messages to you.":CR%=2: GOSUB 400
4912 MPOINT%=0
4916 SETUSERNUMBER%=14: GOSUB 300	'<==== user # for summary file
4920 OPEN "I", #2, "SUMMARY"		'<==== variable length records
4932 MESSAGE%=1				'<==== start at #1
4936 WHILE MESSAGE% > 0			'<==== messages never go <=0
4940	IF EOF(2) THEN MESSAGE%=0: GOTO 4936
4944	LINE INPUT#2,RR$			'<==== get a line
4946	IF LEFT$(RR$,1)<>CHR$(7) THEN 4940	'<==== skip subject line
4948	MESSAGE%=VAL(MID$(RR$,2))	'<==== CBBS line starts with ^G
4949	TEMP$=MID$(RR$,INSTR(RR$,COMMA$)+1,1):
 	IF TEMP$="X" OR TEMP$="x" THEN 4940	'ignore killed msgs
4950	FOR INDEX%=1 TO 4		'<==== 4 "commas" into string
4951		RR$=MID$(RR$,INSTR(RR$,COMMA$)+1)
4952	NEXT INDEX%
4953	'now RR$=firstname+lastname of addressee
4956	IF INSTR(RR$,FRNAME$) <>0 AND INSTR(RR$,LNAME$) <>0
 		THEN
 	MARRAY%(MPOINT%)=MESSAGE%:
 	MPOINT%=MPOINT%+1
4964 WEND
4968 CLOSE #2
4972 IF MPOINT%=0 THEN RETURN
4976 A$="Messages waiting:":CR%=2:GOSUB 400
4980 FOR INDEX%=0 TO MPOINT%-1
4984	A$=STR$(MARRAY%(INDEX%)):CR%=0:GOSUB 400
4988 NEXT INDEX%
4992 RETURN