home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / ROBOSCRP.ZIP / RMPTR < prev    next >
Encoding:
Text File  |  1992-02-15  |  2.0 KB  |  45 lines
  1. ===========================================================================
  2.  BBS: Shady Oaks
  3. Date: 02-14-92 (08:13)             Number: 474
  4. From: MICHAEL MACDONALD            Refer#: NONE
  5.   To: ALL                           Recvd: NO  
  6. Subj: RM_PTR.RS                      Conf: (56) ROBOCOMM
  7. ---------------------------------------------------------------------------
  8. TITLE "Reset RoseMail pointers using BBSID.PTR"
  9.  
  10. ;-----------------------------------------------------------------------
  11. ; NOTE: This script file is for use with Robocomm ver 4.x
  12. ;       and the RoseMail door. It assumes the PKunZIP is in
  13. ;       your path. Written by Michael MacDonald
  14. ;-----------------------------------------------------------------------
  15.  
  16. PARAMETER 1 "Set pointers to [B]efore or [A]fter last D/L?"
  17. ENDPARAMS
  18. MESSAGE "Resetting message pointers"
  19. WHEN "%BBS32%" SEND "N|"                       ;More?
  20. WHEN "ENTER TO CONTINUE" SEND "|"              ;Pause
  21. WAITFOR "%BBS35%"                              ;Main Board Prompt
  22. SEND "OPEN %BBS63%|"                           ;Open the Mail Door
  23. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  24. RUN "PKUNZIP -o %QWKDIR%%ID%.QWK %ID%.PTR"     ;Unzip the PTR
  25. IF ERRORLEVEL GOTO ERROR                       ;See if PKunZIP fails
  26. SEND "R|"                                      ;Request PTR upload
  27. WAITFOR "%ID%.PTR"                             ;The BBS is ready
  28. UPLOAD "%ID%.PTR" USING "%BBS22%"              ;Start PTR upload
  29. WAITFOR "(ENTER to abort)"
  30. SEND "%P1%|"                                   ;Reset pointers to B or A
  31. MESSAGE "Message pointers reset to %P1%"
  32. WAITFOR "%BBS40%"                              ;Mail Main Prompt
  33. SEND "Q|"                                      ;Quit the Mail Door
  34. EXIT 0                                         ;Exit the script
  35. :ERROR
  36. SEND "Q|"                                      ;Exit with an error
  37. EXIT 1
  38.  
  39. ---
  40.  ■ EZ #0577 ■ Seattle, WA ■ Fri 02-14-92 ■
  41.  
  42.  
  43. PCRelay:GROUPONE -> #355 RelayNet (tm)
  44. 4.10ß15             Group One BBS - Chicago, IL - 312/752-1258
  45.