2K、3K、4K衰弱・神経衰弱画面サブプログラム t-gmmctsub1.bas

fn.def gmbox1$(htdata1$)

console.title "神経衰弱画面の表示"

grabfile outhtml$,htdata1$,1

nxttest:

HTML.OPEN

HTML.LOAD.string outhtml$

xnextUserAction:

! 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
  pause 2000
  end
  SW.BREAK

 ! A hyperlink was clicked on
 SW.CASE "LNK:"
  PRINT "Hyperlink selected: "+ data$
  popup "リンク先をロード中",0,0,1
!  HTML.LOAD.URL data$
  browse data$


  SW.BREAK

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

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

  ! Check for Exit
  IF data$ = "//x//"
   PRINT "User ended demo."
   HTML.CLOSE
   popup "終了します",0,0,0
   pause 1000
   exit
  else
   msx$="【結果表示】\n\n回数は　"+data$+"　回でした。"
   popup msx$,0,0,0
   pause 2000
   html.close
  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
  exit
  SW.BREAK



 SW.DEFAULT
  PRINT "Unexpected data type:", type$ + data$
  popup "終了します",0,0,0
  pause 2000
  exit

SW.END



fn.rtn data$

fn.end