電子書籍用サンプルプログラム ◆goto文のあるプログラム（正解するまで質問を繰り返す）

REM sample
situmon:
input "日本の首都は？",syuto$
if syuto$="東京" then
 popup "正解",0,0,1
 pause 4000
else
 popup "不正解",0,0,1
 pause 4000
 goto situmon
endif
end