!! Lists Program Choose Menu To Start !! cls Print "=========================" print " This program can be used " print " to make ToDo or Shopping" print " Lists. print " The program starts in 3" print " seconds. print " Have Fun!!" print " " print " FvV june 2011" print "=========================" pause 3000 dim LLL$[20] dim MM$[4] menu: %========Main Menu======= cls undim dr$[] MM$[1]="1= Open existing List" MM$[2]="2= Make new List" MM$[3]="3= About " MM$[4]="4= Quit " print " " msg$="Your Choise ? " select nummer, MM$[],msg$ !==============End Main Menu=== If nummer=1 then act=1 % Read File gosub FileChoose gosub FileRead gosub Fill act=2 % Write File gosub FileChoose gosub FileMake endif If nummer=2 then for i=1 to 20 LLL$[i]=".." next i cls gosub Fill act=2 gosub FileChoose gosub FileMake endif If nummer=3 then cls Print " List.bas " print " RFO-Basic Version 01.16" print " Developed in: " print " YouWave for Android " print " With RFO-Basic installed" print " Tested on Motorola Defy " print " with Android 2.1 " print " " print " FvV july 2011" pause 6000 endif if nummer=4 then goto Quit goto menu Quit: gosub Head end Fill: %======Fill List========= nummer=1 DO msg$="Pick Line ,<-- = List Ready" select nummer, LLL$[],msg$ if nummer>0 then input"Write Line,(Space = Item Done)",tmp$ if tmp$=" " then tmp2$=LLL$[nummer] LLL$[nummer]="(("+tmp2$+"))" else LLL$[nummer]=tmp$ endif endif until nummer=0 return %==========End Fill List====== FileMake: %======Make File========= text.open W, FN1, FIL$ for i=1 to 20 tmp$=LLL$[i] text.writeln FN1,tmp$ next i text.close FN1 return %=========End Make File=== FileRead: %=======Read File====== text.open R,FN1, FIL$ for i= 1 to 20 text.readln FN1,LLL$[i] next i text.close FN1 return %=========end Read file==== Head: %======Print Head============== print"=============================" print"End Lists Program " print"=============================" return %=====End Print Head======== FileChoose: %=Choose File========== if act=1 then TL$="Choose existing File" undim dr$ dir "data/lst/",dr$[] Select fnum,dr$[],TL$ FIL$="/lst/"+dr$[fnum] endif if act=2 then TL$="Choose filename or <-- for new filename" undim dr$[] dir "data/lst/",dr$[] select fff,dr$[],TL$ !pause 1000 if fff=0 then input "Filename (without .lst)",TMP$ FIL$="/lst/"+Tmp$+".lst" !print Fil$ !pause 5000 cls else FIL$="/lst/" +dr$[fff] endif endif return %========END Choose File======