curl ;BMI/BI %ZOSF COMMANDS. ;06/25/2013
 ;;8.0;KERNEL;****;Jun 25, 2013
 Quit
 ;
get(URL,RESULT)
 New TMP,I,CMD Kill RESULT
 Set TMP="curlTMP",CMD="curl -s """_URL_""""
 Open TMP:(shell="/bin/sh":command=CMD)::"PIPE"
 Use TMP For RESULT(0)=1:1 Read RESULT(RESULT(0))#4000:1 Quit:$ZEOF
 If RESULT(RESULT(0))="" Kill RESULT(RESULT(0)) Set RESULT(0)=RESULT(0)-1
 For I=1:1:RESULT(0) Set RESULT(I)=$Translate(RESULT(I),$c(13),"")
 Close TMP
 Quit