home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / ROBOSCRP.ZIP / MMPTR < prev    next >
Encoding:
Text File  |  1992-02-15  |  2.2 KB  |  45 lines
  1. ===========================================================================
  2.  BBS: Shady Oaks
  3. Date: 02-14-92 (08:13)             Number: 473
  4. From: MICHAEL MACDONALD            Refer#: NONE
  5.   To: ALL                           Recvd: NO  
  6. Subj: MM_PTR.RS                      Conf: (56) ROBOCOMM
  7. ---------------------------------------------------------------------------
  8. TITLE "Reset MarkMail pointers using BBSID.PNT"
  9.  
  10. ;-----------------------------------------------------------------------
  11. ; NOTE: This script file is for use with Robocomm ver 4.x
  12. ;       and the MarkMail door. It assumes that PKunZIP and PKZIP
  13. ;       are in your path. Written by Michael MacDonald
  14. ;-----------------------------------------------------------------------
  15.  
  16. MESSAGE "Resetting message pointers"
  17. WHEN "%BBS32%" SEND "N|"                       ;More?
  18. WHEN "%BBS34%" SEND "|"                        ;Pause
  19. WAITFOR "%BBS35%"                              ;Main Board Prompt
  20. SEND "OPEN %BBS63%|"                           ;Door number
  21. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  22. RUN "PKUNZIP -o %QWKDIR%%ID%.QWK %ID%.PNT"     ;Unzip the PNT file
  23. IF ERRORLEVEL GOTO ERROR                       ;PKunZIP failed
  24. RUN "PKZIP %REPDIR%%ID%.REP %ID%.PNT"          ;Zip it into the REP
  25. IF ERRORLEVEL GOTO ERROR                       ;PKZIP failed
  26. SEND "U|"                                      ;Request REP upload
  27. WAITFOR "%BBS42%"                              ;Start REP upload
  28. UPLOAD "%REPDIR%%ID%.REP" USING "%BBS22%"      ;Upload the REP
  29. WAITFOR "%BBS40%"                              ;Mail Main Prompt
  30. MESSAGE "Deleting %REPDIR%%ID%.OLD"
  31. ERASE "%REPDIR%%ID%.OLD"                       ;Delete BBSID.OLD
  32. MESSAGE "Renaming %REPDIR%%ID%.REP to %REPDIR%%ID%.OLD"
  33. RENAME "%REPDIR%%ID%.REP" TO "%REPDIR%%ID%.OLD";Rename REP file
  34. SEND "Q|"                                      ;Quit back to PCBoard
  35. EXIT 0                                         ;Exit the script
  36. :ERROR
  37. SEND "Q|"                                      ;Quit the Mail Door
  38. EXIT 1                                         ;Exit with an error
  39.  
  40. ---
  41.  ■ EZ #0577 ■ Seattle, WA ■ Fri 02-14-92 ■
  42.  
  43. PCRelay:GROUPONE -> #355 RelayNet (tm)
  44. 4.10ß15             Group One BBS - Chicago, IL - 312/752-1258
  45.