home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / dmw100.zip / PROLOG.ENV < prev    next >
Text File  |  1990-04-16  |  2KB  |  55 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %% Window attributes  -- for colour or B&W tube
  3. :- set_video(3,_) ->             % Can we put it in mode 3 (color text) ??
  4.    assert(wina$(main,48,63)),
  5.    assert(wina$(alert, 52,52)),
  6.    assert(wina$(highlight, 31)),
  7.    assert(wina$(bold, 63)),
  8.    set_video(-1,_)
  9.  ;
  10.    (
  11.    assert(wina$(main, 7, 112)),
  12.    assert(wina$(alert, 112, 7)),
  13.    assert(wina$(highlight, 112)),
  14.    assert(wina$(bold, 15))
  15.    ).
  16. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  17. %%  The name of the help file used by 'help'
  18. %%  Change the second argument if you wish to use different files
  19. %%  for the index and text files respectively
  20.  
  21. % help$(idx, 'cthelp.idx').
  22. % help$(txt, 'cthelp.txt').
  23. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  24. %% The name of your editor - be certain to include a space as the last
  25. %% element of the list, also make sure it is a character list NOT an atom
  26. editor$("ted ").
  27. % Assign ports
  28. ioport(printer, 'lpt1').   % Set second argument to your printer
  29. page_eject.                % Remove if you don't want new page feeds
  30.                            % after each page is printed.
  31. % Misc
  32. key_table(cursor(right), key_next_button).
  33. key_table(cursor(left), key_prev_button).
  34. key_table(cursor(up), key_prev_button).
  35. key_table(cursor(down),key_next_button).
  36. key_table(27, key_escape).
  37. key_table(9, key_tab).
  38. key_table(13, key_enter).
  39. key_table(32, key_next_button).
  40. key_table(home, key_home).
  41. key_table(page(up), key_prev_page).
  42. key_table(page(down), key_next_page).
  43. key_table(X, X).
  44.  
  45. f(4) :- visit_document('util.atx',$NOTEPAD$).
  46. :-assert(intro).
  47. fprompt(Prompt,Value,X,Y) :-
  48.         prompt(40,1,$$,Prompt,String),
  49.         string_list(String, Vals),
  50.         sscanf(Vals,"%w%f%w",[Value]),
  51.         tmove(X,Y),
  52.         write($       $),
  53.         tmove(X,Y),
  54.         write(Value).
  55.