#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" 6 Effects ron openCard get QTVersion() if it<6 then answer warning jpAnswer("qtDownload", jpText, 2) with \ "No" or "OK" as sheet if it is "OK" then revGoURL "http://www.apple.co.jp/quicktime/download/index.html" end if end if end openCard function jpAnswer pTag, pFldName, pCdNum get ("get the text of fld "& pFldName &" of cd "& pCdNum ) do it get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \ of fld pFldName cd pCdNum return replaceText(IT, "
", " ") end jpAnswer function englishTag return "" end englishTag \ ~ cBird ^FWS^ x F C D&