home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol007 / purge.asc < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.5 KB  |  46 lines
  1. 1 REM PURGE - Remove "Killed" messages from SJBBS data files
  2. 2 REM Last change 7/8/80 by Bruce Ratoff
  3. 3 REM
  4. 5 IF (INP(&H91) AND &H40)=0 THEN 10
  5. 6 PRINT "Not allowed remote.":GOTO 310
  6. 7 REM
  7. 10 PRINT "Purging summary file..."
  8. 20 OPEN "R",1,"A:SUMMARY",30
  9. 30 FIELD#1,30 AS R1$
  10. 40 R1=1
  11. 50 OPEN "R",2,"A:$SUMMARY.$$$",30
  12. 60 FIELD#2,30 AS R2$
  13. 70 R2=1
  14. 80 GET#1,R1:IF EOF(1) THEN 150
  15. 90 IF VAL(R1$)=0 THEN R1=R1+6:GOTO 80
  16. 100 LSET R2$=R1$:PUT#2,R2
  17. 103 IF VAL(R1$)>9998 THEN 150
  18. 105 PRINT LEFT$(R1$,28)
  19. 110 FOR I=1 TO 5
  20. 120 R1=R1+1:R2=R2+1:GET#1,R1:LSET R2$=R1$:PUT#2,R2
  21. 125 PRINT LEFT$(R2$,28)
  22. 130 NEXT I
  23. 140 R1=R1+1:R2=R2+1:GOTO 80
  24. 150 CLOSE:OPEN "O",1,"SUMMARY.BAK":CLOSE:KILL "SUMMARY.BAK":
  25.     NAME "SUMMARY" AS "SUMMARY.BAK":NAME "$SUMMARY.$$$" AS "SUMMARY"
  26. 160 PRINT "Purging message file..."
  27. 170 OPEN "R",1,"A:MESSAGES",65:FIELD#1,65 AS R1$
  28. 180 OPEN "R",2,"A:$MESSAGS.$$$",65:FIELD#2,65 AS R2$
  29. 190 R1=1:R2=1
  30. 200 GET#1,R1:IF EOF(1) THEN 300
  31. 210 IF VAL(R1$)=0 THEN GET#1,R1+5:R1=R1+VAL(R1$)+6:GOTO 200
  32. 220 PRINT LEFT$(R1$,6)
  33. 230 LSET R2$=R1$:PUT#2,R2
  34. 235 IF VAL(R1$)>9998 THEN 300
  35. 240 FOR I=1 TO 5
  36. 250 R1=R1+1:R2=R2+1:GET#1,R1:LSET R2$=R1$:PUT#2,R2
  37. 255 PRINT LEFT$(R2$,63)
  38. 260 NEXT I
  39. 270 FOR I=1 TO VAL(R1$):R1=R1+1:R2=R2+1
  40. 280 GET#1,R1:LSET R2$=R1$:PUT#2,R2
  41. 285 PRINT LEFT$(R2$,63)
  42. 290 NEXT I:R1=R1+1:R2=R2+1:GOTO 200
  43. 300 CLOSE:OPEN "O",1,"MESSAGES.BAK":CLOSE:KILL "MESSAGES.BAK":
  44.     NAME "MESSAGES" AS "MESSAGES.BAK":NAME "$MESSAGS.$$$" AS "MESSAGES"
  45. 310 END
  46.