SCRIPT ' ***************************************************************** ' Description: Loop on 3 BBSs. This script will continuously loop ' on 3 BBSs. To exit the loop, press the STOP button ' on Run Monitor Form. ' This approach lets you set up to poll any number of ' Outpost-defined BBSs with minimal code. ' NOTE!!! The TNCs and BBSs assigned to the TNC and BBS variables ' must be previously set up in Outpost from the ' Setup > TNC and Setup > BBS forms. ' Author: Jim KN6PE ' Revision: 10/09/08 Original ' ' ***************************************************************** Var BbsNames as String ' holds the list of BBSs to poll BEGIN TNC = "GARAGE-TNC" ' use this TNC for all runs. This ' TNC must be set up in Outpost first MYCALL = "KN6PE" ' check for my messages on all BBSs RETRIEVE = "PB" ' retrieve Private and Bulletins BbsNames = "K6FB-2, K6MOV-1, W6SJC-1" ' define the list of BBSs to poll LOOP FindWord(BbsNames) ' initialize the search for each BBS name BBS = NextWord(0) ' get the first BBS name; param must be "0"! while len(BBS) > 0 ' if the name exists (# of chars > 0), do it! Print(CRLF & "Checking " & BBS & " BBS for " & Mycall) SENDRECEIVE ' Kick off the Send/Receive Session BBS = NextWord(0) ' Get the next BBS Name; param must be "0"! endwhile PAUSE(600) ' Pause 10 minutes… ENDLOOP ' … then repeat END