basictomonokai

## snippet-zxing.txt
REM Start of BASIC! Program
Try :

Clipboard.get ClipMem$
Clipboard.put "||sc#@#"
system.open
System.write "am start -a com.google.zxing.client.android.SCAN --user 0"

DO
Clipboard.get Zw$

## snippet-base64.txt
! 画像バイナリデータ取得

grabfile bufaaa$,flx$
print "画像ファイル取得済"

! print bufaaa$
! dataURIスキーム作成の為、ISO-8859-1エンコード

bbb$=encode$("base64","ISO-8859-1",bufaaa$)
print "エンコード完了"

## snippet-ftpupload.txt
popup "Connecting to ftp server...",0,0,0
pause 2000

FTP.OPEN path$, 4321, fusr$, fpas$

!CD FTP sever
Ftp.cd "ftp-dir"

!GET dir
FTP.DIR ftplist

## snippet-chrome.txt
REM Start of BASIC! Program

App.start ,"file:///sdcard/rfo-basic/data/index.html","com.android.chrome","com.google.android.apps.chrome.Main"

end


## btn.html
<!DOCTYPE html>
<html>
<head>
  <meta http-equiv="content-type" content="text/html; charset=UTF-8">
    <meta name="viewport" content="initial-scale=1.0, user-scalable=no">


  <title>ボタン</title>


## btntest.bas.txt
console.title "HTML test"


nxttest:

HTML.OPEN

HTML.LOAD.URL "btn.html"

xnextUserAction:

## btntest.bas.txt
console.title "HTML test"


nxttest:

HTML.OPEN

HTML.LOAD.URL "btn.html"

xnextUserAction:

## snippet-filelist.txt
REM Start of BASIC! Program

File.dir "./",aaa$[]

array.length laaa,aaa$[]

for i=1 to laaa
   print aaa$[i]
next i

## a3rt.bas.txt
console.title "HTML test"


nxttest:

HTML.OPEN

HTML.LOAD.URL "rttalk2.html"

xnextUserAction:

## brainjs.html
<!DOCTYPE html>
<html>
<head>
  <meta http-equiv="content-type" content="text/html; charset=UTF-8">
    <meta name="viewport" content="initial-scale=1.0, user-scalable=no">

<script src="https://cdnjs.cloudflare.com/ajax/libs/brain/0.6.3/brain.js"></script>

<style>
body {
	REM Start of BASIC! Program
	Try :

	Clipboard.get ClipMem$
	Clipboard.put "\|\|sc#@#"
	system.open
	System.write "am start -a com.google.zxing.client.android.SCAN --user 0"

	DO
	Clipboard.get Zw$
	! 画像バイナリデータ取得

	grabfile bufaaa$,flx$
	print "画像ファイル取得済"

	! print bufaaa$
	! dataURIスキーム作成の為、ISO-8859-1エンコード

	bbb$=encode$("base64","ISO-8859-1",bufaaa$)
	print "エンコード完了"
	popup "Connecting to ftp server...",0,0,0
	pause 2000

	FTP.OPEN path$, 4321, fusr$, fpas$

	!CD FTP sever
	Ftp.cd "ftp-dir"

	!GET dir
	FTP.DIR ftplist
	REM Start of BASIC! Program

	App.start ,"file:///sdcard/rfo-basic/data/index.html","com.android.chrome","com.google.android.apps.chrome.Main"

	end
	<!DOCTYPE html>
	<html>
	<head>
	<meta http-equiv="content-type" content="text/html; charset=UTF-8">
	<meta name="viewport" content="initial-scale=1.0, user-scalable=no">


	<title>ボタン</title>
	console.title "HTML test"


	nxttest:

	HTML.OPEN

	HTML.LOAD.URL "btn.html"

	xnextUserAction:
	REM Start of BASIC! Program

	File.dir "./",aaa$[]

	array.length laaa,aaa$[]

	for i=1 to laaa
	print aaa$[i]
	next i