Kod

alias altin { vcek https://api.genelpara.com/json/?list=altin&sembol=all }
alias vcek {
  var %qk $+(hop,$r(1,9999)) | .comopen %qk Msxml2.ServerXMLHTTP.6.0
  noop $com(%qk, open, 2, bstr, GET, bstr, $1)
  noop $com(%qk, send, 1) $com(%qk, responseText, 2)
  var %l1 $len($com(%qk).result)
  if %l1 > 4141 { var %l $mid($com(%qk).result,1,4141), %l2 $mid($com(%qk),4141,4150) } 
  else { var %l $mid($com(%qk).result,2,4141) }
  .comclose %qk
  var %i = 4 
  while %i <= $gettok(%l,0,379) {
    var %satir = $gettok(%l,%i,379)
    var %satirr = $gettok(%l,$calc(%i -1),379)
    if ($regex(%satirr, /"([^"]+)"\s*:?$/))  var %id = $regml(1) 
    if ($regex(%satir, /"alis":\s*"([^"]+)"/))    var %alis = $regml(1)
    if ($regex(%satir, /"satis":\s*"([^"]+)"/))   var %satis = $regml(1)
    if ($regex(%satir, /"degisim":\s*"([^"]+)"/)) var %degisim = $regml(1)
    if ($regex(%satir, /"oran":\s*"([^"]+)"/))    var %oran = $regml(1)
    if ($regex(%satir, /"kur":\s*"([^"]+)"/))     var %kur = $regml(1)
    if ($regex(%satir, /"sembol":\s*"([^"]+)"/))  var %sembol = $regml(1)
    echo -s 4ID: %id 03Alis: %alis 04| 03Satis: %satis 04| 03Degisim: %degisim 04| 03Oran: %oran 04| 03Kur: %kur 04| 03Sembol: %sembol
    inc %i
  }
}