set allFeeds to {}

repeat with i from 1 to 100
　　set {aRes, maxNum} to getAFeeds(i) of me
　　
　　if aRes = false then exit repeat
　　set maxNum to maxNum as number
　　set allFeeds to allFeeds & aRes
　　if (maxNum div 10) ≤ i then
　　　　exit repeat
　　end if
end repeat

return allFeeds
–>　　
(*
{​​​​​{​​​​​​​author:"日本インタビュ新聞 Media-IR", ​​​​​​​sourceTitle:"日本インタビュ新聞　株式投資情報", ​​​​​​​title:"アライドレシスホールディングスは「継続企業の前提に関する注記」の記載を解消", ​​​​​​​link:"http://kabu-ir.com/article/448533521.html", ​​​​​​​pubDate:1.490787369E+12, ​​​​​​​description:"■返済期日が延長され、当面の資金繰りの安定化が図られる見込み　アライドテレシスホールディングス＜６８３５＞（東２）は２９日、「継続企業の前提に関する注記」の記載を解消することを発表した。　同社グループは、平成２８年１２月期連結会計年度で営業利益５億７２百万円、当期純利益１億１１百万円を計上した。しかし、営業活動によるキャッシュフロー４億６百万円に対し、連結会計年度末における金融機関からの有利子負債残高が７４億９４百万円と多額であり、平成２９年６月３０日に期間満了となるシンジケ..", ​​​​​​​sourceLink:"http://kabu-ir.com/"​​​​​}, ​​​​​{​​​​​​​author:"日本インタビュ新聞 Media-IR", ​​​​​​​sourceTitle:"日本インタビュ新聞　株式投資情報", ​​​​​​​title:"ケイティケイは今１７年８月期第２四半期と通期業績予想の利益面での上方修正を発表", ​​​​​​​
*)

on getAFeeds(aNum)
　　set reqURLStr to "https://api.apitore.com/api/32/feeds/design"
　　set accessToken to retAccessToken() of me —Access Token
　　set aRec to {access_token:accessToken, page:(aNum as string)}
　　set aURL to retURLwithParams(reqURLStr, aRec) of me
　　
　　set aRes to callRestGETAPIAndParseResults(aURL) of me
　　
　　set aRESCode to (responseCode of aRes) as integer
　　if aRESCode is not equal to 200 then return {false, false}
　　
　　set aRESTres to (json of aRes) as record
　　
　　set sentiRes to entries of aRESTres
　　set allNum to num of aRESTres
　　log allNum
　　
　　return {sentiRes, allNum}
end getAFeeds

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　
　　aRequest’s setHTTPMethod:"GET"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　aRequest’s setValue:"application/json" forHTTPHeaderField:"Accept"
　　aRequest’s setValue:"gzip" forHTTPHeaderField:"Content-Encoding"
　　aRequest’s setValue:"Test AppleScript (gzip)" forHTTPHeaderField:"User-Agent"
　　
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　set resList to aRes as list
　　
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code & Header
　　set dRes to contents of second item of resList
　　if dRes is not equal to missing value then
　　　　set resCode to (dRes’s statusCode()) as number
　　　　set resHeaders to (dRes’s allHeaderFields()) as record
　　else
　　　　set resCode to 0
　　　　set resHeaders to {}
　　end if
　　
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
　　
end callRestGETAPIAndParseResults

on retURLwithParams(aBaseURL, aRec)
　　set aDic to current application’s NSMutableDictionary’s dictionaryWithDictionary:aRec
　　
　　set aKeyList to (aDic’s allKeys()) as list
　　set aValList to (aDic’s allValues()) as list
　　set aLen to length of aKeyList
　　
　　set qList to {}
　　repeat with i from 1 to aLen
　　　　set aName to contents of item i of aKeyList
　　　　set aVal to contents of item i of aValList
　　　　set the end of qList to (current application’s NSURLQueryItem’s queryItemWithName:aName value:aVal)
　　end repeat
　　
　　set aComp to current application’s NSURLComponents’s alloc()’s initWithString:aBaseURL
　　aComp’s setQueryItems:qList
　　set aURL to (aComp’s |URL|()’s absoluteString()) as text
　　
　　return aURL
end retURLwithParams