home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 4900rbbs.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  799 b   |  29 lines
  1. 4904 '    check for messages in RBBS SUMMARY
  2. 4908 ' 1.4
  3. 4909 PRINT
  4. 4910 A$="Checking for messages to you.":CR%=2: GOSUB 400
  5. 4912 MPOINT%=0
  6. 4916 SETUSERNUMBER%=0: GOSUB 300
  7. 4920 OPEN "R", #2, "SUMMARY",30
  8. 4924 FIELD #2,22 AS RR$
  9. 4928 LINENUMBER%=1
  10. 4932 MESSAGE%=0
  11. 4936 WHILE MESSAGE% < 9999
  12. 4940    GET #2,LINENUMBER%
  13. 4944    IF EOF(2) THEN MESSAGE%=9999: GOTO 4936
  14. 4948    MESSAGE%=VAL(RR$)
  15. 4952    GET #2, LINENUMBER%+3
  16. 4956    IF INSTR(RR$,FRNAME$) <>0 AND INSTR(RR$,LNAME$) <>0 AND MESSAGE% <> 0
  17.         THEN
  18.     MARRAY%(MPOINT%)=MESSAGE%:
  19.     MPOINT%=MPOINT%+1
  20. 4960    LINENUMBER%=LINENUMBER%+6
  21. 4964 WEND
  22. 4968 CLOSE #2
  23. 4972 IF MPOINT%=0 THEN RETURN
  24. 4976 A$="The following messages are waiting for you:":CR%=2:GOSUB 400
  25. 4980 FOR INDEX%=0 TO MPOINT%-1
  26. 4984    A$=STR$(MARRAY%(INDEX%)):CR%=0:GOSUB 400
  27. 4988 NEXT INDEX%
  28. 4992 RETURN
  29.