Sorry your browser is not supported!

`start
make directory "c:Mrnaughty's Converter programme"
set dir "c:Mrnaughty's Converter programme"
start:
cls
print "Do you want to convert .dba into .txt or .txt to .dba ?"
input "Press 1 for .dba into .txt and 2 for .txt to .dba ",conv$
if conv$ = "1"
goto dbatxt
endif
if conv$ = "2"
goto txtdba
endif

dbatxt:
cls
print "You chose to turn dba into a txt file."
input "Enter your filename with the dba ending  ",name$
input "Enter to what you want the file to be called - e.g - new.txt ",newname$
rename file name$,newname$
print "It has now converted this file. press any key to quit."
wait key
end

txtdba:
cls
print "You chose to turn txt into a dba file."
input "Enter your filename with the txt ending  ",namee$
input "Enter to what you want the file to be called - e.g - new.dba ",newnamee$
rename file namee$,newnamee$
print "It has now converted this file. press any key to quit."
wait key
end

input "Filename to convert: ",fn$
if right$(fn$,4)=".dba" then rename file fn$,left$(fn$,len(fn$)-4)+".txt"
if right$(fn$,4)=".txt" then rename file fn$,left$(fn$,len(fn$)-4)+".dba"

rem Get filename from user
input "Filename to convert: ",fn$

rem If the file is dba then make it txt
if right$(fn$,4)=".dba" then rename file fn$,left$(fn$,len(fn$)-4)+".txt"

rem If the file is txt then make it dba
if right$(fn$,4)=".txt" then rename file fn$,left$(fn$,len(fn$)-4)+".dba"