画像URL入力画面用外部関数（子プログラム）

fn.def embox0$(ken1$)

grabfile outhtml$,"emo00.html",1

outhtmlk$="\n"


outhtml$=replace$(outhtml$,"@@@1@@@",ken1$)


HTML.OPEN

HTML.LOAD.string outhtml$


! loop until data$ is not ""

DO
 HTML.GET.DATALINK data$
UNTIL data$ <> ""

type$ = LEFT$(data$, 4)

data$ = MID$(data$,5)

! Act on the data type
! Shown are all the current data types

SW.BEGIN type$

 ! Back Key hit.
 ! if we can go back then do it
 SW.CASE "BAK:"
  PRINT "BACK key: " + data$
  popup "強制終了します",0,0,0
  html.close
  pause 2000
  exit
  SW.BREAK

 ! A hyperlink was clicked on
 SW.CASE "LNK:"
  PRINT "Hyperlink selected: "+ data$
  popup "想定外のデータ受信 強制終了します",0,0,0
  pause 5000
  html.close
  exit

  SW.BREAK

 ! An error occured
 SW.CASE "ERR:"
  PRINT "Error: " + data$
  popup "エラーが発生しました 終了します",0,0,0
  pause 2000
  html.close
  exit
  SW.BREAK

 ! User data returned
 SW.CASE "DAT:"
!  PRINT "User data: " + data$

  ! Check for Exit
  IF data$ = "Exit"
   PRINT "User ended demo."
   HTML.CLOSE
   popup "想定外のデータ受信 強制終了します",0,0,0
   pause 5000
   exit
  else
   msx$=data$+" が選択されました"
   popup msx$,0,0,0
   html.close
   pause 2000
  ENDIF
  SW.BREAK

 ! Form data returned.
 ! Note: Form data returning
 ! always exits the html.

 SW.CASE "FOR:"
  PRINT "Form data: "+data$
  popup "想定外のデータ受信 強制終了します",0,0,0
  pause 2000
  HTML.CLOSE
  exit
  SW.BREAK



 SW.DEFAULT
  PRINT "Unexpected data type:", type$ + data$
  popup "想定外のデータ受信 強制終了します",0,0,0
  pause 2000
  HTML.CLOSE
  exit

SW.END

fn.rtn data$

fn.end