Sorry your browser is not supported!

cls
print "This is a ndl maker a new dll maker for dbp"
print "Enter your dbp code for the ndl - 20 max - end to end"
print "only comands so far:"
print "cls - clears screen"
print "{ - starts printing everything inside it"
print "} - closes printing"
print "wait key - wait for a key"
wait key
cls
input "Enter drive: ",a$
set dir a$
input "Enter filename without .ndl at end: ",b$
delete file b$+".ndl"
open to write 1,b$+".ndl"
cls
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
input a$
if a$="end" then close file 1 : end
write string 1,a$
wait 1500
cls
print "Too many lines"
wait 1500
end

cls
print "This is the ndl opener"
input "Enter drive: ",a$
set dir a$
input "Enter filename without ending: ",a$
open to read 1,a$+".ndl"
cls
for a=1 to 20
read string 1,a$
if a$="cls" then cls
if a$="wait key" then wait key
if a$="{" then b$="1"
if a$="}" then b$="0"
if b$="1" and a$="{" or a$="}"
goto a
endif
if b$="1" then print a$
a:
next a
wait key
close file 1
end

cls
print "This is a ndl maker a new dll maker for dbp"
print "Enter your dbp code for the ndl - 20 max - end to end"
print "only comands so far:"
print "cls - clears screen"
print "{ - starts printing everything inside it"
print "} - closes printing"
print "wait key - wait for a key"
wait key
cls
input "Enter filename without .ndl at end ( example: c:\test ): ",b$
if file exist(b$+".ndl") then delete file b$+".ndl"
open to write 1,b$+".ndl"
cls
linecount = 1
c = 1
print b$
input "Line " + str$(linecount) + ": ", a$
while lower$(a$) <> "end"
   inc linecount
   write string 1,a$
   input "Line " + str$(linecount) + ": ", a$   
   inc c 
   if c = 20 
     cls
     c = 1
   endif
endwhile
cls
close file 1
Print "File saved"
wait key

cls
print "This is the ndl opener"
input "Enter filename without ending ( example c:\test ): ",a$
open to read 1,a$+".ndl"
cls
while file end(1) <> 1
   read string 1,a$
   a$ = lower$(a$)
   if b=1 and a$="}" then b = 0
   if b=1 then print a$
   if b=0 
      if a$="cls" then cls
      if a$="wait key" then wait key
      if a$="{" then b=1
   endif
endwhile
Print "finished..."
wait key
close file 1
end

if command$="do"
in_loop=1
line1=<whatever line do is on>
endif
if command$="loop"
if in_loop=0 then LINE_NUMBER=LINE_NUMBER+1
else
LINE_NUMBER=line1
endif