$compile exe
$lib all -
$error all -
$string 1

%FALSE = 0
%TRUE = NOT %FALSE
defstr a-z

cls
res = "DOS-International"
if edit%( res ) then
 ?: ? res
else
 ?: ? "Doskey nicht geladen!"
end if
END

function edit% ( res ) local
if doskey% then
 dim buf as string * 128
 sgm& = varseg(buf)
 ofs& = varptr(buf)
 buf  = chr$(128, len(res)) + res
 ? "Editieren: ";: locate ,,1
 ! mov ax, &H4810
 ! mov ds, sgm&
 ! mov dx, ofs&
 ! int &H2F
 res = mid$(buf,3,asc(mid$(buf,2)))
 edit% = %TRUE
else
 res = "": edit% = %FALSE
end if
end function

function doskey%
doskey% = %FALSE
! mov ax, &H4800
! int &H2F
! or  al, 0
! jz  ex
doskey% = %TRUE
ex:
end function