電子書籍用サンプルプログラム ◆ファイル読込のあるプログラム（ファイルから文字列を読込）

REM Start of BASIC! Program
Text.open r, file_num2, "samp.txt"
do
 text.readln file_num2,msg$
 if msg$="EOF" then
 else
 popup msg$,0,0,1
 pause 4000
 print msg$
 endif
until msg$="EOF"
text.close file_num2
end