/* Modified zero.zrx - Written by Brett P. Quinn, released to public domain 01/04/2000    */
/* Cim.ZRX will use CIM mode to download the current data analysis for offline processing */
/* Capture files are \ZOC\LOG\GAMENAME.PRT and .SCT                                       */

CALL ZocRespond "[Pause]", " "

CALL ZocTimeout 60                       /* silence all messages */
CALL ZocSend "|"
result = ZocWaitMux("Silencing all messages.", "Displaying all messages.")
SELECT
  WHEN result = 0 THEN SAY ""
  WHEN result = 1 THEN CALL ZocSend "|"
  WHEN result = 640 THEN SIGNAL Abend
END

bbsname = ZocAsk("What is the name of this game?", "")
if bbsname = "" THEN SIGNAL Abend

prtfile = bbsname || ".prt"             /* check for existing file */
sctfile = bbsname || ".sct"             /* check for existing file */
fullprt = "LOG\" || prtfile
IF STREAM(fullprt, "C", "QUERY EXISTS") \= "" THEN DO
  CALL DOSDel fullprt
END
IF STREAM(fullsct, "C", "QUERY EXISTS") \= "" THEN DO
  CALL DOSDel fullsct
END

CALL ZocTimeout 30
CALL ZocLogging 0                       /* turn off logging */
CALL ZocSend "^^"	               	/* start CIM mode */
CALL ZocWait ":"

CALL GETprt
CALL GETsct

CALL ZocLogging 0               /* turn off logging */
CALL ZocSend "q"                /* exit CIM mode */
CALL ZocWait "(?=Help)?"

Done:
CALL ZocSend "|"                        /* turn messages back on */
CALL ZocWait "(?=Help)?"
SAY ""
SAY ""
SAY "Done collecting data."
ZocSend "^M"

EXIT

Abend:
  SAY ""
  SAY ""
  SAY "Script ended abnormally."
  SAY ""
  EXIT

GETprt:
  CALL ZocLogname prtfile         /* open .PRT file */
  CALL ZocLogging 1
  CALL ZocSend "R"
  CALL ZocWait ":"
  CALL ZocLogging 0
RETURN

GETsct:
  CALL ZocLogname sctfile         /* open .SCT file */
  CALL ZocLogging 1
  CALL ZocSend "R"
  CALL ZocWait ":"
  CALL ZocLogging 0
RETURN