Turbo Prolog

clauses
dosver(VERSION):­
AX=L;8*256,
bios(33,reg(AX,O,O,O,O,O,O,O),reg(VV,_,_,_,_,_,_,_)),
1* you could use hex notation, bios($21 ... )
instead of bios(33 ... ) *1
L=VV/256, H=VV-256*L, VERSION=H+L/100.
diskspace(DISK,TOTALSPACE,FREESPACE):-
AAX=5L;*256,
bios(33,reg(AAX,O,O,DISK,O,O,O,O),
reg(AX,BX,CX,DX,_,_,_,_)),
FREESPACE=1.0*BX*CX*AX, TOTALSPACE=1.0*DX*CX*AX.
makedir(NAME):ptr_dword(NAME,DS,DX),
AX=256*57,
bios(33,reg(AX,O,O,DX,O,O,DS,O),_).
removedir(NAME):ptr_dword(NAME,DS,DX),AX=256*58,
bios(33,reg(AX,O,O,DX,O,O,DS,O),_).
ACCESSING THE EDITOR
FROM WITHIN A TURBO PROLOG PROGRAM
The following predicates are used to call the Turbo Prolog editor.
edit(InStringParam,OutStringParam)
The Turbo Prolog editor is invoked in the active window. All the usual editor facilities
are now available. (The operation of the editor is described in Chapters 2 and 12.) The
editor will be used on the text given in InStringParam, and OutStringParam will receive
the edited result. Thus, the following call could be used to start editing an empty screen:
edit (1111, Text) .
display( String)
The Turbo Prolog editor is invoked in the active window. The text in String can be
examined under editor control but cannot be altered (and therefore only a subset of
the editor's facilities are available in "display" mode).
editmsg(InString, OutString, LeftHeader, RightHeader,
Message,Position, HelpFileName, Code)
The Turbo Prolog editor is called, and InString can then be edited in the currently active
window to form OutString. Two texts are inserted in the header given by LeftHeader
and RightHeader. The cursor is located at the Position-th character in InString and the
Programmer's Guide 161