path$=cl$()
if path$>""
 
n=len(path$)
filename$=left$(right$(path$,n-1),n-2)
 
open to read 1,filename$
if file exist (filename$+"_decompressed.dba") then delete file filename$+"_decompressed.dba"
open to write 2,filename$+"_decompressed.dba"
 
repeat
read string 1,line$
words$=first token$(line$,":")
repeat
   write string 2,words$
   words$=next token$(":")
   inc linenumber
until words$=""
until file end(1)=1
 
close file 1
close file 2
 
print "Code was decompressed into ",linenumber-1," lines. Have a nice day."
 
wait key
endif