電子書籍用サンプルプログラム ◆メインプログラム（demo-main.bas)

REM Start of BASIC! Program
include demo-sub1.bas
include demo-sub2.bas
include demo-sub3.bas

dim rsskey$[100]
dim rssname$[100]

console.title "RSS feed"

rssstp:

file.exists flxx,"fd01.txt"

if flxx=0 then
else
  irs=1
  Text.open r, file_numbera, "fd01.txt"
  do
    Text.readln file_numbera, line$
    if line$="EOF" then
    else
      if line$="" then
      else
        split abc$[],line$,"@@@"

        rssname$[irs]=abc$[1]
        rsskey$[irs]=abc$[2]
        irs=irs+1

        array.delete abc$[]


      endif
    endif
  until line$="EOF"
  Text.close file_numbera
endif

anszz$=""

for kk=1 to irs

  if len(rsskey$[kk]) > 1 then
    ansz$=fdget1$(rssname$[kk],rsskey$[kk])
    anszz$=anszz$+ansz$
  else
  endif

next kk


rssstpx:

ansy$=rsbox1$("RSSフィードリーダ","RSSフィードリーダ",anszz$)

if ansy$="x" then
else
  if ansy$="y" then

     all$=""
     file.exists flyy,"fd01.txt"

     if flyy=0 then
     else
       Text.open r, file_numberc, "fd01.txt"
       do
         Text.readln file_numberc, line$
         if line$="EOF" then
         else
           all$=all$+line$+"\n"
         endif
       until line$="EOF"
       Text.close file_numberc
     endif
     text.input zzz$,all$,"１行でフィード名＠＠＠URLを登録"

     Text.open w, file_num2, "fd01.txt"
     msg$="【登録内容】\n"+zzz$
     popup msg$,0,0,1
     pause 4000
     text.writeln file_num2,zzz$
     text.close file_num2

  else
  endif
endif

if ansy$="x" then
   ansyn$=ynbox1$("処理継続選択画面","RSSフィードリーダ＝＞処理の選択","引き続き、処理を継続しますか？")
else
   if ansy$="y" then
      ansyn$=ynbox1$("処理継続選択画面","RSSフィードリーダ＝＞処理の選択","引き続き、処理を継続しますか？")
   else
      goto rssstpx
   endif
endif

if ansyn$="yes" then
   goto rssstp
else
   popup "RSSフィードリーダを終了します",0,0,1
endif

exit