#drscript

#By Daniel Pozmanter
#Released under the GPL

drdoctext = DrDocument.GetText()
l = len(drdoctext)
x = 0
s = ""
while x < l:
	if drdoctext[x] == '\r':
		s = s + "<Carriage Return>\n"
	elif drdoctext[x] == '\n':
		s = s + "<Newline>\n"
	x = x + 1
DrFrame.ShowPrompt()
DrPrompt.SetText(s)