Quote: "
Function SpriteText Input(prompt$,x,y,W,H,N,BMP,cursor$)
backdrop on
repeat
if scancode()=14
cls
long = Len(Txt$)-1
Txt$ = LEFT$(Txt$,long)
goto skip
endif
Txt$ = Txt$ + inkey$()
skip:
for i = 1 to 5
if i = 1 then Spritetext (prompt$ + txt$ + cursor$,x,y,w,h,n,bmp)
if i = 2 then Spritetext (prompt$ + txt$ + cursor$,x,y,w,h,n,bmp)
if i = 3 then Spritetext (prompt$ + txt$,x,y,w,h,n,bmp)
if i = 4 then Spritetext (prompt$ + txt$,x,y,w,h,n,bmp)
if i = 5 then Spritetext (prompt$ + txt$,x,y,w,h,n,bmp)
sync
next i
until returnkey()=1
endfunction txt$"
I am the Betrayer of hope naebl'is by the will of
the Great Lord of the Dark. If you do not want to surrender, your soul will burn in the deepest hole of the Pit of doom.