Since these routines are tested and work it should save others from having this problem.
CORRECTION! I discovered that running the above routines as callables from a mainloop will only execute correctly on the first loop and will quit after that.
This was due to a simple syntax error in one of the statements in the FTP subroutine. Therefore, replace the above posted FTP routine with this one that has been corrected and the routines will continue to work no matter how many times they are called:
Code:
FTP: 'FTP temperature data to internet based website
'===
    SEROUT2 TX,84,["AT+i",$d,$a]
    SEROUT2 TX,84,["AT+i!FCLS:000",$d,$a] 'CLOSE SESSION
    SEROUT2 TX,84,["AT+iFOPN:lodestarassoc.com:jellis00,Kevin111#",$d,$a]'OPEN SESSION
    SERIN2 RX,84,1000,FTP,[WAIT("I/000")] :PAUSE 100
    SEROUT2 TX,84,["AT+iFCWD:000,iChip",$d,$a]
    SERIN2 RX,84,[WAIT("I/OK")]
    SEROUT2 TX,84,["AT+iFSTO:000,",$22,"include-3.txt",$22,$d,$a]
    SERIN2 RX,84,[WAIT("I/OK")]
    SEROUT2 TX,84,["AT+iFSND:000,19:"," The temperature is",$d,$a]:PAUSE 100
    SEROUT2 TX,84,["AT+iFSND:000,2:",$d,$a]:PAUSE 100
    SEROUT2 TX,84,["AT+iFSND:000,13:",DEC temp," F Outside",$d,$a]:PAUSE 100
    SEROUT2 TX,84,["AT+iFSND:000,2:",$d,$a]:PAUSE 100
    SEROUT2 TX,84, ["AT+iFCLF:000",$d,$a] : PAUSE 100    ' Close file
    SEROUT2 TX,84,["AT+i!FCLS:000",$d,$a] 'CLOSE SESSION
    PAUSE 100
    SEROUT2 TX,84,["AT+i",$d,$a]':PAUSE 100
    SERIN2 RX,84,100,BOOT,[WAIT("I/OK")] :PAUSE 100
RETURN