;* * * * * * * * * *
;*
;*  CHANNEL.PPS (CHANPPS.152) for PCBoard Version 15.2
;*
;*  This PPS will grab the channel number @OPTEXT@ during a chat page
;*  request and save it to a temporary file.  This PPS uses a method that
;*  is much faster then CHANPPS.151, but is only available under PCBoard 
;*  Version 15.2 or better.
;*

STRING PCBDRIVE, PCBDIR, Check, Path, Text

Let Path = GETENV("PCBDRIVE")+GETENV("PCBDIR")

Text = PCBMAC("@OPTEXT@")

IF (EXIST(Path+"\CHANNEL.TMP")) DELETE Path+"\CHANNEL.TMP"
PRINT "Respond by typing (CHAT) (G) and then select channel ",Text,"."
FOPEN 1,Path+"\CHANNEL.TMP",O_WR,S_DB
FPUTLN 1,Text
FCLOSE 1