Category : Various Text files
Archive   : SKULL1.ZIP
Filename : PROLOG.ENV

% Standard Prolog Environment
% Coding 1/8/88 -- Added autodetect of video adapter card



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Window attributes -- for colour or B&W tube


:- set_video(3,_) -> % Can we put it in mode 3 (color text) ??
assert(wina$(main, 113, 112)), % Main window blue on white with black border
assert(wina$(alert, 113, 4)), % Alerts - red on white border
assert(wina$(highlight, 56)),
assert(wina$(bold, 116)),
set_video(-1,_)
;
assert(wina$(main, 7, 112)),
assert(wina$(alert, 112, 7)),
assert(wina$(highlight, 112)),
assert(wina$(bold, 15)).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The name of the help file used by 'help'
%% Change the second argument if you wish to use different files
%% for the index and text files respectively

help$(idx, 'help.idx').
help$(txt, 'help.txt').


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The name of your editor - be certain to include a space as the last
%% element of the list, also make sure it is a character list NOT an atom

editor$("ed ").

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This call reserves memory in DOS so we can be assured that we have at
% least 100K bytes to execute dos commands - namely the editor
% So, figure out how much room you editor will need to run and
% put the number in here. Remove the line entirely if you
% don't wish to reserve memory at all. In this case your editor will
% be at the mercy of Prolog - should Prolog expand in memory then
% it may become impossible to run your editor

% :- reserve_memory(20000).

pause(X) :- % waits for X/10 of a second
timer(T1),
repeat,
timer(T2),
T2 - T1 > X,
!.