basictomonokai

BYTE.OPEN r, fn, urlx$
POPUP "Be patient. Wait for 'Download Done' Message", 0, 0, 1
BYTE.COPY fn, file$
PRINT "Download Done."

basictomonokai

xdata$=data$
outxdata$=""

split xdatawk1$[],xdata$,"@y@"
array.length lxdatawk1,xdatawk1$[]

for iii=1 to lxdatawk1

  split xdatawk2$[],xdatawk1$[iii],"@x@"
  array.length lxdatawk2,xdatawk2$[]

basictomonokai

Html.Load.Url "javascript:document.getElementById('aaa').value='BASIC!からの送信'"

basictomonokai

file.exists flxx,"fd01.txt"

if flxx=0 then
else
  irs=1 
  Text.open r, file_numbera, "fd01.txt"
  do
    Text.readln file_numbera, line$
    if line$="EOF" then
    else

basictomonokai

urlx$="https://www.dropbox.com/s/xxxxxxxxxx/data_j.csv?dl=1"

file$ = "meigara.csv"
BYTE.OPEN r, fn, urlx$
POPUP "Be patient. Wait for 'Download Done' Message", 0, 0, 1
BYTE.COPY fn, file$
PRINT "Download Done."

basictomonokai

REM Start of BASIC! Program

filename$="test.txt"

grabfile datf$,filename$,1

print datf$

bundle.create bptr
bundle.put bptr,"android.intent.extra.SUBJECT","from basic!"

basictomonokai

console.title "logcat"

! HTML MODE
html.open

html.load.url "jstest2.html"

pause 3000

html.close

basictomonokai

text.open w,flb,"a2.txt"
text.writeln flb,line$
popup "ファイルに出力しました",0,0,1
pause 4000
text.close flb

basictomonokai

REM Start of BASIC! Program

y$="2016"
m$="02"
d$="28"
h$="00"
n$="00"
s$="00"
today$=y$+m$+d$+h$+n$+s$

basictomonokai

REM Start of BASIC! Program
device ptrx
bundle.get ptrx,"OS",osv$
msgos$="OS Version:"+osv$
popup msgos$,0,0,0
ckos=0

if left$(osv$,1)="5" then
   ckos=1
endif