This program lets you convert a txt file to dba. For example if you find a program you like but are not able to download the sourcecode, highlight all the text, then right click an

For example if you find a program you like but are not able to download the sourcecode, highlight all the text, then right click and choose copy, then open windows notepad and right click paste. Save the file as a txt file the run the program and enter the filename you saved, then enter a filename to save. Thats it

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem file converter
cd "c:"
rem Count lines
main:
lines=0
cls:set cursor 240,200:print "Filename To Convert"
set cursor 240,215
input f$

cls:set cursor 235,200:print "File Name To be Saved"
set cursor 235,215
input g$

cls:set cursor 160,200
print "This will convert a text file to a dba file"
wait 3000
cls
text 1,1,""
rem Read file to screen
open to read 1,f$+".txt"
open to write 2,g$+".dba"	
if file open(1)=1
		while file end(1)=0
			read string 1,a$
			print a$
			write string 2,a$
          inc lines
			if lines>30 then cls : lines=0
           		
      
     endwhile
	endif
cls:text 220,200,"Your file has been converted"
wait 4000
cls:text 220,200,"To Convert Another File Pess Spacekey"
text 220,235,"Press Escape Key To Exit"
chkkey:

if spacekey()=1 then close file 1:close file 2: goto main
if escapekey()=1 then end
goto chkkey
close file 1:close file 2